Rechtecke und Ellipsen in einer VCL-Formularanwendung zeichnen
Nach oben zu So erstellen Sie eine VCL-Formularanwendung mit Grafiken
Mit folgenden Schritten werden ein Rechteck und eine Ellipse in einem VCL-Formular gezeichnet:
- Ein VCL-Formular erstellen.
- Eine Behandlungsroutine für das OnPaint-Ereignis des Formulars schreiben, die ein Rechteck und eine Ellipse zeichnet.
- Die Anwendung compilieren und ausführen.
So erstellen Sie ein VCL-Formular und fügen eine Grafik ein:
- Wählen Sie Datei > Neu > Weitere > Delphi-Projekte oder C++Builder-Projekte, und doppelklicken Sie auf das Symbol VCL-Formularanwendung.Der VCL-Formular-Designer wird angezeigt.
- Klicken Sie gegebenenfalls in der Formularansicht auf das Formular, um Form1 im Objektinspektor anzuzeigen.
So schreiben Sie die Behandlungsroutine für das Ereignis OnPaint:
- Doppelklicken Sie im Objektinspektor auf der Registerkarte Ereignisse auf das Ereignis OnPaint für Form1.Der Quelltext-Editor wird angezeigt. Der Cursor befindet sich bereits im Block der Ereignisbehandlungsroutine TForm1.FormPaint (Delphi) bzw. TForm1::FormPaint (C++).
- Geben Sie folgenden Quelltext für die Ereignisbehandlungsroutine ein:
Canvas.Rectangle (0, 0, ClientWidth div 2, ClientHeight div 2); Canvas.Ellipse (0, 0, ClientWidth div 2, ClientHeight div 2);
Canvas->Rectangle( 0, 0, ClientWidth / 2, ClientHeight / 2 ); Canvas->Ellipse( 0, 0, ClientWidth / 2, ClientHeight / 2 );
So führen Sie das Programm aus:
- Wählen Sie Start > Ausführen.
- Die Anwendung wird ausgeführt und zeigt im oberen linken Viertel des Formulars ein Rechteck und eine Ellipse an.