菜单中的字体怎样设置?(200分)

  • 主题发起人 主题发起人 8qing
  • 开始时间 开始时间
有没有试过大家的建议?
 
Delphi5里Screen新增MenuFont,HintFont属性。
为什么不试试呢?
 
感谢大家,我提这个问题主要是想为什么FastReport 2.41(中文资源文件)
中在DesignReport中的字体这么难看,现仔细研究了它的FR_Desgn.pas文件,
它是利用消息重画Menuitem,受益非浅,要改变它设计时的字体很简单:
找FR_Desgn.pas中的
.
.
.
WM_DRAWITEM:
with PDrawItemStruct(Message.LParam)^ do
begin
if (CtlType = ODT_MENU) and (Message.WParam = 0) then
begin
MenuItem := FindItem(ItemId);
if MenuItem <> nil then
begin
CCanvas := TControlCanvas.Create;
with CCanvas do
begin

//加入下面二句
ccanvas.Font.Name:='宋体';
ccanvas.Font.Size:=9;

Handle := hDC;
DrawItem(MenuItem, CCanvas, rcItem, ItemState and ODS_SELECTED <> 0);
Free;
end;
Exit;
end;
end;
end;
.
.
.
重新安装包,字体变好看了:),至于其他的难看字体,可要自已在属性中设
置了。
 
http://wowoso.51.net/fr241.rar 就是改的字体
就说是字体修正版吧,改正了FastReport2.41中的
所有字体,节省大家的时间!
 
多人接受答案了。
 
后退
顶部