paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 14:00:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: add lookup items between BeginUpdate and EndUpdate calls

Browse Source 
git-svn-id: trunk@44678 -
This commit is contained in:
blikblum 2014-04-11 14:58:03 +00:00
parent af57f786ce
commit 38aa838fa1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dblookup.inc
View File

@ -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;