PngComponents：如何將PNG文件添加到TPngImageList

Question

我試着將PNG文件添加到TPngImageList（PngComponents for D7 got from http://code.google.com/p/cubicexplorer/downloads/list）。

type 
    TImgListCrack = class(TPngImageList); 

function LoadPngIconEx(ImageList: TPngImageList; const fn: string): boolean; 
var 
    Icon: HICON; 
    AImage: TPngObject; 
begin 
    with ImageList do 
    begin 
    BeginUpdate; 
    try 
     AImage:= TPngObject.Create; 
     AImage.LoadFromFile(fn); 
     Icon:= TImgListCrack(ImageList).PngToIcon(AImage); 
     ImageList_AddIcon(Handle, Icon); 
     DestroyIcon(Icon); 
     FreeAndNil(AImage); 
     Result:= true; 
    finally 
     EndUpdate; 
    end; 
    end; 
end; 

結果：圖標未添加，圖片列表仍爲空。如何做到這一點好嗎？

Answer 1

未經測試，但不應該只是工作？

ImageList.PngImages.Add.PngImage.LoadFromFile(fn); 

Answer 2

通過使用其他PngImageList方法解決。道具PngImages需要功能。

function LoadPngIconEx(ImageList: TPngImageList; const fn: string): boolean; 
var 
    AImage: TPngObject; 
begin 
    if not FileExists(fn) then 
    Result:= false 
    else 
    begin 
    AImage:= TPngObject.Create; 
    try 
     AImage.LoadFromFile(fn); 
     ImageList.PngImages.Add.PngImage:= AImage; 
     Result:= true; 
    finally 
     FreeAndNil(AImage); 
    end; 
    end; 
end;