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

Вниз

Как получить размеры иконки?   Найти похожие ветки 

 
Jel ©   (2004-05-26 12:42) [0]

Загружаю иконку вызовом
LoadImage(Handle, ResName, IMAGE_ICON, 0, 0, LR_DEFAULTCOLOR);
Рисую ее DrawIconEx (для сохранения оригинальных размеров).

Вопрос - а размеры-то как узнать? (иконка нестандартная и GetSystemMetric не помогает)


 
MBo ©   (2004-05-26 14:19) [1]

проще всего, IMHO, присвоить хэндл иконки TIcon и посмотреть ее свойства.
Альтернатива - GetIconInfo и размеры битмапчиков.


 
Jel ©   (2004-05-26 15:33) [2]


> присвоить хэндл иконки TIcon и посмотреть ее свойства

Пробовал. Всегда 32х32 :(

> Альтернатива - GetIconInfo и размеры битмапчиков.

Видимо так и придется извращаться.


 
Jel ©   (2004-05-26 15:53) [3]

Дальше - хуже. Пишу

 
if GetIconInfo(IconArray[index], IcInfo) then begin
   if GetBitmapDimensionEx(IcInfo.hbmMask, sz) then
     shift := (ICONWIDTH - sz.cx) div 2
   else ShowMessage(SysErrorMessage(GetLastError));
end
else shift := 0;


GetBitmapDimentionEx возвращает нулевые размеры.
Хелп лукаво сообщает -
The function returns a data structure that contains fields for the height and width of the bitmap. If those dimensions have not yet been set, the structure that is returned will have zeroes in those fields.
И добавляет для ясности -
The retrieved dimensions must have been set by the SetBitmapDimensionEx function.

Вроде все ясно - не установил сам, не получишь. Я не установил.

Вопрос - как получить размеры Bitmap?


 
MBo ©   (2004-05-26 15:56) [4]

А GetObject для битмапа не поможет?


 
Jel ©   (2004-05-26 16:44) [5]


> MBo ©   (26.05.04 15:56) [4]

Спасибо. То что нужно.



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

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

Наверх




Память: 0.48 MB
Время: 0.025 c
1-1087430308
Артем К.
2004-06-17 03:58
2004.07.04
Рисование без мерцания?


1-1087337132
AleKo
2004-06-16 02:05
2004.07.04
Отработать поьерю фокуса DBGridEh


14-1087278430
syte_ser78
2004-06-15 09:47
2004.07.04
Добрые люди, могущие позволить себе пару сотен кил лишнего трафик


6-1084215582
AndersoNRules
2004-05-10 22:59
2004.07.04
TIdTCPClient vs TSocketClient


3-1086764520
LittleGirly
2004-06-09 11:02
2004.07.04
Как обуздать большой dbf файл