🚀 go-pugleaf

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