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

lcl: populate TFileNameEdit.DialogFiles before onChange event (related with mantis #0012898)

Browse Source 
git-svn-id: trunk@18021 -
This commit is contained in:
paul 2009-01-01 19:41:18 +00:00
parent 9d7996ed21
commit ddd82a77de
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/editbtn.pas
View File

@ -767,8 +767,9 @@ begin
end;
if (FN<>'') then
begin
FileName:=FN;
// set FDialogFiles first since assigning of FileName trigger events
FDialogFiles.Text:=TOpenDialog(D).Files.Text;
FileName:=FN;
end;
end;
dkSave,dkPictureSave :