Ajout d'une image à la liste d'images
Remonter à Utilisation d'objets natifs de l'EDI
Supposons que vous vouliez ajouter un élément de menu pour appeler votre expert. Vous voudrez également permettre à l'utilisateur d'ajouter un bouton de barre d'outils qui appelle l'expert. La première étape est donc l'ajout d'une image à la liste d'images de l'EDI. Vous pouvez ensuite utiliser l'indice de cette image dans l'action qui est à son tour utilisée par l'élément de menu et un bouton de barre d'outils. Créez un fichier ressource contenant une ressource bitmap 16 par 16. Ajoutez le code suivant au constructeur de l'expert :
Delphi:
constructor MyWizard.Create;
var
Services: INTAServices;
Bmp: TBitmap;
ImageIndex: Integer;
begin
inherited;
Supports(BorlandIDEServices, INTAServices, Services);
{ Add an image to the image list. }
Bmp := TBitmap.Create;
Bmp.LoadFromResourceName(HInstance, 'Bitmap1');
ImageIndex := Services.AddMasked(Bmp, Bmp.TransparentColor,
'Tempest Software.intro wizard image');
Bmp.Free;
end;
C++:
_di_INTAServices services;
BorlandIDEServices->Supports(services);
// Add an image to the image list.
Graphics::TBitmap* bitmap(new Graphics::TBitmap());
bitmap->LoadFromResourceName(reinterpret_cast<unsigned>(HInstance), "Bitmap1");
int image = services->AddMasked(bitmap, bitmap->TransparentColor,
"Tempest Software.intro wizard image");
delete bitmap;
Assurez-vous de charger la ressource en utilisant le nom ou l'identificateur spécifié dans le fichier ressource. Vous devez choisir une couleur qui sera interprétée comme la couleur de fond de l'image. Si vous ne voulez pas utiliser de couleur de fond, choisissez une couleur n'existant pas dans le bitmap.