powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Отрисовка MainMenu за пределами MenuItem
3 сообщений из 3, страница 1 из 1
Отрисовка MainMenu за пределами MenuItem
    #39723932
OxY63rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем привет! Есть проблема: перерисовываю MainMenu у форму. Всё нормально, но остаются полоски контрола (рамка). Их я закрашиваю в коде OnDrawItem. Но закрашивание именно этой рамки контрола происходит только если провести мышкой по какому-нибудь MenuItem. Свойство Selected точно не при чём.

Пытался создать канву и привязать её через Handle к MainMenu и рисовать на ней. В итоге "Canvas not allow drawing". Если не ту канву беру, то как узнать инфу об ACanvas, который прилетает в OnDrawItem?
Сейчас хочу при каждом Applicaton.OnMessage посылать сообщение форме о позиции курсора мыши на одном из пунктов меню (чтобы отрисовка срабатывала).

Если я в чём-то ошибаюсь или можете помочь советом напишите, пожалуйста. Если ход мыслей приемлем, то какой SendMessage сделать?
...
Рейтинг: 0 / 0
Отрисовка MainMenu за пределами MenuItem
    #39724231
Cobalt747
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
OxY63rus,

покажи-ка свой код
...
Рейтинг: 0 / 0
Отрисовка MainMenu за пределами MenuItem
    #39724464
OxY63rus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Cobalt747, простите за беспокойство, не было времени вылавливать это проблему. Отказался от MainMenu. Оформил всё панелями. Код уже не приведу.
Смысл в том, что я также как и MainMenu перерисовывал StatusBar. И там по рамке нормально всё рисовалось.
Код: pascal
1.
2.
StatusBarCanvas:=TCanvas.Create;
StatusBarCanvas.Handle:=GetDC(StatusBar1.Handle);


С MainMenu так не прокатило
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Отрисовка MainMenu за пределами MenuItem
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]