Вопросы по CrossTab

Комментарии

• AlexTZ

  October 2004 отредактировано 15:51

  1. Не понял, что имеется в виду.
  2. Пока никак - печать начинается с левого поля страницы.
• AnDy

  October 2004 отредактировано 15:51

  Казалось бы простейшая задача: "растянуть CrossTab по ширине страницы". Т.е. заранее известно, что число колонок и их ширина не будет заоблачной. При этом хотелось бы, чтобы кросс занимал всю ширину страницы, а не ее часть. Делаем скрипт:

  procedure DBCross1OnCalcWidth(ColumnIndex: Integer; ColumnValues: Variant; var Width: Extended);
  begin
    if Engine.FinalPass then Width:=
      (DBCross1.Width-GrandTotalWidth-DBCross1.Left)/DBCross1.ColCount;
  end;
  

  Для вычисления GrandTotalWidth используем:

  procedure DBCross1OnPrintCell(Memo: TfrxMemoView; RowIndex, ColumnIndex, CellIndex: Integer; RowValues, ColumnValues, Value: Variant);
  begin
    if (DBCross1.IsGrandTotalColumn(ColumnIndex)) and
      (GrandTotalWidth<Memo.Width) then GrandTotalWidth:=Memo.Width;
  end;
  

  В итоге результат лучше, чем по-умолчанию, но иногда колонка "итого по строке" все же "перескакивает" на другую страницу или не дотягивается до правого края.
  Приведенный выше код был получен в результате долгих экспериментов и мне не совсем понятно почему если не учитывать ширину заголовков строк, то результат получается более вменяемым, чем если их учитывать.
  
  Еще. Как вывести "заголовок" для заголовков строк? Т.е. каждая строка начинается с заголовка (какие-то значения), а как в шапке кросса (там где сейчас пустое место слева вверху) указать что это вообще за значения?
  
  Еще. Без ниже приведенного кода на больших кроссах некоторые строки налазят друг на друга/или выводятся высотой около 2. Как именно не могу сейчас сказать, т.к. сейчас нету времени визуально анализировать тот мусор, который лезет на экран/печать.

  procedure DBCross1OnCalcHeight(RowIndex: Integer; RowValues: Variant; var Height: Extended);
  begin
    Height:=MasterData1.Height;
  end;