Décalage graphique et souris

**Sub0** · 27/06/2003, 05h53

Salut!

J'ai remarqué qu'il y avait un décalage entre les graphismes et la position de la souris. Par exemple, si je fais...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var MyRect:TRect;
begin
MyRect.Left:=100;
MyRect.Top:=100;
MyRect.Right:=200;
MyRect.Bottom:=200;
Form1.Canvas.pen.Color:=$FF0000;
Form1.Canvas.brush.Color:=$FF0000;
Form1.Canvas.FillRect(MyRect);
SetCursorPos(Form1.Left+100,Form1.Top+100);
end;

...il y a un décalage vertical, apparemment dû à la hauteur de la barre de titre de la form, en plus d'un décalage sur les 2 axes, dû à l'épaisseur du filet de bordure, j'ai bien l'impression. Comment corriger les coordonnées pour que ça concorde à tous les coups (sur tous les systèmes)? - Merci de votre aide!

**Pierre Castelain** · 27/06/2003, 07h50

Je n'ai pas bien compris ce que tu cherche à faire mais tu peux utiliser soit les méthodes ClientToScreen et ScreenToClient pour changer de repère, soit utiliser les propriété ClientWidth et ClientHeight qui te donnent la largeur et la hauteur de la zone cliente d'une fenêtre. Pour connaitre la taille des bordures, il ne reste qu'à soustraire ces 2 propriétés à Width et Height.

**Sub0** · 27/06/2003, 08h15

Merci de m'avoir répondu aussi rapidement!

Ce ne sont pas les dimensions de la form qui m'intérressent, mais plutôt sa position (essaye l'exemple pour te rendre compte du problème) -> La hauteur de la barre de titre et l'épaisseur du filet de bordure n'étant pas les mêmes sur toutes les configs, je ne vais pas m'amuser à mettre une constante pour réparer le décalage!

J'ai trouvé la propriété "BorderWitdh" pour connaître l'épaisseur du filet, je vais vérifier son efficacité (si je change les paramètres d'affichage dans le panneau de config). Il reste qu'en même à trouver la hauteur de la barre de titre... Je sais plus où elle se trouve. Sinon, j'ai une autre idée, c'est de faire une fenêtre sans bordures ni de barre de titre, et les dessiner moi-même avec l'évènement "OnPaint"... Ouais, j'avoue que c'est pas terrible, et j'imagine qu'il ya plus simple! à+

**gord's** · 27/06/2003, 09h03

je ne sais pas si la hauteur de la barre de titre est dispo, mais tu peux la recalculer : la hauteur de la form c'est la hauteur de la zone client + 2 * le filet + la barre de titre

**declencher** · 27/06/2003, 09h25

Envoyé par Pierre Castelain

Je n'ai pas bien compris ce que tu cherche à faire mais tu peux utiliser soit les méthodes ClientToScreen et ScreenToClient pour changer de repère, soit utiliser les propriété ClientWidth et ClientHeight qui te donnent la largeur et la hauteur de la zone cliente d'une fenêtre. Pour connaitre la taille des bordures, il ne reste qu'à soustraire ces 2 propriétés à Width et Height.

Si j'ai bien compris ce que tu veux faire, Pierre castelin a raison, teste ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
TRect MyRect;
TPoint Origine;
TPoint S;
 
Origine.x = 100;
Origine.y = 100;
 
MyRect.Left=100;
MyRect.Top=100;
MyRect.Right=200;
MyRect.Bottom=200;
Form1->Canvas->Pen->Color=0xFF0000;
Form1->Canvas->Brush->Color=0xFF0000;
Form1->Canvas->FillRect(MyRect);
 
 
S = ClientToScreen(Origine);
SetCursorPos(S.x, S.y);

Je l'ai fait sous BCB car je n'ai pas delphi sous la main mais c'est tout pareil

Il me semble que ça fait ce que tu veux, il n'y a plus de pb de décalage.

**Nicolas.C** · 27/06/2003, 09h25

Comme le dit Pierre Castelain, il faut que tu utilises ClientToScreen et ScreenToClient, ce n'est pas la peine de faire des calculs compliqués avec l'épaisseur des bordures et la hauteur de la barre de titre.

ClientToScreen transforme les coordonnées à l'intérieur de la zone client de ta fiche en coordonnées écran.
Donc tu peux faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
var
 MyRect:TRect; 
 pPoint : TPoint
begin
 MyRect.Left:=100; 
 MyRect.Top:=100; 
 MyRect.Right:=200; 
 MyRect.Bottom:=200; 
 Form1.Canvas.pen.Color:=$FF0000; 
 Form1.Canvas.brush.Color:=$FF0000; 
 Form1.Canvas.FillRect(MyRect); 
 pPoint.X:=100;
 pPoint.Y:=100;
 pPoint := ClientToScreen(pPoint);
 SetCursorPos(pPoint.X,pPoint.Y); 
end;