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

lcl-db: prevent lookup initialization when dataset is destroyed

Browse Source 
git-svn-id: trunk@37154 -
This commit is contained in:
marc 2012-05-04 12:27:30 +00:00
parent 465eb5f5c1
commit 09e587db69
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/dblookupcombobox.inc
View File

@ -171,14 +171,18 @@ procedure TDBLookupComboBox.UpdateLookup;
var var
i: Integer; i: Integer;
begin begin
if ([csLoading, csDestroying] * ComponentState) = [] then if ([csLoading, csDestroying] * ComponentState) <> [] then Exit;
begin
if FDataLink.Active then
begin;
FLookup.Initialize(FDataLink, Items); FLookup.Initialize(FDataLink, Items);
i := FLookup.GetKeyIndex; i := FLookup.GetKeyIndex;
end
else i := -1;
ItemIndex := i; ItemIndex := i;
if i = -1 then if i = -1 then
Text := ''; Text := '';
end;
end; end;
procedure TDBLookupComboBox.CloseUp; procedure TDBLookupComboBox.CloseUp;