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

lcl: republish TDBListBox.Items (Delphi compatible). Fixes #14827

Browse Source 
git-svn-id: trunk@30299 -
This commit is contained in:
blikblum 2011-04-15 02:51:39 +00:00
parent 34a31903ab
commit 7b1ab64dc2
2 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/dbctrls.pp
View File

@ -356,7 +356,7 @@ Type
function GetDataField: string; function GetDataField: string;
function GetDataSource: TDataSource; function GetDataSource: TDataSource;
function GetField: TField; function GetField: TField;
// we need to override the Items Write method for db aware.
procedure SetItems(Values : TStrings); override; procedure SetItems(Values : TStrings); override;
function GetReadOnly: Boolean; function GetReadOnly: Boolean;
@ -393,12 +393,6 @@ Type
protected protected
procedure DataChange(Sender: TObject); override; procedure DataChange(Sender: TObject); override;
procedure UpdateData(Sender: TObject); override; procedure UpdateData(Sender: TObject); override;
class procedure WSRegisterClass; override;
public
// we need to overrride the write method for db aware.
// the Read isn't an issue since the list will be updated
// on data change anyway
property Items write SetItems;
published published
property Align; property Align;
property Anchors; property Anchors;
@ -410,6 +404,7 @@ Type
property DragMode; property DragMode;
property ExtendedSelect; property ExtendedSelect;
property ItemHeight; property ItemHeight;
property Items;
property MultiSelect; property MultiSelect;
property OnClick; property OnClick;
property OnDblClick; property OnDblClick;

11
lcl/include/dblistbox.inc
View File

@ -42,14 +42,3 @@ begin
FDataLink.Field.Text := Items[ItemIndex]; FDataLink.Field.Text := Items[ItemIndex];
end; end;
class procedure TDBListBox.WSRegisterClass;
const
Done: Boolean = False;
begin
if Done then
Exit;
inherited WSRegisterClass;
RegisterPropertyToSkip(TDBListBox, 'Items', 'Removed in 0.9.29. DB control should not save/load their data from stream.', '');
Done := True;
end;