Rectangle mit schleife

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von netscanner · begonnen am 3. Mär 2006 · letzter Beitrag vom 4. Mär 2006

Vorheriger Beitrag

Nächster Beitrag

netscanner

Registriert seit: 2. Dez 2005
Ort: Dieburg
280 Beiträge

Delphi 6 Enterprise

Rectangle mit schleife

3. Mär 2006, 19:41

Hallo, ich hab wieder ein Problem:

zusammenfalten · markieren

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???

Martin