From 18ca120a8fa187dd074dbc7118dc4b287479a3bb Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 26 Jan 2015 09:55:03 +0100
Subject: [PATCH] improved performance on update

---
 src/ce_projinspect.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ce_projinspect.pas b/src/ce_projinspect.pas
index b9bfb00f..f44f5b8c 100644
--- a/src/ce_projinspect.pas
+++ b/src/ce_projinspect.pas
@@ -177,7 +177,7 @@ begin
 end;
 {$ENDREGION}
 
-{$REGION Insêctor things -------------------------------------------------------}
+{$REGION Inspector things -------------------------------------------------------}
 procedure TCEProjectInspectWidget.TreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
   if Key = VK_RETURN then
@@ -333,6 +333,7 @@ begin
   fInclNode.DeleteChildren;
   fXtraNode.DeleteChildren;
   if fProject = nil then exit;
+  Tree.BeginUpdate;
   // display main sources
   for src in fProject.Sources do
    begin
@@ -390,6 +391,7 @@ begin
     end;
   end;
   fXtraNode.Collapse(false);
+  Tree.EndUpdate;
 end;
 {$ENDREGION --------------------------------------------------------------------}