Dessin de rectangles et d'ellipses 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 rectangle et une ellipse dans une fiche VCL.

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

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

  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, 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++).
  2. 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

  1. Choisissez Exécuter > Exécuter.
  2. L'application s'exécute et affiche un rectangle et une ellipse dans le quart supérieur gauche de la fiche.

Voir aussi