Firemonkey 調整 MainMenu 字型大小 (D10)，firemonkeymainmenu

Firemonkey 調整 MainMenu 字型大小 (D10)，firemonkeymainmenu

修改 Windows 下的 Style，找到下面二個 Style ，修改其中的 text 內的 font 大小：

將 FMX.Menus.pas 復制到自己的工程目錄內，再修改如下內容：

constructor TMenuBar.Create(AOwner: TComponent);
begin
  //.... 略 .....
  Height := 24; // 24 為主選單高度，自行修改
  //.... 略 .....
end;

function TMenuItem.CalcRenderSize: TPointF;
begin
  //.... 略 .....
  Result := CalcVisibleObjectsItemSize(C, PointF(0, 23)); // 23 為子選單高度，自行修改
  //.... 略 .....
end;

效果：