| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

HICON и TImageList [D6]

Вадим ©   (2002-07-04 13:04:00) 

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

---

ricks   (2002-07-04 14:21:00) [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;


---

Наверх