From 8fb4d233eea91a4f388ed4187933ac2921e33fce Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 29 Jun 2016 09:06:22 +0200
Subject: [PATCH] project group, fix an UI issue

---
 src/ce_projgroup.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/ce_projgroup.pas b/src/ce_projgroup.pas
index 97ab43e3..ad9358fc 100644
--- a/src/ce_projgroup.pas
+++ b/src/ce_projgroup.pas
@@ -463,6 +463,8 @@ begin
   //
   projectGroup.items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex + 1);
   lstProj.Items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex + 1);
+  projectGroup.index:=projectGroup.index+1;
+  lstProj.ItemIndex:=lstProj.ItemIndex+1;
 end;
 
 procedure TCEProjectGroupWidget.btnMoveUpClick(Sender: TObject);
@@ -472,6 +474,8 @@ begin
   //
   projectGroup.items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex - 1);
   lstProj.Items.Exchange(lstProj.ItemIndex, lstProj.ItemIndex - 1);
+  projectGroup.index:=projectGroup.index-1;
+  lstProj.ItemIndex:=lstProj.ItemIndex-1;
 end;
 
 procedure TCEProjectGroupWidget.btnRemProjClick(Sender: TObject);