Hola,
Siguiendo los consejos que José Giménez nos ha dejado en
www.levante3000.org he hecho lo siguiente:
CLASS TEdit FROM XEdit
PROPERTY nClrPaneFocus INIT RGB( 255, 55, 255 )
ENDCLASS
Con esto cambio el color del foco en la familia de los tEdit.
En mi caso los colores están parametrizados. Y no se cual color voy a
tener en tiempo de ejecución.
Por lo tanto, el color que coloco en tiempo de compilación no
corresponde al que habrá en tiempo de ejecución. Por lo que la
modificación de la clase se me antoja que no es efectiva en mi caso.
¿Como podría solucionarse esto? ¿Con una ClassData? ¿Habría algún efecto
secundario?
Espero haber expuesto mi problemilla con claridad.
Saludos y gracias por la ayuda,
José Luis Capel
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.
Sobre clases X y T
Sobre clases X y T
José,
Gracias!!!
Mira que es fácil... y yo liándome con classdatas para modificar en
tiempo de ejecución el valor de una propiedad...
En fin.. lo dicho... gracias mil!
Saludos,
José Luis Capel
Jose F. Gimenez escribió:
> José Luis,
>
> supongamos que al principio del programa cargas el color deseado desde un
> fichero .ini, un .dbf o desde donde sea, y lo guardas en una variable,
> pongamos nGlobalClrPane. Lo que tendrás que hacer es simplemente:
>
> CLASS TEdit FROM XEdit
> METHOD New( oParent )
> ENDCLASS
>
> METHOD New( oParent ) CLASS TEdit
> ::nClrPaneFocus := nGlobalClrPane
> RETURN Super:New( oParent )
>
> Y ya está. Ten en cuenta que el sistema de clases X y clases T te permite no
> sólo modificar el valor por defecto de las propiedades, sino que también
> puedes sobreescribir los métodos que necesites.
>
>
Gracias!!!
Mira que es fácil... y yo liándome con classdatas para modificar en
tiempo de ejecución el valor de una propiedad...
En fin.. lo dicho... gracias mil!
Saludos,
José Luis Capel
Jose F. Gimenez escribió:
> José Luis,
>
> supongamos que al principio del programa cargas el color deseado desde un
> fichero .ini, un .dbf o desde donde sea, y lo guardas en una variable,
> pongamos nGlobalClrPane. Lo que tendrás que hacer es simplemente:
>
> CLASS TEdit FROM XEdit
> METHOD New( oParent )
> ENDCLASS
>
> METHOD New( oParent ) CLASS TEdit
> ::nClrPaneFocus := nGlobalClrPane
> RETURN Super:New( oParent )
>
> Y ya está. Ten en cuenta que el sistema de clases X y clases T te permite no
> sólo modificar el valor por defecto de las propiedades, sino que también
> puedes sobreescribir los métodos que necesites.
>
>
Sobre clases X y T
José Luis,
supongamos que al principio del programa cargas el color deseado desde un
fichero .ini, un .dbf o desde donde sea, y lo guardas en una variable,
pongamos nGlobalClrPane. Lo que tendrás que hacer es simplemente:
CLASS TEdit FROM XEdit
METHOD New( oParent )
ENDCLASS
METHOD New( oParent ) CLASS TEdit
::nClrPaneFocus := nGlobalClrPane
RETURN Super:New( oParent )
Y ya está. Ten en cuenta que el sistema de clases X y clases T te permite no
sólo modificar el valor por defecto de las propiedades, sino que también
puedes sobreescribir los métodos que necesites.
--
Un saludo,
José F. Giménez
supongamos que al principio del programa cargas el color deseado desde un
fichero .ini, un .dbf o desde donde sea, y lo guardas en una variable,
pongamos nGlobalClrPane. Lo que tendrás que hacer es simplemente:
CLASS TEdit FROM XEdit
METHOD New( oParent )
ENDCLASS
METHOD New( oParent ) CLASS TEdit
::nClrPaneFocus := nGlobalClrPane
RETURN Super:New( oParent )
Y ya está. Ten en cuenta que el sistema de clases X y clases T te permite no
sólo modificar el valor por defecto de las propiedades, sino que también
puedes sobreescribir los métodos que necesites.
--
Un saludo,
José F. Giménez