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

MaskEdit: don't remove the mask in FormatMaskText regardless of the "MaskSave" value in the specified EditMask.

Browse Source 
git-svn-id: trunk@52204 -
This commit is contained in:
bart 2016-04-16 11:48:49 +00:00
parent 9bc9b19188
commit 9a6c33c697
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/maskedit.pp
View File

@ -415,7 +415,8 @@ begin
if CME.IsMasked then
begin
Result := CME.ApplyMaskToText(Value);
Result := CME.GetTextWithoutMask(Result);
//Delphi 7 leaves in the mask regardless of the "MaskSave" value in the specified EditMask
//Result := CME.GetTextWithoutMask(Result);
end
else
Result := Value;