VPF::Иконка из ресурса неверно рисуется

Angel_19

Дата 18.7.2009, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 5.4.2005

Репутация: нет
Всего: нет

Через ресурс добавляю иконку 32 бита 16х16 пикселей.
Загружаю ее:

Код


FIcon := TIcon.Create;
FIcon.Handle := Loadicon(hInstance,'SIZEGRAFIK');

Далее рисую ее в методе Paint так:

Код


DrawIcon(FTempCanvas2.Canvas.Handle , Width - 32, Height - 32, fIcon.Handle);

Она хоть и имеет размер 16х16, почему-то рисуется как 32х32 (т.е. растянутой).
Пробовал:

Код


FIcon := TIcon.Create;
FIcon.SetSize(16, 16); 
FIcon.Handle := Loadicon(hInstance,'SIZEGRAFIK');

Никакого эфекта.
Что делаю не так?

Keeper89

Дата 18.7.2009, 20:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58

Скорее всего используемая иконка содержит в себе несколько вариантов, например 16х16 и 32х32. Если нужно только одно разрешение проще удалить с помощью редактора иконок все ненужные, оставив только 16х16 и брать иконку по имени обыкновенно функцией LoadIcon.
Если все же оставить несколько разрешений в иконке необходимо, можно воспользоваться сл. способом:

Код


FIcon := TIcon.Create;
FIcon.Handle := LoadImage(HInstance, 'SIZEGRAFIK', IMAGE_ICON, 16, 16, 0);

Это сообщение отредактировал(а) Keeper89 - 18.7.2009, 20:39

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Angel_19

Дата 19.7.2009, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 5.4.2005

Репутация: нет
Всего: нет

Иконка как раз одна.
Решил проблему с использованием TImageList.

Ваш метод опробую. Спасибо, что откликнулись.

Angel_19

Дата 19.7.2009, 16:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 5.4.2005

Репутация: нет
Всего: нет

Цитата(Angel_19 @ 19.7.2009, 16:54

)

Ваш метод опробую.

Работает!

Keeper89

Дата 19.7.2009, 19:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58

Пожалуйста.
Иконка всегда как файл одна, просто может содержать в себе несколько вариантов для разных разрешений.

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »