From 96002807d8743da301b2944c2a3dba3c85d7eee0 Mon Sep 17 00:00:00 2001
From: Francisco Ernesto Teixeira <fco.ernesto@gmail.com>
Date: Wed, 10 Oct 2007 18:33:51 +0000
Subject: [PATCH] Save/Restore the DELIMITER list on Registry.

---
 source/childwin.pas | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/source/childwin.pas b/source/childwin.pas
index dad82a6d..19c3cd2a 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -923,6 +923,7 @@ end;
 procedure TMDIChild.ReadWindowOptions;
 var
   ws          : String;
+  delimiters  : String;
   i           : Integer;
   menuitem    : Tmenuitem;
   reg         : TRegistry;
@@ -1067,6 +1068,14 @@ begin
 
     // Set last used database, select it later in Init
     lastUsedDB := reg.ReadString( 'lastUsedDB' );
+
+    // Read the delimiters
+    delimiters := Trim( reg.ReadString( 'delimiters' ) );
+    if ( delimiters <> EmptyStr ) then
+    begin
+      ComboBoxQueryDelimiter.Items.Text := delimiters;
+      ComboBoxQueryDelimiter.ItemIndex := reg.ReadInteger( 'delimiterselected' );
+    end;
   end;
   reg.CloseKey;
   reg.Free;
@@ -1143,6 +1152,10 @@ begin
       // relative from already opened folder!
       OpenKey( 'Servers\' + FConn.Description, true );
       WriteString( 'lastUsedDB', ActiveDatabase );
+
+      // Save the delimiters
+      WriteString( 'delimiters', ComboBoxQueryDelimiter.Items.Text );
+      WriteInteger( 'delimiterselected', ComboBoxQueryDelimiter.ItemIndex );
     end;
   end;
   FreeAndNil(reg);