🚀 go-pugleaf

Mike Collins wrote:

>HICON hIconSmall;
>ExtractIconEx(sObject.c_str(), 0, NULL, &hIconSmall, 1);
>if (hIconSmall)
>{
>   Image->Picture->Icon->Handle = hIconSmall;
>   ::DestroyIcon(hIconSmall);
>}
>- however, as soon as i call DestroyIcon - the image is lost.

Destroy the Image->Picture->Icon->Handle instead,
when you are through with it.

>if (hIconSmall)
>{
>       TIcon *icoSmall = new TIcon;
>       icoSmall->Handle = hIconSmall;
>       Image->Height = 16;
>       Image->Width = 16;
>       Image->Canvas->Draw(0, 0, icoSmall);
>       delete icoSmall;
>       ::DestroyIcon(hIconSmall);
>}
>- this works and doesn't seem to have any resource leaks but the image is 
>not painted transparent - i have a white background displayed.  I've tried 
>setting the Transparent property of the TImage but it doesn't make any 
>difference.

Is that a typo?
TIcon needs the transparent property.
I would think it would be
	icoSmall->Transparent = TRUE;
	icoSmall->SetSize(16,16);