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

[Jlmat]

J'ai ajouté simplement la ligne en rouge:

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
Procedure Tform1.Paintboxmousemove ( Sender : Tobject ; Shift : Tshiftstate ;
  X , Y : Integer ) ;
Begin
  bmpEcran.Draw(PaintBox.Canvas, 0, 0, True);
  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;

[Guesset]

Bonjour,

Un PaintBox n'est pas pérenne donc il n'y a rien à effacer. Cependant, il ne se redessine que si sa zone est modifiée (redimensionnement, déplacement par exemple). Il faut donc forcer le réaffichage quand la modification ne vient pas de l'extérieur, c'est-à-dire provoquer un onPaint avec un Repaint ou un Refresh voire un Update (qui n'est nécessairement immédiat).

Si on veut que le fond soit noir, il est inutile de le repeindre à chaque fois. Il suffit de mettre le PaintBox sur quelque chose de 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
15
var
   xms, yms : Integer;
 
procedure Tform1.PaintboxPaintExecute(Sender : Tobject);  // Evénement OnPaint
begin
   Font.Color  := ClText1;
   TextOut(2,2,'[ '+inttostr(xms)+' , '+inttostr(yms)+' ]');
end;   
 
procedure Tform1.Paintboxmousemove ( Sender : Tobject ; Shift : Tshiftstate ; X , Y : Integer ) ;
begin
   xms := x;
   yms := y;
   Paintbox.Repaint;
end;

Salutations

[Jlmat]

Merci Guesset pour ce rappel!

Bonjour,
Un PaintBox n'est pas pérenne donc il n'y a rien à effacer. Cependant, il ne se redessine que si sa zone est modifiée...

J'aimerai avoir 20 ans de moins pour mémoriser tout ça, mais je progresse toujours, c'est l'essentiel!

A+