Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ico2Bmp [D5]


Ega23 ©   (2004-10-19 13:43:00) 

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


Ega23   (2004-10-19 17:25:00) [1]

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


Gero   (2004-10-19 17:24:00) [2]

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


palva   (2004-10-19 16:52:00) [3]

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

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

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


NAlexey   (2004-10-19 14:35:00) [4]

>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;


Ega23   (2004-10-19 14:20:00) [5]

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


Yr2   (2004-10-19 14:19:00) [6]

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


Ega23   (2004-10-19 14:15:00) [7]

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

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

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


R   (2004-10-19 14:10:00) [8]

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

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


Ega23   (2004-10-19 14:02:00) [9]

DrawIconEx - это что?


NAlexey   (2004-10-19 13:58:00) [10]

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


Ega23   (2004-10-19 13:53:00) [11]

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


R   (2004-10-19 13:45:00) [12]

TBitmap


Наверх

Титульная страница Поиск, карта сайта Написать письмо