使用FastReport报表时,如何根据字体实现控件分行?
来源: 发布时间:2016-08-08 浏览:1917次
使用FastReport报表时,根据字体实现控件分行,代码如下:
function HeightOfByte(var Font:TFont):Extended;
var con:Extended; num:Integer; begin if Font.Size >=3 then begin num:=(Font.Size-1) div 10; Result:=6.0743+1.32284*(Font.Size-3)+num*0.0945; end else begin if Font.Size=2 then begin Result:=5.7969; end else begin Result:=3.3071; end; end; end;function WidthOfByte(var Font:TFont):Extended;var con:Extended; num:Integer; begin num:=0; if Font.Size >=2 then num:=(Font.Size-2) div 6 + 1; Result:=0.0378+0.65252*Font.Size+num*0.1512; if Font.Style <<fsBold> then Result:=Result+0.0756; end;function GetLength(var Font:TFont;Width:Extended):Integer;var BW:Extended; begin BW:=WidthOfByte(Font); Result:=0; while Result*BW <Width do begin Result:=Result+1; end; end;procedure DisposeString(var pString:String;pLen:Integer;WS:TWideStrings);var Data,CurData:String; varXX:Variant; Len,Len_Y:Integer; BW:Extended; begin WS.Clear(); Data:=pString; varXX.bstrVal:=Data; Len:=Length(varXX); while pLen <Len do begin Len_Y:=1; while Len_Y <pLen do begin if Ord(Data[Len_Y]) >127 then Len_Y:=Len_Y+1; Len_Y:=Len_Y+1; end; CurData:=Copy(Data,1,Len_Y); WS.Add(CurData); Data:=Copy(Data,Len_Y+1,Len-Len_Y); Len:=Len-Len_Y; end; WS.Add(Data); end; 本站文章除注明转载外,均为本站原创或翻译 欢迎任何形式的转载,但请务必注明出处,尊重他人劳动成果 转载请注明:文章转载自:FastReport控件中文网 [ ] 本文地址: