From aadb5c42d16f94bbe60bde58490419221c78c8ff Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 17 Feb 2010 08:42:48 +0000
Subject: [PATCH] Save and restore layout of procedure parameter tree.

---
 source/routine_editor.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/source/routine_editor.pas b/source/routine_editor.pas
index fc7669ab..56b31426 100644
--- a/source/routine_editor.pas
+++ b/source/routine_editor.pas
@@ -72,6 +72,7 @@ type
   public
     { Public declarations }
     constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
     procedure Init(ObjectName: String=''; ObjectType: TListNodeType=lntNone); override;
     function ApplyModifications: TModalResult; override;
   end;
@@ -107,11 +108,21 @@ begin
     comboReturns.Items.Add(Datatypes[i].Name);
   Mainform.SynCompletionProposal.AddEditor(SynMemoBody);
   FixVT(listParameters);
+  Mainform.RestoreListSetup(listParameters);
   Parameters := TStringList.Create;
   editName.MaxLength := NAME_LEN;
 end;
 
 
+destructor TfrmRoutineEditor.Destroy;
+begin
+  // Store GUI setup
+  OpenRegistry;
+  Mainform.SaveListSetup(listParameters);
+  inherited;
+end;
+
+
 procedure TfrmRoutineEditor.Init(ObjectName: String=''; ObjectType: TListNodeType=lntNone);
 var
   Results: TMySQLQuery;