Discussion :

[Darkpmd]

Bonjour,

Je cherche un moyen pour créer une ligne qui se mettrait à jour à chaque mouvement de ma souris.

J'ai donc fait plusieurs essais :

- j'ai utilisé la méthode lineto sur le canvas de mon tform, mais le problème est qu'à chaque fois que je crée une nouvelle ligne la ligne précédent ne peut être effacée car j'ai aussi sur le canvas un bitmap qui me sert de fond pour mon application.

- j'ai créé un Timage et sur le canvas de mon tImage j'ai créé aussi une ligne, mais il subsiste toujours un fond noir qui m’empêche de faire apparaître seulement la ligne en question.

Voici un bout de code où j'essaye de créer un ligne quelconque sur ma form :

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
 
begin
fPosition:=aPosition;
fCanne:=timage.create(self);
fCanne.height:=200;
fcanne.visible:=TRUE;
fcanne.top:=0;
fcanne.left:=0;
fcanne.parent:=form1;
with fcanne.canvas do
begin
pen.Color:=clred;
pen.Width:=5;
MoveTo(10,20);
LineTo(200,220);
end;
end;

[Paul TOTH]

toujours les deux mêmes solutions

1) dessiner en mode XOR, il faut redessiner la ligne pour l'effacer.

2) tout redessiner, dans ton cas tu as à priori un Bitmap a réafficher pour cacher la ligne.

[ChPr]

Ce qui suit est extrait d'un de mes programmes où je trace un rectangle en pointillé qui suit la souris. Définir les variables P0 et P1 : TPoint dans les propriétés du TForm1.

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
19
20
21
22
23
24
25
26
procedure TForm1.MouseDown(Button: TMouseButton; Shift:TShiftState; X, Y:Integer);
begin
  P0.X:= X; {Initialise les points du rectangle}
  P0.Y:= Y;
  P1.X:= X;
  P1.Y:= Y;
  Canvas.Pen.Color:= clBlack;
  Canvas.Pen.Style:= psDot; {Pointillés}
  Canvas.Pen.Mode:= pmNotXor; {Traçage en mode XOR}
  Canvas.Rectangle(P0.X, P0.Y, P1.X, P1.Y); {Traçage initial}
end;
 
procedure TForm1.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
  Canvas.Rectangle(P0.X, P0.Y, P1.X, P1.Y); {Efface le Rect précédent}
  Canvas.Rectangle(P0.X, P0.Y, X, Y); {Trace le nouveau}
  P1.X:= X;
  P1.Y:= Y
end;
 
procedure TForm1.MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y:Integer);
begin
  Canvas.Rectangle(P0.X, P0.Y, P1.X, P1.Y); {Effaçage du rectangle}
  Canvas.Pen.Style:= psSolid; {Retour au mode de traçage ligne complète}
  Canvas.Pen.Mode:= pmCopy; {Retour au mode normal de traçage}
end;

Cordialement.

Pierre

[Darkpmd]

Merci de votre aide.
J'avais déjà utilisé le mode XOR mais il me reste toujours des artefects quand je bouge la souris et je ne comprend pas d'ou ca vient.

[ChPr]

Je pense que dans le cas de tracé de rectangle, il faut mettre la propriété Brush.Style à bsClear.

Cordialement.

Pierre

[Paul TOTH]

et ne pas oublier qu'en mode XOR il faut redessiner le rectangle pour l'effacer...

MouseDown
-> afficher le rectangle en position de départ

MouseMove (en boucle tant qu'on bouge)
-> afficher le rectangle à la même position que précédemment pour l'effacer
-> afficher le rectangle à la nouvelle position

MouseUp
-> afficher le rectangle à sa dernière position pour l'effacer