联系电话：023-68661681
利用TfrxMemoView.OnAfterData中的TfrxMemoView.CalcWidth函数：
procedure Memo1OnAfterData(Sender: TfrxComponent);
begin
Memo1.Font.Size:=10;
if Memo1.CalcWidth>Memo1.Width-Memo1.GapX*2 then
Memo1.Font.Size:=Trunc(Memo1.Font.Size*((Memo1.Width-Memo1.GapX*2)/Memo1.CalcWidth));
end;
本站文章除注明转载外，均为本站原创或翻译
欢迎任何形式的转载，但请务必注明出处，尊重他人劳动成果
转载请注明：文章转载自：FastReport控件中文网 [https://www.fastreportcn.com/]
本文地址：https://www.fastreportcn.com/post/1038.html
欢迎任何形式的转载，但请务必注明出处，尊重他人劳动成果
转载请注明：文章转载自：FastReport控件中文网 [https://www.fastreportcn.com/]
本文地址：https://www.fastreportcn.com/post/1038.html
返回