From 39d16d283ca9c623dec9caa6a37f9632cc5957b6 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 2 Sep 2012 08:23:36 +0000
Subject: [PATCH] Focus new node in parameters list after clicking "Add". Also,
 add new parameters at the focused tree position. See
 http://www.heidisql.com/forum.php?t=11132.

---
 source/routine_editor.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/source/routine_editor.pas b/source/routine_editor.pas
index 21bf830d..6e1959cc 100644
--- a/source/routine_editor.pas
+++ b/source/routine_editor.pas
@@ -215,14 +215,20 @@ end;
 procedure TfrmRoutineEditor.btnAddParamClick(Sender: TObject);
 var
   Param: TRoutineParam;
+  Position: Integer;
 begin
   Param := TRoutineParam.Create;
   Param.Name := 'Param'+IntToStr(Parameters.Count+1);
   Param.Datatype := 'INT';
   Param.Context := 'IN';
-  Parameters.Add(Param);
+  if Assigned(listParameters.FocusedNode) then
+    Position := listParameters.FocusedNode.Index+1
+  else
+    Position := Parameters.Count;
+  Parameters.Insert(Position, Param);
   // See List.OnPaint:
   listParameters.Repaint;
+  SelectNode(listParameters, Position);
   Modification(Sender);
 end;