[[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