Stringgrid doble texto

[ecfisa]

Empezado por Luvac

...estoy utilizando un stringgrid lo que quiero hacer es que al momento que esta esta seleccionada resalte la fila encontre este codigo buscando en este foro...

Hola Luvac.

No termino de entender el efecto que buscas lograr, pero el código de tu mensaje hace exáctamente lo mismo que este:

Código Delphi [-]
procedure TForm1.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer; 
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
  begin
    if gdSelected in State then
    begin
      Canvas.Font.Color:= clred;
      Canvas.Font.Style:= [fsBold];
    end;
    Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, Cells[ACol,ARow])
  end
end;

Saludos