Не могу добиться сохранения иконки с палитрой 256. При создании масок XORMask имеет палитру 256 цветов, однако после использования API функции CreateIconIndirect иконка получается с малым количеством цветов. Размеры масок и исходного Bitmap 32х32 пиксела, размер BMP файла, созданного из этого Bitmap 2,05 кбайт, иконка же получается 766 байт. Это понятно, так как цветов гораздо меньше. Пытался задать палитру иконке, но не получается.
Вот фрагмент кода:

 Icon := TIcon.Create;
 IconInfo.fIcon := true;
 IconInfo.xHotspot := 0;
 IconInfo.yHotspot := 0;
 IconInfo.hbmMask := AndMask.Handle;
 IconInfo.hbmColor := XorMask.Handle;
 Icon.Handle := CreateIconIndirect(IconInfo);
 Icon.SaveToFile(SavePictureDialog2.FileName + '.ico');
 AndMask.Free;
 XorMask.Free;
 Icon.Free;
Есть еще функция API CreateIcon, может быть она лучше работает, однако я не знаю, как задать параметры:
CreateIcon(Instance: THandle; Width, Height: Integer; Planes, BitsPixel: Byte; ANDbits, XORbits: Pointer): HIcon;
Что такое Instance: Экземпляp модуля, создающий пиктогpамму.
Какой модуль, какой экземпляр? И что такое Planes: Число плоскостей в маске XOR. Какие плоскости, с чем их едят?
Может быть кто-нибудь знает, как с этим бороться?


Поковырявшись немного, обнаружил, что цвет пропадает при записи иконки в файл. Если вывести иконку на форму после создания функцией API, ее цвет нормальный. Что происходит при записи, и что я упустил?

Благодарю за обширную информацию!!!!
Сам разобрался.

А с нами не поделишься.

Поделюсь.
Будет опубликовано в разделе "статьи" delphi.mastak.ru

Решение помещено в наш FAQ. Спасибо nsvi.