Можно ли скрыть бэнд при условии...

Комментарии

• Lex

  February 2006 отредактировано 08:24

  в onBeforePrint для PageHeader пишишь

    PageHeader.Visible = (<Page#> > 1)
  
• Nicht_Shiessen

  February 2006 отредактировано 08:24

  Работать это конечено работает, но к сожалению только для первой страницы.
  
  А нельзя как нить привязать появление или скрытие хеадера все таки в зависимости от налдичия того или иного Бэнда.
  Я пытался было делать это в зависимости от значения переменной hh:
  
  т.е. как только напечатался заголовок переменная hh стала правдой
  

  procedure PageHeader1OnAfterPrint(Sender: TfrxComponent);
  begin
    set ('hh',true);
  end;
  

  
  Если в след за заголовком страницы, появляется GroupHEader и переменная hh истина, то по идее PageHeader должен скрыться, hh становится фалсой
  

  procedure GroupHeader1OnAfterPrint(Sender: TfrxComponent);
  begin
   if <hh>=true then
        Begin
        PageHeader1.Visible:=false;
        set ('hh',false);
    end;
  end;
  

  Если же вслед за PageHeader'ом идет Data bend то hh становится фалсой и Заголовок не скрывается.
  

  procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
  begin
    set ('hh',false);
  end;
  

  
  Но это или ваппще не работает или рабботает так что лучше б ваапще не работало.
  
  Принципиально можно ли так делать, если да - то что я делаю не правильно, а если нет то что же тогда делать????
• Lex

  March 2006 отредактировано 08:24

  написал:

  procedure GroupHeader1OnAfterPrint(Sender: TfrxComponent);
  begin
  if <hh>=true then
       Begin
       PageHeader1.Visible:=false;
       set ('hh',false);
   end;
  end;
  

  попробуй замениь на

  procedure GroupHeader1OnAfterPrint(Sender: TfrxComponent);
  begin
    if <hh> then
    begin
      PageHeader1.Visible := False;
      set ('hh', False);
    end else
      PageHeader1.Visible := True;
  end;
  
• gpi

  March 2006 отредактировано 08:24

  var ShowPageHeader: Boolean;
  procedure ReportTitle1OnBeforePrint(Sender: TfrxComponent);
  begin
      ShowPageHeader:=True;
  end;  
  
  procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
  begin
       PageHeader1.Visible:=ShowPageHeader;
  end;
  
  procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
  begin
       ShowPageHeader:=False;
  end;
  
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
       ShowPageHeader:=True;
  end;