Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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]

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



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

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

Наверх





Память: 0.45 MB
Время: 0.004 c
1-9543
masterdim
2002-03-22 11:32
2002.04.04
проблема с созданием класса (простая :))


4-9672
mindguru
2002-02-02 08:50
2002.04.04
Вопросик мона?


14-9614
VID
2002-02-20 18:22
2002.04.04
Об InterBase


3-9429
Skyter
2002-03-07 13:46
2002.04.04
HELP!!! Помогите. Есть база данных При выполнении запроса выдается ошибка см. msg


3-9362
Ghostlady
2002-03-11 16:44
2002.04.04
Падает база данных без видимых причин





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский