Ico2Bmp

← →
Ega23 © (2004-10-19 13:43) [0]

Стандартными средствами Ico в bmp конвертнуть можно? Или с бубном плясать надо?

← →
R © (2004-10-19 13:45) [1]

TBitmap

← →
Ega23 © (2004-10-19 13:53) [2]

Вот только незадача - у TIcon нет свойства TBitmap. TCanvas, кстати, тоже нет.

← →
NAlexey © (2004-10-19 13:58) [3]

>Ega23 © (19.10.04 13:53) [2]
А что там больно плясать? Создай bmp такого же размера как и Icon и нарисуй её на bmp -> DrawIconEx

← →
Ega23 © (2004-10-19 14:02) [4]

DrawIconEx - это что?

← →
R © (2004-10-19 14:10) [5]

Все зависит от того где хранятся иконки.

Если в TImageList то
ImageList1.GetBitmap(Index,Bm);

← →
Ega23 © (2004-10-19 14:15) [6]

Все зависит от того где хранятся иконки.

Нет, есть просто абстрактный FileName.

Просто срочно понадобилось несколько иконок в bmp-шки конвертнуть, все графические редакторы, что были под рукой открывать отказались, вот попытался сам быстренько что-то наваять. С "наскоку" не получилось, да и фиг с ним.

← →
Yr2 (2004-10-19 14:19) [7]

так если быстренько, то есть такая утилитка. так и называется "Bmp2Ico" (и обратно). Сам недавно скачал с aport.ru
прекрасно справляется со своей задачей.

← →
Ega23 © (2004-10-19 14:20) [8]

Да тут у Юльки тоже какая-то подобная приблуда нашлась.

>NAlexey © (19.10.04 13:58) [3]
DrawIconEx - Это ф-ция которая рисует курсор или икон на указанном контексте устройства.
создаешь битмам:
bmp := TBitMap.Create;
потом его размеры:
bmp.Width := ico.Width;
bmp.Height := ico.Height;
Потом рисуешь:
procedure TForm1.Button1Click(Sender: TObject); var Bmp: TBitmap; begin Bmp := TBitmap.Create; try Bmp.Width := Application.Icon.Width; Bmp.Height := Application.Icon.Height; DrawIconEx(Bmp.Canvas.Handle, 0, 0, Application.Icon.Handle, Bmp.Width, Bmp.Height, 0, 0, DI_NORMAL); Bmp.SaveToFile("C:\ImHere.bmp"); finally Bmp.Free end; end;

Популярный вьюер Irfan View тоже может конвертировать из командной строки. типа

i_view32.exe Icon1.ico /convert=test.bmp

Прозрачный цвет иконки заменяется черным

Лучше всего разбор формата иконки сделать.

Да всё уже, проблема решена. Всем спасибо!

Ico2Bmp Найти похожие ветки