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;