pyramide zeichnen

[hanselmansel]

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