paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 07:32:41 +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

16
lcl/include/dblookupcombobox.inc
View File

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