From 19eed6ea361b635d0baf5e68f66e68e796189d14 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 9 Sep 2016 00:55:24 +0200
Subject: [PATCH] project groups, upstream fix, selected item not highlighted
 after list update

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

diff --git a/src/ce_projgroup.pas b/src/ce_projgroup.pas
index 231134b5..09ed3a8c 100644
--- a/src/ce_projgroup.pas
+++ b/src/ce_projgroup.pas
@@ -674,6 +674,7 @@ var
 const
   typeStr: array[TCEProjectFormat] of string = ('CE','DUB');
 begin
+  lstProj.BeginUpdate;
   lstProj.Items.Clear;
   for i := 0 to projectGroup.projectCount-1 do
   begin
@@ -693,6 +694,14 @@ begin
       SubItems.Add(prj.fProj.configurationName(prj.fProj.getActiveConfigurationIndex));
     end;
   end;
+  if projectGroup.projectCount > 0 then
+  begin
+    i := projectGroup.getProjectIndex;
+    if i > projectGroup.projectCount then
+      i := projectGroup.projectCount-1;
+    lstProj.ItemIndex:= i;
+  end;
+  lstProj.EndUpdate;
   if fFreeProj <> nil then
   begin
     if fFreeProj.filename.fileExists then