mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 06:59:14 +02:00
Added procedure ListBox.Clear (changes by chris, added by stoppok)
git-svn-id: trunk@8 -
This commit is contained in:
parent
22127cbbef
commit
b3206798a8
@ -68,7 +68,7 @@ type
|
|||||||
procedure CreateHandle; override;
|
procedure CreateHandle; override;
|
||||||
procedure DestroyHandle; override;
|
procedure DestroyHandle; override;
|
||||||
procedure DoChange(var msg); message LM_CHANGED;
|
procedure DoChange(var msg); message LM_CHANGED;
|
||||||
procedure AttachSignals; override;
|
procedure AttachSignals; override;
|
||||||
//TODO: Took the virtual; off next line
|
//TODO: Took the virtual; off next line
|
||||||
function GetSelLength : integer;
|
function GetSelLength : integer;
|
||||||
//TODO: Took the virtual; off next line
|
//TODO: Took the virtual; off next line
|
||||||
@ -148,6 +148,7 @@ type
|
|||||||
public
|
public
|
||||||
constructor Create(AOwner : TComponent); override;
|
constructor Create(AOwner : TComponent); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
|
procedure Clear;
|
||||||
property ItemIndex : integer read GetItemIndex write SetItemIndex;
|
property ItemIndex : integer read GetItemIndex write SetItemIndex;
|
||||||
property Items : TStrings read FItems write SetItems;
|
property Items : TStrings read FItems write SetItems;
|
||||||
property MultiSelect : boolean read FMultiSelect write SetMultiSelect;
|
property MultiSelect : boolean read FMultiSelect write SetMultiSelect;
|
||||||
@ -456,6 +457,9 @@ end.
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$Log$
|
||||||
|
Revision 1.2 2000/07/16 12:45:01 lazarus
|
||||||
|
Added procedure ListBox.Clear (changes by chris, added by stoppok)
|
||||||
|
|
||||||
Revision 1.1 2000/07/13 10:28:24 michael
|
Revision 1.1 2000/07/13 10:28:24 michael
|
||||||
+ Initial import
|
+ Initial import
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user