paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 10:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: make TCustomEdit.EditMask public again, it is used by the TMaskEditor. This change may be undone if the TMaskEditEditor only is a component editor for TMaskEditor and not TCustomMaskEditor.

Browse Source 
git-svn-id: trunk@21107 -
This commit is contained in:
vincents 2009-08-05 14:07:16 +00:00
parent bc5a67ad14
commit 7279d43d78
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/maskedit.pp
View File

@ -209,10 +209,9 @@ type
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X, Y: Integer); override;
procedure CheckCursor;
property EditMask : string read FRealMask write SetMask;
property isMasked : Boolean read GetIsMasked;
property EditText : string read GetEditText write SetEditText;
property SpaceChar : Char read FSpaceChar write SetSpaceChar;
property EditText : string read GetEditText write SetEditText;
property IsMasked : Boolean read GetIsMasked;
property SpaceChar : Char read FSpaceChar write SetSpaceChar;
public
procedure CutToClipBoard; override;
procedure PasteFromClipBoard; override;
@ -220,6 +219,7 @@ type
constructor Create(Aowner : TComponent); override;
procedure Clear;
procedure ValidateEdit; virtual;
property EditMask : string read FRealMask write SetMask;
property Text : string read GetText write SetText;
end;
@ -227,8 +227,8 @@ type
TMaskEdit = class(TCustomMaskEdit)
Public
property isMasked : Boolean read GetIsMasked;
property EditText : string read GetEditText write SetEditText;
property IsMasked;
property EditText;
published
property Anchors;
property AutoSelect;