cs_lidia22
Messages postés37Date d'inscriptiondimanche 28 septembre 2008StatutMembreDernière intervention10 mai 2010
-
1 mai 2009 à 13:32
cs_lidia22
Messages postés37Date d'inscriptiondimanche 28 septembre 2008StatutMembreDernière intervention10 mai 2010
-
3 mai 2009 à 00:05
Bonjour a tous,
se programe m'affiche un petit cercle dans une image en lui donnant les coordonnées pixel.
procedure TForm1.BitBtn3Click(Sender: TObject);
var v,i,j:integer;
begin
i:=strtoint(edit1.Text);
j:=strtoint(edit2.Text);
v:=j+33;
canvas.Brush.Style:=bsclear;
canvas.Pen.Color:=clRed;
canvas.Ellipse(i-5,v-5,i+5,v+5);
Question: comment faire pour que quand je reclique sur le meme boutton le cercle devient invisible
f0xi
Messages postés4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 202235 1 mai 2009 à 14:18
var
Pass : boolean = false;
procedure TForm1.BitBtn3Click(Sender: TObject);
var I,J : integer;
begin
with Canvas do
begin
if Pass then
begin
Brush.Style := bsSolid;
FillRect(BoundsRect);
end
else
begin
I := StrToInt(Edit1.Text);
J := StrToInt(Edit2.Text)+33;
Brush.Style := bsClear;
Pen.Color := clRed;
Ellipse(I-5, V-5, I+5, V+5);
end;
end;
Pass := not Pass;
end;