CustomStringGridClass.pas

   1 unit CustomStringGridClass;
   2
   3 interface
   4
   5 uses
   6   ResourcesClass,
   7   Classes, Grids;
   8
   9 type
  10
  11   { TCustomStringGrid }
  12
  13   TCustomStringGrid = class(TStringGrid)
  14   private
  15     pSelected: Boolean;
  16     procedure pOnEnter(Sender: TObject); virtual;
  17     procedure pOnExit(Sender: TObject); virtual;
  18   protected
  19     property Selected: Boolean read pSelected write pSelected;
  20   public
  21     constructor Create(AOwner: TComponent); override;
  22   end;
  23
  24 implementation
  25
  26 // ************************************************************************** //
  27 // *                    TCustomStringGrid implementation                    * //
  28 // ************************************************************************** //
  29
  30   procedure TCustomStringGrid.pOnEnter(Sender: TObject);
  31   begin
  32     pSelected := True;
  33   end;
  34
  35   procedure TCustomStringGrid.pOnExit(Sender: TObject);
  36   begin
  37     pSelected := False;
  38   end;
  39
  40  constructor TCustomStringGrid.Create(AOwner: TComponent);
  41   begin
  42     inherited Create(AOwner);
  43     DoubleBuffered := True;
  44     FixedCols := 0;
  45     FixedRows := 0;
  46     OnEnter := pOnEnter;
  47     OnExit := pOnExit;
  48     Canvas.Font.Name := FONT_DEFAULT_NAME;
  49     Canvas.Font.Size := FONT_DEFAULT_SIZE;
  50     DefaultRowHeight := FONT_DEFAULT_HEIGHT;
  51   end;
  52
  53 end.