Пишем свой текст в Меню
Материал из DRKB
Пишем свой текст в Меню[править | править код]
Когда играешь во встроенную в Windows игру freecell, то справа в меню постоянно пишется сколько осталось карт. Давайте посмотрим, как это делается.
Перво наперво положим компонент главного меню на форму. Теперь установим свойство OwnerDraw в true.
Далее создайте, то что Вы хотите вырисовывать в меню и создайте OnDrawItem. И добавьте в него следующую строку:
ACanvas.TextOut(1, ARect.Top+1, 'I am in the MainMenuDrawbar');
Не забудьте, если Вы используете изменяющуюся переменную, то измените её в другой функции и всё что надо будет сделать - это вызвать API функцию DrawMenuBar.
Если Вы используете Delphi 2,3 пользуйтесь сообщениями WM_MESUREITEM и WM_DRAWITEM, чтобы сделать данный эффект.
Source: Взято из http://forum.sources.ru
ID: 01297