🚀 go-pugleaf

"Mike Collins" <its@TheBottomOfThePost> wrote in message 
news:486a1911@newsgroups.borland.com...

> - however, as soon as i call DestroyIcon - the image is lost.

Don't call DestroyIcon().  The TIcon inside the TImage is taking ownership 
of the HICON handle, but then you are destroying it behind the TIcon's back.

> So i tried using a temporary TIcon object and then using the
> Canvas Draw funciton i.e.:

That is not necessary.  Simply remove the call to DestroyIcon().  The rest 
of the code is fine:

    HICON hIconSmall = NULL;
    ::ExtractIconEx(sObject.c_str(), 0, NULL, &hIconSmall, 1);
    if( hIconSmall )
        Image->Picture->Icon->Handle = hIconSmall;

>       delete icoSmall;
>       ::DestroyIcon(hIconSmall);

That is wrong for the same reason.  The temporary TIcon owns the HICON, so 
you don't need to call DestroyIcon().  The TIcon destructor will do that 
automatically.

> this works and doesn't seem to have any resource leaks but
> the image is not painted transparent - i have a white background
> displayed.

That is because you are drawing on a TBitmap that has a white background.

> I've tried setting the Transparent property of the TImage but it
> doesn't make any difference.

That only applies to TGraphic objects that the TImage itself displays.  It 
does not apply when drawing onto the TImage manually.


Gambit