Главная страница
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.012 c
1-47385
race1
2002-07-02 13:58
2002.07.15
снова рисование :)


3-47177
Прохожий
2002-06-19 11:16
2002.07.15
stack overflow при закрытии программы! ???


6-47628
нету логина...
2002-05-02 20:42
2002.07.15
TSocket... надо передать Canvas по сети... ПОМОГИТЕ!!!


1-47477
Alex
2002-06-26 21:22
2002.07.15
Супер сложный вопрос!!!


1-47327
Алибаба
2002-07-01 11:55
2002.07.15
Интерфейс