8
8qing
Unregistered / Unconfirmed
GUEST, unregistred user!
菜单中的字体怎样设置？
M
mikedeakins
Unregistered / Unconfirmed
GUEST, unregistred user!
owner draw 然后自己制定字体自己画。
A
aerobull
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tmainf.dataNMeasureItem(Sender: TObject; ACanvas: TCanvas;
var Width, Height: Integer);
begin
with ACanvas do
begin
font.Name := '宋体';
Font.Size := 20;
Width := 120;
height := 32;
end;
end;
懂了吗？
var Width, Height: Integer);
begin
with ACanvas do
begin
font.Name := '宋体';
Font.Size := 20;
Width := 120;
height := 32;
end;
end;
懂了吗？
W
Writer
Unregistered / Unconfirmed
GUEST, unregistred user!
笨办法，设置显示属性的外观
F
fu_xiang_yu
Unregistered / Unconfirmed
GUEST, unregistred user!
aerobull的办法没用，好像menuitem的font是固定的
8
8qing
Unregistered / Unconfirmed
GUEST, unregistred user!
to aerobull:
失败
失败
H
htw
Unregistered / Unconfirmed
GUEST, unregistred user!
菜单上的字体由操作系统决定，用cool menu吧
T
tomboy
Unregistered / Unconfirmed
GUEST, unregistred user!
htw:你又比我快一步！！
强烈建议用cool menu，爽得很，你想咱个画就咱个画
强烈建议用cool menu，爽得很，你想咱个画就咱个画
老
老赵
Unregistered / Unconfirmed
GUEST, unregistred user!
screen.menufont
可定制菜单字体属性。
可定制菜单字体属性。
刘
刘李子
Unregistered / Unconfirmed
GUEST, unregistred user!
aerobull 的方法首先要设置菜单为OWNERDRAW风格。
L
liuyang
Unregistered / Unconfirmed
GUEST, unregistred user!
用第三方的控件吧，有很多很cool的菜单。：）
F
fu_xiang_yu
Unregistered / Unconfirmed
GUEST, unregistred user!
不错，我试了试，要设置ownerdraw为true
但如果使用了skinform中的tskinEngine，它连接的mainmenu中
的字体总是MS Sans Serif中的规则8号字，用老赵和李子的方法
好像都不行
有没有办法？
但如果使用了skinform中的tskinEngine，它连接的mainmenu中
的字体总是MS Sans Serif中的规则8号字，用老赵和李子的方法
好像都不行
有没有办法？
教
教父
Unregistered / Unconfirmed
GUEST, unregistred user!
Cool Menu 做起来太复杂了，近于恐怖
8
8qing
Unregistered / Unconfirmed
GUEST, unregistred user!
我想对TMenu加入一个font属性，查看了controls.pas文件，还是一头雾水
不知能否贴上源码？
不知能否贴上源码？
D
doxpix
Unregistered / Unconfirmed
GUEST, unregistred user!
解决！
TMainMenu1.OwnerDraw:=true;
procedure TForm1.FormCreate(Sender: TObject);
begin
screen.MenuFont.name:='@黑体';
end;
TMainMenu1.OwnerDraw:=true;
procedure TForm1.FormCreate(Sender: TObject);
begin
screen.MenuFont.name:='@黑体';
end;
8
8qing
Unregistered / Unconfirmed
GUEST, unregistred user!
看来只能靠自己了，给自已打个气
，不知大家还有什么好的方法？
procedure TForm1.FormCreate(Sender: TObject);
var
ncm: TNonClientMetrics;
PixelsPerInch: Integer;
begin
ncm.cbSize := sizeof(TNonClientMetrics);
SystemParametersInfo(
SPI_GETNONCLIENTMETRICS,
sizeof(NONCLIENTMETRICS),
@ncm,
0
);
PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY);
//设置字体
ncm.lfMenuFont.lfFaceName:='宋体';
//菜单高度
ncm.iMenuHeight:= -MulDiv(8,PixelsPerInch,72)*(-2);
//字体高度
ncm.lfMenuFont.lfHeight := -MulDiv(9, PixelsPerInch, 72);
SystemParametersInfo(
SPI_SETNONCLIENTMETRICS,
sizeof(NONCLIENTMETRICS),
@ncm,
SPIF_UPDATEINIFILE);
end;
，不知大家还有什么好的方法？procedure TForm1.FormCreate(Sender: TObject);
var
ncm: TNonClientMetrics;
PixelsPerInch: Integer;
begin
ncm.cbSize := sizeof(TNonClientMetrics);
SystemParametersInfo(
SPI_GETNONCLIENTMETRICS,
sizeof(NONCLIENTMETRICS),
@ncm,
0
);
PixelsPerInch := GetDeviceCaps(GetDC(0), LOGPIXELSY);
//设置字体
ncm.lfMenuFont.lfFaceName:='宋体';
//菜单高度
ncm.iMenuHeight:= -MulDiv(8,PixelsPerInch,72)*(-2);
//字体高度
ncm.lfMenuFont.lfHeight := -MulDiv(9, PixelsPerInch, 72);
SystemParametersInfo(
SPI_SETNONCLIENTMETRICS,
sizeof(NONCLIENTMETRICS),
@ncm,
SPIF_UPDATEINIFILE);
end;
8
8qing
Unregistered / Unconfirmed
GUEST, unregistred user!
上面的不一定是最好，最好的是建立个Tfont类，可惜其
中许多关节打不通，哎，谁能帮我？
中许多关节打不通，哎，谁能帮我？
刘
刘李子
Unregistered / Unconfirmed
GUEST, unregistred user!
8qing，提供的参考有没有去试一下？
F
fineboy
Unregistered / Unconfirmed
GUEST, unregistred user!
coolmenu 轻松搞定。
不过最好是用高版本的结合低版本的。setsysteminfo()不推荐。菜单效果太单一。
不过最好是用高版本的结合低版本的。setsysteminfo()不推荐。菜单效果太单一。
L
LanFairy
Unregistered / Unconfirmed
GUEST, unregistred user!
关注
