mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-15 07:40:04 +02:00
lcl: update lookup unconditionally in InitializeWnd
git-svn-id: trunk@32921 -
This commit is contained in:
parent
43e41c3974
commit
36cdc25ab4
@ -59,7 +59,6 @@ end;
|
|||||||
procedure TDBLookupComboBox.InitializeWnd;
|
procedure TDBLookupComboBox.InitializeWnd;
|
||||||
begin
|
begin
|
||||||
inherited InitializeWnd;
|
inherited InitializeWnd;
|
||||||
if FDataLink.Active then
|
|
||||||
UpdateLookup;
|
UpdateLookup;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
@ -62,7 +62,6 @@ end;
|
|||||||
procedure TDBLookupListBox.InitializeWnd;
|
procedure TDBLookupListBox.InitializeWnd;
|
||||||
begin
|
begin
|
||||||
inherited InitializeWnd;
|
inherited InitializeWnd;
|
||||||
if FDataLink.Active then
|
|
||||||
UpdateLookup;
|
UpdateLookup;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user