Dessin d'un polygone dans une application Fiches VCL
Remonter à Comment construire une application Fiches VCL avec des graphiques
Cette procédure dessine un polygone dans une fiche VCL.
- Créer une fiche VCL.
- Coder le gestionnaire d'événement OnPaint de la fiche pour dessiner un polygone.
- Construire et exécuter l'application.
Pour créer une fiche VCL
- 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, cliquez sur l'onglet Evénements.
- 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++).
- 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
- Sélectionnez Exécuter > Exécuter.
- L'application s'exécute, en affichant un triangle droit dans la moitié inférieure gauche de la fiche.