paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 12:49:13 +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;
begin
if FFileNameChangeLock > 0 then
Exit;
Inc(FFileNameChangeLock);
try
if FHideDirectories and (ExtractFilePath(Text) = '') then
FFileName := ExtractFilePath(FFileName) + Text
else
FFileName := Text;
finally
Dec(FFileNameChangeLock);
if FFileNameChangeLock <= 0 then
begin
Inc(FFileNameChangeLock);
try
if FHideDirectories and (ExtractFilePath(Text) = '') then
FFileName := ExtractFilePath(FFileName) + Text
else
FFileName := Text;
finally
Dec(FFileNameChangeLock);
end;
end;
inherited TextChanged; //do this _after_ we have updated FFileName
end;