Affichage d'une image bitmap 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 sur une fiche VCL.
- 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 Fichier > Nouveau > Autre > 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 TButton sur la fiche.
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, le curseur placé dans le bloc du gestionnaire de l'événement TForm1.Button1Click (Delphi) ou TForm1::Button1Click (C++).
- Entrez le code de gestion d'événement suivant, en remplaçant MyFile.bmp par le chemin d'accès à 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,100,100));
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,100,100) );
} __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.
Conseil :
-
- Pour Delphi, ajoutez la déclaration de variable suivante dans le bloc var :
Bitmap : TBitmap;
Pour exécuter le programme
- Sélectionnez Exécuter > Exécuter.
- Cliquez sur le bouton pour afficher l'image bitmap dans un rectangle de 100 x 100 pixels dans le coin supérieur gauche de la fiche.