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

Вниз

TMainMenu + ownerdraw   Найти похожие ветки 

 
esVer   (2002-11-25 11:05) [0]

Имеется главное меню на форме со стилем ownerdraw. При смене шрифта, которым прорисовывается меню, необходимо сказать меню о необходимости пересчитать размер элементов основной строки меню и перерисовать её. Не подскажете, какие сообщения надо послать меню, чтобы добиться желаемого результата?


 
Игорь Шевченко   (2002-11-25 16:05) [1]

DrawMenuBar ?

А также обрабатывать событие OnMeasureItem, где и устанавливать размеры элементов меню.


 
esVer   (2002-11-26 10:38) [2]

Для основной строки DrawMenuBar не работает однозначно.
OnMeasureItem тоже. Проблема возникает только при необходимости отрисовки основной строки, выпадающие меню рисуются нормально.
Заставить пересчитать размер можно изменив Caption одного из TMenuItem в основной строке. Заставить перерисоваться меню можно изменив размер формы. Мне хочется знать как это сделать по человечески (через API), а не через одно место... :(


 
Игорь Шевченко   (2002-11-26 11:30) [3]

The application must call the DrawMenuBar function whenever a menu changes, whether or not the menu is in a displayed window.

Ку ?


 
esVer   (2002-11-26 14:20) [4]

Угу, спасибо. Вторая часть вопроса (про перерисовку) отпадает. Это после борьбы с MeasureItem я на DrawMenuBar забил и забыл.
Осталось только научиться заставлять пересчитывать размер TMenuItem :)



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

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

Наверх




Память: 0.44 MB
Время: 0.01 c
4-37435
exchoper
2002-11-22 14:16
2003.01.13
пароль текущего пользователя


4-37464
Алёшка1900
2002-11-25 22:02
2003.01.13
Работа с заголовком формы


1-37163
down
2002-12-29 15:10
2003.01.13
Реинициализация компонентов


3-36956
DiLLeR
2002-12-17 14:38
2003.01.13
Delphi6 + QReport проблема, может кто сталкивался ...


6-37262
4x4
2002-11-12 10:48
2003.01.13
TServerSocket.SendText???





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский