|
|
|
|
|
|
|
|
|
|
|
|
procedure TForm1.Button1Click(Sender: TObject);
begin
with form1.canvas do begin
brush.color:=clfuchsia;
rectangle(0,0, form1.Width,form1.height);
pen.color:=clblue;
brush.color:=clblue;
ellipse(100,180,180,100);
pen.color:=clyellow;
brush.color:=clyellow;
ellipse(180,180,260,100);
pen.color:=clred;
brush.color:=clred;
ellipse(140,130,220,50);
moveto(230,180);
pen.color:=clmaroon;
lineto(180,300);
lineto(130,180);
lineto(230,180);
brush.color:=clmaroon;
floodfill(190,240,clmaroon,fsborder);
end;
end;
end.
|
|
|
|
|
|
|
|
|
Letzte Änderung: 09.02.2007
© Pädagogisches Institut für die deutsche Sprachgruppe
- Bozen. 2000 -
|
|
|
|
 |
|
|
|
|
