Imagelist con le icone di fusione alfa perde trasparenza

Question

Ecco (più o meno) una domanda correlata: Delphi - Populate an imagelist with icons at runtime 'destroys' transparency.

Ho provato @TOndrej answer. Ma sembra che sia necessario che gli stili di visualizzazione (XP Manifest) siano abilitati affinché funzioni (verrà utilizzata la versione 6.0 dei controlli comuni di Windows, cosa che non desidero in questo momento). Aggiungo le icone in fase di esecuzione tramite ExtractIconEx e ImageList_AddIcon.

Apparentemente l'impostazione di ImageList.Handle per utilizzare l'handle Elenco immagini di sistema, non richiede richiedere XP Manifest. quindi anche un vecchio programma che ho scritto in D3 viene visualizzato correttamente con icone alfa quando utilizzo l'elenco delle immagini di sistema per visualizzare l'elenco dei file (con un TListView).

mi aggiravo Qual è la particolarità della lista immagine di sistema e come viene creato, in modo che esso supporta alpha blending in tutti i casi? Non riesco a capirlo. Ecco alcuni esempi di codice:

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. 

---

stili visivi disabili:

stili visivi Abilitato:

---

Una soluzione è quella di utilizzare la classe di interposizione o sottoclasse TImageList e sovrascrivere DoDrawas shown here, ma quello che veramente voglio sapere è come creare la mia lista immagine stessa lista di sistema Immagine.

Nota: so di TPngImageList e non voglio usarlo in questo caso.

---

Edit: @ risposta di David (e commenti) erano accurate:

dovrete collegare esplicitamente ImageList_Create (V6) a causa altrimenti è implicitamente legata a carico del modulo tempo e sarà vincolato a v5.8

codice campione (senza uso del contesto di attivazione 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:A sample code by @David che mostra come è fatto correttamente tramite l'attivazione di contesto API.

Answer 1

Esistono due versioni dei controlli dell'elenco immagini. La versione v5.8 e la versione v6. L'elenco delle immagini di sistema è una coonente condivisa di proprietà del sistema e utilizza la versione v6. Non è speciale in nessun altro modo, è solo una semplice lista di immagini v6. Nella tua app, l'elenco delle immagini è v5.8 o v6 a seconda che tu includa o meno il manifest.Ma l'elenco delle immagini di proprietà del sistema è sempre v6.

Non so perché non si desidera utilizzare i controlli comuni v6 nella tua app. Ma con questo vincolo è possibile utilizzare l'API del contesto di attivazione per utilizzare localmente i controlli comuni v6 mentre si crea l'elenco di immagini. Ciò risolverebbe il tuo problema e lascerebbe il resto della tua app con i controlli comuni v5.8.