WordWrap ActiveReports 2

[SergT]

Доброго здоровья всем жителям форума!
Вот столкнулся... Может кто знает?
Пользую ActiveReports2. В Details есть несколько полей. Все имеют свойство Wordwrap=True, Border со всех сторон (прямоугольник).
Когда текст вмещается в поля - все выглядит в виде аккуратной таблички (типа Excel). Но если не вмещаеся - таблица превращается в набор прямоугольников разной высоты
Пробовал расчитывать длину текста и там где короче - добивать пробелами, однако пробелы игнорируются (если только в конце не ставить, например, точку).
Очень надо получить в каждой строке Details поля одинаковой высоты, т.е. таблицу с разной ( в соответствии с WordWrap) высотой строк .
Может это вообще невозможно? В примерах DataDynamics изящно обходят эту проблемму не рисуя окантовку поля.

[alibek]

Попробуй рисовать окантовку линиями, а не бордюром.

[SergT]

Я пользуюсь ActiveReports2 пару недель. Очень понравился. После Access-ных репортов - очень понятен, много схожего. Однако, я так и не нашел возможности менять размеры или что-то рисовать именно в уникальной строке Details.
Если у Вас есть подобные знания - очень прошу поделиться, а то спать скоро перестану

добавлено позднее...
Подскажите хотя бы, в какой момент произошло событие WordWrap, что бы отловить высоту поля. Или я вообще не так все понимаю?

[alibek]

Зачем ее вообще отлавливать?
Нарисуй две горизонтальные линии, вверху секии и внизу секции.
Нарисуй нужное количество вертикальных линий на всю высоту секции.
При расширении текстовых полей вертикальные линии должны автоматически растянуться.

[SergT]

...При расширении текстовых полей вертикальные линии должны автоматически растянуться.

Чего-то у меня не так получалось Спасибо за совет - побегу пробовать. Такой вариант меня бы устроил! Да, а вот еще и заголовки над полями... Как попробую, дам ответ!

[Andrey Fedorov]

Зачем ее вообще отлавливать?
Нарисуй две горизонтальные линии, вверху секии и внизу секции.
Нарисуй нужное количество вертикальных линий на всю высоту секции.
При расширении текстовых полей вертикальные линии должны автоматически растянуться.

А если нужно самостоятельно "растягивать", то это также делается элементарно - просто надо это делать в событии Before_Print секции.

[alibek]

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

[Andrey Fedorov]

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

Не репорт растягивать, а контролы в его секции.
Например несколько Field с бордюрами можно растянуть по высоте большего (который растянулся от длинного текста). То бишь чтобы получить красивую табличку. Твой вариант с линиями тоже верен - это просто разные варианты достижения одной и той-же цели (в данном случае)...

И вообще - AR устанавливает размеры компонентов к моменту возникновения BeforePrint. Соответственно в этих событиях можно начинать самому играться с их размерами (в зависимости от уже рассчитанных AR и прочих параметров отчета).

А в AfterPrint можно уже самостоятельно рисовать на листе отчета (DrawLine, DrawText и т.д.)

[SergT]

To Andrey Fedorov: Спасибо. Попробую, а то с линиями не очень получается .
А, вообще, AR клёвая штука. Возможностей - море, а размер маленький. Думаю, что мой выбор с репортами решен!

[Andrey Fedorov]

А, вообще, AR клёвая штука. Возможностей - море, а размер маленький.

Угу - когда его поймешь то действительно все просто и удобно.
Единственно чего мне раз не хватило - возможности включать в один отчет страниц разного размера. Именно размера - например (A3 и A4), а не ориентации (с ориентацией никаких проблем нет). Точнее включить-то можно, но вот на принтер их корректно за раз я вывести не смог. Конечно, можно печатать их из отчета постранично, на как-то это некрасиво - куча страниц в очереди...

[SergT]

To Andrey Fedorov : Ура! Спасибо! Теперь буду спать спокойно!
Ну просто мечты идиота
--------------------------------------
Private Sub Detail_BeforePrint()
F1.Height = F0.Height
F2.Height = F0.Height
................
F10.Height = F0.Height
End Sub

Интересно, а в Access такое сработает?

[Andrey Fedorov]

Ну просто мечты идиота

Private Sub Detail_BeforePrint()
Dim i As Integer, h As Long
h = F0.Height
For i = 1 To 10
Detail.Controls("F" & i).Height = h
Next i
End Sub

И в Access-е можно подобно...

[SergT]

To Andrey Fedorov : Да, примерно так я и поступил. Сперва нашел самый высокий, а затем "подтянул" остальные.
Вот у меня еще вопрс возник по ходу дела. Хотел сделать код более универсальным. Предполагалось проверить все контролы и, если они являются полями, проводить операции с ними. Однако, не смог определить ControlType . Через имя все просто (можно и так оставить), но вопрос засел занозой . Как определить, что контрол - поле?. Есть еще лейблы, линии и.т.д. Полагаю, специфика синтакссиса именно в AR.

[Andrey Fedorov]

Как определить, что контрол - поле?. Есть еще лейблы, линии и.т.д. Полагаю, специфика синтакссиса именно в AR.

Никакой специфики - смотри Help по TypeName, TypeOff

[SergT]

TypeName, TypeOff

Спасибо! Я искал ControlType