5

これが（多かれ少なかれ）関連する質問です：Delphi-実行時にアイコンでイメージリストを作成します'破壊'透明度。

@TOndrejの回答をテストしました。しかし、これを機能させるには、ビジュアルスタイル（XPマニフェスト）を有効にする必要があるようです（Windowsの共通コントロールのバージョン6.0が使用されます-今は必要ありません）。実行時にとを介してアイコンを追加しExtractIconExますImageList_AddIcon。

どうやらImageList.Handleシステムイメージリストハンドルを使用するように設定すると、XPマニフェストは必要ありません。そのため、D3で書き戻した古いプログラムでも、システムイメージリストを使用してファイルリストを表示すると（を使用してTListView）、アルファブレンドアイコンが正しく表示されます。

私はさまよっていました。システムイメージリストの何が特別で、どのように作成されるので、すべての場合にアルファブレンディングをサポートしますか？私はそれを理解することはできません。サンプルコードは次のとおりです。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ImgList, StdCtrls, ShellAPI, ExtCtrls, Commctrl;

type
  TForm1 = class(TForm)
    ImageList1: TImageList;
    PopupMenu1: TPopupMenu;
    MenuItem1: TMenuItem;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    FileName: string;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
// {$R WindowsXP.res}

procedure TForm1.FormCreate(Sender: TObject);
begin
  PopupMenu1.Images := ImageList1;
  FileName := 'C:\Program Files\Mozilla Firefox\firefox.exe';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IconPath: string;
  IconIndex: Integer;
  hIconLarge, hIconSmall: HICON;
begin
  IconPath := FileName;
  IconIndex := 0; // index can be other than 0

  ExtractIconEx(PChar(IconPath), IconIndex, hIconLarge, hIconSmall, 1);

  Self.Refresh; // erase form
  DrawIconEx(Canvas.Handle, 10, 10, hIconSmall, 0, 16, 16, 0,
    DI_IMAGE or DI_MASK); // this will draw ok on the form

  // ImageList1.DrawingStyle := dsTransparent;
  ImageList1.Handle := ImageList_Create(ImageList1.Width, ImageList1.Height,
    {ILC_COLORDDB} ILC_COLOR32 or ILC_MASK, 0, ImageList1.AllocBy);
  ImageList_AddIcon(ImageList1.Handle, hIconSmall);

  MenuItem1.ImageIndex := 0;

  DestroyIcon(hIconSmall);
  DestroyIcon(hIconLarge);

  PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

procedure TForm1.Button2Click(Sender: TObject);
// using sys image-list will work with or without Manifest
type
  DWORD_PTR = DWORD;
var
  ShFileINfo :TShFileInfo;
  SysImageList: DWORD_PTR;
  FileName: string;
begin
  SysImageList := ShGetFileInfo(nil, 0, ShFileInfo, SizeOf(ShFileInfo),
    SHGFI_SYSICONINDEX OR SHGFI_SMALLICON);

  if SysImageList = 0 then Exit;
  ImageList1.Handle := SysImageList;
  ImageList1.ShareImages := True;

  if ShGetFileInfo(PChar(FileName), 0, ShFileInfo, SizeOf(ShFileInfo),
    SHGFI_SYSICONINDEX OR SHGFI_ICON OR SHGFI_SMALLICON) <> 0 then
  begin
    MenuItem1.ImageIndex := ShFileInfo.IIcon;
    Self.Refresh; // erase form
    DrawIconEx(Canvas.Handle, 10, 10, ShFileInfo.hIcon, 0, 16, 16, 0,
      DI_IMAGE or DI_MASK);
    DestroyIcon(ShFileInfo.hIcon); // todo: do I need to destroy here? 

    PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  end;      
end;

end.

無効なビジュアルスタイル：

ここに画像の説明を入力してください

有効なビジュアルスタイル：

ここに画像の説明を入力してください

回避策は、ここに示すようにインターポーザークラスまたはサブクラスを使用TImageListしてオーバーライドすることですが、私が本当に知りたいのは、システムイメージリストと同じイメージリストを作成する方法です。DoDraw

注：この場合、私はそれを知ってTPngImageListいますが、使用したくありません。

編集： @Davidの答え（およびコメント）は正確でした：

ImageList_Create（v6）に明示的にリンクする必要があります。そうしないと、モジュールのロード時に暗黙的にリンクされ、v5.8にバインドされるためです。

サンプルコード（アクティベーションコンテキストAPIを使用しない）：

function ImageList_Create_V6(CX, CY: Integer; Flags: UINT; Initial, Grow: Integer): HIMAGELIST;
var
  h: HMODULE;
  _ImageList_Create: function(CX, CY: Integer; Flags: UINT;
    Initial, Grow: Integer): HIMAGELIST; stdcall;
begin
  // TODO: find comctl32.dll v6 path programmatically
  h := LoadLibrary('C:\WINDOWS\WinSxS\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.5512_x-ww_35d4ce83\comctl32.dll');
  if h <> 0 then
  try
    _ImageList_Create := GetProcAddress(h, 'ImageList_Create');
    if Assigned(_ImageList_Create) then
      Result := _ImageList_Create(CX, CY, Flags, Initial, Grow);
  finally
    FreeLibrary(h);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ...
  ImageList1.Handle := ImageList_Create_V6(ImageList1.Width, ImageList1.Height,
    ILC_COLOR32 or ILC_MASK, 0, ImageList1.AllocBy);
  ...
end;

Edi2： ActivationContextAPIを介して正しく実行される方法を示す@Davidによるサンプルコード。

4

1 に答える 1

5

画像リストコントロールには2つのバージョンがあります。v5.8バージョンとv6バージョン。システムイメージリストは、システムが所有する共有コンポーネントであり、v6バージョンを使用します。それは他の点では特別ではなく、単なるv6イメージリストです。アプリでは、マニフェストを含めるかどうかに応じて、画像リストはv5.8またはv6のいずれかになります。ただし、システム所有のイメージリストは常にv6です。

アプリでv6共通コントロールを使用したくない理由がわかりません。ただし、その制約がある場合は、アクティベーションコンテキストAPIを使用して、イメージリストを作成している間だけv6共通コントロールをローカルで使用できます。これで問題が解決し、アプリの残りの部分にv5.8の共通コントロールが残ります。

于 2012-03-30T06:42:44.830 に答える