paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 11:27:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: clear control items when lookup list source is inactive. Issue #30545

Browse Source 
git-svn-id: trunk@53002 -
This commit is contained in:
blikblum 2016-09-20 23:39:32 +00:00
parent c3d7d6e046
commit 835be86890
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/dblookup.inc
View File

@ -138,7 +138,12 @@ begin
if (csDestroying in ComponentState) then
Exit;
if FListLink.Active then
Initialize(FControlLink, FControlItems);
Initialize(FControlLink, FControlItems)
else
begin
SetLength(FListKeys, 0);
FControlItems.Clear;
end;
end;
procedure TDBLookup.DatasetChange(Sender: TObject);