Hola amigos:
Como puedo hacer para que el get se vea con del look disable() aunque no lo este.
Solo me interesa que se vea como tal.
Muchas Gracias.
Saludos
Dario Fernandez
Veja se é isto que você quer:
redefine get oget ... color CLR_BLACK,CLR_WHITE when .f.
oget:lDisColors:=.f.
SGS gracias por responder.
Se ve como quiero, pero quiero que sea editable. Que se comporte como un get normal.
Muchas gracias, seguire investigando.
Saludos
Dario Fernandez
PD: Quizas recuerdes, los que estamos en el foro hace tiempo, ya hemos visto esta situacion. No me acuerdo bien
pero me parece que hace mucho años, se trató este tema y el look era parecido a Win XP . Un abrazo.
REDEFINE GET oGet ...
oGet:bGotFocus := {|o| o:SetColor( CLR_BLACK, CLR_WHITE ) }
oGet:bLostFocus := {|o| o:SetColor( CLR_GRAY, CLR_WHITE ) }Gracias Francisco:
Dejo una foto para que lo veas.
Es igual a cuando haces un get con la clausula WHEN .F. (Aqui esta deshabilitado por estar when .f.),
lo quiero normal editable pero con este look que queda mucho mejor.
Lo intente con Set _3DLOOK OFF y ON, pero no lo logro.
La apariencia normal esta bien, pero si observas un get (WHEN .F.), queda mucho mejor a la vista
y no como el get normal que queda un rectangulo hundido, con profundidad.
He intentado con todos los estilos, border, noborder, etc. del editor de recursos, pero sin suerte.
http://img842.imageshack.us/img842/5370/eeor.png
Muchas gracias.
Saludos.
Dario Fernandez
Esa imagen lo dice todo. Efectivamente en el post que señala Cristóbal se encuentra la solución.
Saludos.
Gracias a todos: Sigue sin salir plano.
La imagen muestra lo que quiero, aunque hice los cambios de la clase, no lo he logrado aun.
Coloque el tget.prg antes de las libs de FW, pero no lo logro.
Seguiré viendo y comparto si lo logro.
Muchas gracias.
Saludos
Dario Fernandez.
