Пишем свой текст в Меню.

Автор: Ido Kanner

Когда играешь во встроенную в Windows игру freecell, то справа в меню постоянно пишется сколько осталось карт. Давайте посмотрим, как это делается.

Совместимость: Delphi 4.x (или выше)

Перво наперво положим компонент главного меню на форму.
Теперь установим свойство OwnerDraw в true.

Далее создайте, то что Вы хотите вырисовывать в меню и создайте OnDrawItem.
И добавьте в него следующую строку:

…
ACanvas.TextOut(1,ARect.Top+1,’I»m in the MainMenuDrawbar’);
…

Не забудьте, если Вы используете изменяющуюся переменную, то измените её в другой функции и вс что надо будет сделать — это вызвать API функцию DrawMenuBar.

Если Вы используете Delphi 2,3 пользуйтесь сообщениями WM_MESUREITEM и WM_DRAWITEM, чтобы сделать данный эффект.