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

TFilenameEdit: adjust InitialDir after user executes the dialog. This is analogue to how TOpenDialog behaves.

Browse Source
This commit is contained in:
Bart 2024-03-14 19:54:23 +01:00
parent 7446930ef3
commit 4c4c9631aa
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/editbtn.pas
View File

@ -1506,10 +1506,15 @@ end;
procedure TFileNameEdit.RunDialog; procedure TFileNameEdit.RunDialog;
var var
D: TCommonDialog; D: TCommonDialog;
Res: Boolean;
begin begin
D := CreateDialog(DialogKind); D := CreateDialog(DialogKind);
try try
if D.Execute then Res := D.Execute;
//this is analogue to how TOpenDialog behaves, InitialDir is retrieved from the dialog, even if user cancels the dialog.
if (D is TOpenDialog) then
InitialDir := TOpenDialog(D).InitialDir;
if Res then
SaveDialogResult(DialogKind, D); SaveDialogResult(DialogKind, D);
finally finally
D.Free; D.Free;