paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 03:48:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: add TCustomListBox.AddItem() method

Browse Source 
git-svn-id: trunk@30968 -
This commit is contained in:
paul 2011-05-30 06:31:01 +00:00
parent 550b1d3a3a
commit 8a3c07043c
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customlistbox.inc
View File

@ -568,6 +568,11 @@ begin
inherited Destroy;
end;
procedure TCustomListBox.AddItem(const Item: String; AnObject: TObject);
begin
Items.AddObject(Item, AnObject);
end;
function TCustomListBox.GetItemIndex: integer;
begin
if HandleAllocated then

1
lcl/stdctrls.pp
View File

@ -548,6 +548,7 @@ type
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
procedure AddItem(const Item: String; AnObject: TObject);
procedure Click; override; // make it public
procedure Clear; virtual;
procedure ClearSelection;