Linien zeichnen
Nach oben zu Linien und Linienzüge zeichnen
Um auf einer Zeichenfläche eine gerade Linie zu zeichnen, verwenden Sie die Methode LineTo der Zeichenfläche.
LineTo zeichnet eine Linie von der aktuellen Stiftposition zum angegebenen Punkt und definiert den Endpunkt der Linie als aktuelle Position. Die Zeichenfläche zeichnet die Linie mithilfe ihres Stiftes.
Die folgende Methode zeichnet beispielsweise bei jedem Bildaufbau in einem Formular Diagonalen, die sich überkreuzen:
procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do
begin
MoveTo(0, 0);
LineTo(ClientWidth, ClientHeight);
MoveTo(0, ClientHeight);
LineTo(ClientWidth, 0);
end;
end;
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Canvas->MoveTo(0,0);
Canvas->LineTo(ClientWidth, ClientHeight);
Canvas->MoveTo(0, ClientHeight);
Canvas->LineTo(ClientWidth, 0);
}