jvcllaz: Add new component JvFormAnimatedIcon

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6736 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/examples/JvFormAnimatedIcon/main.pas

@@ -0,0 +1,54 @@
+unit main;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
+  JvFormAnimatedIcon, JvBmpAnimator;
+
+type
+
+  { TForm1 }
+
+  TForm1 = class(TForm)
+    ImageList1: TImageList;
+    JvFormAnimatedIcon1: TJvFormAnimatedIcon;
+    Label1: TLabel;
+    ListView1: TListView;
+    procedure FormCreate(Sender: TObject);
+  private
+
+  public
+
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.lfm}
+
+{ TForm1 }
+
+procedure TForm1.FormCreate(Sender: TObject);
+
+  procedure AddItem(AIndex: Integer);
+  begin
+    with Listview1.Items.Add do begin
+      Caption := 'Image' + IntToStr(AIndex);
+      ImageIndex := AIndex;
+    end;
+  end;
+
+var
+  i: Integer;
+begin
+  for i:=0 to ImageList1.Count-1 do
+    AddItem(i);
+end;
+
+end.
+