Dessin d'un polygone dans une application Fiches VCL

De RAD Studio
Aller à : navigation, rechercher

Remonter à Comment construire une application Fiches VCL avec des graphiques

Cette procédure dessine un polygone dans une fiche VCL.

  1. Créer une fiche VCL.
  2. Coder le gestionnaire d'événement OnPaint de la fiche pour dessiner un polygone.
  3. Construire et exécuter l'application.

Pour créer une fiche VCL

  1. 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.
  2. 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

  1. Dans l'inspecteur d'objets, cliquez sur l'onglet Evénements.
  2. Double-cliquez sur l'événement OnPaint. L'éditeur de code s'affiche, avec le curseur placé dans le bloc du gestionnaire de l'événement TForm1.FormPaint (Delphi) ou TForm1::FormPaint (C++).
  3. Entrez le code de gestion d'événement suivant :
Canvas.Polygon ([Point(0,0), Point(0, ClientHeight),
Point(ClientWidth, ClientHeight)]);
TPoint points[] = { Point(0,0),
                    Point(0, ClientHeight),
                    Point(ClientWidth, ClientHeight) };
Canvas->Polygon( points, 3 );

Pour exécuter le programme

  1. Sélectionnez Exécuter > Exécuter.
  2. L'application s'exécute, en affichant un triangle droit dans la moitié inférieure gauche de la fiche.

Voir aussi