Вопросы по CrossTab

AM_

1. Можно ли в CrossTab-е сдвинуть (н-р вправо) область всех элементов, не затрагивая заголовки строк и столбцов.
2. Как разместить CrossTab в произвольном месте страницы.

AlexTZ

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

AnDy

Казалось бы простейшая задача: "растянуть 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;