Discussion :

[stfanny31]

salut
j'ai un programe qui contien le code suivant :

Code :

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

1
2
 
image1.Canvas.Ellipse(x0sui,y0sui,x0sui+50,y0sui+50);

j'obtien plain de Ellipse d'aprés X0,Y0 et j'ai une option pour changé la couleur
donc plain de Ellips on couleur
mon problém est que je veux tout effacé
esque il y'a une option pour effacé le .canvas ?

[Paul TOTH]

salut
j'ai un programe qui contien le code suivant :

Code :

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

1
2
 
image1.Canvas.Ellipse(x0sui,y0sui,x0sui+50,y0sui+50);

j'obtien plain de Ellipse d'aprés X0,Y0 et j'ai une option pour changé la couleur
donc plain de Ellips on couleur
mon problém est que je veux tout effacé
esque il y'a une option pour effacé le .canvas ?

tout simplement en dessinant un rectangle de la couleur de ton choix sur tout sa surface

[stfanny31]

Merci Paul TOTH
c'est une bonne idée
mais cela ne résous pas mon probléme
j'ai mis le code suivant :

Code :

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

1
2
3
4
 
form1.Canvas.Brush.Color :=clWhite	;
form1.i1.Canvas.Brush.Style :=bsSolid	 ;
form1.Canvas.Rectangle(0,0,1000,1000);

mais mes Ellipse son toujour visible

[Paul TOTH]

Merci Paul TOTH
c'est une bonne idée
mais cela ne résous pas mon probléme
j'ai mis le code suivant :

Code :

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

1
2
3
4
 
form1.Canvas.Brush.Color :=clWhite	;
form1.i1.Canvas.Brush.Style :=bsSolid	 ;
form1.Canvas.Rectangle(0,0,1000,1000);

mais mes Ellipse son toujour visible

tu peux juste m'expliquer pourquoi tu mélanges les canvas de Form1 et de i1 ?!

[Gilbert Geyer]

Salut,

mais mes Ellipse son toujour visible

... c'est normal vu que tu traces le contour en blanc d'un rectangle, c'est FillRect() qu'il faut utiliser pour remplir de blanc l'intérieur du rectangle :

Code :

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

1
2
3
4
5
6
7
8
procedure TfrmImgD.btnEffacerClick(Sender: TObject);
begin     with Image1.Canvas do
          begin brush.color:=clWhite;
                Brush.Style :=bsSolid;
                FillRect(Rect(0,0,image1.width,image1.height));
 
          end;
end;

... dans ton cas suffit de remplacer Image1.Canvas par form1.Canvas

A+

[stfanny31]

salut Mr Gilbert Geyer
merci bcp pour votre aide
ca marche trés bien je vous ador