Текущий архив: 2002.07.22;
Скачать: CL | DM;
Вниз
Извлечь из Icl - иконку Найти похожие ветки
← →
Alex-A © (2002-07-04 12:02) [0]Извините, если не в тему (хотел в Multimedia написать, но там почему-то вопрос не добавляется).
Как из файла icl достать нужную иконку ?
← →
valery_f (2002-07-04 12:43) [1]ICL - это та же DLL, только в ней кроме иконочных ресурсов ничего нет. В общем - как из обычной DLL.
← →
Alex-A © (2002-07-04 14:27) [2]ага, я так сначала и подумал
делаю так
TForm1.Button1Click(Sender: TObject);
var i:Integer;
nIconCount:Integer;
Icon : TIcon;
begin
Icon := TIcon.Create;
nIconCount := ExtractIcon(Handle, "WinXp.icl", -1);
ShowMessage(IntToStr(nIconCount)); // Показывает 24 - и это правильно
for i := 1 to nIconCount do
begin
Icon.Hande := ExtractIcon(Handle, "WinXp.icl", i); // И вот тут при первом же проходе какой-то непереводимый мат !
DrawIcon(Form1.Canvas.Handle, 10, i*40, Icon.Handle);
end;
Icon.Free;
end;
Что интересно, тот же код с указанием "Shell32.dll", все нормально отрисовывает!
← →
Alex-A © (2002-07-04 14:32) [3]<qoute>Icon.Hande := ExtractIcon(Handle, "WinXp.icl", i);</qoute>
опечатка, конечно:
Icon.Handle := ExtractIcon(Handle, "WinXp.icl", i);
но суть не в этом ...
← →
Proton © (2002-07-09 19:07) [4]не Icon.Handle := ExtractIcon(Handle, "WinXp.icl", i);
а Icon.Handle := ExtractIcon(Hinstance, "WinXp.icl", i);
и до этого то же самое
Страницы: 1 вся ветка
Текущий архив: 2002.07.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.009 c
