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

Вниз

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");

---

← →
AIK ©   (2009-10-25 13:39) [4]

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


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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.018 c