Discussion :

[Guigui_]

j'ai une forme en pleine écran
j'ai un paintbox dont la propriété Top est à 40
j'ai un bitmap bmp sur lequel je dessine une grille dont les cases ont une taille de 20*20 et j'affecte à la procédure onpaint de paintbox:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm2.FormPaint(Sender: TObject);
begin
     PaintBox1.Canvas.Draw(0,0,bmp);
end;

par contre, quand je clique sur la première case avec la souris, le programme m'indique que mouse.cursorPos.Y=75 (par exemple), alors qu'elle ne devrait pas dépasser 60. J'ai donc un écart d'environ 25 par rapport à ce que j'attends
Je n'ai pas de problème pour la composante X

j'ai un beep dans la procédure paintBoxClic pour vérifier que le contour de mon dessin correspond parfaitement au contour du paintbox.


Y a-t-il une explication à cela ?
est-ce que ça peut correspondre à la bande supérieure de la forme ?

[Guigui_]

l'écart est de 26 finalement et j'ai form.top=-4
Ca a l'air de correspondre à la hauteur de la partie supérieure de la forme.

Est-ce vraiment cela. Pourtant en VB, je n'ai jamais eu ce problème

[Frederic]

Quel est le left de ton TPaintBox ?

As-tu essaye avec l'evennement OnMouseDown... car celui ci de te renvoies comme parametre le X,Y de la souris par rapport au 0,0 de la TPaintBox... Mouse.CursorPos.X renvoie le X par rapport au 0,0 de l'ecran, et pas de la paintbox...

Frederic

[Guigui_]

c'est tout à fait ça
merci