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

LCL: make FileNameEdit FileName property change synchronously with Text one. Patch from Bart Broersma, bug #15295

Browse Source 
git-svn-id: trunk@27930 -
This commit is contained in:
maxim 2010-10-28 20:07:40 +00:00
parent 2e3d83111a
commit d16d3ded6a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/editbtn.pas
View File

@ -824,7 +824,6 @@ end;
procedure TFileNameEdit.TextChanged; procedure TFileNameEdit.TextChanged;
begin begin
inherited TextChanged;
if FFileNameChangeLock > 0 then if FFileNameChangeLock > 0 then
Exit; Exit;
Inc(FFileNameChangeLock); Inc(FFileNameChangeLock);
@ -836,6 +835,7 @@ begin
finally finally
Dec(FFileNameChangeLock); Dec(FFileNameChangeLock);
end; end;
inherited TextChanged; //do this _after_ we have updated FFileName
end; end;
{ TDirectoryEdit } { TDirectoryEdit }