Position réelle de la souris sur un Canvas "scrollé"

Bonjour,

Je rencontre un problème bête mais handicapant... Dans un composant possédant des Scrollbars, où le Canvas est plus large que la vue Client, je souhaiterais récupérer les coordonnées de la souris (dans un OnMouseUp, où X et Y sont passés en paramètre) mais exprimées par rapport à l'origine du Canvas et non pas par rapport à l'origine de la vue Client du composant.

J'espère avoir été clair :P Merci de l'aide !

Personnellement, je triche en utilisant un ScrollBox
J'ai récemment utilisé un TPaintBox qui dessine l'ensemble des connexions entre des Panneaux (genre UML), lorsque je défile dans mon ScrollBox et que je double-clic, j'utilise PaintBox.ScreenToClient(Mouse.CursorPos); et cela "surligne" la connexion cliqué sans problème de localisation parce que le ClientOrigin du TPaintBox change lors l'on se déplace dans TScrollBox

C'est plutôt la Zone visible du Canvas qui a changé que son Origine

Voir InvalidateRect et GetUpdateRect qui permettent respectivement de définir et récupérer la zone devant être redessiné dans un TWinControl

Si c'est un TGraphicControl, je pense qu'il est toujours redessiné en entier, à confirmer

Enfin, si c'est un dérivé de TScrollingWinControl, il te suffit de décaler X et Y de HorzScrollBar.Position et VertScrollBar.Position pour retrouver le point haut gauche visible et non le point haut gauche d'origine de la zone cliente

Si c'est un dérivé de TWinControl, il te suffit de décaler X et Y avec GetScrollPos

Dans la cas de ScrollBar automatiquement géré par Windows, j'ignore si cela a un impact sur ClientOrigin

Merci pour les infos. C'est un TDrawGrid, donc dérivé de TWinControl. J'avais vu le GetSrollPos/GetScrollInfo mais je me demandais si il n'y avait pas quelque chose de plus simple...

Je teste dès que possible :)

Pense aussi à TopRow et LeftCol pour la première Cellule Visible

D'ailleurs, pense que MouseToCell utilise des Coordonnées Ecran donc Mouse.CursorPos !
Si tu veux récupérer la Cellule sous le curseur, c'est le plus pratique !

A priori, MouseToCell utilise des coordonnées locales au composant, c'est MouseCoord qui utilise des coordonnées écrans. Néanmoins avec les évènements onMouseUp et onMouseDown, les coordonnées locales de la souris sont transmises, et on peut les traiter avec MouseToCell pour obtenir la cellule cliquée.

Avec l'utilisation de GetScrollInfo et en soustrayant la position de la ScrollBar, j'obtiens bien les coordonnées de la souris relative au coin supérieur gauche lorsqu'il n'est pas affiché dans le composant.

Merci ShaiLeTroll !! :ccool:

Voici une partie du code, pour info:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TFolderRepMainForm.FilesDrawGridMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var Column, Row: Longint; DisplayedFile: TDisplayedFile; I, ChildCount, ButtonLeftPosition: Integer; CurrentLeaf: PTreeLeaf; CellRect: TRect; ScrollInfo: tagSCROLLINFO; begin FilesDrawGrid.MouseToCell(X, Y, Column, Row); CellRect := FilesDrawGrid.CellRect(Column, Row); if Row <= 0 then Exit;   DisplayedFile := TDisplayedFile(DisplayedFiles.Items[Row - 1]);   ScrollInfo.fMask := SIF_POS; GetScrollInfo(FilesDrawGrid.Handle, SB_HORZ, ScrollInfo); ButtonLeftPosition := CellRect.Left + SelectedFolderPair.Items.GetLeafLevel(DisplayedFile.Leaf) * FileDrawGridIndent - ScrollInfo.nPos; if ((not DoubleClick) and ((X < ButtonLeftPosition) or (X > ButtonLeftPosition + FileDrawGridIndent))) then Exit; end;

---