Ich weiß zwar immernoch nicht, ob du schon eigene Prozeduren schreiben kannst, aber wenn ja, dann kannst du eine Prozedur schreiben die für einen übergebenen Y-Wert und für eine übergebene Anzahl von Rechtecken eine ganze Zeile zeichnet. In deinem Programm müstest du dann die Mitte des Canvas als Mitte der Pyramide bestimmen.
In der Prozedur musst dann in etwa sowas stehen:
Delphi-Quellcode:
Procedure ZeichneMultiRect(Anzahl, Y :Integer);
Var
Gesamtbreite :Integer;
X :Integer;
count :Integer;
Begin
Gesamtbreite := Anzahl * RECT_WIDTH; {RECT_WIDTH verwende ich als Konstante. Sie beinhaltet die Breite eines Rechtecks}
X := GetMitteVomCanvas - (Gesamtbreite DIV 2); {Diese Funktion müsstest du auch selbst schreiben, der name sollte aber selbsterklärend sein.}
For count := 1 to Anzahl do
Begin
ZeichneRechteck(X,Y); {Auch das ist eine eigene Prozedur.}
Inc(X, RECT_WIDTH);
End;
(ungetestet)
MfG,
hanselmansel
Es gibt nur sehr wenige Probleme auf dieser Welt, die sich nicht mit einigen hundert Gramm Sprengstoff lösen ließen.