file dialog: adds a Configure Bookmarks dialog and updated resource strings.

10 files changed, 296 insertions, 9 deletions

diff --git a/src/corelib/lang_af.inc b/src/corelib/lang_af.inc
index 70598111..6dad1634 100644
--- a/src/corelib/lang_af.inc
+++ b/src/corelib/lang_af.inc
@@ -7,6 +7,7 @@ rserrnotassigned  =  '<%s> is nie toegewys nie';
 rsnewitemdetected  =  '''n Nuwe item is opgespoor.';
 rsabort  =  'Staak';
 rsabout  =  'Aangaande %s';
+rsaddcurrentdirectory  =  'Add current directory';
 rsall  =  'Alles';
 rsallfiles  =  'Alle Lêers';
 rscollectionallfonts  =  'Alle Lettertipes';
@@ -20,9 +21,11 @@ rsbold  =  'Vetdruk';
 rscancel  =  'Kanselleer';
 rscannotcreatedir  =  'Kan nie die lêergids skep nie';
 rschange  =  'Verander';
-rscharactermap  =  'Character Map';
+rschangetitle  =  'Change Title';
+rscharactermap  =  'Karakter Kaart';
 rsclose  =  'Sluit';
 rscollection  =  'Versameling';
+rsconfigurebookmarks  =  'Configure Bookmarks';
 rsconfirm  =  'Bevestig';
 rsconfirmation  =  'Bevestiging';
 rscopy  =  'Kopieer';
@@ -36,6 +39,7 @@ rsshortdec  =  'Des';
 rslongdec  =  'Desember';
 rsdelete  =  'Skrap';
 rsdirectories  =  'Lêergidse';
+rsdirectory  =  'Directory';
 rsdrive  =  'Dryf';
 rsedit  =  'Redigeer';
 rslanguage  =  'Afrikaans';
@@ -61,7 +65,7 @@ rshelp  =  'Help';
 rsignore  =  'Ignoreer';
 rsinformation  =  'Informasie';
 rsinsert  =  'Invoeg';
-rsinsertfromcharactermap  =  'Insert from Character Map';
+rsinsertfromcharactermap  =  'Voeg in van Karakter Kaart';
 rsitalic  =  'Kursief';
 rserritemofwrongtype  =  'Die item is nie van <%s> tiepe nie!';
 rsshortjan  =  'Jan';
@@ -79,6 +83,8 @@ rsmessage  =  'Boodskap';
 rsfilemodifiedtime  =  'Wysigings Tyd';
 rsshortmon  =  'Ma';
 rslongmon  =  'Maandag';
+rsmovedown  =  'Move Down';
+rsmoveup  =  'Move Up';
 rsname  =  'Naam';
 rsno  =  'Nee';
 rsnotoall  =  'Nee vir Alles';
@@ -113,7 +119,7 @@ rssize  =  'Groote';
 rsstyle  =  'Steil';
 rsshortsun  =  'So';
 rslongsun  =  'Sondag';
-rstexttoinsert  =  'Text to Insert';
+rstexttoinsert  =  'Teks om in te voeg';
 rsshortthu  =  'Do';
 rslongthu  =  'Donderdag';
 rstoday  =  'Vandag';
diff --git a/src/corelib/lang_de.inc b/src/corelib/lang_de.inc
index f3f45489..c47c4280 100644
--- a/src/corelib/lang_de.inc
+++ b/src/corelib/lang_de.inc
@@ -7,6 +7,7 @@ rserrnotassigned  =  '<%s> nicht zugewiesen';
 rsnewitemdetected  =  'Es wurde ein neuer Eintrag gefunden.';
 rsabort  =  'Abbrechen';
 rsabout  =  'Über %s';
+rsaddcurrentdirectory  =  'Add current directory';
 rsall  =  'Alle';
 rsallfiles  =  'Alle Dateien';
 rscollectionallfonts  =  'Alle Schriften';
@@ -20,9 +21,11 @@ rsbold  =  'Fett';
 rscancel  =  'Abbrechen';
 rscannotcreatedir  =  'Kann Verzeichnis nicht anlegen';
 rschange  =  'Ändern';
+rschangetitle  =  'Change Title';
 rscharactermap  =  'Character Map';
 rsclose  =  'Schließen';
 rscollection  =  'Sammlung';
+rsconfigurebookmarks  =  'Configure Bookmarks';
 rsconfirm  =  'Bestätigen';
 rsconfirmation  =  'Bestätigung';
 rscopy  =  'Kopieren';
@@ -36,6 +39,7 @@ rsshortdec  =  'Dez';
 rslongdec  =  'Dezember';
 rsdelete  =  'Löschen';
 rsdirectories  =  'Verzeichnisse';
+rsdirectory  =  'Directory';
 rsdrive  =  'Laufwerk';
 rsedit  =  'Bearbeiten';
 rslanguage  =  'Englisch';
@@ -79,6 +83,8 @@ rsmessage  =  'Meldung';
 rsfilemodifiedtime  =  'Änderungszeit';
 rsshortmon  =  'Mon';
 rslongmon  =  'Montag';
+rsmovedown  =  'Move Down';
+rsmoveup  =  'Move Up';
 rsname  =  'Name';
 rsno  =  'Nein';
 rsnotoall  =  'Nein zu allem';
diff --git a/src/corelib/lang_en.inc b/src/corelib/lang_en.inc
index a7db8859..881c23e5 100644
--- a/src/corelib/lang_en.inc
+++ b/src/corelib/lang_en.inc
@@ -7,6 +7,7 @@ rserrnotassigned  =  '<%s> not assigned';
 rsnewitemdetected  =  'A new item has been detected.';
 rsabort  =  'Abort';
 rsabout  =  'About %s';
+rsaddcurrentdirectory  =  'Add current directory';
 rsall  =  'All';
 rsallfiles  =  'All Files';
 rscollectionallfonts  =  'All Fonts';
@@ -20,9 +21,11 @@ rsbold  =  'Bold';
 rscancel  =  'Cancel';
 rscannotcreatedir  =  'Cannot create directory';
 rschange  =  'Change';
+rschangetitle  =  'Change Title';
 rscharactermap  =  'Character Map';
 rsclose  =  'Close';
 rscollection  =  'Collection';
+rsconfigurebookmarks  =  'Configure Bookmarks';
 rsconfirm  =  'Confirm';
 rsconfirmation  =  'Confirmation';
 rscopy  =  'Copy';
@@ -36,6 +39,7 @@ rsshortdec  =  'Dec';
 rslongdec  =  'December';
 rsdelete  =  'Delete';
 rsdirectories  =  'Directories';
+rsdirectory  =  'Directory';
 rsdrive  =  'Drive';
 rsedit  =  'Edit';
 rslanguage  =  'English';
@@ -79,6 +83,8 @@ rsmessage  =  'Message';
 rsfilemodifiedtime  =  'Mod. Time';
 rsshortmon  =  'Mon';
 rslongmon  =  'Monday';
+rsmovedown  =  'Move Down';
+rsmoveup  =  'Move Up';
 rsname  =  'Name';
 rsno  =  'No';
 rsnotoall  =  'No to All';
diff --git a/src/corelib/lang_es.inc b/src/corelib/lang_es.inc
index 099f1939..8e3979b0 100644
--- a/src/corelib/lang_es.inc
+++ b/src/corelib/lang_es.inc
@@ -7,6 +7,7 @@ rserrnotassigned  =  '<%s> no está asignado';
 rsnewitemdetected  =  'A new item has been detected.';
 rsabort  =  'Abortar';
 rsabout  =  'Acerca de %s';
+rsaddcurrentdirectory  =  'Add current directory';
 rsall  =  'Todos';
 rsallfiles  =  'Todos los Archivos';
 rscollectionallfonts  =  'Todas las Fuentes';
@@ -20,9 +21,11 @@ rsbold  =  'Negrita';
 rscancel  =  'Cancelar';
 rscannotcreatedir  =  'No se puede crear la carpeta';
 rschange  =  'Cambiar';
+rschangetitle  =  'Change Title';
 rscharactermap  =  'Character Map';
 rsclose  =  'Cerrar';
 rscollection  =  'Colección';
+rsconfigurebookmarks  =  'Configure Bookmarks';
 rsconfirm  =  'Confirmar';
 rsconfirmation  =  'Confirmación';
 rscopy  =  'Copiar';
@@ -36,6 +39,7 @@ rsshortdec  =  'Dec';
 rslongdec  =  'December';
 rsdelete  =  'Borrar';
 rsdirectories  =  'Carpetas';
+rsdirectory  =  'Directory';
 rsdrive  =  'Unidad';
 rsedit  =  'Editar';
 rslanguage  =  'Español';
@@ -79,6 +83,8 @@ rsmessage  =  'Mensaje';
 rsfilemodifiedtime  =  'Hora de Modif.';
 rsshortmon  =  'Lun';
 rslongmon  =  'Lunes';
+rsmovedown  =  'Move Down';
+rsmoveup  =  'Move Up';
 rsname  =  'Nombre';
 rsno  =  'No';
 rsnotoall  =  'No a Todo';
diff --git a/src/corelib/lang_fr.inc b/src/corelib/lang_fr.inc
index b75ee215..606e333b 100644
--- a/src/corelib/lang_fr.inc
+++ b/src/corelib/lang_fr.inc
@@ -7,6 +7,7 @@ rserrnotassigned  =  '<%s> n''''est pas assigné';
 rsnewitemdetected  =  'Un nouvel item a été détecté';
 rsabort  =  'Arrêter';
 rsabout  =  'A propos de %s';
+rsaddcurrentdirectory  =  'Add current directory';
 rsall  =  'Tous';
 rsallfiles  =  'Tous les fichiers';
 rscollectionallfonts  =  'Toutes les polices';
@@ -20,9 +21,11 @@ rsbold  =  'Gras';
 rscancel  =  'Annuler';
 rscannotcreatedir  =  'Impossible de créer le répertoire';
 rschange  =  'Modifier';
-rscharactermap  =  'Character Map';
+rschangetitle  =  'Change Title';
+rscharactermap  =  'Table de caractères';
 rsclose  =  'Fermer';
 rscollection  =  'Collection';
+rsconfigurebookmarks  =  'Configure Bookmarks';
 rsconfirm  =  'Confirmer';
 rsconfirmation  =  'Confirmation';
 rscopy  =  'Copier';
@@ -36,6 +39,7 @@ rsshortdec  =  'Déc';
 rslongdec  =  'Décembre';
 rsdelete  =  'Supprimer';
 rsdirectories  =  'Répertoires';
+rsdirectory  =  'Directory';
 rsdrive  =  'Disque';
 rsedit  =  'Editer';
 rslanguage  =  'Français';
@@ -79,6 +83,8 @@ rsmessage  =  'Message';
 rsfilemodifiedtime  =  'Date modif.';
 rsshortmon  =  'Lun';
 rslongmon  =  'Lundi';
+rsmovedown  =  'Move Down';
+rsmoveup  =  'Move Up';
 rsname  =  'Nom';
 rsno  =  'Non';
 rsnotoall  =  'Non à tous';
@@ -113,7 +119,7 @@ rssize  =  'Taille';
 rsstyle  =  'Style';
 rsshortsun  =  'Dim';
 rslongsun  =  'Dimanche';
-rstexttoinsert  =  'Text to Insert';
+rstexttoinsert  =  'Texte à insérer';
 rsshortthu  =  'Jeu';
 rslongthu  =  'Jeudi';
 rstoday  =  'Aujourd''''hui';
diff --git a/src/corelib/lang_it.inc b/src/corelib/lang_it.inc
index ece9f08f..2d056311 100644
--- a/src/corelib/lang_it.inc
+++ b/src/corelib/lang_it.inc
@@ -7,6 +7,7 @@ rserrnotassigned  =  '<%s> non assegnato';
 rsnewitemdetected  =  'E'''' stato rilevato un nuovo elemento.';
 rsabort  =  'Interrompi';
 rsabout  =  'Informazioni %s';
+rsaddcurrentdirectory  =  'Add current directory';
 rsall  =  'Tutto';
 rsallfiles  =  'Tutti i Files';
 rscollectionallfonts  =  'Tutti i Fonts';
@@ -20,9 +21,11 @@ rsbold  =  'Grassetto';
 rscancel  =  'Annulla';
 rscannotcreatedir  =  'Non riesco a creare la cartella';
 rschange  =  'Cambia';
+rschangetitle  =  'Change Title';
 rscharactermap  =  'Character Map';
 rsclose  =  'Chiudi';
 rscollection  =  'Collezione';
+rsconfigurebookmarks  =  'Configure Bookmarks';
 rsconfirm  =  'Conferma';
 rsconfirmation  =  'Conferma';
 rscopy  =  'Copia';
@@ -36,6 +39,7 @@ rsshortdec  =  'Dic';
 rslongdec  =  'Dicembre';
 rsdelete  =  'Cancella';
 rsdirectories  =  'Cartelle';
+rsdirectory  =  'Directory';
 rsdrive  =  'Disco';
 rsedit  =  'Modifica';
 rslanguage  =  'Italiano';
@@ -79,6 +83,8 @@ rsmessage  =  'Messaggio';
 rsfilemodifiedtime  =  'Tempo Mod.';
 rsshortmon  =  'Lun';
 rslongmon  =  'Lunedì';
+rsmovedown  =  'Move Down';
+rsmoveup  =  'Move Up';
 rsname  =  'Nome';
 rsno  =  'No';
 rsnotoall  =  'No a Tutto';
diff --git a/src/corelib/lang_pt.inc b/src/corelib/lang_pt.inc
index b6a2d330..76b21500 100644
--- a/src/corelib/lang_pt.inc
+++ b/src/corelib/lang_pt.inc
@@ -7,6 +7,7 @@ rserrnotassigned  =  '<%s> not assigned';
 rsnewitemdetected  =  'A new item has been detected.';
 rsabort  =  'Abortar';
 rsabout  =  'About %s';
+rsaddcurrentdirectory  =  'Add current directory';
 rsall  =  'Todos';
 rsallfiles  =  'Todos os arquivos';
 rscollectionallfonts  =  'All Fonts';
@@ -20,9 +21,11 @@ rsbold  =  'Negrito';
 rscancel  =  'Cancelar';
 rscannotcreatedir  =  'Não foi possível criar diretório';
 rschange  =  'Editar';
+rschangetitle  =  'Change Title';
 rscharactermap  =  'Character Map';
 rsclose  =  'Fechar';
 rscollection  =  'Coleção';
+rsconfigurebookmarks  =  'Configure Bookmarks';
 rsconfirm  =  'Confirmar';
 rsconfirmation  =  'Confirmação';
 rscopy  =  'Copy';
@@ -36,6 +39,7 @@ rsshortdec  =  'Dec';
 rslongdec  =  'December';
 rsdelete  =  'Deletar';
 rsdirectories  =  'Diretórios';
+rsdirectory  =  'Directory';
 rsdrive  =  'Drive';
 rsedit  =  'Editar';
 rslanguage  =  'Português';
@@ -79,6 +83,8 @@ rsmessage  =  'Mensagem';
 rsfilemodifiedtime  =  'Mod. Time';
 rsshortmon  =  'Mon';
 rslongmon  =  'Monday';
+rsmovedown  =  'Move Down';
+rsmoveup  =  'Move Up';
 rsname  =  'Nome';
 rsno  =  'Não';
 rsnotoall  =  'Não para todos';
diff --git a/src/corelib/lang_ru.inc b/src/corelib/lang_ru.inc
index f1571f0b..e989d927 100644
--- a/src/corelib/lang_ru.inc
+++ b/src/corelib/lang_ru.inc
@@ -7,6 +7,7 @@ rserrnotassigned  =  'Значение <%s> не определено';
 rsnewitemdetected  =  'Обнаружен новый элемент';
 rsabort  =  'Прервать';
 rsabout  =  'Информация о %s';
+rsaddcurrentdirectory  =  'Add current directory';
 rsall  =  'Все';
 rsallfiles  =  'Все файлы';
 rscollectionallfonts  =  'Все шрифты';
@@ -20,9 +21,11 @@ rsbold  =  'Жирный';
 rscancel  =  'Отмена';
 rscannotcreatedir  =  'Невозможно создать директорию';
 rschange  =  'Изменить';
+rschangetitle  =  'Change Title';
 rscharactermap  =  'Character Map';
 rsclose  =  'Закрыть';
 rscollection  =  'Группа';
+rsconfigurebookmarks  =  'Configure Bookmarks';
 rsconfirm  =  'Подтвердить';
 rsconfirmation  =  'Подтверждение';
 rscopy  =  'Копировать';
@@ -36,6 +39,7 @@ rsshortdec  =  'Дек';
 rslongdec  =  'Декабрь';
 rsdelete  =  'Удалить';
 rsdirectories  =  'Директории';
+rsdirectory  =  'Directory';
 rsdrive  =  'Диск';
 rsedit  =  'Редактировать';
 rslanguage  =  'Русский';
@@ -79,6 +83,8 @@ rsmessage  =  'Сообщение';
 rsfilemodifiedtime  =  'Изменен';
 rsshortmon  =  'Пн';
 rslongmon  =  'Понедельник';
+rsmovedown  =  'Move Down';
+rsmoveup  =  'Move Up';
 rsname  =  'Название';
 rsno  =  'Нет';
 rsnotoall  =  'Нет для всех';
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.
diff --git a/src/gui/managebookmarksdialog.inc b/src/gui/managebookmarksdialog.inc
new file mode 100644
index 00000000..2a507443
--- /dev/null
+++ b/src/gui/managebookmarksdialog.inc
@@ -0,0 +1,225 @@
+{
+    fpGUI  -  Free Pascal GUI Toolkit
+
+    Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this
+    distribution, for details of the copyright.
+
+    See the file COPYING.modifiedLGPL, included in this distribution,
+    for details about redistributing fpGUI.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+    Description:
+      This unit contains the dialog to manage bookmarks from the
+      File Open/Save dialog.
+}
+
+{%mainunit fpg_dialogs.pas}
+
+{$IFDEF read_interface}
+
+  TConfigureBookmarksForm = class(TfpgForm)
+  private
+    {@VFD_HEAD_BEGIN: ConfigureBookmarksForm}
+    grdBookmarks: TfpgStringGrid;
+    btnChangeTitle: TfpgButton;
+    btnDelete: TfpgButton;
+    btnClose: TfpgButton;
+    btnMoveUp: TfpgButton;
+    btnMoveDown: TfpgButton;
+    {@VFD_HEAD_END: ConfigureBookmarksForm}
+    FIni: TfpgIniFile;
+    procedure   SetupCaptions;
+    procedure   PopulateGrid;
+    procedure   UpdateINIFile;
+    procedure   btnChangeTitleClicked(Sender: TObject);
+    procedure   btnDeleteClicked(Sender: TObject);
+  public
+    constructor Create(var AIniFile: TfpgIniFile); reintroduce;
+    destructor  Destroy; override;
+    procedure   AfterCreate; override;
+  end;
+
+
+{$ENDIF read_interface}
+
+{$IFDEF read_implementation}
+
+procedure TConfigureBookmarksForm.SetupCaptions;
+begin
+  WindowTitle := rsConfigureBookmarks;
+  btnClose.Text := rsClose;
+  btnMoveUp.Text := rsMoveUp;
+  btnMoveDown.Text := rsMoveDown;
+  btnChangeTitle.Text := rsChangeTitle;
+  btnDelete.Text := rsDelete;
+  grdBookmarks.ColumnTitle[0] := rsName;
+  grdBookmarks.ColumnTitle[1] := rsDirectory;
+end;
+
+procedure TConfigureBookmarksForm.PopulateGrid;
+var
+  i: integer;
+  lst: TStringList;
+begin
+  lst := TStringList.Create;
+  FIni.ReadSection(FPG_BOOKMARK_SECTION, lst);
+  grdBookmarks.RowCount := lst.Count;
+  for i := 0 to lst.Count-1 do
+  begin
+    grdBookmarks.Cells[0, i] := lst[i];
+    grdBookmarks.Cells[1, i] := FIni.ReadString(FPG_BOOKMARK_SECTION, lst[i], '');
+  end;
+  lst.Free;
+end;
+
+procedure TConfigureBookmarksForm.UpdateINIFile;
+var
+  i: integer;
+begin
+  FIni.EraseSection(FPG_BOOKMARK_SECTION);
+  for i := 0 to grdBookmarks.RowCount-1 do
+  begin
+    FIni.WriteString(FPG_BOOKMARK_SECTION, grdBookmarks.Cells[0, i], grdBookmarks.Cells[1, i]);
+  end;
+end;
+
+procedure TConfigureBookmarksForm.btnChangeTitleClicked(Sender: TObject);
+var
+  s: TfpgString;
+begin
+  if (grdBookmarks.RowCount = 0) or (grdBookmarks.FocusRow = -1) then
+    Exit;
+  s := grdBookmarks.Cells[0, grdBookmarks.FocusRow];
+  if fpgInputQuery('Bookmark', 'Enter new bookmark name', s) then
+  begin
+    s := StringReplace(s, '=', '-', [rfReplaceAll]); // don't allow '=' sign in name (ini file requirement)  
+    grdBookmarks.Cells[0, grdBookmarks.FocusRow] := s;
+  end;
+end;
+
+procedure TConfigureBookmarksForm.btnDeleteClicked(Sender: TObject);
+begin
+  if (grdBookmarks.RowCount = 0) or (grdBookmarks.FocusRow = -1) then
+    Exit;
+  grdBookmarks.DeleteRow(grdBookmarks.FocusRow);
+end;
+
+constructor TConfigureBookmarksForm.Create(var AIniFile: TfpgIniFile);
+begin
+  inherited Create(nil);
+  FIni := AIniFile;
+end;
+
+destructor TConfigureBookmarksForm.Destroy;
+begin
+  UpdateINIFile;
+  inherited Destroy;
+end;
+
+procedure TConfigureBookmarksForm.AfterCreate;
+begin
+  {%region 'Auto-generated GUI code' -fold}
+  {@VFD_BODY_BEGIN: ConfigureBookmarksForm}
+  Name := 'ConfigureBookmarksForm';
+  SetPosition(331, 184, 596, 237);
+  WindowTitle := 'Configure Bookmarks';
+  Hint := '';
+  ShowHint := True;
+  WindowPosition := wpOneThirdDown;
+
+  grdBookmarks := TfpgStringGrid.Create(self);
+  with grdBookmarks do
+  begin
+    Name := 'grdBookmarks';
+    SetPosition(8, 8, 473, 218);
+    Anchors := [anLeft,anRight,anTop,anBottom];
+    AddColumn('Title', 150, taLeftJustify);
+    AddColumn('Directory', 300, taLeftJustify);
+    FontDesc := '#Grid';
+    HeaderFontDesc := '#GridHeader';
+    Hint := '';
+    RowCount := 0;
+    RowSelect := True;
+    TabOrder := 1;
+    Options := [go_SmoothScroll, go_AlternativeColor]
+  end;
+
+  btnChangeTitle := TfpgButton.Create(self);
+  with btnChangeTitle do
+  begin
+    Name := 'btnChangeTitle';
+    SetPosition(489, 8, 100, 24);
+    Anchors := [anRight,anTop];
+    Text := 'btnChangeTitle';
+    FontDesc := '#Label1';
+    Hint := '';
+    ImageName := '';
+    TabOrder := 2;
+    OnClick := @btnChangeTitleClicked;
+  end;
+
+  btnDelete := TfpgButton.Create(self);
+  with btnDelete do
+  begin
+    Name := 'btnDelete';
+    SetPosition(489, 36, 100, 24);
+    Anchors := [anRight,anTop];
+    Text := 'btnDelete';
+    FontDesc := '#Label1';
+    Hint := '';
+    ImageName := '';
+    TabOrder := 3;
+    OnClick := @btnDeleteClicked;
+  end;
+
+  btnMoveUp := TfpgButton.Create(self);
+  with btnMoveUp do
+  begin
+    Name := 'btnMoveUp';
+    SetPosition(489, 80, 100, 24);
+    Anchors := [anRight,anTop];
+    Text := 'btnMoveUp';
+    FontDesc := '#Label1';
+    Hint := '';
+    ImageName := 'sys.sb.up';
+    TabOrder := 4;
+  end;
+
+  btnMoveDown := TfpgButton.Create(self);
+  with btnMoveDown do
+  begin
+    Name := 'btnMoveDown';
+    SetPosition(489, 108, 100, 24);
+    Anchors := [anRight,anTop];
+    Text := 'btnMoveDown';
+    FontDesc := '#Label1';
+    Hint := '';
+    ImageName := 'sys.sb.down';
+    TabOrder := 5;
+  end;
+
+  btnClose := TfpgButton.Create(self);
+  with btnClose do
+  begin
+    Name := 'btnClose';
+    SetPosition(489, 204, 100, 24);
+    Anchors := [anRight,anBottom];
+    Text := 'btnClose';
+    FontDesc := '#Label1';
+    Hint := '';
+    ImageName := 'stdimg.close';
+    ModalResult := mrOK;
+    TabOrder := 6;
+  end;
+
+  {@VFD_BODY_END: ConfigureBookmarksForm}
+  {%endregion}
+
+  SetupCaptions;
+  PopulateGrid;
+end;
+{$ENDIF read_implementation}
+