quadrat verändern

**any_key**

aHoyHoy
bin gerade mal auf die komische idee gekommen ein quadrat verändern zu wollen... das ich mit canvas male
eigentlich sollte es sich auch vergrößern aber irgendwie funzt das nicht

markieren

Code:

			procedure TForm1.Button1Click(Sender: TObject);

var

position1:integer;

i:integer;

begin

position1:=5;

canvas.MoveTo(clientwidth div 2, clientheight div 2);

for i:=0 to -1 do

position1:= position1 + 5;

canvas.moveTo(clientwidth div 2 + position1, clientheight div 2 - position1);

canvas.lineto(clientwidth div 2 + position1, clientheight div 2 + position1);

canvas.LineTo(clientwidth div 2 - position1, clientheight div 2 + position1);

canvas.lineto(clientwidth div 2 - position1, clientheight div 2 - position1);

canvas.lineto(clientwidth div 2 + position1, clientheight div 2 - position1);

end;

eigentlich müsste sich das quadrat doch mit jedem durchgang vergrößern....
oder hab ich da was falsch verstanden...?

quadrat verändern

quadrat verändern

Forumregeln