Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

Как просмотреть все рисунки в файле иконки? 


Марк   (2002-03-25 11:01) [0]

Привет Всем!
В одном файле иконки (*.ico) может находиться несколько рисунков
для разных графических режимов.
Есть функция ExtractIconEx(...) , но она, похоже,
позволяет получить только две иконки: 16х16 и 32х32 ?
Есть ли способ получить все?

Заранее спасибо.



shane54   (2002-03-25 11:53) [1]

На сайте mihandelphi.narod.ru есть классная прога для выдирания иконок из exe, dll, ico и т.д.



Марк   (2002-03-25 13:52) [2]

Да, прога удобная, но она выхватывает только один рисунок из файла иконки - 32х32х256 цветов. (Цвета зависят от текущего графрежима). И в проге небольшая ошибка:

procedure TForm1.SpeedButton9Click(Sender: TObject);
var dc:HDC;
begin
if ExtractIcon(hInstance,pchar(filelistbox1.filename), i-1 )<>0 then begin
i:=i+1;
dc:=GetDC(panel3.Handle);
DrawIcon(dc,1,1,0);
image1.picture.icon.Handle := ExtractIcon(hInstance,pchar(filelistbox1.filename), i);
end
else showmessage("Это последняя иконка в файле");
end;


Вместо "i-1" нужно поставить "i+1", иначе прога будет пытаться читать 2 несуществующие иконки после "достижения конца списка иконок".
_____
Файл иконки представляет собой некий "ImageList", который я и хочу весь получить. Этот "ImageList" можно просмотреть, например,
в ACDSee 4.0(plugin PicaView 2.0), а в Visual Studio его можно создавать в редакторе иконок.



Андрей Сенченко   (2002-03-25 14:00) [3]

>> Марк (25.03.02 13:52)
>> в ACDSee 4.0(plugin PicaView 2.0),

Где нарыл ?



Марк   (2002-03-25 15:08) [4]

На работе дали комп с уже установленным. Где инсталл - сам не знаю? :-(




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.014 c
3-9410            Павел Козловский      2002-03-13 11:23  2002.04.04  
Целостность таблиц


1-9560            -=GaLaN=-             2002-03-24 19:19  2002.04.04  
Как перетаскивать форму за какой-нибудь компонент?


1-9499            oomneeq               2002-03-21 16:14  2002.04.04  
Хм, как бы с этим побороться - Library path etc.


1-9525            Alex_LG               2002-03-18 06:18  2002.04.04  
Где взять исходники *.pas для стандартных юнитов Дельфи?


1-9533            новенький в Делфи     2002-03-23 17:25  2002.04.04  
Работа с фалами