Текущий архив: 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.013 c