在Delphi程序设计中,菜单的字体和横向菜单项间的间距能否调整?

zcn 2000-08-21 01:59:00
在Delphi程序设计中,菜单的字体和横向菜单项间的间距能否调整?
...全文
160 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
kxy 2000-08-23
  • 打赏
  • 举报
回复
{ Returns menu font size }
function GetMenuFontSize: Integer;
var
ncm: TNonClientMetrics;
PixelsPerInch: integer;
begin
ncm.cbSize := sizeof(TNonClientMetrics);
SystemParametersInfo(
SPI_GETNONCLIENTMETRICS,
sizeof(NONCLIENTMETRICS),
@ncm,
SPIF_UPDATEINIFILE
);
PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY);
Result := -MulDiv(ncm.lfMenuFont.lfHeight, 72, PixelsPerInch);
end;

{ Set menu font size }
procedure SetMenuFontSize(FontSize: Integer);
var
ncm: TNonClientMetrics;
PixelsPerInch: Integer;
begin
ncm.cbSize := sizeof(TNonClientMetrics);
SystemParametersInfo(
SPI_GETNONCLIENTMETRICS,
sizeof(NONCLIENTMETRICS),
@ncm,
0
);

PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY);
ncm.lfMenuFont.lfHeight := -MulDiv(FontSize, PixelsPerInch, 72);

SystemParametersInfo(
SPI_SETNONCLIENTMETRICS,
sizeof(NONCLIENTMETRICS),
@ncm,
SPIF_UPDATEINIFILE
);
end;
yinfudan 2000-08-23
  • 打赏
  • 举报
回复
除非自画菜单,否则不行,只能利用系统菜单。
(不过,我有办法改变主菜单的字体,不是子菜单的字体)
感兴趣的话,请给分,我给源代码
wxz 2000-08-21
  • 打赏
  • 举报
回复
自画菜单就可以了
gjq2000 2000-08-21
  • 打赏
  • 举报
回复
据本人所知,菜单用的是Micsoft的标准字体.....
好像不能更改. 除非叫Borlandc/Inspise来改.
govy 2000-08-21
  • 打赏
  • 举报
回复
好象不行,除非你重写Delphi的菜单源码。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧