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

Вниз

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

← →
Марк   (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 его можно создавать в редакторе иконок.

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.44 MB
Время: 0.005 c