Pirs |
Отправлено: 16.04.2004, 21:59 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 39
|
Делаю свой OpenSave File Dialog и надо прорисовывать вручную иконки всех подряд папок и файлов.
Как их достать, и самое главное — перевести в Bitmap?
|
|
olegenty |
Отправлено: 17.04.2004, 08:09 |
|
Ветеран
Группа: Модератор
Сообщений: 2412
|
найди Polaris Library, пройдя по ссылкам RxLib данного сайта, и установи. там есть функции:
function FindResourceInModules(var Module: THandle; const ResName, ResType: PChar): HRSRC — Ищет ресурс ResName типа ResType в массиве RHandles (в первую очередь в Module).
procedure CorrectResName(var ResName: string) — Исправляет имя ресурса.
function RLoadPicture(RHandle: THandle; ResName: string; ResKind: TBitmapResKind): THANDLE — Загрузка картинки из ресурса ResName типа ResKind из модуля RHandle.
procedure LoadBitmapFromResource(Bitmap: TBitmap; RHandle: THandle; ResName: string; ResKind: TBitmapResKind) — Загружает картинку из ресурса ResName типа ResKind из модуля RHandle с преобразованием в битмап Bitmap.
function LoadToImage(Handle: THandle; ResName: PChar; ResKind: TBitmapResKind; Image: TImageList): Boolean — Загрузка Bitmap'а в Image из ресурса ResName типа ResKind из модуля Handle.
|
|
Admin |
Отправлено: 17.04.2004, 16:53 |
|
Владимир
Группа: Администратор
Сообщений: 1190
|
Извлечь иконки:
ExtractIcon() и ExtractAssociatedIcon()
недавно писал программку
и прорисовывал их. (в Unit1.cpp)
|
|