MainMenu

Форум для изучающих FPC и их учителей.

Модератор: Модераторы

MainMenu

Сообщение Ivan_OK » 30.09.2020 20:09:25

Как управлять шрифтами и цветом свойств MenuItem?
Ivan_OK
незнакомец
 
Сообщения: 2
Зарегистрирован: 13.11.2019 16:53:50

Re: MainMenu

Сообщение Снег Север » 30.09.2020 22:01:09

В винде они определяются системой. Поскольку меню - интефейс к стандартному системному меню.
Аватара пользователя
Снег Север
долгожитель
 
Сообщения: 2993
Зарегистрирован: 27.11.2007 16:14:47

Re: MainMenu

Сообщение DYUMON » 01.10.2020 08:29:17

как то так думаю, если хочешь заморочится
Код: Выделить всё
procedure TForm1.MenuItem3DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; AState: TOwnerDrawState);
begin
  ACanvas.Font.Name := 'Consolas';
  ACanvas.Font.Size := 14;
  ACanvas.Font.Style := [fsBold];
  ACanvas.Font.Color := clYellow;
  // change background
  ACanvas.Brush.Color := clBlue;
  ACanvas.Rectangle(ARect);
  ACanvas.TextOut(ARect.Left + 2, ARect.Top + 2,'TEST');
end;
Аватара пользователя
DYUMON
постоялец
 
Сообщения: 234
Зарегистрирован: 11.03.2009 13:32:54


Вернуться в Обучение Free Pascal

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 14

Рейтинг@Mail.ru