In einander drehende Rechtecke bzw. Quadrate

[DGL-luke]

willst du sie denn ineinander verschachteln?

wenn ja, dann geht das so(das würde dir aber nur ein rechteck mit linien darin bringen):

Delphi-Quellcode:

//rect = TRect mit standardwerten
//thisrect = TRect;
//paintbox = TPaintBox;
//offset = integer mit abstand der rechtecke
rect.left := 0;
rect.right:=paintbox.width;
rect.bottom:=paintbox.hight;
rect.top:=0;

for i:= 0 to (paintbox.height div rect.height) //so oft wird gezeichnet.
begin
 thisrect.left:=rect.left;
 thisrect.right:=rect.right;
 thisrect.top:=rect.top + offset;
 thisrect.bottom:= thisrect.top + rect.height;

 paintbox.rectangle(thisrect);
end;

könnte sein, dass ich damit ein rechteck zu viel oder eins zu wenig zeichne