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

LCL: trigger TFileNameEdit OnChange event when file name is changed through file dialog too, bug #17920

Browse Source 
git-svn-id: trunk@28204 -
This commit is contained in:
maxim 2010-11-13 21:05:08 +00:00
parent 66cb4ebd4f
commit 977afc6da5
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/editbtn.pas
View File

@ -824,16 +824,17 @@ end;
procedure TFileNameEdit.TextChanged; procedure TFileNameEdit.TextChanged;
begin begin
if FFileNameChangeLock > 0 then if FFileNameChangeLock <= 0 then
Exit; begin
Inc(FFileNameChangeLock); Inc(FFileNameChangeLock);
try try
if FHideDirectories and (ExtractFilePath(Text) = '') then if FHideDirectories and (ExtractFilePath(Text) = '') then
FFileName := ExtractFilePath(FFileName) + Text FFileName := ExtractFilePath(FFileName) + Text
else else
FFileName := Text; FFileName := Text;
finally finally
Dec(FFileNameChangeLock); Dec(FFileNameChangeLock);
end;
end; end;
inherited TextChanged; //do this _after_ we have updated FFileName inherited TextChanged; //do this _after_ we have updated FFileName
end; end;