1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
{%MainUnit ../dbctrls.pp}
{******************************************************************************
TDBListBox
data aware ListBox, base found in dbctrls.pp
******************************************************************************
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
// included by dbctrls.pp
{ TDBListBox }
{ Protected Methods }
procedure TDBListBox.DataChange(Sender: TObject);
var
DataLinkField: TField;
begin
DataLinkField := FDataLink.Field;
if Assigned(DataLinkField) then
ItemIndex := Items.IndexOf(DataLinkField.Text)
else
ItemIndex := -1;
end;
procedure TDBListBox.DoSelectionChange(User: Boolean);
begin
if User then
begin
if FDataLink.CanModify then
begin
//protect against undesired call to DataChange
FDataLink.OnDataChange := nil;
if FDataLink.Edit then
FDataLink.Modified;
FDataLink.OnDataChange := @DataChange;
end
else
DataChange(Self);
end;
inherited DoSelectionChange(User);
end;
procedure TDBListBox.UpdateData(Sender: TObject);
begin
if ItemIndex >= 0 then
FDataLink.Field.Text := Items[ItemIndex];
end;
procedure TDBListBox.EditingDone;
begin
FDataLink.UpdateRecord;
inherited EditingDone;
end;
|
