Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

SysImageList... (Иконки)   Найти похожие ветки 

 
Chlavik   (2003-10-25 13:58) [0]

Здравствуйте.... Можли как то получить иконку системного ImageList(a) по её индексу в нём (iIndex)... Спасиба.


 
крот   (2003-10-25 16:07) [1]

Ну, если сам хендл системного imagelist есть, что примерно так

ImageList: TImageList

ImageList.Handle = hSysList;//hSysList это хэнлд систменого
//imagelist
ImageList.GetIcon(index, Icon);
ImageList.Handle = 0; //Это обязательно надо сделать
//а то объект при удалении
//удалит и системный имаджлист

Для получения хэндла системного имаджлиста надо сделать такой вызов

var
fi: TSHFileInfo;
hImgList: HIMAGELIST;

hImgList := SHGetFileInfo("C:\", 0, fi, sizeof(fi), SHGFI_SYSICONINDEX or SHGFI_ICON);


 
Chlavik   (2003-10-25 22:30) [2]

Вот
код
Images.Clear;
SysList:=TImageList.Create(Self);
SysList.Handle:=SHGetFileInfo("C:\", 0, fi, sizeof(fi), SHGFI_SYSICONINDEX or SHGFI_ICON);
Icon:=TIcon.Create;
Icon.Free;
SysList.Handle:=0;
SysList.Free;

Если закоментировать
SysList.Handle:=SHGetFileInfo("C:\", 0, fi, sizeof(fi), SHGFI_SYSICONINDEX or SHGFI_ICON);
то всё пашет :)


 
крот   (2003-10-26 07:49) [3]

М-да? А откуда, прошу прощения, берется системный имадж лист, если не секрет?


 
raize   (2003-10-26 08:56) [4]

а что, так сложно Help по TImageList почитать? ))


 
Chlavik   (2003-10-26 12:39) [5]


> М-да? А откуда, прошу прощения, берется системный имадж
> лист, если не секрет?


Что значит "Берётся" Типа где я выполняю этот код?


> а что, так сложно Help по TImageList почитать? ))


Ну и что я там нового смогу вычитать что поможет мне...

Может так

SysList:=TImageList.Create(Self);
Oldhandle:=SysList.Handle;
SysList.Handle:=SHGetFileInfo("C:\", 0, fi, sizeof(fi), SHGFI_SYSICONINDEX or SHGFI_ICON);
// поюзал его
SysList.Handle:= Oldhandle;
SysList.Free;



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

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

Наверх




Память: 0.45 MB
Время: 0.033 c
1-41330
GIL
2003-10-30 17:21
2003.11.13
остановить программу


1-41598
DimChan
2003-10-27 07:21
2003.11.13
Массивы


1-41666
ИМГусак
2003-10-24 18:12
2003.11.13
MAPI и MSOutlook


3-40792
Skalp
2003-10-22 14:37
2003.11.13
DBGrid, ширину колонок которой можно менять, а перемещать - нет!


1-41569
афвуд
2003-10-27 15:01
2003.11.13
Нужно достать значения left, top и т.д. формы, когда она в развёр





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский