Linien zeichnen

Aus RAD Studio
Wechseln zu: Navigation, Suche

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);
}

Siehe auch