Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Системные иконки Shell32.dll

Нов_и_чок © (2008-09-10 15:22:00)
Подскажите пожалуйста как можно к проекту подключить иконки Shell32.dll

Sapersky (2008-09-10 16:15:00) [1]
Возможно. Нумерацией я не интересовался, т.к. использовал этот ImageList для отображения иконок файлов, индексы получал тоже через ShGetFileInfo.

Правильный$Вася (2008-09-10 16:02:00) [2]

> Sapersky (10.09.08 15:58) [11]

и произвольная нумерация каждый раз...

Sapersky (2008-09-10 15:58:00) [3]
Uses ShellAPI;

function GetSysImgList(Owner : TComponent; SmallIcons : Boolean): TCustomImageList;
var FileInfo : TSHFileInfo;
Flags : DWord;
begin
Result := TCustomImageList.Create(Owner);
FillChar(FileInfo, SizeOf(FileInfo), 0);
Flags := SHGFI_SYSICONINDEX;// or SHGFI_ICON;
If SmallIcons then Flags := Flags or SHGFI_SMALLICON;
Result.Handle := SHGetFileInfo('', 0, FileInfo, Sizeof( FileInfo ), Flags);
Result.ShareImages := True;
end;

Почему использовал TCustomImageList вместо TImageList - уже и сам не помню, возможно, не хотелось добавлять в uses Сontrols.

Anatoly Podgoretsky (2008-09-10 15:48:00) [4]
> brother (10.09.2008 15:25:01) [1]

Они так уже в ресурсе.

Palladin (2008-09-10 15:47:00) [5]

> brother © (10.09.08 15:25) [1]

тебя MS потом возлюбит за такие дела...

Правильный$Вася (2008-09-10 15:45:00) [6]

> я хочу все сразу

мозаикой выложить?

Amoeba (2008-09-10 15:43:00) [7]

> я хочу все сразу...

И что же такое собираешься делать со всеми сразу?

brother (2008-09-10 15:38:00) [8]
в любом варианте, грузишь по одной сколько надо...

Нов_и_чок (2008-09-10 15:33:00) [9]
Я наверно наглею, но как я понимаю LoadImage вытаскивает по одной, я хочу все сразу... :)

brother (2008-09-10 15:29:00) [10]
> Пробовал качество теряется!

не тем пробовал? ;))))) попробуй restorator...

clickmaker (2008-09-10 15:29:00) [11]
LoadImage(GetModuleHandle('shell32.dll'), MAKEINTRESOURCE(IconID), IMAGE_ICON, 16, 16, 0)

Нов_и_чок (2008-09-10 15:27:00) [12]
Пробовал качество теряется! Возник вопрос можно выдрать так, шобы качество не терялось???

brother (2008-09-10 15:25:00) [13]
в начале "выдрать" их оттуда, а потом можно поместить в ресурс и использовать в своем приложении

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »