ColumnFooter в FR3

Комментарии

• SeregaG

  September 2004 отредактировано 06:44

  Вначале объявляешь переменную
  var
  LastTop:extended;
  
  На Masterdata1 в событии прописывешь
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
  LastTop:=MasterData1.Top;
  end;
  
  В Мемо1 (который лежит на MasterData1)
  procedure Memo1OnBeforePrint(Sender: TfrxComponent);
  begin
  Lasttop:=LastTop+Memo1.Height;
  end;
  
  В событии PageFooter1 для каждой Мемы прописываешь новую координату
  procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
  begin
  Memo2.Top:=Lasttop-PageFooter1.Top+2;
  Memo3.Top:=Lasttop-PageFooter1.Top+2;
  end;
  "2" - из за обрамления
  М.б. есть способ и полегче, только я пока не нашел
  
  
  
• Micle_ch

  September 2004 отредактировано 06:44

  Вообще-то, по моему, надо бы подправить.
  В английских ньюсах уже было письмо на это тему.
  Без ответа
• SeregaG

  September 2004 отредактировано 06:44

  Вариант, который я ранее описал не "прокатывает". Долго возился и получился такой ниже описанный вариант. Конкретно я его делал для того чтобы в накладной (ТОРГ 12) PageFooter с итогами по странице подвигался вверх до строчек со значениями.
  
  // переменная содержащая верхнюю координату, ее где нибудь инициализировать 0 на всякий случай
  var LastTop:extended;
  var nbAllLines:integer; // В эту переменную нужно подставить количество строчек всего по накладной (вычислить)
  
  procedure MasterData1OnAfterPrint(Sender: TfrxComponent);
  begin
  Lasttop:=MasterData1.top+MasterData1.Height;
  // Ниже алгоритм нужен для того чтобы, если подвал накладной не влезает на страницу внизу то "форсировать" новую страницу и отобразить на ней хотя бы одну строчку из накладной
  if (nbAllLines-1=<Line#>)and(LastTop>=460) then
  begin
  Engine.NewPage;
  end;
  end;
  
  procedure PageFooter1OnBeforePrint(Sender: TfrxComponent);
  begin
  // Изменить текущую координату "движка"
  if lastTop<>0 then
  Engine.Cury:=Lasttop;
  end;
  
  Аналогично, наверное, можно применить и к ColumnFooter
• AlexTZ

  September 2004 отредактировано 06:44

  В 3.03 поправил.
• VIBFR

  September 2004 отредактировано 06:44

  Да, второй ваиант с "движком", спасибо.
• VIBFR

  September 2004 отредактировано 06:44

  SeregaG, спасибо за помощь.
  Получилось и с ColumnFooter-ом, только появилась одна доп проблемка. Если меняем "движок", то меняется не только расположение ColumnFooter, но и следующий за ним PageFooter съезжает вверх.
  
  Надеюсь в 3.03, где как я понял это исправили, все получится.