From 7279d43d7815dc3a275894e8edabaf96458a9f95 Mon Sep 17 00:00:00 2001 From: vincents Date: Wed, 5 Aug 2009 14:07:16 +0000 Subject: [PATCH] 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. git-svn-id: trunk@21107 - --- lcl/maskedit.pp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lcl/maskedit.pp b/lcl/maskedit.pp index d2b35c3110..f539864ce4 100644 --- a/lcl/maskedit.pp +++ b/lcl/maskedit.pp @@ -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;