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

TMaskEdit: properly initialize ValidationErrorMode.

Browse Source 
git-svn-id: trunk@64774 -
This commit is contained in:
bart 2021-03-09 18:13:20 +00:00
parent 92ed0fa61f
commit 7c5af88d6b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/maskedit.pp
View File

@ -517,6 +517,7 @@ begin
FInitialMask := ''; FInitialMask := '';
FValidationFailed := False; FValidationFailed := False;
FMaskIsPushed := False; FMaskIsPushed := False;
FValidationErrorMode := mvemException;
end; end;
procedure TCustomMaskEdit.ClearInternalMask(out AMask: TInternalMask; out ALengthIndicator: Integer); procedure TCustomMaskEdit.ClearInternalMask(out AMask: TInternalMask; out ALengthIndicator: Integer);