Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.06.12;
Скачать: CL | DM;

Вниз

Размер иконки   Найти похожие ветки 

 
webpauk ©   (2009-10-30 16:45) [0]

function GetIcon(const FileName: string): TIcon;
const
 IconType: TIconType = itLarge;
var
 FileInfo: TShFileInfo;
 ImageList: TImageList;
 IT: DWORD;
begin
 IT := SHGFI_LARGEICON;
 Result := TIcon.Create;
 ImageList := TImageList.Create(nil);
 FillChar(FileInfo, Sizeof(FileInfo), #0);
 ImageList.ShareImages := true;
 ImageList.Handle := SHGetFileInfo(PChar(FileName), IT, FileInfo, sizeof(FileInfo), IT or SHGFI_SYSICONINDEX);
 ImageList.GetIcon(FileInfo.iIcon, Result);
 ImageList.Free;
end;


загружаю иконку из файла.
РЕАЛЬНЫЙ размер иконки 48Х48. А свойства Icon.Width, Icon.Height - всегда 32х32.
как правильно получить размер иконки?


 
Sapersky   (2009-10-30 20:14) [1]

Думаю, она подгоняется под системный размер "большой" иконки.
ИМХО, единственный надёжный способ получить иконку "как есть" - брутальное расковыривание ресурсов файла.


 
TIF ©   (2009-10-31 03:54) [2]

Про ограниченные системные размеры иконки на днях обсуждение было:
http://delphimaster.net/view/2-1256444215/



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

Текущий архив: 2011.06.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.008 c
2-1299066825
oleg_teacher
2011-03-02 14:53
2011.06.12
ввод в ячейки стринггрида вещественных чисел


15-1298033535
oxffff
2011-02-18 15:52
2011.06.12
Языки и циклические зависимости между блоками компиляции(units)


2-1298879860
petvv
2011-02-28 10:57
2011.06.12
Установить Primary Key = 0


1-1256725844
JekaDefer
2009-10-28 13:30
2011.06.12
Как вывести TImage поверх DXDraw.


15-1298575574
Leon-Z
2011-02-24 22:26
2011.06.12
Экземпляр объекта.