Página 1 de 1

Sobre clases X y T

Publicado: Lun Nov 28, 2005 10:02 am
por joseluis
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

Sobre clases X y T

Publicado: Lun Nov 28, 2005 10:34 am
por joseluis
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.
>
>

Sobre clases X y T

Publicado: Lun Nov 28, 2005 10:34 am
por jfgimenez
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