Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

HICON и TImageList   Найти похожие ветки 

← →
Вадим ©   (2002-07-04 13:04) [0]

var
Icon: HICON
begin
Icon := LoadIcon();
end.
Как можно добавить эту иконку в ImageList?
Спасибо.

---

← →
ricks ©   (2002-07-04 14:21) [1]

Здесь можно двумя способами
1)

var I:TIcon;
begin
I:=TIcon.Create;
try
I.Handle:=LoadIcon(HInstance, "MAINICON");
ImageList1.AddIcon(I);
finally
I.Free;
end;
end;


и вот второй,

uses
..., CommCtrl;

...
var I:HICON;
begin
I:=LoadIcon(HInstance, "MAINICON");
try
ImageList_AddIcon(ImageList1.Handle, I);
finally
DeleteObject(I);
end;
end;


---

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

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 1.013 c