New property setting initial directory in the File Open/Save dialog.

1 files changed, 12 insertions, 0 deletions

diff --git a/src/gui/fpg_dialogs.pas b/src/gui/fpg_dialogs.pas
index 2ffc803b..41f675ab 100644
--- a/src/gui/fpg_dialogs.pas
+++ b/src/gui/fpg_dialogs.pas
@@ -159,10 +159,12 @@ type
     FOpenMode: boolean;
     FFilterList: TStringList;
     FFilter: string;
+    FInitialDir: string;
     procedure   SetFilter(const Value: string);
     function    GetFontDesc: string;
     function    GetShowHidden: boolean;
     procedure   SetFontDesc(const AValue: string);
+    procedure   SetInitialDir(const AValue: string);
     procedure   SetShowHidden(const Value: boolean);
     procedure   ListChanged(Sender: TObject; ARow: Integer);
     procedure   GridDblClicked(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
@@ -188,6 +190,7 @@ type
     function    RunSaveFile: boolean;
     property    Filter: string read FFilter write SetFilter;
     property    FontDesc: string read GetFontDesc write SetFontDesc;
+    property    InitialDir: string read FInitialDir write SetInitialDir;
     property    ShowHidden: boolean read GetShowHidden write SetShowHidden;
   end;
   
@@ -986,6 +989,15 @@ begin
     grid.FontDesc := AValue;
 end;
 
+procedure TfpgFileDialog.SetInitialDir(const AValue: string);
+begin
+  if FInitialDir <> AValue then
+  begin
+    FInitialDir := AValue;
+    SetCurrentDirectory(FInitialDir);
+  end;
+end;
+
 procedure TfpgFileDialog.SetShowHidden(const Value: boolean);
 begin
   btnShowHidden.Down := Value;