From 38aa838fa1e51b22f8985c75de2c016d9d817a70 Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@lazarus-ide.org>
Date: Fri, 11 Apr 2014 14:58:03 +0000
Subject: [PATCH] lcl: add lookup items between BeginUpdate and EndUpdate calls

git-svn-id: trunk@44678 -
---
 lcl/include/dblookup.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/include/dblookup.inc b/lcl/include/dblookup.inc
index 81f6104af8..6b32e6c54e 100644
--- a/lcl/include/dblookup.inc
+++ b/lcl/include/dblookup.inc
@@ -242,6 +242,7 @@ begin
     Exit;
   Bookmark := ListLinkDataSet.GetBookmark;
   ListLinkDataSet.BlockReadSize := 1;
+  FControlItems.BeginUpdate;
   try
     //needed to handle sqldb.TSQLQuery that does not has a reliable recordcount after Open
     ListLinkDataSet.Last;
@@ -263,6 +264,7 @@ begin
     end;
     SetLength(FListKeys, KeyListCount);
   finally
+    FControlItems.EndUpdate;
     ListLinkDataSet.GotoBookmark(Bookmark);
     ListLinkDataSet.FreeBookmark(Bookmark);
     ListLinkDataSet.BlockReadSize := 0;