weiller.siqueira

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"

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

Só se fizer via CÓDIGO, assim:
 

   @ 2, 2 GET oGet VAR cPassword OF oDlg PASSWORD

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.

Melhorei


Ficou bom