A little tweak to allow sorting of ListView

1 files changed, 8 insertions, 4 deletions

diff --git a/src/gui/fpg_listview.pas b/src/gui/fpg_listview.pas
index dc9378b1..c7bdba66 100644
--- a/src/gui/fpg_listview.pas
+++ b/src/gui/fpg_listview.pas
@@ -149,14 +149,13 @@ type
     procedure   InsertItem(AItem: TfpgLVItem; AIndex: Integer);
     procedure   BeginUpdate;
     procedure   EndUpdate;
+    procedure   Sort(Compare: TListSortCompare);
     property    Capacity: Integer read GetCapacity write SetCapacity;
     property    Columns: TfpgLVColumns read FColumns;
     property    Item[AIndex: Integer]: TfpgLVItem read GetItem write SetItem;
   end;
   
   
-  { TfpgLVItem }
-
   TfpgLVItem = class(TObject)
   private
     FCaption: String;
@@ -181,7 +180,6 @@ type
     property    Selected[ListView: TfpgListView]: Boolean read GetSelected write SetSelected;
   end;
 
-  { TfpgListViewSubitems }
 
   TfpgListViewSubItems = class(TStrings)
   private
@@ -204,7 +202,6 @@ type
     procedure   Insert(Index: Integer; const S: string); override;
     property    ImageIndex[ASubIndex: Integer]: Integer read GetImageIndex write SetImageIndex;
     property    OnChange: TNotifyEvent read FOnChange write FOnChange;
-
   end;
   
 
@@ -554,6 +551,13 @@ begin
     DoEndUpdate;
 end;
 
+procedure TfpgLVItems.Sort(Compare: TListSortCompare);
+begin
+  BeginUpdate;
+  FItems.Sort(Compare);
+  EndUpdate;
+end;
+
 { TfpgLVItem }
 
 procedure TfpgLVItem.SetCaption(const AValue: String);