Xailer & OZ Software

Hola.
a ver si pueden orientarme. estoy leyendo esto:
Por ejemplo, supongamos que queremos modificar el control TEdit para
que siempre ponga el color de fondo en amarillo. Bastaría con añadir en los
fuentes de nuestro programa lo siguiente:
CLASS TEdit FROM XEdit
PUBLISHED:
PROPERTY nClrPane INIT clYellow
ENDCLASS
Y después, usar la clase TEdit normalmente.
---------------------
Donde va en si? en el TUTOR01.prg:
#include "Xailer.ch"
class TEdit FROM XEdit
published:
property nClrPane init clYellow
endClass
Procedure Main()
Application:cTitle := "tut01"
TForm1():New( Application ):Show()
Application:Run()
Return
------------------
o en el Form.prg
#include "Xailer.ch"
class TEdit FROM XEdit
published:
property nClrPane init clYellow
endClass
CLASS TForm1 FROM TForm
COMPONENT oEdit1
Gracias.
Espero aca
METHOD CreateForm()
ENDCLASS

En cualquiera.
Por comodidad, yo lo pongo en el módulo que carga la aplicación.
Saludos,
Alf+.
Lord Gustavo Miguel Angel escribió:
> Hola.
>
> a ver si pueden orientarme. estoy leyendo esto:
>
> Por ejemplo, supongamos que queremos modificar el control TEdit para
> que siempre ponga el color de fondo en amarillo. Bastarí­a con añadir en los
> fuentes de nuestro programa lo siguiente:
>
>
>
> CLASS TEdit FROM XEdit
>
> PUBLISHED:
>
> PROPERTY nClrPane INIT clYellow
>
> ENDCLASS
>
>
>
> Y después, usar la clase TEdit normalmente.
>
>
>
> ---------------------
>
> Donde va en si? en el TUTOR01.prg:
>
> #include "Xailer.ch"
>
> class TEdit FROM XEdit
> published:
> property nClrPane init clYellow
> endClass
>
> Procedure Main()
>
> Application:cTitle := "tut01"
> TForm1():New( Application ):Show()
> Application:Run()
>
> Return
>
> ------------------
>
> o en el Form.prg
>
> #include "Xailer.ch"
>
> class TEdit FROM XEdit
> published:
> property nClrPane init clYellow
> endClass
>
> CLASS TForm1 FROM TForm
>
> COMPONENT oEdit1
>
> Gracias.
>
> Espero aca
>
>
> METHOD CreateForm()
>
>
> ENDCLASS
>
>

Saludos:
Serí­a bueno que leyeras este articulo de los creadores de Xailer.
http://xailer.info/esp/?p=21
José Ramón Castro.
Lord Gustavo Miguel Angel escribió:
> Hola.
>
> a ver si pueden orientarme. estoy leyendo esto:
>
> Por ejemplo, supongamos que queremos modificar el control TEdit para
> que siempre ponga el color de fondo en amarillo. Bastarí­a con añadir en los
> fuentes de nuestro programa lo siguiente:
>
>
>
> CLASS TEdit FROM XEdit
>
> PUBLISHED:
>
> PROPERTY nClrPane INIT clYellow
>
> ENDCLASS
>
>
>
> Y después, usar la clase TEdit normalmente.
>
>
>
> ---------------------
>
> Donde va en si? en el TUTOR01.prg:
>
> #include "Xailer.ch"
>
> class TEdit FROM XEdit
> published:
> property nClrPane init clYellow
> endClass
>
> Procedure Main()
>
> Application:cTitle := "tut01"
> TForm1():New( Application ):Show()
> Application:Run()
>
> Return
>
> ------------------
>
> o en el Form.prg
>
> #include "Xailer.ch"
>
> class TEdit FROM XEdit
> published:
> property nClrPane init clYellow
> endClass
>
> CLASS TForm1 FROM TForm
>
> COMPONENT oEdit1
>
> Gracias.
>
> Espero aca
>
>
> METHOD CreateForm()
>
>
> ENDCLASS
>
>