Cor de Celula do StringGrid

[Márcio Brignol 0]

Olá pessoal,

 

Estou desenvolvendo uma tela de orçamentos onde tenho dentro de um grid a coluna com os meses e linha com as contas. Estas contas tem duas linhas onde divide-se em valor previsto e o realizado.

 

Preciso alterar a cor da celula de acordo com uma determinada regra que valida implicada nos valores previstos e realizados.

 

Tenho visto bastante coisa referente a DBGrid porém não estou conseguindo aplicar ao StringGrid ou se alguém tiver uma outra alternativa de componente semelhante.

 

Aguardo contato

[Chrnos 30]

Eu uso uma função aqui para mudar a cor da linha do stringrid quando ela é o cabeçalho... talvez ela te ajude a resolver seu problema, se adaptar ela ai para o que precisa.

 

procedure TForm1.AcertaCorGrid(grd:TStringGrid);
Var
  i, x: Integer;
Begin
  For i := 0 to grd.ColCount Do
	   For x := 0 To grd.RowCount Do
			 if (grd.Cells[0,x] = 'CÓDIGO') Then
				 grd.Objects[i,x] := Pointer(clSilver)
			 Else
				 grd.Objects[i,x] := Pointer($00EDFDFE);
End;

[]'s