freepascal.ru

Как управлять шрифтами и цветом свойств MenuItem?

В винде они определяются системой. Поскольку меню - интефейс к стандартному системному меню.

как то так думаю, если хочешь заморочится

Код: Выделить всё

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;