Xailer & OZ Software

Creo que no se ha incorporado la propiedad nPageNumber en la clase TPrinter.
Me es necesaria disponer de ella, por lo que se me ocurre derivar de TPrinter
CLASS TPrinter FROM XPrinter
Data nPageNumber Init 0
ENDCLASS
....
Pero no se como modificar los eventos esenciales de la clase!!!
¿Como puedo modificar el evento StartDoc(), para que cada vez que inicie un documento, poner esta Data a 0???
¿Cómo puedo modificar el evento NewPage(), para que incremente esta Data en +1???
Gracias.
Un Saludo,
Xevi.
--

Xevi,
Creo que no se ha incorporado la propiedad nPageNumber en la clase TPrinter.
Sí­, es cierto. Lo haremos en cuanto podamos.
Me es necesaria disponer de ella, por lo que se me ocurre derivar de TPrinter
CLASS TPrinter FROM XPrinter
Data nPageNumber Init 0
ENDCLASS
...
Pero no se como modificar los eventos esenciales de la clase!!!
¿Como puedo modificar el evento StartDoc(), para que cada vez que inicie un documento, poner esta Data a 0???
¿Cómo puedo modificar el evento NewPage(), para que incremente esta Data en +1???
Puedes hacer algo así­:
METHOD StartDoc() INLINE ::nPageNumber := 0, Super:StartDoc()
METHOD NewPage() INLINE ::nPageNumer++, Super:NewPage()
--
Un saludo,
José F. Giménez
--

Jose,
PERFECTO!!!
CLASS TPrinter FROM XPrinter
Data nPageNumber Init 0
METHOD StartDoc() INLINE ::nPageNumber := 0, Super:StartDoc()
METHOD StartPage() INLINE ::nPageNumber++, Super:StartPage()
ENDCLASS
Por lo que voy entendiendo, podemos "añadir" código al sobreescribir un método, y al final lanzamos el mismo evento con Super... que hace referencia a si mismo...
Complicado, pero ya iremos aprendiendo!!!
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:4368821b$[email=2@ozsrvnegro.ozlan.local...]2@ozsrvnegro.ozlan.local...[/email]
Xevi,
Creo que no se ha incorporado la propiedad nPageNumber en la clase TPrinter.
Sí­, es cierto. Lo haremos en cuanto podamos.
Me es necesaria disponer de ella, por lo que se me ocurre derivar de TPrinter
CLASS TPrinter FROM XPrinter
Data nPageNumber Init 0
ENDCLASS
...
Pero no se como modificar los eventos esenciales de la clase!!!
¿Como puedo modificar el evento StartDoc(), para que cada vez que inicie un documento, poner esta Data a 0???
¿Cómo puedo modificar el evento NewPage(), para que incremente esta Data en +1???
Puedes hacer algo así­:
METHOD StartDoc() INLINE ::nPageNumber := 0, Super:StartDoc()
METHOD NewPage() INLINE ::nPageNumer++, Super:NewPage()
--
Un saludo,
José F. Giménez
--

Xevi,
Por lo que voy entendiendo, podemos "añadir" código al sobreescribir un método, y al final lanzamos el mismo evento con Super... que hace referencia a si mismo...
Esta es una de las ventajas de usar clases X y clases T como indiqué en el artí­culo de http://www.levante3000.com
Complicado, pero ya iremos aprendiendo!!!
Al principio puede que sí­, pero ya verás como es muy sencillo cuando comprendes como funciona la POO.
--
Un saludo,
José F. Giménez
--

Todaví­a estoy utilizando esta "drivación" de la clase TPrinter, y me funciona perfectamente.
Sólo que,... todaví­a no l ahabeis incluido en la Clase???
No he visto que la ayuda se haga ninguna mención a esta propiedad.
Si sólo se trata de incluir esas dos lí­neas en la Clase ¿no es así­???
Gracias.
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:43688954$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Jose,
PERFECTO!!!
CLASS TPrinter FROM XPrinter
Data nPageNumber Init 0
METHOD StartDoc() INLINE ::nPageNumber := 0, Super:StartDoc()
METHOD StartPage() INLINE ::nPageNumber++, Super:StartPage()
ENDCLASS
Por lo que voy entendiendo, podemos "añadir" código al sobreescribir un método, y al final lanzamos el mismo evento con Super... que hace referencia a si mismo...
Complicado, pero ya iremos aprendiendo!!!
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:4368821b$[email=2@ozsrvnegro.ozlan.local...]2@ozsrvnegro.ozlan.local...[/email]
Xevi,
Creo que no se ha incorporado la propiedad nPageNumber en la clase TPrinter.
Sí­, es cierto. Lo haremos en cuanto podamos.
Me es necesaria disponer de ella, por lo que se me ocurre derivar de TPrinter
CLASS TPrinter FROM XPrinter
Data nPageNumber Init 0
ENDCLASS
...
Pero no se como modificar los eventos esenciales de la clase!!!
¿Como puedo modificar el evento StartDoc(), para que cada vez que inicie un documento, poner esta Data a 0???
¿Cómo puedo modificar el evento NewPage(), para que incremente esta Data en +1???
Puedes hacer algo así­:
METHOD StartDoc() INLINE ::nPageNumber := 0, Super:StartDoc()
METHOD NewPage() INLINE ::nPageNumer++, Super:NewPage()
--
Un saludo,
José F. Giménez
--

Xevi,
Efectivamente se nos ha olvidado. Ahora mismo lo pongo.
Un saludo,
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:[email=43ea35af@ozsrvnegro.ozlan.local...]43ea35af@ozsrvnegro.ozlan.local...[/email]
Todaví­a estoy utilizando esta "drivación" de la clase TPrinter, y me funciona perfectamente.
Sólo que,... todaví­a no l ahabeis incluido en la Clase???
No he visto que la ayuda se haga ninguna mención a esta propiedad.
Si sólo se trata de incluir esas dos lí­neas en la Clase ¿no es así­???
Gracias.
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:43688954$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Jose,
PERFECTO!!!
CLASS TPrinter FROM XPrinter
Data nPageNumber Init 0
METHOD StartDoc() INLINE ::nPageNumber := 0, Super:StartDoc()
METHOD StartPage() INLINE ::nPageNumber++, Super:StartPage()
ENDCLASS
Por lo que voy entendiendo, podemos "añadir" código al sobreescribir un método, y al final lanzamos el mismo evento con Super... que hace referencia a si mismo...
Complicado, pero ya iremos aprendiendo!!!
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:4368821b$[email=2@ozsrvnegro.ozlan.local...]2@ozsrvnegro.ozlan.local...[/email]
Xevi,
Creo que no se ha incorporado la propiedad nPageNumber en la clase TPrinter.
Sí­, es cierto. Lo haremos en cuanto podamos.
Me es necesaria disponer de ella, por lo que se me ocurre derivar de TPrinter
CLASS TPrinter FROM XPrinter
Data nPageNumber Init 0
ENDCLASS
...
Pero no se como modificar los eventos esenciales de la clase!!!
¿Como puedo modificar el evento StartDoc(), para que cada vez que inicie un documento, poner esta Data a 0???
¿Cómo puedo modificar el evento NewPage(), para que incremente esta Data en +1???
Puedes hacer algo así­:
METHOD StartDoc() INLINE ::nPageNumber := 0, Super:StartDoc()
METHOD NewPage() INLINE ::nPageNumer++, Super:NewPage()
--
Un saludo,
José F. Giménez
--