Quitar borde de selección a TStringGrid

[Casimiro Noteví]

Pon tu código.

[Catublipas]

Código Delphi [-]
interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.pngimage,
  Vcl.StdCtrls, Vcl.PlatformDefaultStyleActnCtrls, Vcl.Menus, Vcl.ActnPopup,
  Vcl.StdStyleActnCtrls, Vcl.ToolWin, Vcl.ActnMan, Vcl.ActnCtrls, Vcl.ActnMenus,
  System.Actions, Vcl.ActnList, Vcl.Grids, Vcl.DBGrids, Vcl.DBCGrids, Data.DB,
  IBX.IBCustomDataSet, IBX.IBQuery;

type
  TStringGrid = class(Vcl.Grids.TStringGrid);
  TEmpresasForm = class(TForm)
  ...
  procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
  procedure StringGridContactosDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
  procedure Paint; override;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EmpresasForm: TEmpresasForm;
  iterador:Integer;
  R: TRect;

implementation

{$R *.dfm}

uses Login, FondoOscurecer, AnadirEmpresa, Contactos;
{ TStringgrid }
procedure TStringGrid.Paint;
begin
  inherited;
  R := CellRect(Col, Row);
  DrawFocusRect(Canvas.Handle, R);
end;
...

[ecfisa]

Hola Catublipas.

Lo que sucede que has copiado mal...

Esta es tu declaración de TStringGrid:

Empezado por Catublipas

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

Sin embargo, la propuesta que te hice era:

Empezado por ecfisa

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

Por último te sugerí la reforma del mensaje #6

Creo que el código final debería ser algo como esto:

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

implementation

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

Saludos

[[AgustinOrtu]]

Otra alternativa es, si tu Delphi soporta los class helpers, es esto:

Código Delphi [-]
type
  TStringGridHelper = class helper for TStringGrid
  public
    procedure Paint; override;
  end;

Luego, podes implementar el metodo Paint;

Los class helper se agregaron justamente para no seguir utilizando el "truco" de la interposer class y resolver este tipo de problemas (acceder a funcionalidad protegida de una clase) de una manera mas elegante

[Catublipas]

Buenas, os comento

he probado las dos maneras la respuesta de ecfisa me da error en la declaracion del procedimiento Paint. Y he probado la respuesta de AgustinOrtu que no me da error en la declaracion de la clase TStringGrid pero me da el siguiente error:

Código Delphi [-]
[dcc32 Error] Empresas.pas(16): E2137 Method 'Paint' not found in base class

Uso Delphi xe7 ¿tiene algo que ver?

[ecfisa]

Hola Catublipas

Empezado por Catublipas

...
Uso Delphi xe7 ¿tiene algo que ver?

Por los motivos que te expuse no puedo asegurarlo, pero es una posibilidad.

Para salir de dudas, proba este ejemplo que funciona correctamente en Delphi 7:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Menus, XPMan;

type
  TStringGrid = class(Grids.TStringGrid) //  class(Vcl.Grids.TStringGrid) para tu caso  
  private
    FBorde: Boolean;
  protected
    procedure Paint; override;
  public
    property Borde: Boolean read FBorde write FBorde default False;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    PopupMenu1: TPopupMenu;
    MenuItemBorde: TMenuItem;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure MenuItemBordeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

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

procedure TForm1.FormCreate(Sender: TObject);
var
  c, r: Integer;
  sg : TStringGrid;
begin
  sg := StringGrid1;
  // títulos de columnas y filas
  sg.Rows[0].CommaText := ',Col1,Col2,Col3,Col4,Col5';
  for r := 1 to sg.RowCount - 1 do
    sg.Cells[0, r] := Format('Fil%d',[r]);

  // algunos valores al StringGrid
  for c := sg.FixedCols to sg.ColCount - 1 do
    for r := sg.FixedRows to sg.RowCount - 1 do
      sg.Cells[c,r] := IntToStr(c+r);

  sg.PopupMenu := PopupMenu1;
  sg.Borde     := True; // StringGrid inicia con borde
end;

// PopupMenu-ItemBorde
procedure TForm1.MenuItemBordeClick(Sender: TObject);
const
  TXT: array[Boolean] of string = ('Poner borde', 'Quitar borde');
begin
  StringGrid1.Borde     := not StringGrid1.Borde;
  MenuItemBorde.Checked := StringGrid1.Borde;
  MenuItemBorde.Caption := TXT[StringGrid1.Borde];
  StringGrid1.Refresh;
end;

end.

Muestra:


Saludos

[Catublipas]

Buenas ecfisa,
me ha funcionado al parecer me faltaba incorporar la libreria Vcl.grids, ya no me da el error pero no me quita el borde.
Es posible que sea porque el StringGrid lo he creado en tiempo de diseño, o ¿no tiene nada que ver?
Muchas gracias de veras por vuestra ayuda de nuevo!