| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
высота компонентов на TQRBand [D6, XP]
opolo2000 © (2009-02-19 11:34:00)Добрый день.
Есть обычный отчёт. На TDetailBand расположено несколько TQRDBText. Свойство объектов TQRDBText.AutoStretch:=True. В результате всё хорошо. Данные выдаются, но все они разной высоты. В результате высота правых и левых границ разная. Получается некрасиво («лесенка»).
Вопрос:как узнать высоту «текущего» сформированного i:=TQRDBText.Heigth, чтобы потом, положенному на отчет QRShape1.qrsVertLine, изменить свойство QRShape1.Heigth:=i ?
Вопрос:может есть какой-то более простой способ?
opolo2000 (2009-02-20 12:58:00) [1]Добрый день.
Нашёл такой выход: В обработчик 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. Где оно?
Johnmen (2009-02-19 11:51:00) [2]Давно это было, не помню...:)
Но попробуй в событиях, связанных с формированием бенда.
| |
