заголовки cross_tab
Как можно задать ширину заголовка строки cross-tab отчета, и как задать высоту заголовка столбца.
При использовании procedure Cross1OnCalcWidth невозможно изменить ширину заголовков.
При использовании procedure Cross1OnPrintRowHeader, если увеличить
Memo.Width, то текст начинает залезать на соседние ячейки.
MaxWidth - использовать не получится, потому что для всех ячеек этот максимум совсем маленький, и только для одного столбца заголовков он намного больше чем остальные.
И, кстати, было бы очень здорово, если бы были свойства MaxHeight и MinHeight - тогда бы можно было длинные заголовки столбцов писать под углом 90 градусов.
При использовании procedure Cross1OnCalcWidth невозможно изменить ширину заголовков.
При использовании procedure Cross1OnPrintRowHeader, если увеличить
Memo.Width, то текст начинает залезать на соседние ячейки.
MaxWidth - использовать не получится, потому что для всех ячеек этот максимум совсем маленький, и только для одного столбца заголовков он намного больше чем остальные.
И, кстати, было бы очень здорово, если бы были свойства MaxHeight и MinHeight - тогда бы можно было длинные заголовки столбцов писать под углом 90 градусов.
Комментарии
procedure DBCross1OnCalcWidth(ColumnIndex: Integer; ColumnValues: Variant; var Width: Extended);
var
i : word;
begin
for i:=0 to DBCross1.ColumnLevels-1 do
if ((Width < 60) or (Width = DBCross1.MaxWidth)) then Width := 60;
end;