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

Merged revision(s) 49595 #55e1744d9c from trunk:

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

git-svn-id: branches/fixes_1_4@49638 -
This commit is contained in:
maxim 2015-08-10 21:18:18 +00:00
parent 27d41ed484
commit 79319c7002
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

@ -1052,9 +1052,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;