PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - Deixar o campo atual em cor evidente na tela para o usuario localizar rapido o campo atual(AlteraCorFocusStyle)
WX - Deixar o campo atual em cor evidente na tela para o usuario localizar rapido o campo atual(AlteraCorFocusStyle)
Débuté par Boller, 23 fév. 2021 12:32 - 1 réponse
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 23 février 2021 - 12:32
Prezados

Para deixar o campo atual em cor evidente na tela para o usuario localizar rapido o campo atual, abaixo exemplificamos como fazer isso:

Procedure AlteraCorFocusStyle(pGrupo, pModo = True)

sCampo_ is string

FOR i = 1 TO pGrupo..Occurrence
sCampo_ = EnumControl(pGrupo,i,byTabOrder)

Trace({sCampo_,indControl}..Type,{sCampo_,indControl}..Name,pModo )


IF {sCampo_,indControl}..Type = 10001 OR {sCampo_,indControl}..Type = 10002 OR {sCampo_,indControl}..Type = 20001 OR {sCampo_,indControl}..Type = 20004 OR {sCampo_,indControl}..Type = 20003 THEN // COMBO + EDT
IF pModo THEN
{sCampo_,indControl}..BrushColor = gnCorObrigatorio //_cadparametros_interface.COR_OBRIGATORIO // Obrigatório
Trace({sCampo_,indControl}..Type,{sCampo_,indControl}..Name,pModo )
//{sCampo_,indControl}..Caption += " *"
ELSE
{sCampo_,indControl}..BrushColor = gnCorNormal // _cadparametros_interface.COR_NORMAL // Normal
END
END
END


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 23 février 2021 - 13:57
OBS.:

Colocar em um grupo e informar nessa procedure global o grupo ao abrir a janela.

Procedure MyWindow( )

AlteraCorFocusStyle(GR_Campos)

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/