Как сделать "навороченную шапку"?

TopCore · July 2011

Здравствуйте все! Есть ли возможность сделать сложную шапку у DBCrossTab?
Заранее спасибо!

gpi · July 2011

Подозреваю, что именно такую сложную шапку, как Вы хотите, сделать нельзя

TopCore · July 2011

Вчера нужно было переделать отчёт и я решил добавить новые поля в DBCrossTab. Вот что вышло (шапка усложнилась, но как это получилось?):

TopCore · July 2011

Получилась вышепоказанная шапка приблизительно следующим образом: в датасете было одно поле Х вместо полей С5 - С10. Добавил эти поля, удалил поле Х, обновил frxDataSet. В frxRepot в DBCrossTab`е всё ещё находилось несуществующее поле Х ("Количество актов"). Я его "бахнул" и добавил С5 - С10. Вот они и залезли под существующую шапку. Т.е. есть варианты (через ж...) сделать сложную шапку у DBCrossTab.
А почему разработчики не хотят сделать возможность делать сложные шапки у этого прекрасного элемента?

gpi · July 2011

написал:

Вот что вышло (шапка усложнилась, но как это получилось?):

Объясните Ваше высказывание. Текущая шапка Вас устраивает?
Она и должна была получиться после следующих Ваших действий:

написал:

Получилась вышепоказанная шапка приблизительно следующим образом: в датасете было одно поле Х вместо полей С5 - С10. Добавил эти поля, удалил поле Х, обновил frxDataSet. В frxRepot в DBCrossTab`е всё ещё находилось несуществующее поле Х ("Количество актов"). Я его "бахнул" и добавил С5 - С10. Вот они и залезли под существующую шапку.

написал:

Т.е. есть варианты (через ж...) сделать сложную шапку у DBCrossTab.

Этот вариант и есть правильным

написал:

А почему разработчики не хотят сделать возможность делать сложные шапки у этого прекрасного элемента?

Какой вариант Вы предлагаете?

TopCore · July 2011

написал:

Объясните Ваше высказывание. Текущая шапка Вас устраивает?

Почти, но... я же не буду каждый раз для этого добавлять в датасет фиктивные поля, чтобы получить сложную шапку. Сейчас я вообще убрал шапку DBCrossTab`а и сделал её в Header`е. Но теперь в коде нужно писать приравнивание ширины каждого заголовка строки и каждой ячейки к ширинам Memo в Header`е.

написал:

Этот вариант и есть правильным

По-моему, это вариант не есть правильным.
Это не из-за лени я предлагаю, а потому, чтобы ещё более универсальным сделать элемент.

написал:

Какой вариант Вы предлагаете?

Я предлагаю сделать ручное строительство шапки DBCrossTab`а как второй вариант после автоматического.

TopCore · July 2011

А как мне быть независимым от ширины каждого столбца в шапке?

Я управляю шириной строчных заголовков, а ColumnHeader, всё равно держит ширину каждого столбца свою.
Спасибо.

TopCore · July 2011

В общем разбирался я разбирался. Убирал я галочки с ShowTitle, ShowCorner, ColumnHeader - ничего не помогает. Ширина RowHeader`ов как регулировалась, так и регулируется, а Corner`а не регулируется. Как убрать зависимость от ширины Corner?
Кстати, со сложной шапкой это я гнал: это Title там наверху, а я думал это сложная шапка.

HunterNS · July 2011

Ваши картинки ужасно неудобно открывать. Точнее я не могу их открыть вообще. Почему нельзя было залить их стандартными средствами форума?

TopCore · July 2011

HunterNS написал: »

Ваши картинки ужасно неудобно открывать. Точнее я не могу их открыть вообще. Почему нельзя было залить их стандартными средствами форума?

Как сделать превью по клику средствами форума не нашёл или не понял.

gpi · July 2011

Почему Вы не хотите просто установить заголовки строк и заголовки ячеек прямо в кроссе без использования Header?

TopCore · July 2011

gpi написал: »

Почему Вы не хотите просто установить заголовки строк и заголовки ячеек прямо в кроссе без использования Header?

А как можно провернуть такое?

HunterNS · July 2011

Судя по вашей шапке, не понятно, зачем вам нужен именно DBCrossTab. Какие колонки у вас будут динамические? Может вам и не стоит заморачиваться с этим компонентом?

TopCore · July 2011

HunterNS написал: »

Судя по вашей шапке, не понятно, зачем вам нужен именно DBCrossTab. Какие колонки у вас будут динамические? Может вам и не стоит заморачиваться с этим компонентом?

Я почему-то предполагал, что . Но не всё так гладко.

gpi · July 2011

Вам нужно использовать обычный TfrxMasterData и устанавливать границы мемо в скрипте

TopCore · July 2011

gpi написал: »

Вам нужно использовать обычный TfrxMasterData и устанавливать границы мемо в скрипте

Просто положить все Memo на MasterData? Но мне нужно, чтобы текст в растянутом на высоту листа Memo был по середине. А управление границами этого не даст.

gpi · July 2011

Тогда Вам придётся заморачиваться со скриптом: либо выводить значение в средней ячейке на втором проходе, либо выводить мемо необходимой высоты, а последующие скрывать (тоже на втором проходе)
Ну, или ждать FR5. В нём обещают полноценное объединение ячеек

TopCore · July 2011

gpi написал: »

Ну, или ждать FR5. В нём обещают полноценное объединение ячеек

Да уже почти год все ожидают этого чуда. А делать нужно сейчас.
Значит в DBCrossTab никак не получится управлять шириной Corner`ов?

gpi · July 2011

Если устроит, можно отключить AutoSize у кросса и использовать заголовки фиксированной ширины
Или сделать с вложенным отчётом без повторения значений на новой странице, или с мастердата со значениями в первой строке - вполне рабочий вариант. А если реализовывать все хотелки юзеров - тогда только скрипт

TopCore · July 2011

Скажите, пожалуйста, почему следующий код не отрабатывает (у DBCrossTab AutoSize = false):

procedure dbcCorner3OnBeforePrint(Sender: TfrxComponent);
begin
  dbcCorner3.Width := Memo2.Width;                                                    
end;

procedure dbcCorner4OnBeforePrint(Sender: TfrxComponent);
begin
  dbcCorner4.Width := Memo3.Width;  
end;

gpi · July 2011

Перенесите код в событие OnBeforePrint кросса

TopCore · July 2011

qpi, перенёс - не помогло:

procedure dbcOnBeforePrint(Sender: TfrxComponent);
begin
  dbcCorner3.Width := Memo2.Width;
  dbcCorner4.Width := Memo3.Width;      
end;

Результат:

gpi · July 2011

У меня работает

procedure Cross1OnBeforePrint(Sender: TfrxComponent);
begin
     Cross1Corner3.Width := 200;                                
end;

TopCore · July 2011

qpi, огромное Вам спасибо! Всё работает. Я думал, что не работает, а уменьшению Corner`ов мешали Row`ы. Вот что в итоге сделал:

procedure dbcOnBeforePrint(Sender: TfrxComponent);
begin
  dbcCorner3.Width := Memo2.Width;
  dbcCorner4.Width := Memo3.Width;
  dbcCorner5.Width := Memo4.Width;
  dbcCorner6.Width := Memo5.Width;
  dbcCorner7.Width := Memo6.Width;
  dbcRow0.Width := Memo2.Width;
  dbcRow1.Width := Memo3.Width;
  dbcRow2.Width := Memo4.Width;
  dbcRow3.Width := Memo5.Width;
  dbcRow4.Width := Memo6.Width;      
end;

Но остался последний момент. Как можно управлять высотой строк в DBCrossTab`е при ActualSize = false?

TopCore · July 2011

Очень странное дело: ширина ячеек таблицы со значениями не регулируется в событии OnCalcWidth при реализованном выше методе DBCrosstab1OnBeforePrint. Но если добавить две строки в последнее событие, то всё работает:

procedure dbcOnBeforePrint(Sender: TfrxComponent);
begin
  dbcCorner3.Width := Memo2.Width;
  dbcCorner4.Width := Memo3.Width;
  dbcCorner5.Width := Memo4.Width;
  dbcCorner6.Width := Memo5.Width;
  dbcCorner7.Width := Memo6.Width;
  dbcRow0.Width := Memo2.Width;
  dbcRow1.Width := Memo3.Width;
  dbcRow2.Width := Memo4.Width;
  dbcRow3.Width := Memo5.Width;
  dbcRow4.Width := Memo6.Width;

  dbcCellHeader0.Left := Memo10.Left;
  dbcCellHeader0.Width := Memo10.Width;
end;

Почему не отрабатывает как положено в OnCalcWidth? Или как узнать, что текст не влез полностью в поле?

gpi · July 2011

При AutoSize = False OnCalcWidth не обрабатывается

TopCore · July 2011

Понятно. Спасибо.
А как подогнать высоту полей под текст, который не влазит? StretchMode = smActualHeight не поможет:

StretchMode = smMaxHeight: текст вообще куда-то исчезает в полях и заголовках.
Может есть какое-нибудь свойство типа TextWidth?

gpi · July 2011

Попробуйте на первом проходе в OnPrintCell определять максимальную высоту для каждой строки при помощи Memo.CalcHeight, а на втором проходе выставлять эту высоту в OnCalcHeight

TopCore · July 2011

Спасибо, qpi!
Событие DBCrossTabOnPrintRowHeader происходит один раз для одной строки? Или несколько раз для одной строки в зависимости от количества уровней заголовков строк?

gpi · July 2011

несколько раз для одной строки в зависимости от количества уровней заголовков строк

HunterNS · July 2011

Насчёт высоты строк, почитайте мою тему.
http://www.fast-report.com/en/forum/?p=/discussion/8117
У меня там была аналогичная проблема.

Как сделать "навороченную шапку"?

Комментарии

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

Как сделать &quot;навороченную шапку&quot;?

Комментарии

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

Как сделать "навороченную шапку"?