Помогите с createIcon!

[Altera]

Доброго времени суток, уважаемые форумчане!
Я не знал, где точно разместить эту тему, поэтому решил здесь...

Процесс создания иконки я представляю себе так:
Берётся картинка (bitmap), как маска AND

а прозрачность пикселей подбирается по цвету соответствующего пикселя на маске XOR

Цвет чёрный - прозрачность 255, белый - 0, серый - 127.

Для создания иконки я использую createIcon в следующем виде:

var
i: tIcon;
h: tHandle;
image, mask: tBitmap;
begin
   image := tBitmap.Create;
   image.LoadFromFile(path+'AND.bmp');
   mask := tBitmap.Create;
   mask.LoadFromFile(path+'XOR.bmp');

   h := createIcon(hInstance, 32, 32, 1, 1, image, mask);
   i := tIcon.Create;
   i.Handle := h;
   canvas.Draw(100, 100, i);
end;

Но прорисовывается на форме какая-то белибердовая картинка чёрного цвета и несколькими прозрачными участками. Подскажите, как быть?

[0nni]

попробуй так:

mask .Monochrome := true;

[Altera]

Сообщение от 0nni

попробуй так:

mask .Monochrome := true;

Лучше не стало....

[TaTT DoGG]

попробуй в качестве прозрачного в bmp использовать розовый цвет

[0nni]

var
  i: tIcon;
  h: tHandle;
  image, mask : Cardinal;
  andInfo, xorinfo : tagBITMAP;
  andbuff, xorbuff : array of byte;
  IconInfo : TIconInfo;
begin
   image := LoadImage(0, 'C:\and.bmp', IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE or LR_COLOR);
   mask := LoadImage(0, 'C:\xor.bmp', IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE or LR_MONOCHROME);

   ZeroMemory(@IconInfo, sizeof(TIconInfo));
   IconInfo.fIcon := true;
   IconInfo.hbmMask := mask;
   IconInfo.hbmColor := image;
   h := CreateIconIndirect(IconInfo);
   DrawIcon(Canvas.Handle, 0, 0, h);

DeleteObject(image );
DeleteObject(mask);
//DestroyIcon(h); - не забудь!!!!

Вроде этого.

кстати, обрати внимание:

HICON CreateIcon(

    HINSTANCE hInstance,	// handle to application instance
    int nWidth,	// icon width
    int nHeight,	// icon height
    BYTE cPlanes,	// number of planes in XOR bitmask
    BYTE cBitsPixel,	// number of bits per pixel in XOR bitmask
    CONST BYTE *lpbANDbits,	// pointer to AND bitmask array
    CONST BYTE *lpbXORbits 	// pointer to XOR bitmask array
   );