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
Toni Sales
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Pocket PC Color en GET ReadOnly
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 ?
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.
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
Ok
Gracias a los dos
Saludos
Toni Sales
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
Toni Sales
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 := {|| ::GoNextCtrl( ::hWnd ) }
o esto:
oGet:bGotFocus := {|| oGet:GoNextCtrl( oGet:hWnd ) }
o esto:
oGet:bGotFocus := {|| Self:GoNextCtrl( Self:hWnd ) }
en fin, creo que la idea es fácil, su lógica ...
Mejor aĂşn:
oGet:bGotFocus := {|| If(::lReadonly, ::GoNextCtrl( ::hWnd ), Nil) }
Saludos
Carlos G.
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
Carlos
No sirve.
Gracias de todas formas.
Saludos
Toni Sales
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
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda