Discussion :

[Rayan_13]

Salut a tous;
Voila j'ai 2 button:dans Button1click il dessine un ligne
dans Button2click il efface la ligne dessiner.
mon problemme est que j'arrive pas a effacer la ligne dessiner.
Si quelqu'un pouvait m'aider ce serait bien gentil
Merci d'avance.

[bandit boy]

Qu'est ce que tu utilises pour dessiner ta ligne?
Est ce que tu peux être plus précis?

[Rayan_13]

Voila l'exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 TPoint vertices [5];
 vertices[0]= Point (170,70);
 vertices[1]= Point (170,410);
 vertices[2]= Point (620,410);
 vertices[3]= Point (620,70);
 vertices[4]= Point (170,70);
//--------
 Canvas->Pen->Style=psSolid;
 Canvas->Pen->Color=clBlue;
 Canvas->Pen->Width=5;
 Canvas->Polyline(vertices,4);
//--------------

et avec button2Click je voudrais tout effacer.

[bandit boy]

Une solution serait de tout effacer en repeignant par dessus, par exemple avec le code suivant :

Code :

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

1
2
3
4
 
  MyRect = Rect(0,0,Form1->Width,Form1->Height);
  Canvas->Pen->Color=Form1->Color;
  Canvas->FillRect(MyRect);

De se fait, on repaint de la couleur de la Form, sur toute la surface de la Form. Sinon je ne pense pas que l'on puisse supprimer une modification du Canvas, mais je me trompe peut être.
A voir si cette solution peut te dépanner.

[henderson]

Salut !

En redessinant l'objet graphique avec la couleur du fond ?

Code :

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

Form1->Canvas->Pen->Color = Form1->Color;

A plus !

[Rayan_13]

en fait c'est un encadrement que j'ai dessiner
et le probleme est que j'ai plusieurs de differentes tailles
mais pour mettre l'encadrement suivant il faut d'abord effacer le precedent.
ps (dans l'encadrement il y a quelque chose)

[Rayan_13]

Merci Henderson