Page 1 of 1

Para Daniel, manu y fernando GET........

Posted: Sat Apr 29, 2006 6:14 pm
by Wneskers
Estimados amigos tengo lo siguiente

statil function cambia (ofld)
ofld:setoption(2)
ofld:noption:2
olfd:refresch()

lo aplique en el programa para que cambie automaticamente a la carpeta del folder, lo hace bien, pero no se me ubica automaticamente en el primer get de ese folder ¿como haria para que se ubique?

y lo siguiente: como hago para que un get tenga un color diferente mientras tenga el foco, apesar que ya lo he definido por ejemplo:

REDEFINE GET oCod ID 110 ;
COLOR Rgb(128,128,128) (255,255,0).

EN ESTE EJEMPLO YA DEFINE EL COLOR QUE TENDRA PERO QUIERO ES QUE EL COLOR LO TENGA DESPUES QUE PIERDA EL FOCO Y MIENTRAS LO TIENE QUE SEA POR EJEMPLO DE AMARILLO Y NEGRO,

de antemano muchas gracias por los concejos dados anterior mente

Posted: Sun Apr 30, 2006 7:41 am
by DanielPuente
Wneskers:

Respecto al foco en el get del folder:

oFld:aDialogs[2]:bGotFocus:={ || oCodPro:SetFocus() }

Respecto al color del get podes modificar la clase tget de fivewin:

-En METHOD GotFocus() CLASS TGet al final agregas:

::SetColor(nRgb(15,15,15),nRgb(208,218,242)) // agregado daniel

antes de:

Super:GotFocus()

return 0


-Y en METHOD LostFocus() CLASS TGet, al final:

::SetColor(nRgb(15,15,15),nRgb(255,255,255)) // agregado daniel

return nil


Sino en cada get:

oGet:bGotFocus:={|| oGet:SetColor(nRgb(15,15,15),nRgb(208,218,242))}
oGet:bLostFocus:={|| oGet:SetColor(nRgb(15,15,15),nRgb(255,255,255))}

Saludos,