From 589a72ebf95a4a08b918df42b5c096fb301b9646 Mon Sep 17 00:00:00 2001
From: Jean-Marc <jean-marc.levecque@jmlesite.fr>
Date: Tue, 27 Oct 2009 08:46:19 +0200
Subject: New property setting initial directory in the File Open/Save dialog.

---
 src/gui/fpg_dialogs.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/gui/fpg_dialogs.pas')

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;
-- 
cgit v1.2.3-70-g09d2