Affichage d'une image bitmap plein écran dans une application Fiches VCL

Remonter à Comment construire une application Fiches VCL avec des graphiques

Cette procédure charge une image bitmap à partir d'un fichier et l'affiche dans son intégralité sur une fiche VCL. Elle utilise les propriétés Height et Width de l'objet Bitmap pour afficher une vue complète de l'image.

1. Créer une fiche VCL avec un contrôle bouton.
2. Fournir une image bitmap.
3. Coder le gestionnaire d'événement onClick du bouton pour charger et afficher une image bitmap.
4. Construire et exécuter l'application.

Pour créer une fiche VCL et un bouton

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. Sur la page Standard de la palette d'outils, placez un composant bouton sur la fiche.
3. Dans l'inspecteur d'objets, entrez "Vue complète" pour la propriété Caption et FullView pour la propriété Name.

Pour fournir une image bitmap

1. Créez un répertoire dans lequel stocker les fichiers de votre projet.
2. Localisez une image bitmap sur votre disque local, puis copiez-la dans le répertoire de votre projet.
3. Enregistrez tous les fichiers du projet dans le répertoire de votre projet.

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

1. Dans l'inspecteur d'objets, double-cliquez sur l'événement Button1 OnClick 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.FullViewClick (Delphi) ou TForm1::FullViewClick (C++).
2. Entrez le code de gestion d'événement suivant, en remplaçant MyFile.bmp par le nom de l'image bitmap du répertoire de votre projet :

      Bitmap := TBitmap.Create;
      try
        Bitmap.LoadFromFile('MyFile.bmp');
        Form1.Canvas.Brush.Bitmap := Bitmap;
        Form1.Canvas.FillRect(Rect(0,0,Bitmap.Width,Bitmap.Height));
      finally
        Form1.Canvas.Brush.Bitmap := nil;
        Bitmap.Free;
      end;

Graphics::TBitmap Bitmap = new Graphics::TBitmap();
try {
  Bitmap->LoadFromFile( "..\\MyFile.bmp" );
  Form1–>Canvas->Brush->Bitmap = Bitmap;
  Form1–>Canvas->FillRect(
    Rect( 0, 0, Bitmap->Width, Bitmap->Height ) );
} __finally {
  Form1–>Canvas->Brush->Bitmap = NULL;
  Bitmap->Free();
}

Remarque :  Pour les projets C++, le code suppose que le répertoire de sortie cible est situé dans le répertoire du projet.

3. Pour Delphi, ajoutez la déclaration de variable suivante dans le bloc var :

Bitmap : TBitmap;s

Pour exécuter le programme

1. Choisissez Exécuter > Exécuter.
2. Cliquez sur le bouton pour afficher l'image bitmap dans un rectangle dans le coin supérieur gauche de la fiche.

Voir aussi

• Présentation de la VCL
• Dessin de lignes droites dans une application Fiches VCL
• Affichage d'une image bitmap dans une application Fiches VCL
• Dessin de rectangles et d'ellipses dans une application Fiches VCL
• Dessin d'un polygone dans une application Fiches VCL
• Insertion d'une image bitmap dans un contrôle d'une application Fiches VCL