Dessin de lignes
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);
}