From 75a9d12a57fffb9da0b9e6f22caf7627da1e1858 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 5 Jan 2015 04:59:15 +0100
Subject: [PATCH] fix, prevented update burst when adding/removing many sources

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

diff --git a/src/ce_projinspect.pas b/src/ce_projinspect.pas
index ff1324e8..eac4f979 100644
--- a/src/ce_projinspect.pas
+++ b/src/ce_projinspect.pas
@@ -242,6 +242,7 @@ begin
   else dir := '';
   if selectDirectory('sources', dir, dir, true, 0) then
   begin
+    fProject.beginUpdate;
     lst := TStringList.Create;
     try
       listFiles(lst, dir, true);
@@ -254,6 +255,7 @@ begin
       end;
     finally
       lst.Free;
+      fProject.endUpdate;
     end;
   end;
 end;
@@ -274,9 +276,11 @@ begin
   dir := extractFilePath(fname);
   if not DirectoryExists(dir) then exit;
   //
+  fProject.beginUpdate;
   for i:= fProject.Sources.Count-1 downto 0 do
     if extractFilePath(fProject.getAbsoluteSourceName(i)) = dir then
       fProject.Sources.Delete(i);
+  fProject.endUpdate;
   UpdateByEvent;
 end;