Boa Tarde a todos,
Queria saber o uso simplificado do getproperty com exemplos práticos.
desde já agradeço.
utilizo xbase, minigui, xharbour

Moderador: Moderadores
*-----------------------------------------------------------------------------------
Function ExibeSenha1()
local xCHEKA := (Form_Acesso.tx_EXIBE1.value)
local xSENHA := (Form_Acesso.p_password.VALUE)
*GetProperty (<cWindowName>[,<cControlName>] ,<cPropertyName>)--> PropertyValue
*SetProperty ( <cWindowName>[,<cControlName>], <cPropertyName> , <PropertyValue> )
IF xCHEKA = .T.
Form_Acesso.p_password.RELEASE
li := 127
ci := 153
define textbox p_password
PARENT Form_Acesso
row li
col ci
width 251
height 24
DATATYPE CHARACTER
CASECONVERT UPPER
PASSWORD .F.
ONGOTFOCUS ( This.BackColor := (pAMA) )
value (xSENHA)
ONLOSTFOCUS ( This.BackColor := (pBCO) )
MAXLENGTH 10
tabstop .T.
readonly .F.
fontbold .T.
ONENTER Verifica_Login()
end textbox
ELSE
Form_Acesso.p_password.RELEASE
li := 127
ci := 153
define textbox p_password
PARENT Form_Acesso
row li
col ci
width 251
height 24
DATATYPE CHARACTER
CASECONVERT UPPER
PASSWORD .T.
ONGOTFOCUS ( This.BackColor := (pAMA) )
value (xSENHA)
ONLOSTFOCUS ( This.BackColor := (pBCO) )
MAXLENGTH 10
tabstop .T.
readonly .F.
fontbold .T.
ONENTER Verifica_Login()
end textbox
ENDIF
RETURN
FUNCTION ExibeSenha1()
LOCAL lExibe, cSenha
lExibe := Form_Acesso.tx_EXIBE1.value
cSENHA := Form_Acesso.p_password.VALUE
Form_Acesso.p_password.RELEASE
li := 127
ci := 153
DEFINE TEXTBOX p_password
PARENT Form_Acesso
ROW li
COL ci
WIDTH 251
HEIGHT 24
DATATYPE CHARACTER
CASECONVERT UPPER
PASSWORD ! lExibe
ONGOTFOCUS ( This.BackColor := (pAMA) )
VALUE ( cSENHA )
ONLOSTFOCUS ( This.BackColor := (pBCO) )
MAXLENGTH 10
TABSTOP .T.
READONLY .F.
FONTBOLD .T.
ONENTER Verifica_Login()
END TEXTBOX
RETURN
marcosLP escreveu: fiz de uma forma bem pouco profissional mas funciona
// Esse textbox NAO mostra a senha
@ 097,005 textbox tbox_002;
of form_dados;
height 027;
width 120;
value x_senha;
maxlength 010;
uppercase;
ON ENTER _Pushkey(VK_TAB) ;
on change SETPROPERTY("form_dados","tbox_002_mostra","value",this.value);
password
// Esse textbox MOSTRA a senha, um atualiza o outro e soh eh mostrado um ou outro na tela
@ 097,005 textbox tbox_002_MOSTRA;
of form_dados;
height 027;
width 120;
value x_senha;
maxlength 010;
ON ENTER _Pushkey(VK_TAB) ;
on change SETPROPERTY("form_dados","tbox_002","value",this.value);
uppercase ;
INVISIBLE
// Esse checkbox alterna entre mostrar ou nao mostrar a senha
@ 097,150 CheckBox check_Mostrar_Senha Caption "Mostrar senha";
Value .F. Width 130;
ON ENTER _Pushkey(VK_TAB) ;
on change Mostra_Senha_Usuario(This.value) //Show_Password( "tbox_002", This.Value )
//----------------------------------------------------------
Function Mostra_Senha_Usuario(lMostra)
//----------------------------------------------------------
IF lMostra .AND. Verifica_Acesso(59)
SETPROPERTY("form_dados","tbox_002","visible",.F.)
SETPROPERTY("form_dados","tbox_002_mostra","visible",.T.)
form_dados.tbox_002_mostra.SetFocus
_PushKey(VK_DOWN) // Para deselecionar / Funcionar o SetFocus
ELSE
SETPROPERTY("form_dados","tbox_002","visible",.T.)
SETPROPERTY("form_dados","tbox_002_mostra","visible",.F.)
SETPROPERTY("form_dados","check_Mostrar_Senha","value",.F.)
form_dados.tbox_002.SetFocus
_PushKey(VK_DOWN) // Para deselecionar / Funcionar o SetFocus
ENDIF
RETURN
//----------------------------------------------------------
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes