Firemonkey 调整 MainMenu 字型大小 (D10)

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

效果:

posted @ 2016-02-01 20:29  龟山Aone  阅读(768)  评论(0编辑  收藏  举报