Campo senha igual ao do Google

[weiller.siqueira]

Olá prezados, boa tarde

Gostaria de saber se há como implementar nos get de password aquele "olhinho' que existe nos formularios de login pela net
como o do google, onde o usuario pode clicar nele e exibir a senha que está digitada no campo.

 

[Theotokos]

 

REDEFINE GET oGet VAR cSenha ID 4004 Of oScr UPDATE FONT oFont COLOR CLR_WHITE,CLR_RED ACTION SUAFUNCAO("PARA LIBERAR VISUALIZACAO") BITMAP "SEU_BMP_OLHO.Bmp"

[sunset]

Boa Dia

Atualmente para esconder a senha eu uso no RES habilitando o PASSWORD como posso colocar esse recurso ? sem mexer no RES.

 

Grato

[kapiaba]

Só se fizer via CÓDIGO, assim:

 

	   @ 2, 2 GET oGet VAR cPassword OF oDlg PASSWORD
	

[kapiaba]

Se desejar, use minha tela(dialog) para pegar a senha, uso livre(free).

DLG_SENHA_PASSWORD DIALOG 239, 157, 238, 148
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "PLENOIND - Acesso dos Usuários"
FONT 8, "MS Sans Serif"
{
 EDITTEXT 20, 101, 63, 50, 14, ES_CENTER | ES_MULTILINE | ES_PASSWORD | WS_BORDER | WS_GROUP | WS_TABSTOP
 PUSHBUTTON "&Confirme", 301, 68, 96, 70, 14
 PUSHBUTTON "&Saida", 302, 140, 96, 50, 14
 GROUPBOX "Digite a Senha Correta", 501, 69, 44, 122, 50, BS_GROUPBOX
 CTEXT "Digite a Senha Master", 403, 69, 30, 122, 12, SS_CENTER | NOT WS_GROUP
 LTEXT "<ESC> Sair", 404, 5, 96, 60, 14, NOT WS_GROUP
 CONTROL "TBitMap", 121, "TBitMap", WS_CHILD | WS_VISIBLE, 4, 30, 60, 64
 CTEXT "OBRIGATÓRIO SENHA MASTER.", 402, 1, 15, 236, 12, SS_CENTER | NOT WS_GROUP
 CTEXT "ATENÇÃO: CHAME O SUPERVISOR.", 401, 1, 3, 236, 12, SS_CENTER | NOT WS_GROUP
 CTEXT "GERENTE OU O DONO DA EMPRESA.", 406, 1, 127, 236, 14, SS_CENTER | NOT WS_GROUP
 CONTROL "TBitMap", 122, "TBitMap", WS_CHILD | WS_VISIBLE, 194, 49, 40, 43
 CTEXT "SOMENTE USUÁRIO MASTER.", 405, 2, 113, 236, 14, SS_CENTER | NOT WS_GROUP
}

Regards, saludos.