Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.011 c
1-47383
erik
2002-06-27 14:40
2002.07.15
Как выбрать провайдера, если он находится в другой форме?


1-47322
stupid
2002-06-30 21:15
2002.07.15
Как проверить, есть ли строковое значение в реестре?


1-47537
Gamar
2002-06-27 11:25
2002.07.15
Как определить существует ли папка


1-47274
Tahion
2002-06-25 10:14
2002.07.15
3. Как сделать НЕВЫДЕЛЕННЫМИ все элементы CheckListBox-а?


1-47563
Still Swamp
2002-06-27 20:51
2002.07.15
Тон Фон и Картинка на формочке





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский