From 82995b09638009962b922215507bb24d76334c27 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Fri, 12 Dec 2014 05:23:12 +0100
Subject: [PATCH] fix , selection after move up/down

---
 src/ce_toolseditor.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/ce_toolseditor.pas b/src/ce_toolseditor.pas
index a4b366cf..ac4be99e 100644
--- a/src/ce_toolseditor.pas
+++ b/src/ce_toolseditor.pas
@@ -104,6 +104,7 @@ begin
   if lstTools.ItemIndex = 0 then exit;
   //
   CustomTools.tools.Exchange(lstTools.ItemIndex, lstTools.ItemIndex - 1);
+  lstTools.ItemIndex := lstTools.ItemIndex - 1;
   updateNames;
 end;
 
@@ -113,6 +114,7 @@ begin
   if lstTools.ItemIndex = lstTools.Items.Count-1 then exit;
   //
   CustomTools.tools.Exchange(lstTools.ItemIndex, lstTools.ItemIndex + 1);
+  lstTools.ItemIndex := lstTools.ItemIndex + 1;
   updateNames;
 end;