Бесконечная высота

void · May 2009

Добрый день. У меня отчет состоит из одного мастера и множество отдельных шапок(detail), которые не помещаются на одну страницу. Я выставлял режим Бесконечная высота, но она конечная и ее мне тоже не хватило. ТОгда я разбил шапки по страницам, т.е на 30 страниц. Но теперь стала проблема с одним мастером. Я не могу использовать один мастер на несколько страниц. Подскажите пожалуйста выход из ситуации. Спасибо.

gpi · May 2009

Если есть исходники, можно поменять коэффициент

procedure TfrxDesignerForm.UpdatePageDimensions;
var
  h: Extended;
begin
  if FPage is TfrxReportPage then
  begin
    with FPage as TfrxReportPage do
    begin
      ScrollBox.HorzScrollBar.Position := 0;
      ScrollBox.VertScrollBar.Position := 0;

      FWorkspace.Origin := Point(10, 10);
      h := PaperHeight;
      if LargeDesignHeight then
        h := h * 5; // изменить коэффициент

void · May 2009

gpi написал: »

Если есть исходники, можно поменять коэффициент

procedure TfrxDesignerForm.UpdatePageDimensions;
var
  h: Extended;
begin
  if FPage is TfrxReportPage then
  begin
    with FPage as TfrxReportPage do
    begin
      ScrollBox.HorzScrollBar.Position := 0;
      ScrollBox.VertScrollBar.Position := 0;

      FWorkspace.Origin := Point(10, 10);
      h := PaperHeight;
      if LargeDesignHeight then
        h := h * 5; // изменить коэффициент

Спасибо, отличный совет. Все заработало как надо.

Бесконечная высота

Комментарии

Оставить комментарий