Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.043 c