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

lcl: only call UpdateLookup in TDBLookupComboBox.Loaded if DataLink is active = avoid double initialization of lookup.

Browse Source 
Dont update the lookup if destroying
code formating

git-svn-id: trunk@32501 -
This commit is contained in:
blikblum 2011-09-24 14:02:42 +00:00
parent 9357e21926
commit 687c14e6a3
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/include/dblookupcombobox.inc
View File

@ -26,8 +26,8 @@
constructor TDBLookupComboBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FLookup:= TDBLookup.Create(Self);
FDataLink.OnActiveChange:= @ActiveChange;
FLookup := TDBLookup.Create(Self);
FDataLink.OnActiveChange := @ActiveChange;
end;
procedure TDBLookupComboBox.UpdateData(Sender: TObject);
@ -59,7 +59,8 @@ end;
procedure TDBLookupComboBox.Loaded;
begin
inherited Loaded;
UpdateLookup;
if FDataLink.Active then
UpdateLookup;
end;
function TDBLookupComboBox.GetKeyField: string;
@ -99,7 +100,7 @@ end;
procedure TDBLookupComboBox.SetKeyField(const Value: string);
begin
FLookup.KeyField:= Value;
FLookup.KeyField := Value;
UpdateLookup;
end;
@ -113,19 +114,19 @@ end;
procedure TDBLookupComboBox.SetListField(const Value: string);
begin
FLookup.ListField:= Value;
FLookup.ListField := Value;
UpdateLookup;
end;
procedure TDBLookupComboBox.SetListFieldIndex(const Value: Integer);
begin
FLookup.ListFieldIndex:= Value;
FLookup.ListFieldIndex := Value;
UpdateLookup;
end;
procedure TDBLookupComboBox.SetListSource(const Value: TDataSource);
begin
FLookup.ListSource:= Value;
FLookup.ListSource := Value;
UpdateLookup;
end;
@ -142,7 +143,7 @@ end;
procedure TDBLookupComboBox.UpdateLookup;
begin
if not (csLoading in ComponentState) then
if ([csLoading, csDestroying] * ComponentState) = [] then
begin
FLookup.Initialize(FDataLink, Items);
Text := FLookup.ListFieldValue;