Текущий архив: 2003.04.10;
Скачать: CL | DM;

Вниз

Привет всем!!! Из 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]

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

---

← →
sniknik ©   (2003-03-30 01:54) [3]

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

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;

---

Страницы: 1 вся ветка

Текущий архив: 2003.04.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c