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.
- Créer une fiche VCL avec un contrôle bouton.
- Fournir une image bitmap.
- Coder le gestionnaire d'événement onClick du bouton pour charger et afficher une image bitmap.
- Construire et exécuter l'application.
Pour créer une fiche VCL et un bouton
- 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.
- Sur la page Standard de la palette d'outils, placez un composant bouton sur la fiche.
- 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
- Créez un répertoire dans lequel stocker les fichiers de votre projet.
- Localisez une image bitmap sur votre disque local, puis copiez-la dans le répertoire de votre projet.
- Enregistrez tous les fichiers du projet dans le répertoire de votre projet.
Pour écrire le gestionnaire d'événement OnClick
- 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++).
- 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.
- Pour Delphi, ajoutez la déclaration de variable suivante dans le bloc var :
Bitmap : TBitmap;s
Pour exécuter le programme
- Choisissez Exécuter > Exécuter.
- 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