Discussion :

[Jlmat]

Bonjour,

Question de débutant, mais je ne me souviens plus comment on efface un texte sur canvas avant une nouvelle valeur :
J'obtiens ceci :



Les crochets supplémentaires obtenus viennent de la longueur des textes affichés précédemment. J'ai mis le code dans l'évènement d'un PaintBox sur fond noir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure Tform1.Paintboxmousemove ( Sender : Tobject ; Shift : Tshiftstate ;
  X , Y : Integer ) ;
Begin
  With PaintBox.Canvas do
  begin
    {Effacement zone précédente}
    Brush.Color := clBlack;
    Font.Color  := clBlack;
    Rectangle(1,1,50,30);
    Font.Color  := ClText1;
    {Nouvelles coordonnées}
    TextOut(2,2,'[ '+inttostr(x)+' , '+inttostr(y)+' ]');//,BGRA(RTxt,GTxt,BTxt));
  end
End;

Si vous passez par là, merci de me rappeler la méthode.
Je l'ai quelque part, mais je ne sais plus dans quelle application je l'utilisais et ne l'ai pas vue dans les tutoriels non plus...
Merci