Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.10.19;
Скачать: [xml.tar.bz2];

Вниз

Системные иконки Shell32.dll   Найти похожие ветки 

 
Нов_и_чок   (2008-09-10 15:22) [0]

Подскажите пожалуйста как можно к проекту подключить иконки Shell32.dll


 
brother ©   (2008-09-10 15:25) [1]

в начале "выдрать" их оттуда, а потом можно поместить в ресурс и использовать в своем приложении


 
Нов_и_чок   (2008-09-10 15:27) [2]

Пробовал качество теряется! Возник вопрос можно выдрать так, шобы качество не терялось???


 
brother ©   (2008-09-10 15:29) [3]

> Пробовал качество теряется!

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


 
clickmaker ©   (2008-09-10 15:29) [4]

LoadImage(GetModuleHandle("shell32.dll"), MAKEINTRESOURCE(IconID), IMAGE_ICON, 16, 16, 0)


 
Нов_и_чок   (2008-09-10 15:33) [5]

Я наверно наглею, но как я понимаю LoadImage вытаскивает по одной, я хочу все сразу... :)


 
brother ©   (2008-09-10 15:38) [6]

в любом варианте, грузишь по одной сколько надо...


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


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

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


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


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

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


 
Palladin ©   (2008-09-10 15:47) [9]


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

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


 
Anatoly Podgoretsky ©   (2008-09-10 15:48) [10]

> brother  (10.09.2008 15:25:01)  [1]

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


 
Sapersky   (2008-09-10 15:58) [11]

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.


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


> Sapersky   (10.09.08 15:58) [11]

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


 
Sapersky   (2008-09-10 16:15) [13]

Возможно. Нумерацией я не интересовался, т.к. использовал этот ImageList для отображения иконок файлов, индексы получал тоже через ShGetFileInfo.



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

Форум: "Начинающим";
Текущий архив: 2008.10.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.011 c
6-1194361857
weteatr
2007-11-06 18:10
2008.10.19
задача про сет помогите!!


15-1220009159
konstantin
2008-08-29 15:25
2008.10.19
Клиент-Сервер-Сервер-База


15-1219859700
dr_creigan
2008-08-27 21:55
2008.10.19
ASP.Net серваки


15-1219832359
Tricky
2008-08-27 14:19
2008.10.19
Починить или купить новое?


2-1221035629
programmer90
2008-09-10 12:33
2008.10.19
Проблемы с кодировкой.





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