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

[KHJ]

Zitat von Uwe Raabe:

Ist es in der Tat (Delphi 12.3 latest Patches, Windows 10 22H2).

On start up of the form yes, but not after a change of Screen.MenuFont.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if FontDialog1.Execute then
 begin
   Self.Caption := Fontdialog1.Font.Name;
   Screen.MenuFont.Assign(FontDialog1.Font);
 end;
end;

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