Mostrar password que se esta digitando (al presionar click)

[Enrrique Vertiz]

Estimados, saludos

Las nuevas aplicaciones Web y en las APPs muestran una facilidad para mostrar el password que uno va digitando, normalmente cuando uno digita solo se muestran asteriscos, ejemplo ********* pero en el mismo Get al final aparece una imagen, un OJO o algo, que si uno le da click muestra lo digitado, el contenido y cuando uno suelta el click se regresa a los asteriscos.
Tenemos en FWH algo similar ??

Muchas gracias

[cnavarro]

Añade a tu GET ( suponemos que tu objeto TGET es oPassword )

Code: Select all | Expand

ACTION ( oPassword:lPassword := !oPassword:lPassword, oPassword:Refresh() )
 

[Enrrique Vertiz]

Cristobal, MUCHAS GRACIAS

Probe tu codigo, me coloca como un boton al final del GET pero cuando le doy click me muestra 10 asteriscos, mi clave es de 8 asteriscos, la digito, estan los 8 asteriscos, voy al boton le doy click y me aparecen 10 asteriscos ??, alguna idea que estoy haciendo mal, abajo la linea de codigo, Muchas Gracias

REDEFINE GET oPass VAR cPass ID 120 OF oDlg PICTURE "@X" VALID chkvalpas(cPass) ACTION ( oPass:lPassword := !oPass:lPassword, oPass:Refresh() )

[Enrrique Vertiz]

Saludos Cristobal

Me parece que sale asteriscos, porque es un REDEFINE GET y en el .RC este campo tiene activado el password YES, ahora si se lo pongo en NO, ya no me esconde el password al digitar ...
Gracias

[cnavarro]

Mira a ver, porque si pones la definición en el RC,
viewtopic.php?f=6&t=40106&p=239351&hilit=es+password&sid=ba42e3dfc30f0987c082a35e3ee6f73b#p239351

[karinha]

Intente con el comando:

Code: Select all | Expand

   DECRYPT()
 

Saludos.

[Enrrique Vertiz]

Cristobal, Karinha, gracias por su tiempo

Intente, pero no logro que se muestre, ojala en FWH puedan crear un ejemplo usando .RES

[karinha]

Muestra como estás haciendo, incluso el .rc, porfa.

Saludos.

[Enrrique Vertiz]

Saludos Karinha

aqui la linea de programa :

cPass:=space(10)
REDEFINE GET oPass VAR cPass ID 120 OF oDlg PICTURE "@X" VALID chkvalpas(cPass) ACTION ( oPass:lPassword := !oPass:lPassword, oPass:Refresh() )

aqui el dialogo del recurso :

CVINGPAS DIALOG FIXED IMPURE 101, 36, 298, 79
STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
FONT 8, "MS Sans Serif"
{
CONTROL "", 110, "Edit", WS_BORDER|WS_TABSTOP, 92, 18, 187, 12
CONTROL "", 120, "Edit", ES_PASSWORD|WS_BORDER|WS_TABSTOP, 92, 35, 187, 12
CONTROL "&Aceptar", 998, "Button", BS_DEFPUSHBUTTON|WS_TABSTOP, 191, 61, 50, 15
CONTROL "&Cancelar", 999, "Button", WS_TABSTOP, 246, 61, 50, 15
CONTROL "&Acceso", 13, "Button", BS_GROUPBOX, 12, 2, 277, 55
CONTROL "", -1, "Static", SS_ICON, 18, 12, 18, 20
CONTROL "&Usuario", -1, "Static", SS_RIGHT|WS_GROUP, 42, 20, 44, 8
CONTROL "&Contraseña", -1, "Static", SS_RIGHT|WS_GROUP, 42, 37, 44, 8
CONTROL "&Acercade", 810, "TsSay", WS_GROUP, 3, 63, 55, 8
CONTROL "", 811, "TsSay", WS_GROUP, 66, 63, 66, 8
CONTROL "", 812, "TsSay", WS_GROUP, 139, 63, 45, 8
}

GRACIAS

[karinha]

https://i.imgur.com/A6Q8dZQ.png



Saludos.

[karinha]

Ejemplo completo:

https://mega.nz/file/ZVVHAYzK#yyc0dGTAo1r4m9Dn3_mhprgtr7mnlZVj1s0cHdT6_is

Dúdas, estamos aqui - Estoy acá. jajajajajaja

Saludos.

[ACC69]

A lo que se refiere el Ing. es que muestre la clave en el mismo get al presionar a la derecha el ojo del boton ....como cuando entras a tu computadora y tecleas la clave y a la derecha un boton de ojo para mostrar en el mismo campo del get que clave estas tecleando.

A eso se refiere y no que muestre en un cuadro de dialogo que yo igual eso estoy intentando hacer con mis gets con password y no le encuentro.

Saludos.

Atte: Adriano C. C.

[karinha]

Miar se és esto. Usando Hide() y Show() en el GET con y sin Password.

https://mega.nz/file/EUUFQIZY#d4_ks5k2wYFCb2GosiH3w7fpVDqk6A9gnrcKweFZLxI

Saludos.

[karinha]

https://i.imgur.com/h23SLXU.png



Saludos.

[Enrrique Vertiz]

Gracias Karinha por tu tiempo ...
El segundo ejemplo no me deja bajarlo el VERTIZ2.RAR me dice que tiene virus, puedes enviarmelo por mail evertiz arroba gmail para validarlo ...
Gracias nuevamente