TfpgImageList: Added a Clear method.

1 files changed, 6 insertions, 0 deletions

diff --git a/src/corelib/fpg_imagelist.pas b/src/corelib/fpg_imagelist.pas
index b4d72a6a..c2c1b3eb 100644
--- a/src/corelib/fpg_imagelist.pas
+++ b/src/corelib/fpg_imagelist.pas
@@ -72,6 +72,7 @@ type
     procedure   AddImage(AImage: TfpgImage; AIndex: integer = -1);
     procedure   RemoveIndex(AIndex: integer);
     function    GetMaxItem: integer;
+    procedure   Clear;
     property    Item[AIndex: integer]: TfpgImageItem read GetItem write SetItem;
     property    Count: integer read GetCount;
   end;
@@ -208,6 +209,11 @@ begin
       result := TfpgImageItem(FList[i]).Index;
 end;
 
+procedure TfpgImageList.Clear;
+begin
+  FList.Clear;
+end;
+
 { TfpgImageItem }
 
 procedure TfpgImageItem.SetImageList(AImageList: TfpgImageList);