Gerade Linien in einer VCL-Formularanwendung zeichnen

Mit den folgenden Schritten werden zwei diagonal verlaufende gerade Linien in einem VCL-Formular gezeichnet:

Ein VCL-Formular erstellen.
Eine Behandlungsroutine für das OnPaint-Ereignis des Formulars schreiben, die die geraden Linien 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.
Geben Sie folgenden Quelltext für die Ereignisbehandlungsroutine ein:

with Canvas do
begin
MoveTo(0,0);
LineTo(ClientWidth, ClientHeight);
MoveTo(0, ClientHeight);
LineTo(ClientWidth, 0);
end;

Canvas->MoveTo( 0, 0 );
Canvas->LineTo( ClientWidth, ClientHeight );
Canvas->MoveTo( 0, ClientHeight );
Canvas->LineTo( ClientWidth, 0 );

So führen Sie das Programm aus:

Wählen Sie Start > Ausführen.
Die Anwendung wird ausgeführt und zeigt zwei sich kreuzende diagonale Linien an.
Tip: Um die Stiftfarbe in Grün zu ändern, fügen Sie die folgende Anweisung unmittelbar nach der ersten MoveTo()-Anweisung in die Ereignisbehandlungsroutine ein: Pen.Color := clGreen; (Delphi) Canvas->Pen->Color = clGreen; (C++). Probieren Sie andere Einstellungen für die Eigenschaften des Canvas- und des Pen-Objekts aus. Siehe den Abschnitt über die Eigenschaften des Canvas-Objekts verwenden im Windows-Entwicklerhandbuch.

Siehe auch