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