New Count property to ImageList class.

Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>

1 files changed, 8 insertions, 1 deletions

diff --git a/src/corelib/fpg_imagelist.pas b/src/corelib/fpg_imagelist.pas
index 6f2f4466..1150211a 100644
--- a/src/corelib/fpg_imagelist.pas
+++ b/src/corelib/fpg_imagelist.pas
@@ -1,7 +1,7 @@
 {
     fpGUI  -  Free Pascal GUI Library
 
-    Copyright (C) 2006 - 2008 See the file AUTHORS.txt, included in this
+    Copyright (C) 2006 - 2009 See the file AUTHORS.txt, included in this
     distribution, for details of the copyright.
 
     See the file COPYING.modifiedLGPL, included in this distribution,
@@ -64,6 +64,7 @@ type
     function    GetFListIndex(AIndex: Integer): Integer;
     function    GetItem(AIndex: integer): TfpgImageItem;
     procedure   SetItem(AIndex: integer; AItem: TfpgImageItem);
+    function    GetCount: integer;
   public
     constructor Create;
     destructor  Destroy; override;
@@ -72,6 +73,7 @@ type
     procedure   RemoveIndex(AIndex: integer);
     function    GetMaxItem: integer;
     property    Item[AIndex: integer]: TfpgImageItem read GetItem write SetItem;
+    property    Count: integer read GetCount;
   end;
 
   
@@ -126,6 +128,11 @@ begin
   FList.Add(AItem);
 end;
 
+function TfpgImageList.GetCount: integer;
+begin
+  Result := FList.Count;
+end;
+
 constructor TfpgImageList.Create;
 begin
   FList := TList.Create;