Dessin de lignes

De RAD Studio
Aller à : navigation, rechercher

Remonter à Dessin de lignes et de polylignes


Pour dessiner une ligne droite sur un canevas, utilisez la méthode LineTo du canevas.

La méthode LineTo dessine une ligne partant de la position en cours du crayon et allant au point spécifié, et fait du point d'arrivée de la ligne la position en cours. Le canevas dessine la ligne en utilisant son crayon.

Par exemple, la méthode suivante dessine des lignes diagonales qui se croisent sur une fiche, chaque fois que la fiche est peinte :

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

Voir aussi