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
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Siguiento el HELP necesito ayuda.
-
- Mensajes: 15
- Registrado: Mié Jul 05, 2006 9:06 pm
-
- Mensajes: 420
- Registrado: Sab Ago 16, 2008 9:06 pm
Siguiento el HELP necesito ayuda.
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
>
>
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
>
>
-
- Mensajes: 558
- Registrado: Mar Feb 09, 2010 2:26 pm
Siguiento el HELP necesito ayuda.
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
>
>
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
>
>