Bilder in die Bildliste einfügen

Aus RAD Studio
Wechseln zu: Navigation, Suche

Nach oben zu Die Hauptobjekte der IDE verwenden


Angenommen, Sie möchten zum Aufrufen Ihres Experten einen Menüeintrag hinzufügen. Außerdem soll der Anwender eine Symbolleistenschaltfläche zu demselben Zweck hinzufügen können. Als erstes müssen Sie der Bilderliste der IDE ein Bild hinzufügen. Der Bildindex kann dann für die Aktion verwendet werden, die wiederum von dem Menübefehl sowie der Schaltfläche benutzt wird. Erstellen Sie ein Ressourcendatei, die eine Bitmap-Resource in der Größe 16 x 16 enthält. Fügen Sie dann folgenden Quelltext in den Konstruktor des Experten ein:

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;

Geben Sie zum Laden der Ressource den Namen oder die ID an, die Sie in der Ressourcendatei definiert haben. Sie müssen eine Hintergrundfarbe für das Bild angeben. Wenn Sie keine benötigen, wählen Sie eine Farbe, die nicht in der Bitmap enthalten ist.

Siehe auch