richy
24 de Julio del 2004

como puedo hacer una captura de uanpalabra clave,)(por ejemplo ) y que me aparezcan asteriscos o cualquier otro caracter que no se vea lo que escribo _??? en fox2.6 para DOS ???

Gracias

osvaldo
24 de Julio del 2004

Utiliza un control Textbox y en la propiedad:
PasswordChar, le colocas el simbolo que quieras y listo.

gr
24 de Julio del 2004

esta es una vieja rutina que usaba en clipper.
si la modificas te puede servir.

*-------------------------------------------------------------------------------
FUNCTION pideclave( _debe )
*-------------------------------------------------------------------------------
LOCAL lclave , x , pantpide
LOCAL oldcolor := setcolor()
save screen to pantpide
_debe := alltrim(upper(_debe))
setcol('r/w,w/r')
@ 18,20 SAY 'ÖÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ·'
@ 19,20 SAY 'º Ingrese Clave de Acceso ÛÛÛÛÛÛÛÛÛ º'
@ 20,20 SAY 'ÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĽ'
setcursor(0)
set console off
x := 0 ; lclave := ''
set exact on
WHILE lclave # _debe .and. x < 3
accept to lclave
lclave := upper(lclave)
IF len( lclave ) = 0
lclave := '---------'
ENDIF
x++
END
set exact off
setcursor(1)
set console on
restore screen from pantpide
setcolor( oldcolor )
RETURN _debe == lclave

_debe es la clave que debe ingresar.
no muestra nada, pero la finalidad es la misma.