Firemonkey 调整 MainMenu 字型大小 (D10)

修改 Windows 下的 Style,找到下面二个 Style ,修改其中的 text 内的 font 大小:

Firemonkey 调整 MainMenu 字型大小 (D10)_第1张图片

 

Firemonkey 调整 MainMenu 字型大小 (D10)_第2张图片

将 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;

效果:

Firemonkey 调整 MainMenu 字型大小 (D10)_第3张图片

你可能感兴趣的:(Firemonkey 调整 MainMenu 字型大小 (D10))