TIcon

← →
STD (2009-10-25 07:16) [0]

Здравствуйте, подскажите, как в TImage загрузить TIcon 48x48 32Bit из ресурсов?
Я делаю так:
выставляю размеры Image 48x48, потом
Image1.Picture.Icon.Handle := LoadIcon(HInstance, "name");
грузится 32x32, хотя в ресурсах точно 48x48

← →
TIF © (2009-10-25 07:47) [1]

> грузится 32x32, хотя в ресурсах точно 48x48

Как я понял, в ресурсах содержится иконка с несколькими форматами-размерами внутри? (как минимум 32x32 и 48x48). И LoadIcon грузит 32x32

Тогда см. MSDN:
LoadIcon can only load an icon whose size conforms to the SM_CXICON and SM_CYICON system metric values. Use the LoadImage function to load icons of other sizes.
http://msdn.microsoft.com/en-us/library/ms648072%28VS.85,loband%29.aspx

SM_CXICON и SM_CYICON узнаём через GetSystemMetrics

Про LoadImage тут:
http://msdn.microsoft.com/en-us/library/ms648045%28VS.85,loband%29.aspx

← →
uni (2009-10-25 12:14) [2]

Спасибо, заработало, получилось так:
Image1.Picture.Icon.Handle := LoadImage(HInstance,"name",IMAGE_ICON,48,48,LR_DEFAULTCOLOR);

← →
AIK © (2009-10-25 13:37) [3]

> uni (25.10.09 12:14) [2]
> Спасибо, заработало, получилось так:
> Image1.Picture.Icon.Handle := LoadImage(HInstance,"name",
> IMAGE_ICON,48,48,LR_DEFAULTCOLOR);

Ну если как рисунок то вот тоже вариант

Image1.Picture.Bitmap.LoadFromResourceName(AModule ,"CoolPic");

> Image1.Picture.Bitmap.LoadFromResourceName(AModule ,"CoolPic");

Image1.Picture.Bitmap.LoadFromResourceName(AModule ,"name");

TIcon Найти похожие ветки