PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

Inicio | Mensajes recientes | Conéctese... |  | Español FR
Inicio → 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)
Iniciado por Boller, 23,feb. 2021 12:32 - 1 respuesta
#1
Miembro registrado
3.655 mensajes
Popularité : +175 (223 votes)
Publicado el 23,febrero 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/
#2
Miembro registrado
3.655 mensajes
Popularité : +175 (223 votes)
Publicado el 23,febrero 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/
→ Volver a WINDEV 25