вот это я нашла...
"Надо у меню назначить OwnerDraw := true и для всех итемов этого меню назначить обработчики событий OnDrawItem/OnAdvancedDrawItem/OnMeasureItem и в них канве назначать нужный шрифт.
Однако, можно поступить еще проще — изменить у объекта Screen свойство MenuFont.
Третий вариант — написать своего потомка TMenuItem со свойством Font с перекрытым методом AdvancedDrawItem, либо у существующих итемов подменять каким-либо образом этот метод своим."
что такое объект Screen???
|