この発言は
#00712　ぜえた          さんのRE:標準的なボタン画像を得るコンポーネン
に対するコメントです

この発言に対し以下のコメントが寄せられています

#01221　ぜえた          さん　RE^3:標準的なボタン画像を得るコンポーネ




　こんにちは、ぜえた です。

#677,#712ではリソースから直接イメージを取得していたので、Comctl32.dll
のバージョンによってリソースIDが異なると困ります。#712の LoadImageを次
のものに置き換えてください。

procedure TCommImageList.LoadImage;
var
  hwndTB: THandle;

  procedure Add(ID: Integer);
  var
    tbab: TTBAddBitmap;
  begin
    tbab.hInst := HINST_COMMCTRL;
    tbab.nID := ID;
    SendMessage(hwndTB, TB_ADDBITMAP, 0, LPARAM(@tbab));
  end;

begin
  hwndTB := CreateWindowEx(0, TOOLBARCLASSNAME, nil, 0,
         0, 0, 0, 0, 0, 0, HInstance, nil);
  try
    SendMessage(hwndTB, TB_BUTTONSTRUCTSIZE, SizeOf(TTBButton), 0);
    SendMessage(hwndTB, TB_SETIMAGELIST, 0, LPARAM(Handle));
    Add(IDB_STD_SMALL_COLOR);
    Add(IDB_VIEW_SMALL_COLOR);
    Add(IDB_HIST_SMALL_COLOR);
    SendMessage(hwndTB, TB_SETIMAGELIST, 0, 0);
  finally
    DestroyWindow(hwndTB);
  end;
end;

                                                    ぜえた (QZC05100)
 


- FDELPHI  MES(16):玉石混淆みんなで作るSample蔵【見本蓄積】 01/01/03 -

Original document by ぜえた          氏 ID:(QZC05100)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。