Dessin de rectangles et d'ellipses dans une application Fiches VCL
Remonter à Comment construire une application Fiches VCL avec des graphiques
Cette procédure dessine un rectangle et une ellipse dans une fiche VCL.
- Créer une fiche VCL.
- Coder le gestionnaire d'événement OnPaint de la fiche pour dessiner un rectangle et une ellipse.
- 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 de l'événement TForm1.FormPaint (Delphi) ou TForm1::FormPaint (C++).
- Entrez le code de gestion d'événement suivant :
Canvas.Rectangle (0, 0, ClientWidth div 2, ClientHeight div 2); Canvas.Ellipse (0, 0, ClientWidth div 2, ClientHeight div 2);
Canvas->Rectangle( 0, 0, ClientWidth / 2, ClientHeight / 2 ); Canvas->Ellipse( 0, 0, ClientWidth / 2, ClientHeight / 2 );
Pour exécuter le programme
- Choisissez Exécuter > Exécuter.
- L'application s'exécute et affiche un rectangle et une ellipse dans le quart supérieur gauche de la fiche.