Frage zu einer Info-Arbeit!!

[maximi]

Hallo zusammen!
Ich habe heute eine Info-Arbeit geschrieben und eine Aufgabe wollte ich zu Hause einmal testen. Leider zeichnet das Programm nicht das Quadrat Q2! Kann mir jemand helfen??
Die Aufgabe habe ich als jpg-File angehängt!!

Das ist mein Quelltext, der nicht funzt!

Delphi-Quellcode:

  image1.Align := alClient;
  form1.Width := form1.Height;
  image1.Canvas.Rectangle(0,0,image1.Width,image1.Height);
  image1.Canvas.Rectangle(0,image1.Height div 2,image1.Width div 2,image1.Height);
  image1.Canvas.Ellipse(0,0,image1.Width,image1.Height);

Max

[jim_raynor]

Mit Rectangle kannst du auch nur gerade Rechtecke zeichnen. Um dieses gedrehte Rechteck in der Mitte hinzubekommen muss man LineTo verwenden.

[maximi]

danke!