From f6aab96968de0db55f51f90c9873ca6c459addd1 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Tue, 26 May 2015 13:54:57 +0200
Subject: [PATCH] messages, bulk update

---
 src/ce_messages.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 15a8a452..83171b59 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -585,6 +585,7 @@ var
   i: Integer;
   msgdt: PMessageData;
 begin
+  list.BeginUpdate;
   if aCtxt = amcAll then
     List.Items.Clear
   else for i := List.Items.Count-1 downto 0 do
@@ -593,6 +594,7 @@ begin
     if msgdt^.ctxt = aCtxt then
       List.Items.Delete(List.Items[i]);
   end;
+  list.EndUpdate;
 end;
 
 procedure TCEMessagesWidget.clearByData(aData: Pointer);
@@ -602,12 +604,14 @@ var
 begin
   if aData = nil then
     exit;
+  list.BeginUpdate;
   for i := List.Items.Count-1 downto 0 do
   begin
     msgdt := PMessageData(List.Items[i].Data);
     if (msgdt^.data = aData) then
       List.Items.Delete(List.Items[i]);
   end;
+  list.EndUpdate;
 end;
 {$ENDREGION}
 
@@ -626,8 +630,10 @@ end;
 
 procedure TCEMessagesWidget.clearOutOfRangeMessg;
 begin
+  list.BeginUpdate;
   while List.Items.Count > fMaxMessCnt do
     List.Items.Delete(List.Items.GetFirstNode);
+  list.EndUpdate;
 end;
 
 procedure TCEMessagesWidget.scrollToBack;
@@ -664,6 +670,7 @@ var
 begin
   if updating then
     exit;
+  List.BeginUpdate;
   for i := 0 to List.Items.Count-1 do
   begin
     itm := List.Items[i];
@@ -679,6 +686,7 @@ begin
       amcMisc: itm.Visible := aCtxt = amcMisc;
     end;
   end;
+  list.EndUpdate;
 end;
 
 function guessMessageKind(const aMessg: string): TCEAppMessageKind;