From 7b9d82db39ab160d7dd9347785a84daf0b228676 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 8 Jan 2017 11:59:01 +0000
Subject: [PATCH] fpspreadsheet: Inherit TCellIndicator from TCustomEdit
 (instead of TEdit) to publish only needed properties.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5607 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../source/visual/fpspreadsheetctrls.pas      | 65 ++++++++++++++++++-
 1 file changed, 62 insertions(+), 3 deletions(-)

diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
index ba1e2c5f0..1e3426da1 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
@@ -270,7 +270,7 @@ type
   {@@ TsCellIndicator displays the address of the currently active cell of the
     worksheet and workbook. Editing the address allows to jump to the corresponding
     cell. }
-  TsCellIndicator = class(TEdit, IsSpreadsheetControl)
+  TsCellIndicator = class(TCustomEdit, IsSpreadsheetControl)
   private
     FWorkbookSource: TsWorkbookSource;
     function GetWorkbook: TsWorkbook;
@@ -292,8 +292,67 @@ type
   published
     {@@ Link to the WorkbookSource which provides the workbook and worksheet. }
     property WorkbookSource: TsWorkbookSource read FWorkbookSource write SetWorkbookSource;
-    {@@ Inherited from TEdit, overridden to center the text in the control by default }
-    property Alignment default taCenter;
+
+    // Inherited from TCustomEdit, published in TEdit. Omit those which are not needed
+    property Action;
+    property Align;
+    property Alignment default taCenter;   // centered text by default
+    property Anchors;
+    property AutoSize;
+    property AutoSelect;
+    property BidiMode;
+    property BorderSpacing;
+    property BorderStyle;
+//    property CharCase;
+    property Color;
+    property Constraints;
+    property DragCursor;
+    property DragKind;
+    property DragMode;
+//    property EchoMode;
+    property Enabled;
+    property Font;
+    property HideSelection;
+    property MaxLength;
+//    property NumbersOnly;
+    property ParentBidiMode;
+    property OnChange;
+    property OnChangeBounds;
+    property OnClick;
+    property OnContextPopup;
+    property OnDblClick;
+    property OnDragDrop;
+    property OnDragOver;
+    property OnEditingDone;
+    property OnEndDrag;
+    property OnEnter;
+    property OnExit;
+    property OnKeyDown;
+    property OnKeyPress;
+    property OnKeyUp;
+    property OnMouseDown;
+    property OnMouseEnter;
+    property OnMouseLeave;
+    property OnMouseMove;
+    property OnMouseUp;
+    property OnMouseWheel;
+    property OnMouseWheelDown;
+    property OnMouseWheelUp;
+    property OnResize;
+    property OnStartDrag;
+    property OnUTF8KeyPress;
+    property ParentColor;
+    property ParentFont;
+    property ParentShowHint;
+//    property PasswordChar;
+    property PopupMenu;
+    property ReadOnly;
+    property ShowHint;
+    property TabStop;
+    property TabOrder;
+    property Text;
+//    property TextHint;
+    property Visible;
   end;