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

lcl: fixed TDbLookupCombobox showing blank items when used with a TSdfDataset and FPC 2.6.4, bug #30931, patch from Luca Olivetti

Browse Source 
git-svn-id: trunk@54950 -
This commit is contained in:
mattias 2017-05-17 14:36:26 +00:00
parent 80a8c39f9d
commit e8857ce5b7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dblookup.inc
View File

@ -281,7 +281,7 @@ begin
Bookmark := ListLinkDataSet.GetBookmark;
//in fpc 2.6.4, TMemDataset does not supports BlockRead. Issues 26356, 27959
{$IF FPC_FULLVERSION < 30000}
DatasetSupportsBlockRead := not IsClass(ListLinkDataSet, 'TMemDataset');
DatasetSupportsBlockRead := not IsClass(ListLinkDataSet, 'TMemDataset') and not IsClass(ListLinkDataSet, 'TFixedFormatDataSet');
if DatasetSupportsBlockRead then
ListLinkDataSet.BlockReadSize := 1
else