Dessin de lignes droites dans une application Fiches VCL

Cette procédure dessine deux diagonales droites sur une image dans une fiche VCL.

Créer une fiche VCL.
Coder le gestionnaire d'événement OnPaint de la fiche pour dessiner les lignes droites.
Construire et exécuter l'application.

Pour créer une fiche VCL et y placer une image

Choisissez Fichier > Nouveau > Autre > Projets Delphi ou Projets C++Builder et double-cliquez sur l'icône Application Fiches VCL. Le Concepteur de fiches VCL apparaît.
Dans la vue fiche, cliquez sur la fiche, si nécessaire, pour afficher Form1 dans l'inspecteur d'objets.

Pour écrire le gestionnaire d'événement OnPaint

Dans l'inspecteur d'objets, double-cliquez sur l'événement Form1 OnPaint de l'onglet Evénements. L'éditeur de code s'affiche, avec le curseur placé dans le bloc du gestionnaire d'événement TForm1.FormPaint.
Entrez le code de gestion d'événement suivant :

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

Pour exécuter le programme

Choisissez Exécuter > Exécuter.
L'application s'exécute et affiche une fiche avec deux diagonales.
Conseil : Pour que le crayon devienne vert, insérez l'instruction suivante après la première instruction MoveTo() dans le code du gestionnaire d'événement : Pen.Color := clGreen; (Delphi) Canvas->Pen->Color = clGreen; (C++). Essayez d'utiliser d'autres propriétés des objets canevas et crayon. Voir Utilisation des propriétés de l'objet canevas in the.

Voir aussi