画像リストへの画像の追加
IDE 固有のオブジェクトを使用する への移動
ウィザードを呼び出すためのメニュー項目を追加したいとします。 また、そのウィザードを呼び出すためのボタンをユーザーがツールバーに追加できるようにしたいとします。 そのためにはまず、IDE の画像リストに画像を追加する必要があります。 そうすると、画像のインデックスをアクションで使用し、さらにそのアクションをメニュー項目やツールバー ボタンで使用することができます。 16 × 16 のビットマップ リソースを含むリソース ファイルを作成します。 ウィザードのコンストラクタに次のコードを追加します。
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;
リソースを読み込むときには、リソース ファイルで指定した名前または ID を使用してください。 画像の背景色として解釈される色を選択する必要があります。 背景に色を付けたくない場合には、ビットマップに含まれない色を選択します。
メモ:
AddImage
メソッドにより、高 DPI イメージを追加することができます。