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

LCL, fix dbgrid picklist crash, issue #12797

Browse Source 
git-svn-id: trunk@17840 -
This commit is contained in:
jesus 2008-12-15 15:01:59 +00:00
parent 6cb56909ad
commit ed25b4f6f3
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/dbgrids.pas
View File

@ -3076,7 +3076,7 @@ var
p: PLookupListRec; p: PLookupListRec;
begin begin
Result := inherited GetPickList; Result := inherited GetPickList;
if Field.Lookup and Field.LookupCache then begin if (Field<>nil) and Field.Lookup and Field.LookupCache then begin
Result.Clear; Result.Clear;
{$WARNINGS OFF} {$WARNINGS OFF}
lst := TLookupListCracker(Field.LookupList).FList; lst := TLookupListCracker(Field.LookupList).FList;