Hola.
Dudo de su aplicabilidad... pero brinda un 'arco iris' de posibilidades...
Código Delphi
[-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Num,Base: Integer;
begin
Num:= DBGrid1.DataSource.DataSet.FieldByName('ASIENTO').AsInteger;
if Odd(Num) then
Base:= Integer(clRed)
else
Base:= Integer(clBlue);
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= TColor(Base + Num * 100);
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
Saludos.