Dialog modo dark

Framework - Linha Protheus LIB
1

Estou utilizando o ponto de entrada MT120TEL para alterar o Dialog da rotina de pedido de compra.
Ao utilizar um MSGet e colocar o protheus em modo dark, o campo ainda fica com a cor branca. alguém já teve esse problema e sabe qual a melhor solução?

1 curtida
2

Estou com o mesmo problema e com um chamado aberto sobre, vou acompanhar por aqui se alguém consegue nos ajudar kkk

1 curtida
3

Pesquisei um pouco e não havia achado nada sobre, pelo modo dark estar disponível somente na 2410 nem todos estão enfrentando esse problema.
Caso descubra alguma coisa vou colocar aqui para documentar.

4

O que eu tenho observado é que a Totvs ainda não ajustou todos os componentes para o tema escuro, então pode ser este o caso. Acho que vale a pena abrir ticket com eles para ver se ajustam.

5

Olá.

Verifique como está a construção do seu TGet/MsGet, caso ele estiver especificando uma cor fixa nos parâmetros nClrFore e nClrBack, o sistema irá acatar essas cores e não a do sistema.

Você pode passar esses parâmetros como nulo, para deixar o sistema escolher a cor de acordo com o tema, ou realizar uma condição para informar as cores de acordo com o tema.

Para obter qual tema está sendo utilizado pelo sistema, utilize a classe totvs.framework.css.getNewWebAppTheme(). Documentação: getNewWebAppTheme - Função que retorna o tema do Protheus - Frameworksp - TDN

Exemplos:

// Dessa forma, a cor ficará fixa como texto preto (CLR_BLACK) e fundo branco (CLR_WHITE)
TGet():New(096,096, bSetGet(cCFOP), oDialog, 060, 008, '', , CLR_BLACK, CLR_WHITE, , , , .T., '', , , .F., .F., , .F., .F., '', 'cCFOP')

// Dessa forma, a cor será assumida de acordo com o tema aplicado pelo Protheus
TGet():New(096,096, bSetGet(cCFOP), oDialog, 060, 008, '', , , , , , , .T., '', , , .F., .F., , .F., .F., '', 'cCFOP')

// Dessa forma, aplico a cor de acordo com o tema do Protheus
cTheme := totvs.framework.css.getNewWebAppTheme()
If !empty(cTheme) .and. cTheme == "DARK"
	nClrText := CLR_WHITE
	nClrBack := CLR_BLACK
Else
	nClrText := CLR_BLACK
	nClrBack := CLR_WHITE
EndIf

TGet():New(096,096, bSetGet(cCFOP), oDialog, 060, 008, '', , nClrText, nClrBack, , , , .T., '', , , .F., .F., , .F., .F., '', 'cCFOP')
3 curtidas
6

Bom dia.
Conforme explicado pelo gtrabach o problema ocorre quando especificamos o parâmetros “COLORS” no MSGet, retirei o meu e ele aplicou o do tema atual do sistema.
Obrigado pelo apoiO!

1 curtida