Bug with TfrxCrossView?

Sergio

Hi.

I'm working with ADO, and in the PrintTable example i substitute the Table1 by ADO Table. I have a table with 100 rows. Each row fits in a page and the report has 3 pages, but if i add a TFrxPageHeader then the report add a white page and the 3th page has a line at then bottom.

Sorry for my English
Thank

AlexTZ

Fix the frxEngine.pas file:

procedure TfrxEngine.AddPage;
var
  i: Integer;
  SaveCurX: Extended;
  Band: TfrxBand;
begin
  PreviewPages.AddPage(FPage);
  CurY := 0;
  ShowBand(FindBand(TfrxOverlay));
  CurY := 0;
  SaveCurX := CurX;
  HeaderHeight := 0;

  for i := 0 to FHeaderList.Count - 1 do
  begin
   { use own CurX - we may be inside subreports now }
    CurX := FHeaderList[i].Left;
    Band := FHeaderList[i].Band;

    if FIsFirstPage and (Band is TfrxPageHeader) and
      not TfrxPageHeader(Band).PrintOnFirstPage then
      continue;

    if Band <> nil then
      if not FKeeping or not FHeaderList[i].IsInKeepList then
      begin
        Band.Overflow := True;
        CurLine := Band.FLineN;
        CurLineThrough := Band.FLineThrough;
        FCallFromAddPage := True;
        { fix the stack overflow error if call NewPage from ReportTitle }
        if Band is TfrxReportTitle then
          FHeaderList[i].Band := nil;
        if Band is TfrxPageHeader then
          HeaderHeight := Band.Height;

        ShowBand(Band);
        FCallFromAddPage := False;
        Band.Overflow := False;
      end;
  end;

  CurX := SaveCurX;
end;

Sergio

Sorry, I can't

I'm using FastReport Standard Edition 3.06. I don't have the *.pas files.

AlexTZ

In this case wait for 3.07.