fastreport 自动缩小字体以填充

关注

原创最新推荐文章于 2023-06-08 10:59:15 发布 5.6k 阅读 AI 写同款· GEO 优化 ›

DevExpress、FastReport 报表导出PDF, 字体不加粗 C# devExpress、fastReport报表导出PDF设置仿宋加粗字体阅读详情

1.
procedure Memo8OnBeforePrint(Sender: TfrxComponent);
begin
while ((TfrxMemoView(Sender).CalcHeight-TfrxMemoView(Sender).LineSpacing)-TfrxMemoView(Sender).Height>0) do
begin
    TfrxMemoView(Sender).Font.Size := TfrxMemoView(Sender).Font.Size-5;
end;
end;

2.
begin
     per:=1.4;
     xy:=[adoquery1."xy"];
     len:=length(xy);
     width:=memo1.width;
     fs:= Round(width / len * per) ;
     memo1.font.size:=fs;
     memo1.memo :=xy;
     memo2.memo:= str(width);
end

增加字体调整模式
TfrxScaleFontSize = (sfsWidth, sfsHeight, sfsNone);
增加TfrxMemoView属性
property ScaleFontSize;
增加TfrxCustomMemoView属性
property ScaleFontSize: TfrxScaleFontSize read FScaleFontSize write FScaleFontSize default sfsNone;

procedure TfrxCustomMemoView.BeforePrint;
begin
inherited;
if not IsDataField then
    FTempMemo := FMemo.Text;

case FScaleFontSize of
    sfsNone: ;

    sfsWidth:
      if not WordWrap and not AutoWidth then //按宽度调整时--自动换行时不可用 ; 自动宽度时不可用
        while (CalcWidth - Width > 0) do
          Font.Size := Font.Size - 1;

    sfsHeight:
      if (StretchMode = smDontStretch) then //伸展时不能按高度调整
        while ((CalcHeight - LineSpacing) - Height > 0) do
          Font.Size := Font.Size - 1;
end;
end;

收录于