Stringgrid doble texto

[Luvac]

Con vcl eficsa

[ecfisa]

Hola Luvac.

Hagamos el último intento, te adjunto el código de prueba que funciona correcto en Delphi 7 y probalo con el XE4, por ahí encontras como adecuarlo...

Recordá que si te da problemas el reescribir la clase TStringGrid podes eliminar esa parte del código y declarar la variable RowSelected como global a la unidad.

Saludos

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