修改fastreport实现页尾补空白行或打印固定行数

刚刚实现成功，“页尾剩余补空白行”和“打印固定行数”两种模式

代码：

frxClass加：

  //在DataBand末尾加空白行

//abcNone不启用，abcByRecordCount按记录数加，abcByFreeSpace按页面剩余空间加
  TfrxAppendBlankCells = (abcNone, abcByRecordCount, abcByFreeSpace);

TfrxDataBand位置加：

published

    //在DataBand末尾加空白行 --2014-12-1--
    property AppendBlankCells: TfrxAppendBlankCells read FAppendBlankCells write FAppendBlankCells default abcNone;
  public
    BlankCells: Boolean;//此属性为true，块内文本框的不显示文字

改函数

procedure TfrxCustomMemoView.GetData;

.....

if IsDataField then
  begin
    //Band在BlankCells模式下不打印文字，这样就可能通过Band的RowCount指定固定的打印行数 --Conch 2014-12-1--
    if (Parent is TfrxDataBand) and (TfrxDataBand(Parent).BlankCells) then
      FMemo.Text := ''
    else


    if DataSet.IsBlobField(DataField) then
    begin

.....

frxEngine加：

procedure ShowBandTree(Obj: TObject);函数加：

  Label Loop_AppendBlank;

    for i := 0 to Bands.Count - 1 do
    begin
      ..........
      ResetSuppressValues(b);


      //在Band末尾追加空行，这样就可能通过Band的RowCount指定固定的打印行数 --2014-12-1--
      b.BlankCells := false;
Loop_AppendBlank:
      while not b.DataSet.Eof do

      end;

      //在DataBand末尾追加空行，这样就可能通过Band的RowCount指定固定的打印行数 --2014-12-1--

      if (b.AppendBlankCells <> abcNone) and (not b.BlankCells)
        and ( ((b.AppendBlankCells = abcByRecordCount) and (b.DataSet <> nil) and (b.RowCount > 0) and (b.FLineThrough <= b.RowCount))
          or ((b.AppendBlankCells = abcByFreeSpace) and (b.Height <= FreeSpace))
        )
      then begin
        b.Stretched := false;//禁止扩大高度
        b.BlankCells := true;
        if b.AppendBlankCells = abcByRecordCount then begin
          //挂接成虚拟数据集
          b.DataSet := b.VirtualDataSet;
          b.VirtualDataSet.RangeEndCount := b.RowCount - b.FLineThrough + 1;
          b.DataSet.Initialize;
          goto Loop_AppendBlank;
        end
        else if b.AppendBlankCells = abcByFreeSpace then
          //循环产生内容，直接剩余空间放不下
          while b.Height <= FreeSpace do begin
            CurLine := b.FLineN;
            CurLineThrough := b.FLineThrough;
            DoShow(b);
            Inc(b.FLineN);
            Inc(b.FLineThrough);
          end;
      end;

完工。

----作者：狂歌，Q63823961（无事勿扰，通常不作答），转载请注明出版--------