Mudar a cor do grid usando função TWBROWSE

Bom dia

Temos uma customização de uma tela que foi gerada a partir da função TWBrowse e gostaríamos de apresentar as linhas do grid com cores diferentes conforme o conteúdo de um coluna específica.

Mas não estamos conseguindo. Peço sua ajuda nesse sentido.

As linhas de código estão abaixo:

oBrowse:lUseDefaultColors := .F.oBrowse:SetBlkColor({|| CorFonte(aBrowse , oBrowse:nAt )}) oBrowse:SetBlkBackColor({|| CorFundo(aBrowse , oBrowse:nAt )})

Static Function CorFundo(aBrowse , nPos )

Local nRet := 16777215

If DtoS(aBrowse[nPos][10]) > DtoS(dDataBase) nRet := CLR_WHITE Endif

Return nRet

Static Function CorFonte(aBrowse , nPos )

Local nRet := CLR_BLACK

If DtoS(aBrowse[nPos][10]) > DtoS(dDataBase) nRet := CLR_RED Endif

Return nRet

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

Não é a resposta que estava procurando? Procure outras perguntas com as tags twbrowse cor ou faça a sua própria pergunta.