Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
Время: 0.013 c
14-47803
Alessio
2002-06-15 21:06
2002.07.15
Вживление в exe


14-47710
agrig
2002-06-18 21:09
2002.07.15
как 1С v.6 записывает свои файлы и чем сжимает?


6-47654
LiNkS
2002-04-24 18:07
2002.07.15
Передача файлов через сокеты.


14-47734
PycUS
2002-06-11 12:15
2002.07.15
SysTray


1-47266
volph
2002-06-27 13:34
2002.07.15
HASH-массив