paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-09 15:57:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, DBLookup controls data initialization crash, from Luiz, issue #13882

Browse Source 
git-svn-id: trunk@20331 -
This commit is contained in:
jesus 2009-06-01 04:55:27 +00:00
parent 10a39a669c
commit c06f404a56
3 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dbctrls.pp
View File

@ -419,6 +419,8 @@ Type
procedure SetLookupCache(const Value: boolean);
protected
procedure DataChange(Sender: TObject); override;
procedure FinalizeWnd; override;
procedure InitializeWnd; override;
procedure Loaded; override;
procedure UpdateData(Sender: TObject); override;
public
@ -725,6 +727,8 @@ Type
procedure SetListSource(const Value: TDataSource);
procedure SetLookupCache(const Value: boolean);
protected
procedure FinalizeWnd; override;
procedure InitializeWnd; override;
procedure Loaded; override;
procedure UpdateData(Sender: TObject); override;
procedure UpdateText; override;

12
lcl/include/dblookupcombobox.inc
View File

@ -105,3 +105,15 @@ begin
FLookup.LookupCache := Value;
end;
procedure TDBLookupComboBox.FinalizeWnd;
begin
inherited FinalizeWnd;
FLookup.FControlItems := Items;
end;
procedure TDBLookupComboBox.InitializeWnd;
begin
inherited InitializeWnd;
FLookup.FControlItems := Items;
end;

12
lcl/include/dblookuplistbox.inc
View File

@ -59,6 +59,18 @@ begin
ItemIndex:= Items.IndexOf(FLookup.ListFieldValue);
end;
procedure TDBLookupListBox.FinalizeWnd;
begin
inherited FinalizeWnd;
FLookup.FControlItems := Items;
end;
procedure TDBLookupListBox.InitializeWnd;
begin
inherited InitializeWnd;
FLookup.FControlItems := Items;
end;
function TDBLookupListBox.GetKeyField: string;
begin
Result := FLookup.KeyField;