KOLReport и Grush

← →
Даддитс (2007-05-03 19:50) [0]

Использую KOLReport. В основной программе у меня GrushControls. Как сделать, чтобы и в Preview компонента KOLReport вместо обычных кнопок/панелей был контролы в стиле Grush?
Может быть, кто-нибудь переделывал KOLReport в стиле Grush?

← →
homm © (2007-05-03 23:42) [1]

> Может быть, кто-нибудь переделывал KOLReport в стиле Grush?

Оно тебе зачем? Краска в принтере лишняя? :)

← →
Vladimir Kladov (2007-05-04 18:07) [2]

Пакет ToGRush для того и предназначен, чтобы такое портирование производить легко и быстро. Достаточно в uses добавить ссылку на модуль и включить опцию в Project|Options|...Definitions

← →
Даддитс (2007-05-04 19:56) [3]

На примере тестового проекта, что поставляется вместе с компонентом KOLReport: когда добавляю ToGrush к списку модулей - откомпилированная программа запускается без проблем, но когда идет вызов PreviewModal, программа просто завершается безо всяких предупреждений, и без вываливания в отладчик. Добавлял ToGrush в uses главной формы, и в модуль KOLReport - одно и то же.
По поводу опции в Definitions - не нашел ни в книге, ни в форуме - какую опцию добавлять..

← →
Vladimir Kladov (2007-05-04 20:29) [4]

А в сам пакет ToGrush посмотреть если?

← →
Даддитс (2007-05-04 21:01) [5]

Ну в начале там есть несколько закомментированных директив, которые, как я понял, отвечают за более точную подстройку Grush. У меня же Grush в PreviewModal не работает полностью %)

Т.е. добавляю в главную форму в uses ToGrush - на главной форме контролы становятся в стиле Grush, а в PreviewModal просые контролы. Добавляю ToGrush в uses модуля KOLReport - прогамма запускается, но вылетает молча при вызове PreviewModal.

← →
Vladimir Kladov (2007-05-05 08:35) [6]

Я обновил ToGRush и KOLReport, теперь они совместимы. ToGRush был сделан изначально для MCK, а в KOLReport код написан руками для создания формы просмотра, были нестыковки.

← →
Даддитс (2007-05-05 15:40) [7]

> Vladimir Kladov (05.05.07 08:35) [6]
> Я обновил ToGRush и KOLReport, теперь они совместимы.

Обновил ToGrush нормально, а вот с KOLReport косяк:
http://kolmck.net/Components/print/KOLReport.zip - 404 Not Found

для проверки попробовал:
http://kolmck.net/Components/print/KOLReport.7z и http://kolmck.net/Components/print/kolreport.zip - то же самое.

← →
Vladimir Kladov (2007-05-05 16:00) [8]

Неизвестно почему print лежал не внутри Components. Пробуйте теперь.

← →
Даддитс (2007-05-05 16:12) [9]

> Vladimir Kladov (05.05.07 16:00) [8]

Спасибо, буду тестировать.

← →
Vladimir Kladov (2007-05-05 17:48) [10]

Вот новости: срок действия последнего патента на GIF, истек 11 августа 2006 года. А я и не знал. Теперь можно спокойно поддерживать сохранение в Gif в своем коде... А у нас нет (кажется) ни одного годного к употреблению енкодера. Надо будет что-то придумывать все-таки. Вариант в CxImage мне нравится. Но требует ручного перевода: используются классы и Casm2Basm практически не очень полезен, т.к. в асм-варианте появляются ссылки на всякие "странные" имена вроде ??3@YAXPAX@Z, которые непонятно куда ведут, и как такой код вытащить наружу.

Есть еще вариант: подработать сам CxImage, переправив классы на не-классы, а потом все-таки утилитой его прицепить. В любом случае, сейчас это несрочно. Но если кому-то горит, то рекомендую обратить внимание именно на CxImage: очень хорошая либа, автор заботится об устранении ликов, и на мои предложения насчет поправить tiff отозвался очень оперативно.

← →
Даддитс (2007-05-06 18:08) [11]

> Vladimir Kladov (05.05.07 08:35) [6]
> Я обновил ToGRush и KOLReport, теперь они совместимы. ToGRush
> был сделан изначально для MCK, а в KOLReport код написан
> руками для создания формы просмотра, были нестыковки.

Создаю такой отчет:
procedure TForm3.ReportPrint( Sender: PObj ); var i: Integer; begin Report.AddBandEx( bndColumn, blExpandRight ); with MainForm.ListEdit^ do for i:= 1 to LVCount do begin lbl_1.Caption:= LVItems[i-1, 0]; lbl_2.Caption:= LVItems[i-1, 1]; lbl_3.Caption:= LVItems[i-1, 2]; lbl_4.Caption:= LVItems[i-1, 3]; Report.AddBandEx( bndRecord, blExpandRight ); end; end;
Соответственно, lbl_* находятся на btnRecord. У всех lbl_* поставлены все Frame. Отрисовывается все нормально, но с небольшим косяком: почему-то иногда в отчете у одного или нескольких элементов не прорисовывается верхняя полоска. Т.е., 18 строк отчета отрисовываются как надо, а у 19, 20, 21 нет верхней границы %) Дальше снова все нормально идет. Потом снова где-то дальше возникает, на две-три строки косяк. В чем может быть дело, что не прорисовывается верхняя граница ReportLabel" ов?

← →
Vladimir Kladov (2007-05-06 20:34) [12]

Прорисовка в preview? Выберите 1:1

← →
Даддитс (2007-05-06 21:14) [13]

> Vladimir Kladov (06.05.07 20:34) [12]
> Прорисовка в preview? Выберите 1:1

Да, прорисовка в Preview (событие OnPrint для Report"а) , без разницы какой режим выбираю, видно, что у некоторых записей верхняя граница не прорисовалась. Завтра сделаю демо-проект для эксперимента, посмотрю еще раз.

p.s. я менял шрифт для формы, потомком которой является объект Report. Может быть проблема в этом.

KOLReport и Grush Найти похожие ветки