PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → 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)
Started by Boller, Feb., 23 2021 12:32 PM - 1 reply
#1
Registered member
3,220 messages
Popularité : +89 (91 votes)
Posted on February, 23 2021 - 12:32 PM
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/
#2
Registered member
3,220 messages
Popularité : +89 (91 votes)
Posted on February, 23 2021 - 1:57 PM
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/
→ Go back to WINDEV 25