1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

var dummy_x:Integer;

begin
  for dummy_x := 0 to Application.MainForm.ComponentCount - 1 do
  begin
    if Application.MainForm.Components[dummy_x] is TMenuItem then
    begin
// Nur für MainMenü und Submenüs dessen
      if (Application.MainForm.Components[dummy_x] as TMenuItem).GetParentMenu is TMainMenu then
      begin
        (((Application.MainForm.Components[dummy_x] as TMenuItem).GetParentMenu) as TMainMenu).AutoHotkeys := maManual;
        ((Application.MainForm.Components[dummy_x] as TMenuItem).GetParentMenu as TMainMenu).AutoLineReduction := maManual;
        ((Application.MainForm.Components[dummy_x] as TMenuItem).GetParentMenu as TMainMenu).OwnerDraw := True;
        (Application.MainForm.Components[dummy_x] as TMenuItem).OnDrawItem := MenuItem_MainMenu_DrawItem;
        (Application.MainForm.Components[dummy_x] as TMenuItem).OnMeasureItem := MenuItem_MainMenu_MeasureItem;
      end;
    end;
  end;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TForm1.MenuItem_MainMenu_DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
var
  X, Y: Integer;
  dummy_string: string;
begin

  { Caption des Menüeintrages kurz in eine Variable }
  dummy_string := TMenuItem(Sender).Caption;
  { Schriftgröße noch für die Zeichnung festlegen }
  ACanvas.Font.Size := 28;
  { Breite und Textbreite des Menüeintrages verarbeiten }
  X := ARect.Right div 2 - ACanvas.TextWidth(dummy_string) div 2;
  { Linke obere Ecke, Höhe des Menüeintrages und Texthöhe verarbeiten }
  Y := ((ARect.Bottom - ARect.Top) div 2) - (ACanvas.TextHeight(dummy_string) div 2) + ARect.Top;
  { Menüeintrag zeichnen }
  ACanvas.TextOut(X, Y, dummy_string);

end;

procedure TForm1.MenuItem_MainMenu_MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
begin

  { Folgende Zeilen sind nur für die Vorberechnung wichtig, erzeigen die Höhe und Breite der Menüeinträge }
  ACanvas.Font.Size := 28;
  Width := ACanvas.TextWidth(TMenuItem(Sender).Caption);
  Height := ACanvas.TextHeight(TMenuItem(Sender).Caption);

end;