Привет всем!!! Из bmp сделать ico

← →
multik © (2003-03-29 21:52) [0]

Есть image, в нём загружен рисунок формата bmp. Требуется сохранить этот рисунок в формат ico. Любым способом, лишь бы работало. Заранее спасибо.

← →
Zazoo (2003-03-29 22:17) [1]

Добавить TBitmap в ImageList и через GetIcon получить TIcon.
Лучшего способа я не нашел :(

← →
multik © (2003-03-29 23:42) [2]

Да, но после этого качество серьёзно ухудшается, поэтому этот способ не попрёт.

Можеш переделать, здесь рисунок загружается из ресурса вместе с маской. Тебе нужно получить маску рисунка (двухцветная белый там где не будет изменений - фон, и черный там где сам рисунок)
(но может есть и другие способы, в кулибе чтото подобное видел посмотри)

function CreateIcon(sMask, sIcon: string): TIcon; var AndMask : TBitmap; XOrMask : TBitmap; IconInfo : TIconInfo; Icon : TIcon; begin AndMask:= TBitmap.Create; AndMask.Handle:= LoadBitmap(hInstance, PChar(sMask)); XOrMask:= TBitmap.Create; XOrMask.Handle:= LoadBitmap(hInstance, PChar(sIcon)); Icon:= TIcon.Create; IconInfo.fIcon:= true; IconInfo.xHotspot:= 0; IconInfo.yHotspot:= 0; IconInfo.hbmMask:= AndMask.Handle; IconInfo.hbmColor:= XOrMask.Handle; Icon.Handle:= CreateIconIndirect(IconInfo); AndMask.Free; XOrMask.Free; result:= Icon; end;

Привет всем!!! Из bmp сделать ico Найти похожие ветки