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

MaskEdit: publish properties EnableSets, ValidationErrorMode and OnValidationError.

Browse Source 
(cherry picked from commit b48d102c91)
This commit is contained in:
Bart 2024-01-15 23:09:44 +01:00 committed by Maxim Ganetsky
parent 74b5fb8682
commit 25c7c89b8f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/maskedit.pp
View File

@ -305,7 +305,6 @@ const
property SpaceChar: Char read FSpaceChar write SetSpaceChar; property SpaceChar: Char read FSpaceChar write SetSpaceChar;
property MaxLength: Integer read GetMaxLength write SetMaxLength; property MaxLength: Integer read GetMaxLength write SetMaxLength;
property EditMask: string read FRealEditMask write SetEditMask; property EditMask: string read FRealEditMask write SetEditMask;
property ValidationErrorMode: TMaskEditValidationErrorMode read FValidationErrorMode write FValidationErrorMode default mvemException; experimental;
public public
procedure CutToClipBoard; override; procedure CutToClipBoard; override;
procedure PasteFromClipBoard; override; procedure PasteFromClipBoard; override;
@ -315,10 +314,11 @@ const
procedure SelectAll; override; procedure SelectAll; override;
procedure ValidateEdit; virtual; procedure ValidateEdit; virtual;
property EnableSets: Boolean read FEnableSets write FEnableSets; experimental; property EnableSets: Boolean read FEnableSets write FEnableSets;
property ValidationErrorMode: TMaskEditValidationErrorMode read FValidationErrorMode write FValidationErrorMode default mvemException;
property Modified: Boolean read GetModified write SetModified; property Modified: Boolean read GetModified write SetModified;
property OnValidationError: TNotifyEvent read FOnValidationError write FOnValidationError; experimental; property OnValidationError: TNotifyEvent read FOnValidationError write FOnValidationError;
end; end;
{ TMaskEdit } { TMaskEdit }
@ -327,7 +327,6 @@ const
public public
property IsMasked; property IsMasked;
property EditText; property EditText;
property ValidationErrorMode;
published published
property Align; property Align;
property Alignment; property Alignment;
@ -344,6 +343,7 @@ const
property DragKind; property DragKind;
property DragMode; property DragMode;
property Enabled; property Enabled;
property EnableSets;
property Font; property Font;
property MaxLength; property MaxLength;
property ParentBiDiMode; property ParentBiDiMode;
@ -355,6 +355,7 @@ const
property ShowHint; property ShowHint;
property TabOrder; property TabOrder;
property TabStop; property TabStop;
property ValidationErrorMode;
property Visible; property Visible;
property OnChange; property OnChange;
property OnClick; property OnClick;
@ -379,6 +380,7 @@ const
property OnMouseWheelUp; property OnMouseWheelUp;
property OnStartDock; property OnStartDock;
property OnStartDrag; property OnStartDrag;
property OnValidationError;
property OnUTF8KeyPress; property OnUTF8KeyPress;
property EditMask; property EditMask;
property Text; property Text;