Пишем свой текст в Меню
Пишем свой текст в Меню
Автор: Ido Kanner
Когда играешь во встроенную в Windows игру freecell, то справа в меню постоянно пишется сколько осталось карт. Давайте посмотрим, как это делается.
Перво наперво положим компонент главного меню на форму.
Теперь установим свойство OwnerDraw в true.
Далее создайте, то что Вы хотите вырисовывать в меню и создайте OnDrawItem.
И добавьте в него следующую строку:
...
ACanvas.TextOut(1,ARect.Top+1,'I am in the MainMenuDrawbar');
...
Не забудьте, если Вы используете изменяющуюся переменную, то измените её в другой функции и всё что надо будет сделать - это вызвать API функцию DrawMenuBar.
Resource Limit Is Reached
The website is temporarily unable to service your request as it exceeded resource limit. Please try again later.Если Вы используете Delphi 2,3 пользуйтесь сообщениями WM_MESUREITEM и WM_DRAWITEM, чтобы сделать данный эффект.
Взято с Исходников.ru