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

Previous  Top  Next

    
 

 

Автор: Ido Kanner

 

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

 

Перво наперво положим компонент главного меню на форму.

Теперь установим свойство OwnerDraw в true.

 

Далее создайте, то что Вы хотите вырисовывать в меню и создайте OnDrawItem.

И добавьте в него следующую строку:

Code:

...

ACanvas.TextOut(1,ARect.Top+1,'I am in the MainMenuDrawbar');

...

 

 

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

 

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

 

©Drkb::01297

Взято из http://forum.sources.ru