Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.04.05;
Скачать: CL | DM;

Вниз

высота компонентов на TQRBand   Найти похожие ветки 

 
opolo2000 ©   (2009-02-19 11:34) [0]

Добрый день.
Есть обычный отчёт. На TDetailBand расположено несколько TQRDBText. Свойство объектов TQRDBText.AutoStretch:=True. В результате всё хорошо. Данные выдаются, но все они разной высоты. В результате высота правых и левых границ разная. Получается некрасиво («лесенка»).
Вопрос: как узнать высоту «текущего» сформированного i:=TQRDBText.Heigth, чтобы потом, положенному на отчет QRShape1.qrsVertLine, изменить свойство QRShape1.Heigth:=i ?
Вопрос: может есть какой-то более простой способ?


 
Johnmen ©   (2009-02-19 11:51) [1]

Давно это было, не помню...:)
Но попробуй в событиях, связанных с формированием бенда.


 
opolo2000 ©   (2009-02-20 12:58) [2]

Добрый день.
Нашёл такой выход: В обработчик DetailBandBeforePrint() следующее
VLine11.Size.Height:=DetailBand.Size.Height+DetailBand.Expanded;
Визуально вертикальные линии удлиннились, но, всё-таки, это как-то неправильно работает = линии укороченные. Кто-нибудь сталкивался?
Может это связано с этим: в Helpe написано "If WordWrap is True, components can expand vertically if they are to short for the text to fit. If a component expands it will also expand its parent band, provided that band’s CanExpand property is set to True. A band can expand over multiple pages to print long texts." Но я не нашел у TDetailBand свойство CanExpand. Где оно?



Страницы: 1 вся ветка

Текущий архив: 2009.04.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
15-1233567712
любитель дельфинов
2009-02-02 12:41
2009.04.05
Postgres + Delphi 2007


2-1234764600
Abcdef123
2009-02-16 09:10
2009.04.05
TDBCombobox. Как НЕ позволить вводить новое значение?


2-1235043250
novai
2009-02-19 14:34
2009.04.05
Как 4 byte привести к longword


15-1232756069
Nic
2009-01-24 03:14
2009.04.05
Выбор CMS


4-1207672562
TCrash
2008-04-08 20:36
2009.04.05
Перечень дисков