Не отображать строки

Комментарии

• gpi

  August 2012 отредактировано 05:23

  TfrxMasterData.OnBeforePrint
  
  MasterData1.Visible := ABS(<YourDatasetName."FieldName">) > 0.0001;
• abc777

  October 2012 отредактировано 05:23

  Хотелось продолжить эту тему "Не отображать строки" вопросом :
  
  А как скрыть первый пустой столбец в отчете (смотреть картинку) в случае строки на пол-листа ?
  
  Отчет представляет собой печать чисел на формате размером по пол-листа в 2 колонки,
  если значение меньше 100 скрываем бэнд :
  if <element> < 100 then
  begin MasterData1.visible := false
  else MasterData1.visible := true ;
  
  Но если числа < 100 попадают на 2 и так далее страницу, то они все красиво убираются, но вот для первой колонки это не работает
  саму этикетку скрывает, но печатает пустую колонку. например последовательность 3,100,200,12,800 ...
  
  Для Portrait еще помогает код
  if (<Line> = 2) and (not MasterData1.Visible) then Engine.CurX := 0 ;
  А для landscape ориентации это не работает !!!
  
• gpi

  October 2012 отредактировано 05:23

  Попробуйте пофиксить frxEngine.pas (этот фикс для бэндов с несколькими столбцами, но, возможно, сработает и в Вашем случае)

  procedure TfrxEngine.CheckBandColumns(Band: TfrxDataBand; ColumnKeepPos: Integer;
    SaveCurY: Extended);
  begin
    if Band.Columns > 1 then
    begin
      if not Band.Visible then exit; //add this line
      { collect max position in b.FMaxY }
      if CurY > Band.FMaxY then
        Band.FMaxY := CurY;
      { all columns have been printed }
      if Band.CurColumn >= Band.Columns then
      begin
        { need page break, don't break if page has Endless Height}
        if ((PageHeight - FooterHeight) - Band.FMaxY <= 1e-4) and (not FPage.EndlessHeight) then
        begin
          if FKeeping then  { standard keep procedure }
            NewColumn
          else
          begin
            PreviewPages.CutObjects(ColumnKeepPos);
            NewColumn;
            PreviewPages.PasteObjects(CurX, CurY);
            CurY := CurY + Band.FMaxY - SaveCurY;
          end;
        end
        else
          CurY := Band.FMaxY;  { start the new band from saved b.FMaxY }
      end
      else
        CurY := SaveCurY;   { start the new band from saved SaveCurY }
      if Band.Visible then
        Band.CurColumn := Band.CurColumn + 1;
    end;
  end;
  
• gpi

  October 2012 отредактировано October 2012

  Не сработает

    if Band.Columns > 1 then
  

  Попробуйте использвать бэнд с двумя столбцами
• abc777

  October 2012 отредактировано October 2012

  Спасибо за помощь.
  Пофиксил frxEngine.pas.
  В моем случае бэнд как раз и есть с двумя столбцами.
  И вроде как заработало, строки <100 благополучно убираются без пустых страничек.
  Бум надеяться, что это работает во всех случаях.