Versão atual:

Cor por coluna MsNewGetDados

Boa tarde,

Estou tentando mudar a cor de certas colunas do meu GetDados para poder destaca-las, contudo, não estou conseguindo usando SetBlkBackColor nem SetBlkColor. Observem meu codigo:

oTabelaEmb:oBrowse:lUseDefaultColors := .F.
oTabelaEmb:oBrowse:SetBlkColor({|| fGetCor(oTabelaEmb:aCols,oTabelaEmb:nAt,aHeader)})


Static Function fGetCor(aLinha,nLinha,aHeader)
    Local nPosOP  := aScan(aHeader,{|x| Alltrim(x[2]) == "NOPS"})
    Local nPosSuf := aScan(aHeader,{|x| Alltrim(x[2]) == "SUFPR"})
    Local nPosQtd := aScan(aHeader,{|x| Alltrim(x[2]) == "QTD"})
    Local nCor    := CLR_HMAGENTA

    If !Empty(aLinha[nLinha][nPosOP]) .OR. !Empty(aLinha[nLinha][nPosSuf]) .OR. !Empty(aLinha[nLinha][nPosQtd])
        nCor := CLR_HGREEN
    Endif

Return nCor

Neste exemplo esta ficando tudo verde, como podem ver em anexo (no caso o anexo é com a SetBlkColor), minha validação esta errada ou não tem nada mesmo que mude as colunas individualmente ao inves das linhas?

Versões (2):

Ver a versão formatada

Cor por coluna MsNewGetDados

Comentário

new question