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

Nicht_Shiessen

Доброго всем всего!

Вот вручили мне FastReport, чтобы разбираться, и тут у меня возник вот этот вот вопрос.

Есть отчет, в котором есть header страницы, в котором печатается шапка таблицы. Данные отчета группируются, соответственно есть GroupHEader и для красоты к GroupHeader я прилепил child который повторяет header страницы, Но иногда, к примеру, на самой первой странице PageHeader идет сразу же перед GroupHeader, что не совсем мне нравится, т.к. получаются пустые заголовки.

Вот собственно и впорос: а можно ли как нибудь скрыть PageHeader по условию, "если за ним стоит Group Header"?

Lex

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

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

Nicht_Shiessen

Работать это конечено работает, но к сожалению только для первой страницы.

А нельзя как нить привязать появление или скрытие хеадера все таки в зависимости от налдичия того или иного Бэнда.
Я пытался было делать это в зависимости от значения переменной 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

написал:

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

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;