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

Комментарии

• -=Den=-

  August 2006 отредактировано 16:40

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

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

  August 2006 отредактировано 16:40

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

  August 2006 отредактировано 16:40

  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=-

  August 2006 отредактировано 16:40

  Скорее всего бэнды неправельно располнженны на листе.
  Должен быть такой порядок:
  
  Group Header 1
  Group Header 2
  Group Header 3
  Master data
  Group Footer 3
  Group Footer 2
  Group Footer 1