Color en Linea DBGRID

[ecfisa]

Hola.

Intentalo de este modo:

Código Delphi [-]
procedure TfrmCatalogoArticulo.dbgArticuloDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  gr: TDBGrid;
begin
  gr := TDBGrid(Sender);

  if qryArticulosColor.AsInteger > 0 then
    gr.Canvas.Brush.Color := qryArticulosColor.AsInteger
  else
    gr.Canvas.brush.Color := clWhite;

  gr.Canvas.Font.Color  := clBlack;
  gr.Canvas.FillRect(Rect);
  gr.DefaultDrawColumnCell(Rect, Datacol, Column, State);
end;

Salida ejemplo:


Saludos