From 5ae6d7c5ac4cdfb11fedd1c42a7deca7ec73f1c2 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Fri, 5 Dec 2014 11:43:39 +0000
Subject: [PATCH] IDE: Use BeginUpdate-EndUpdate blocks in component palette
 options.

git-svn-id: trunk@47116 -
---
 ide/frames/componentpalette_options.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ide/frames/componentpalette_options.pas b/ide/frames/componentpalette_options.pas
index 453dc5d95c..19debe5a24 100644
--- a/ide/frames/componentpalette_options.pas
+++ b/ide/frames/componentpalette_options.pas
@@ -247,6 +247,7 @@ var
   Pg: TBaseComponentPage;
 begin
   // First clear existing items and add <All> page.
+  PagesListBox.Items.BeginUpdate;
   for i := 0 to PagesListBox.Items.Count-1 do
     PagesListBox.Items.Objects[i].Free;
   PagesListBox.Clear;
@@ -265,6 +266,7 @@ begin
     end;
   end;
   PagesListBox.ItemIndex := 0;     // Activate first item
+  PagesListBox.Items.EndUpdate;
 end;
 
 procedure TCompPaletteOptionsFrame.InitialComps(aPageInd: Integer; aCompList: TStringList);
@@ -302,6 +304,7 @@ begin
     StartInd := PagesListBox.Items.IndexOf(aPageName);
     EndInd := StartInd;
   end;
+  ComponentsListView.Items.BeginUpdate;
   ComponentsListView.Items.Clear;
   for PageCnt := StartInd to EndInd do
   begin
@@ -318,6 +321,7 @@ begin
       Item.Data := Comp;
     end;
   end;
+  ComponentsListView.Items.EndUpdate;
 end;
 
 procedure TCompPaletteOptionsFrame.PagesListBoxSelectionChange(Sender: TObject; User: boolean);