pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Inherit TCellIndicator from TCustomEdit (instead of TEdit) to publish only needed properties.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5607 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-01-08 11:59:01 +00:00
parent 8c56dd2d66
commit 7b9d82db39
1 changed files with 62 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
components/fpspreadsheet/source/visual/fpspreadsheetctrls.pas
View File

@ -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;