Иконки

← →
Весь в делах (2006-09-29 18:34) [0]

Иконки, извлекаемые с помощью функции ExtractIcon почему-то оказываются 16’дцати цветные.

var
Ic : TIcon;
begin
Ic := TIcon.Create;
Ic.Handle := ExtractIcon(HInstance, PChar(Path), 0);
Ic.SaveToFile(Path + ".ico");
Ic.Free;
End;

Как это исправить?

← →
Vovan#1 (2006-09-29 21:44) [1]

Из разряда Delphi suxx. Графические классы Delphi были сформированы к третьей версии Delphi и больше Borland графикой не занималась, просто игнорируя эту область.

По делу. Это ограничения TIcon. Выход - переписать TIcon, что равносильно "написать новый класс для работы с иконками".

← →
Степан (2006-09-30 08:09) [2]

http://www.yaransk.com/izone/5/izone505/pub/izone10.htm

Можно раскинуть мозг, и сделать свою процедуру сохранения и загрузки иконок их файла! описание формата правда на Си, но разве это может остановить?

← →
Весь в делах (2006-09-30 09:56) [3]

Спасибо

Посмотрите вот это: http://delphiworld.narod.ru/base/save_32_ico.html .

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