[[nlsgarcia]]

Luvac,

Empezado por ecfisa

...Funciona correctamente en Delphi 7 y lamentablemente no poseo la versión con que trabajas (Delphi XE4)...

Empezado por Luvac

...sigue igual, no se que le pasa, me pinta dos veces...

El código del archivo adjunto del Msg #12 funciona correctamente en Delphi 7 y Delphi 2010 bajo Windows 7 Professional x32, en Delphi XE4 sin embargo requiere de un pequeño ajuste para que se visualice correctamente la data en las celdas del TStringGrid:

Código Delphi [-]
  
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const
  ROWCOL : array[Boolean] of TColor = (clBlack, clRed);
begin
  with TStringGrid(Sender) do
  begin
    Canvas.Font.Color:= ROWCOL[ARow = RowSelected];
    Canvas.TextOut(Rect.Left+3, Rect.Top+3, Cells[Acol,ARow]);
  end;
end;

Espero sea útil

Nelson.