感谢大家,我提这个问题主要是想为什么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;
.
.
.
重新安装包,字体变好看了:),至于其他的难看字体,可要自已在属性中设
置了。