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

LCL: in TMaskEdit.RestoreMask only clear the control if it is actually masked. Issue #0028477.

Browse Source 
git-svn-id: trunk@49595 -
This commit is contained in:
bart 2015-08-05 11:22:25 +00:00
parent e86a17db5b
commit 55e1744d9c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/maskedit.pp
View File

@ -1057,9 +1057,10 @@ begin
begin
Result := False;
end;
// if NewText = old Text the next statement will do nothing,
// if NewText = old Text AND the control is now masked,
// then "Text := NewText" will do nothing,
// and NO mask will appear, so Clear first ...
Clear;
if IsMasked then Clear;
Text := NewText;
end;