[galekx]

Я увеличила шрифт в mainmenu с помощью компонента TRyMenu (взяла отсюда http://www.delphisources.ru/forum/showthread.php?t=7412 ) ширина и высота пунктов меню нормальная, кроме высоты верхней строки меню. Если нажать мышкой буквы выходят, а мне надо чтобы это верхняя панель сразу при создании формы имела нужную высоту. Подскажите, пожалуйста, кто знает, как можно сделать!?

[galekx]

Чтобы увеличить ширину у верней строки меню в свойствах формы в Menu оставило пустое значение (там было MainMenu1) . Что можно сделать чтобы увеличить высоту?

[Pyro]

наверно никак, я бы всё меню спрятал в одну кнопку

[galek]

что значит в одну кнопку

[NumLock]

-добавить на форму TToolBar, установить ShowCaptions:=True; Flat:=True; AutoSize:=True;
-добавить сколько нужно TPopupMenu
-добавить столько же кнопок TToolButton
-связать свойства DropdownMenu у кнопок с соотв. меню

[galek]

Шрифт не увеличился, что можно сделать?

[NumLock]

Код:

ToolBar1.Font.Size:=72;

[galek]

В выпадающем меню шрифт не увеличился, что можно сделать?

[Pyro]

tryMenu же умеет

[NumLock]

у TPopupMenu OwnerDraw:=True;
у TMenuItem события OnMeasureItem, OnDrawItem

[galek]

Спасибо, сейчас все увеличилось, еще мне надо чтобы свойство checked было видимым в меню (галочки нет), хотя в свойствах checked установлено true, что можно сделать?

[angvelem]

Если обрабатываешь указанные выше методы, то отрисовывать должен сам.

[galek]

Обрабатываю эти события OnMeasureItem, OnDrawItem без TryMenu, но Checked не видно, что можно сделать?

[NumLock]

Сообщение от galek

что можно сделать?

отрисовать их руками.

[galek]

что нужно добавить в код?