🚀 go-pugleaf

Black is a TImage containing a black picture.
Anyway, that code will probably work, it resembles code I've tried a lot,
but it won't actually save the icon....
Thanks, though. :)

"Hans Galema" <j.m.galema.dontusethis@maartens.nl> wrote in message
news:3ed9cf52$1@newsgroups.borland.com...
> Chris wrote:
>
> > i.hbmMask = Black->Picture->Bitmap->Handle;
>
> Black is a TImage ? What does it contain ?
>
> Did a google advanced newsgroups search on
> text:   ICONINFO CreateIconIndirect
> groups: *cppbuilder*
>
> found something what could be of use.
>
> Hans.
>
> Van:PaoloItaly (paolo@sirius.tecnoparco.it)
> Onderwerp:Re: text on the tray
> View: Complete Thread (3 bijdragen)
> Original Format
> Discussies:borland.public.cppbuilder.winapi
> Datum:2002-04-22 04:09:01 PST
>
> draw text in a TBitmap with TextOut and the trasform the bitmap in icon
>
> Graphics::TIcon *BitmapToIcon(Graphics::TBitmap *Bitmap, int IconSizeX,
int
> IconSizeY)
> {
>    ICONINFO IconInfo;
>    Graphics::TBitmap *IconBitmap, *MaskBitmap;
>    int x, y;
>    TColor TransparentColor;
>    Graphics::TIcon *Result
>
>    if(IconSizeX == -1)
>    {
>      IconSizeX = ::GetSystemMetrics(SM_CXICON);
>      IconSizeY = ::GetSystemMetrics(SM_CYICON);
>    }
>    IconBitmap = new Graphics::TBitmap;
>    IconBitmap->Width = IconSizeX;
>    IconBitmap->Height = IconSizeY;
>    IconBitmap->Canvas->StretchDraw(Rect(0, 0, IconSizeX, IconSizeY),
Bitmap);
>    IconBitmap->TransparentColor = Bitmap->TransparentColor;
>    TransparentColor = (TColor)(IconBitmap->TransparentColor & 0xFFFFFF);
>    MaskBitmap = new Graphics::TBitmap;
>    MaskBitmap->Assign(IconBitmap);
>    for(y= 0; y < IconSizeY - 1 ;y++)
>      for(x= 0; x < IconSizeX - 1 ;x++)
>        if(IconBitmap->Canvas->Pixels[x][y] == TransparentColor)
>          IconBitmap->Canvas->Pixels[x][y] = clBlack;
>    IconInfo.fIcon    = true;
>    IconInfo.hbmMask  = MaskBitmap->MaskHandle;
>    IconInfo.hbmColor = IconBitmap->Handle;
>
>    Result = new Graphics::TIcon;
>    Result->Handle = ::CreateIconIndirect(&IconInfo);
>    delete MaskBitmap;
>    delete IconBitmap;
>
>    return Result;
> }
>
> Ciao
>