From 9a12e8cfcea6a0f0c1456133f602a358911ae9db Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Sun, 5 Sep 2010 16:57:03 +0200
Subject: file dialog: adds a Configure Bookmarks dialog and updated resource
 strings.

---
 src/gui/fpg_dialogs.pas | 22 ++++++++++++++++++----
 1 file changed, 18 insertions(+), 4 deletions(-)

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

diff --git a/src/gui/fpg_dialogs.pas b/src/gui/fpg_dialogs.pas
index 1415ff01..5d61b70a 100644
--- a/src/gui/fpg_dialogs.pas
+++ b/src/gui/fpg_dialogs.pas
@@ -192,6 +192,7 @@ type
     function    HighlightFile(const AFilename: string): boolean;
     function    CreatePopupMenu: TfpgPopupMenu;
     procedure   BookmarkItemClicked(Sender: TObject);
+    procedure   ShowConfigureBookmarks;
   protected
     procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
     procedure   btnOKClick(Sender: TObject); override;
@@ -207,7 +208,6 @@ type
     property    InitialDir: string read FInitialDir write SetInitialDir;
     property    ShowHidden: boolean read GetShowHidden write SetShowHidden;
   end;
-  
 
 { This lets us use a single include file for both the Interface and
   Implementation sections. }
@@ -222,6 +222,7 @@ type
 {$I charmapdialog.inc}
 {$I colordialog.inc}
 {$I inputquerydialog.inc}
+{$I managebookmarksdialog.inc}
 
 
 
@@ -1428,9 +1429,9 @@ begin
     finally
       lst.Free;
     end;
-    mi := AddMenuItem('Add current directory', '', @BookmarkItemClicked);
+    mi := AddMenuItem(rsAddCurrentDirectory, '', @BookmarkItemClicked);
     mi.Tag := 1;
-    mi := AddMenuItem('Configure...', '', @BookmarkItemClicked);
+    mi := AddMenuItem(rsConfigureBookmarks + '...', '', @BookmarkItemClicked);
     mi.Tag := 2;
   end;
 end;
@@ -1450,7 +1451,7 @@ begin
   end
   else if mi.Tag = 2 then  // configure bookmarks
   begin
-    //
+    ShowConfigureBookmarks;
   end
   else
   begin // bookmark has been clicked
@@ -1459,6 +1460,18 @@ begin
   end;
 end;
 
+procedure TfpgFileDialog.ShowConfigureBookmarks;
+var
+  frm: TConfigureBookmarksForm;
+begin
+  frm := TConfigureBookmarksForm.Create(FIni);
+  try
+    frm.ShowModal;
+  finally
+    frm.Free;
+  end;
+end;
+
 procedure TfpgFileDialog.ProcessFilterString;
 var
   p: integer;
@@ -1578,6 +1591,7 @@ end;
 {$I charmapdialog.inc}
 {$I colordialog.inc}
 {$I inputquerydialog.inc}
+{$I managebookmarksdialog.inc}
 
 
 end.
-- 
cgit v1.2.3-70-g09d2