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 {@@ TsCellIndicator displays the address of the currently active cell of the
worksheet and workbook. Editing the address allows to jump to the corresponding worksheet and workbook. Editing the address allows to jump to the corresponding
cell. } cell. }
TsCellIndicator = class(TEdit, IsSpreadsheetControl) TsCellIndicator = class(TCustomEdit, IsSpreadsheetControl)
private private
FWorkbookSource: TsWorkbookSource; FWorkbookSource: TsWorkbookSource;
function GetWorkbook: TsWorkbook; function GetWorkbook: TsWorkbook;
@ -292,8 +292,67 @@ type
published published
{@@ Link to the WorkbookSource which provides the workbook and worksheet. } {@@ Link to the WorkbookSource which provides the workbook and worksheet. }
property WorkbookSource: TsWorkbookSource read FWorkbookSource write SetWorkbookSource; 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; end;