Quitar borde de selección a TStringGrid

[Catublipas]

Buenas tardes,
tengo un pequeño problemilla estoy seguro que podéis resolverlo. Me gustaría quitarle el borde que se genera alrededor de una celda que tienes seleccionada, en mi caso es un borde punteado.

Esta es la captura:
http://es.zimagez.com/zimage/captura440.php

No se si se puede eliminar o cambiar el color, lo pondría del mismo color que el relleno y sobraría.
Muchas gracias por vuestra ayuda.
Un saludo!

[ecfisa]

Hola Catublipas.

Empezado por Catublipas

...
Me gustaría quitarle el borde que se genera alrededor de una celda que tienes seleccionada, en mi caso es un borde punteado.
...

Fijate si te sirve de este modo:

Código Delphi [-]
...
type
  TStringGrid = class(Grids.TStringGrid)
  protected
    procedure Paint; override;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    ...
  end;

var
  Form1: TForm1;

implementation

{ TStringgrid }
procedure TStringGrid.Paint;
var
  R: TRect;
begin
  inherited;
  R := CellRect(Col, Row);
  DrawFocusRect(Canvas.Handle, R);
end;
...

Saludos

[Catublipas]

Buenas ecfisa,
gracias por tu respuesta pero no consigo implementarla, no me reconoce

Código Delphi [-]
Grids.TStringGrid

ni el método paint tampoco.
¿Cómo implemento el método?

Muchas gracias de nuevo!

[[AgustinOrtu]]

Firemonkey o VCL?

[Catublipas]

Estoy programandolo en VCL Form :P.

[ecfisa]

Hola Catublipas.

Empezado por Catublipas

Buenas ecfisa,
gracias por tu respuesta pero no consigo implementarla, no me reconoce

Código Delphi [-]
Grids.TStringGrid

ni el método paint tampoco.
¿Cómo implemento el método?

Muchas gracias de nuevo!

Uso una versión antigua de Delphi como para probarlo, pero por las dudas intentá de este modo:

Código Delphi [-]
type
 TStringGrid = class(Vcl.Grids.TStringGrid)
 ...

Saludos

[Catublipas]

Buenas ecfisa efectivamente con esto me deja pero me da los siguientes errores en el procedimiento procedure TStringGrid.Paint;

Código Delphi [-]
[dcc32 Error] Empresas.pas(171): E2003 Undeclared identifier: 'Paint'
[dcc32 Error] Empresas.pas(173): E2075 This form of method call only allowed in methods of derived types
[dcc32 Error] Empresas.pas(174): E2003 Undeclared identifier: 'CellRect'
[dcc32 Error] Empresas.pas(174): E2003 Undeclared identifier: 'Row'
[dcc32 Error] Empresas.pas(175): E2003 Undeclared identifier: 'Canvas'
[dcc32 Error] Empresas.pas(175): E2029 'END' expected but ',' found
[dcc32 Error] Empresas.pas(151): E2065 Unsatisfied forward or external declaration: 'TEmpresasForm.Paint'
[dcc32 Fatal Error] F2063 Could not compile used unit 'Empresas.pas'

muchas gracias de nuevo!

[Casimiro Notevi]

Pon tu código.