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 почитать? ))

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

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

> а что, так сложно 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;

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