diff options
author | Graeme Geldenhuys <graemeg@laptop.(none)> | 2010-07-22 16:14:30 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graemeg@laptop.(none)> | 2010-07-22 16:14:30 +0200 |
commit | c65a96939317c955d4f90b2fd7ee694ffd8da51a (patch) | |
tree | 54e38b9cd27d3204399b5e06c0a6a32cde42068d /src/gui | |
parent | eac6236f6c74a2972222798b059c3c4f383a1b6a (diff) | |
download | fpGUI-c65a96939317c955d4f90b2fd7ee694ffd8da51a.tar.xz |
ListView: introduced new .AddItem method and marked old .ItemAdd deprecated.
Diffstat (limited to 'src/gui')
-rw-r--r-- | src/gui/fpg_listview.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/gui/fpg_listview.pas b/src/gui/fpg_listview.pas index e55c74d7..f93c1950 100644 --- a/src/gui/fpg_listview.pas +++ b/src/gui/fpg_listview.pas @@ -245,7 +245,8 @@ type procedure BeginUpdate; procedure EndUpdate; procedure MakeItemVisible(AIndex: Integer; PartialOK: Boolean = False); - function ItemAdd: TfpgLVItem; + function ItemAdd: TfpgLVItem; deprecated; + function AddItem: TfpgLVItem; published property Columns: TfpgLVColumns read FColumns; property HScrollBar: TfpgScrollBar read FHScrollBar; @@ -1613,6 +1614,11 @@ end; function TfpgListView.ItemAdd: TfpgLVItem; begin + Result := AddItem; +end; + +function TfpgListView.AddItem: TfpgLVItem; +begin Result := TfpgLVItem.Create(FItems); FItems.Add(Result); end; |