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

MaskEdit: Fix loading text. Issue #0028328.

Browse Source 
git-svn-id: trunk@49368 -
This commit is contained in:
bart 2015-06-19 16:49:10 +00:00
parent b834f60a49
commit 07301de359
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/maskedit.pp
View File

@ -1062,6 +1062,12 @@ end;
procedure TCustomMaskEdit.RealSetText(const AValue: TCaption);
begin
//Setting Text while loading has unwanted side-effects
if (csLoading in ComponentState) {and (not FSettingInitialText)} then
begin
FInitialText := AValue;
Exit;
end;
if not IsMasked then
inherited RealSetText(AValue)
else
@ -1080,12 +1086,6 @@ procedure TCustomMaskEdit.SetTextApplyMask(Value: TCaption);
var
S: TCaption;
Begin
//Setting Text while loading has unwanted side-effects
if (csLoading in ComponentState) {and (not FSettingInitialText)} then
begin
FInitialText := Value;
Exit;
end;
if IsMasked then
begin
try