Форум: "Основная";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];
Вниз
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.047 c
