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

lcl: update lookup unconditionally in InitializeWnd

Browse Source 
git-svn-id: trunk@32921 -
This commit is contained in:
blikblum 2011-10-16 12:08:15 +00:00
parent 43e41c3974
commit 36cdc25ab4
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/dblookupcombobox.inc
View File

@ -59,8 +59,7 @@ end;
procedure TDBLookupComboBox.InitializeWnd; procedure TDBLookupComboBox.InitializeWnd;
begin begin
inherited InitializeWnd; inherited InitializeWnd;
if FDataLink.Active then UpdateLookup;
UpdateLookup;
end; end;
function TDBLookupComboBox.GetKeyField: string; function TDBLookupComboBox.GetKeyField: string;

3
lcl/include/dblookuplistbox.inc
View File

@ -62,8 +62,7 @@ end;
procedure TDBLookupListBox.InitializeWnd; procedure TDBLookupListBox.InitializeWnd;
begin begin
inherited InitializeWnd; inherited InitializeWnd;
if FDataLink.Active then UpdateLookup;
UpdateLookup;
end; end;
procedure TDBLookupListBox.KeyDown(var Key: Word; Shift: TShiftState); procedure TDBLookupListBox.KeyDown(var Key: Word; Shift: TShiftState);