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

[[oscarac]]

funciona, pero hay un detalle
no se ve resaltado la linea en que esta el registro activo.

se puede colocar un color diferente cuando el registro sea el activo? y cuando cambie de registro que devuelva el color que tenia originalmente

[[oscarac]]

SOLUCION :

Código Delphi [-]
if gdSelected in State then
  Begin
    dbgArticulo.Canvas.Font.Color := clBlue;
    dbgArticulo.Canvas.Brush.Color := clGray;
  End
  Else
  Begin
    dbgArticulo.Canvas.Font.Color := clBlack;
  End;

gracias mil