Конвентирование bmp в ico

← →
Romka (2003-09-25 12:45) [0]

Привет!
У меня такой вопрос:
Как можно в Делфи конвентировать bmp файл в ico.
Заране благодарен!!!

← →
ZEE (2003-09-25 13:05) [1]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625276&n=21

← →
Romka (2003-09-25 15:04) [2]

A по проще че нибудь есть? Или объясни пожалуйста как она работает и как мне ее применить: У меня Картинка bmp загружается
в Image1, как мне ее конвертировать в ico, записать ее содержимое в переменную и открыть в другом image2.

← →
ZEE (2003-09-25 15:13) [3]

> Romka © (25.09.03 15:04) [2]
> A по проще че нибудь есть?
может быть, но я знаю только такой способ

> Или объясни пожалуйста как она
> работает и как мне ее применить: У меня Картинка bmp загружается
> в Image1, как мне ее конвертировать в ico, записать ее содержимое
> в переменную и открыть в другом image2.
ну там же как раз пример, а не теория - попробуй тот вариант, а патом переделай его под свои нужды...

← →
Chlavik (2003-09-25 15:15) [4]

У меня пашет и так ( конечно не уверен что это полностью правильно...)

function ConvertBmpToIco(Bmp:TBitmap):HIcon;
var IconInfo : TIconInfo;
begin
IconInfo.fIcon:= true;
IconInfo.xHotspot:= 0;
IconInfo.yHotspot:= 0;
IconInfo.hbmMask:=Bmp.MaskHandle;
IconInfo.hbmColor:=Bmp.Handle;
Result:= CreateIconIndirect(IconInfo);
end;

А потом в какойто процедуре
var icon:TIcon;
begin
Icon:=TIcon.Create;
Icon.Handle:=ConvertBmpToIco(TVoyImage.Picture.BitMap);
Form1.Canvas.Draw(Icon,10,10); // тут ты юзаеш иконкуж
Icon.ReleaseHandle;
Icon.Free;
end;

Конвентирование bmp в ico Найти похожие ветки