TppDbText

rbuser

Hi,

First of all, please note that english isn't my primary language so
forgive me for my grammars.

I needed to make some TppDbText clickable in visualisation (Aperçu). So
I derived a TppDbText, named TppDbText_Smg, and I "override" the
procedure "DrawCommandClick" and "DrawCommandCreate". Everything work
just fine.

Now my problem is that I have a lot of codes (the application is over a
million lines and contains hundreds of reports) and I don't want and
can't simply replace all my component with my new TppDbText_Smg.

So I want to know if I can make the appication use TppDbText_Smg instead
of TppDbText without modifying everything. (Like by making my TppDbText
heritate from TppDbText_Smg even if TppDbText_Smg already heritate from
TppDbText).

And to clarify something, I want the source code of report builder to
remain intact because if we begin to change this code, it will became a
hell of a work, when updates comes, to modify everything again.

Thank you for your time,

Michel Guité-Beaudoin
Programmeur/Analyste
CTRL Informatique
michelguite@ctrl.com

nicocizik

Hi Michel,

The best option here would be to create a routine that takes a report as a
parameter. This routine would then loop through each component inside the
report and assign the OnDrawCommandClick and/or OnDrawCommandCreate event to
each DBText component. You would then need to call this routine before the
report is printed.

http://www.digital-metaphors.com:8080/Delphi_Code/Layouts/Report_Object_Loop

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com