Создание бэндов

Izolda

Заранее неизвестно сколько будет GroupHeader-ов, в отчет из вне передаются поля по которым группироватьзапрос. Можно ли динамически создавать GroupHeader, если можно, то как?

Заранее спасибо!

-=Den=-

Из скрипта можно так :

var
GHeader:TfrxGroupHeader;
begin
  GHeader:= TfrxGroupHeader.Create(Page1);
  GHeader.SetBounds(0,0,0,100);
  GHeader.Condition := ..........;
end.

Izolda

Спасибо, работает!

Izolda

var 
      GFooter: array [1..30] of TfrxGroupFooter;
      GHeader: array [1..30] of TfrxGroupHeader;
      Memo: array [1..30] of TfrxMemoView;
      i,y,y1: integer;
   . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
 for i:=1 to Count do begin
    GHeader[i]:= TfrxGroupHeader.Create(Page2);
    GHeader[i].SetBounds(0,y,0,20);
    GHeader[i].Condition := ConditionValue;
    GFooter[i]:= TfrxGroupFooter.Create(Page2);
    GFooter[i].SetBounds(0,y1,10,20);
    Memo[i]:=TfrxMemoView.Create(GHeader[i]);
    Memo[i].SetBounds(0,0,1046.8,20);
    Memo[i].Frame.Typ:=ftRight+ftLeft+ftTop+ftBottom;
    Memo[i]:=TfrxMemoView.Create(GFooter[i]);
    Memo[i].SetBounds(0,0,1046.8,20);
    Memo[i].Frame.Typ:=ftRight+ftLeft+ftTop+ftBottom;
    y:=y+20;
    y1:=y1+20;
end;

Выдает ошибку не найден заголовок для группы!
Может у Footer'a есть какое то свойство указывающее на Header к которому он относиться? Или в чем то другом проблемма?

-=Den=-

Скорее всего бэнды неправельно располнженны на листе.
Должен быть такой порядок:

Group Header 1
Group Header 2
Group Header 3
Master data
Group Footer 3
Group Footer 2
Group Footer 1