Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Bitmap to SystemMenu 
:(
    Опции темы
NieL
Дата 5.1.2009, 12:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 1
Добавляю новый пункт в системное меню приложения. Вот собственно код:

Код

var
  hSysMenu: HMENU;
  B: TBitmap;
  miInfo: TMenuItemInfo;
begin
  hSysMenu := GetSystemMenu(Handle, False);
  InsertMenu(hSysMenu,
    5, MF_BYPOSITION, SC_HELP, 'Справка');
  B := TBitmap.Create;
  B.LoadFromFile('D:\1.bmp');
  FillChar(miInfo, SizeOf(TMenuItemInfo), #0);
  miInfo.cbSize := SizeOf(TMenuItemInfo);
  miInfo.fMask := MIIM_BITMAP;
  miInfo.hbmpItem := B.Handle;
  SetMenuItemInfo(hSysMenu, SC_HELP, False, miInfo);


Проблема возникает при выборе добавленного пункта (инвертируюся цвета, фон становиться черного цвета, Transparent = True не помогает). Прбовал добавлять иконку к моему пункту меню иначе, через SetMenuItemBitmaps, но тут тоже что-то не то, иконка масштабируется со сдвигом вправо, и таким образом не вмещается в пункт меню, Как избавиться от данной проблемы? 

Код

var
  hSysMenu: HMENU;
  B: TBitmap;
  miInfo: TMenuItemInfo;
begin
  hSysMenu := GetSystemMenu(Handle, False);
  InsertMenu(hSysMenu,
    5, MF_BYPOSITION, SC_HELP, 'Справка');
  B := TBitmap.Create;
  B.LoadFromFile('D:\1.bmp');
  SetMenuItemBitmaps(hSysMenu,  5, MF_BYPOSITION, B.Handle, B.Handle);
PM MAIL   Вверх
Rrader
  Дата 5.1.2009, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
Цитата(NieL @  5.1.2009,  18:06 Найти цитируемый пост)
иконка масштабируется со сдвигом вправо, и таким образом не вмещается в пункт меню

Иконка должна иметь размеры :
Ширина - GetSystemMetrics(SM_CXMENUCHECK)
Высота - GetSystemMetrics(SM_CYMENUCHECK)

Это сообщение отредактировал(а) Rrader - 5.1.2009, 12:28


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
NieL
Дата 5.1.2009, 12:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 1
Цитата(Rrader @  5.1.2009,  12:28 Найти цитируемый пост)
Иконка должна иметь размеры :

А можно ли установить размеры для пункта меню? , и почему-то когда иконка добавляется через первый вариант она размещается в пункте меню корректно?
PM MAIL   Вверх
Rrader
  Дата 5.1.2009, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
Цитата(NieL @  5.1.2009,  18:36 Найти цитируемый пост)
и почему-то когда иконка добавляется через первый вариант она размещается в пункте меню корректно?

Потому что функции работают по-разному. Предпочтительнее SetMenuItemBitmaps. Насчет инвертирования - при любом раскладе будет так, если не брать это дело под контроль smile 

Это сообщение отредактировал(а) Rrader - 5.1.2009, 13:14


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
NieL
  Дата 5.1.2009, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 1
Всего: 1
Цитата(Rrader @  5.1.2009,  13:13 Найти цитируемый пост)
 Предпочтительнее SetMenuItemBitmaps.

Ну а можно ли все-таки оставить текущие размеры иконки (16x16) и разместить ее в пункте меню.
PM MAIL   Вверх
Rrader
  Дата 5.1.2009, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
Тогда SetMenuItemInfo, что непонятного? smile 


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0462 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.