FastReport使用交流,FastReport中国社区FastReport联系电话 联系电话:023-66090381

使用FastReport报表时,如何根据字体实现控件分行?

来源:   发布时间:2016-08-08   浏览:927次

使用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控件中文网 [http://www.fastreportcn.com/]
本文地址:http://www.fastreportcn.com/post/1176.html

联系我们
  • 重庆总部 023-66090381 400-700-1020
  • 北京公司 010-56705895
购买
  • sales@evget.com
合作
  • business@evget.com