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

MaskEdit: publish properties EnableSets, ValidationErrorMode and OnValidationError.

Browse Source
This commit is contained in:
Bart 2024-01-15 23:09:44 +01:00
parent df08d02d68
commit b48d102c91
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 MaxLength: Integer read GetMaxLength write SetMaxLength;
property EditMask: string read FRealEditMask write SetEditMask;
property ValidationErrorMode: TMaskEditValidationErrorMode read FValidationErrorMode write FValidationErrorMode default mvemException; experimental;
public
procedure CutToClipBoard; override;
procedure PasteFromClipBoard; override;
@ -315,10 +314,11 @@ const
procedure SelectAll; override;
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 OnValidationError: TNotifyEvent read FOnValidationError write FOnValidationError; experimental;
property OnValidationError: TNotifyEvent read FOnValidationError write FOnValidationError;
end;
{ TMaskEdit }
@ -327,7 +327,6 @@ const
public
property IsMasked;
property EditText;
property ValidationErrorMode;
published
property Align;
property Alignment;
@ -344,6 +343,7 @@ const
property DragKind;
property DragMode;
property Enabled;
property EnableSets;
property Font;
property MaxLength;
property ParentBiDiMode;
@ -355,6 +355,7 @@ const
property ShowHint;
property TabOrder;
property TabStop;
property ValidationErrorMode;
property Visible;
property EditMask;
@ -385,6 +386,7 @@ const
property OnMouseWheelUp;
property OnStartDock;
property OnStartDrag;
property OnValidationError;
property OnUTF8KeyPress;
end;