鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 编程语言开发 > delphi > >

Firemonkey 调整 MainMenu 字型大小 (D10)

来源:互联网 作者:佚名 时间:2017-09-20 09:56
修改 Windows 下的 Style,找到下面二个 Style ,修改其中的 text 内的 font 大小: 将 FMX.Menus.pas 复制到自己的工程目录内,再修改如下内容: constructor TMenuBar. Create (AOwner: TComponent); begin // .... 略 ..... Height := 24 ; // 24 为主选

修改 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;

效果:

网友评论
<