TMainMenu: Änderung der Schriftgröße ändert nicht den Abstand der Einträge

[DaCoda]

So wie von Uwe schon angedeutet. Etwa so:

Code:

procedure TForm1.MainMenu1MeasureItem(Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer);
begin
  // Weite und Höhe vom MenuItem
  Width := ACanvas.TextWidth('Custom Menu Item Text') + 20; // 20px Padding
  Height := ACanvas.TextHeight('Custom Menu Item Text') + 10; // 10px Padding
end;