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

lcl: use Enable/DisableControls in TDBLookup. Issue #26356

Browse Source 
git-svn-id: trunk@45578 -
This commit is contained in:
blikblum 2014-06-19 12:45:43 +00:00
parent aad031fb47
commit 1891880cc5
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/dblookup.inc
View File

@ -243,7 +243,11 @@ begin
if ListLinkDataSet.IsEmpty then
Exit;
Bookmark := ListLinkDataSet.GetBookmark;
{$ifdef EnableLookupWithBlockRead}
ListLinkDataSet.BlockReadSize := 1;
{$else}
ListLinkDataSet.DisableControls;
{$endif}
FControlItems.BeginUpdate;
try
//needed to handle sqldb.TSQLQuery that does not has a reliable recordcount after Open
@ -269,7 +273,11 @@ begin
FControlItems.EndUpdate;
ListLinkDataSet.GotoBookmark(Bookmark);
ListLinkDataSet.FreeBookmark(Bookmark);
{$ifdef EnableLookupWithBlockRead}
ListLinkDataSet.BlockReadSize := 0;
{$else}
ListLinkDataSet.EnableControls;
{$endif}
end;
end;