Page 1 of 1
Color en GET ReadOnly
Posted: Tue Jul 17, 2007 6:25 pm
by tsales
Antonio
En FWH existe la posibilidad de darle color a un Get con la cláusula READONLY. ¿Sería posible incluir esta posibilidad en FWPPC?
Saludos
Posted: Tue Jul 17, 2007 6:32 pm
by Antonio Linares
Toni,
En Windows cuando un Get está deshabilitado el propio Windows lo pinta de una forma diferente. En Pocket PC, si no me equivoco, no hay diferencia.
Has probado a hacer oGet:SetColor( ..., ... ) al Get que quieras cambiarle el color ?
Re: Color en GET ReadOnly
Posted: Wed Jul 18, 2007 7:42 am
by FiveWiDi
tsales wrote:Antonio
En FWH existe la posibilidad de darle color a un Get con la cláusula READONLY. ¿Sería posible incluir esta posibilidad en FWPPC?
Saludos
Buenas,
Defínelo SIN utilizar la cláusula READONLY, le aplicas el color que quieras, después realizas un oTuGet:lReadOnly := .T. y como dicen por aquí 'listo el pollo' (supongo
).
Saludos
Carlos G.
Posted: Wed Jul 18, 2007 9:01 am
by tsales
Ok
Gracias a los dos
Saludos
Posted: Wed Jul 18, 2007 9:47 am
by tsales
Carlos
La asignacion de colores funciona pero recibe el foco y por tanto no nos sirve.
He realizado pruebas utilizando el metodo Disable() y te permite cambiar el color de Fondo pero no el color del Texto.
El problema que me encuentro es que con el reducido tamaño de la pantalla en una PDA cuando un Get está con el estado disable o readonly el texto prácticamente no se vé.
Saludos
Posted: Wed Jul 18, 2007 1:51 pm
by FiveWiDi
tsales wrote:Carlos
La asignacion de colores funciona pero recibe el foco y por tanto no nos sirve.
He realizado pruebas utilizando el metodo Disable() y te permite cambiar el color de Fondo pero no el color del Texto.
El problema que me encuentro es que con el reducido tamaño de la pantalla en una PDA cuando un Get está con el estado disable o readonly el texto prácticamente no se vé.
Saludos
Prueba esto:
oGet:bGotFocus := {|| ::oWnd:GoNextCtrl( ::hWnd ) }
o esto:
oGet:bGotFocus := {|| oGet:oWnd:GoNextCtrl( oGet:hWnd ) }
o esto:
oGet:bGotFocus := {|| Self:oWnd:GoNextCtrl( Self:hWnd ) }
en fin, creo que la idea es fácil, su lógica ...
Mejor aún:
oGet:bGotFocus := {|| If(::lReadonly, ::oWnd:GoNextCtrl( ::hWnd ), Nil) }
Saludos
Carlos G.
Posted: Wed Jul 18, 2007 2:14 pm
by tsales
Carlos
No sirve.
Gracias de todas formas.
Saludos
Posted: Wed Jul 18, 2007 3:22 pm
by jrestojeda
#Define AzulB 16711680
#Define GrisB 12632256
Function Mifuncion()
...
...
REDEFINE GET oGet VAR vGet ID 100 OF oDlg READONLY COLOR AzulB,GrisB
...
...
Return nil
//
AzulB será el color de la letra dentro del get.
GrisB será el color del get propiamente dicho.
Yo lo hago de esta forma y funciona perfecto
Solo debes definir los colores que quieres utilizar en la cabecera de tu PRG como se muestra arriba y en el caso de no utilizar generador de recursos solo debes cambiar REDEFINE por DEFINE.
Saludos, Esteban