Hallo, ich hab wieder ein Problem:
Delphi-Quellcode:
with image1.canvas do
begin
a := 80;
c := 160;
e := -1;
for f := 1 to 3 do
begin
e := e + 1;
a := a - (e*40);
c := c + (e*40);
b := a;
d := c;
image1.Canvas.Rectangle(a+90,b+90, c+90,d+90) ;
end;
end;
dieser code SOLLTE mir eigentlich 3 Quadrate mit versch. größen "malen"...
Macht er aber nicht - er zeichenet nur das letzte mit den werten a := -40 und c:= 280...
Woran liegts???