Preenchimento de GRID com cores em função do valor da célula

[jiltons]

Prezados,

Alguém tem uma solução para mudar a Fonte (cor ) de uma célula do componente GRID, em função do valor desta célula.

EX: para valores negativos setar a cor VERMELHA, para valores positivos, setar a cor AZUL.

[Toledo]

Amigo, você está procurando uma solução para Clipper ou é para outra LIB do Harbour (MiniGui, FiveWin, HwGui, etc)?

Abraços,

[jiltons]

Estou utilizando HMG minigui versao 3.4.4

[diasjmauricio]

Segue solução.


PRG:

Código: Selecionar todos

#define XBACKCOLOR { || iIf( This.CellRowIndex / 2 == Int( This.CellRowIndex / 2 ), { 245, 245, 245 }, { 255, 255, 255 } ) }
Private xForeColor1				:= LeArquivoINI( ARQUIVOINI, "Pesquisa", "Financeiro Grid Credito" )	// Cor Credito
Private xForeColor2				:= LeArquivoINI( ARQUIVOINI, "Pesquisa", "Financeiro Grid Debito" )		// Cor Debito
Private xForeColorFinanceiro	:= { |x| iIf( x[3] == "C", &xForeColor1, &xForeColor2 ) }				// x3(3 é o número da coluna no grid)

FMG:

Código: Selecionar todos

     DEFINE GRID Grid_Pesquisa
            ROW    240
            COL    10
            WIDTH  960
            HEIGHT 360
            HEADERS {"Registro","Documento","C/D","Emissão","Vencimento","Pag / Rec","Valor","Favorecido","Histórico","Portador","Sub-Conta","Centro Custo"}
            WIDTHS {70,85,40,80,80,80,70,150,170,60,75,100}
            ITEMS {{'','','','','','','','','','','',''}}
            DYNAMICBACKCOLOR { XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR }
            DYNAMICFORECOLOR { xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro }
            ONDBLCLICK Form_Contas2(2)
            NOSORTHEADERS .F.
            JUSTIFY { BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_CENTER, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT }
            HEADERIMAGE ""
            ALLOWSORT .T.
     END GRID  

att
Diasjmauricio
BH/MG

[welington]

Olá Boa noite.
Estou tentado aprender a fazer a mudança de cor na grid.
Porem não conseguir fazer funcionar!
Alguém teria um exemplo mais simples. ou explicar melhor essa função ?