jvcllaz: New component TJvAppAnimatedIcon

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

components/jvcllaz/design/JvAppFrm/images/images.txt

@@ -1,2 +1,3 @@
+tjvappanimatedicon.bmp
 tjvformanimatedicon.bmp
 tjvformwallpaper.bmp

components/jvcllaz/design/JvAppFrm/jvappfrmreg.pas

@@ -16,12 +16,12 @@ implementation
 uses
   Classes, //PropEdits, ComponentEditors,
   JvDsgnConsts,
-  JvFormAnimatedIcon, JvFormWallPaper;
+  JvAppAnimatedIcon, JvFormAnimatedIcon, JvFormWallPaper;
 
 procedure Register;
 begin
   RegisterComponents(RsPaletteJvcl, [
-    TJvFormAnimatedIcon, TJvFormWallPaper
+    TJvAppAnimatedIcon, TJvFormAnimatedIcon, TJvFormWallPaper
   ]);
 end;
 

components/jvcllaz/examples/JvFormAnimatedIcon/main.pas

@@ -6,14 +6,15 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
-  JvFormAnimatedIcon;
+  JvFormAnimatedIcon, JvAppAnimatedIcon;
 
 type
 
   { TForm1 }
 
   TForm1 = class(TForm)
-    ImageList1: TImageList;
+    IconImages: TImageList;
+    JvAppAnimatedIcon1: TJvAppAnimatedIcon;
     JvFormAnimatedIcon1: TJvFormAnimatedIcon;
     Label1: TLabel;
     ListView1: TListView;
@@ -46,7 +47,8 @@ procedure TForm1.FormCreate(Sender: TObject);
 var
   i: Integer;
 begin
-  for i:=0 to ImageList1.Count-1 do
+  JvAppAnimatedIcon1.Active := true;
+  for i:=0 to IconImages.Count-1 do
     AddItem(i);
 end;
 

components/jvcllaz/packages/jvappfrmlazd.lpk

@@ -14,7 +14,7 @@
       </SearchPaths>
     </CompilerOptions>
     <Description Value="JVCL application forms (design time) containing form enhancement components:
-- TJvFormAnimatedIcon
+- animated icons, form wallpaper
 "/>
     <License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
     <Version Major="1" Release="4"/>

components/jvcllaz/packages/jvappfrmlazr.lpk

@@ -13,11 +13,11 @@
       </SearchPaths>
     </CompilerOptions>
     <Description Value="JVCL Application Forms (Runtime) containing form enhancement components:
-- TJvFormAnimatedIcon
+- animated icons, form wallpaper
 "/>
     <License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
     <Version Major="1" Release="4"/>
-    <Files Count="2">
+    <Files Count="3">
       <Item1>
         <Filename Value="..\run\JvAppFrm\JvFormAnimatedIcon.pas"/>
         <UnitName Value="JvFormAnimatedIcon"/>
@@ -26,6 +26,10 @@
         <Filename Value="..\run\JvAppFrm\JvFormWallpaper.pas"/>
         <UnitName Value="JvFormWallpaper"/>
       </Item2>
+      <Item3>
+        <Filename Value="..\run\JvAppFrm\JvAppAnimatedIcon.pas"/>
+        <UnitName Value="JvAppAnimatedIcon"/>
+      </Item3>
     </Files>
     <RequiredPkgs Count="2">
       <Item1>

components/jvcllaz/run/JvAppFrm/JvAppAnimatedIcon.pas

@@ -0,0 +1,121 @@
+{-----------------------------------------------------------------------------
+The contents of this file are subject to the Mozilla Public License
+Version 1.1 (the "License"); you may not use this file except in compliance
+with the License. You may obtain a copy of the License at
+http://www.mozilla.org/MPL/MPL-1.1.html
+
+Software distributed under the License is distributed on an "AS IS" basis,
+WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
+the specific language governing rights and limitations under the License.
+
+The Original Code is: JvAppAnimatedIcon.PAS, released on 2001-02-28.
+
+The Initial Developer of the Original Code is S�bastien Buysse [sbuysse att buypin dott com]
+Portions created by S�bastien Buysse are Copyright (C) 2001 S�bastien Buysse.
+All Rights Reserved.
+
+Contributor(s): Michael Beck [mbeck att bigfoot dott com].
+
+You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
+located at http://jvcl.delphi-jedi.org
+
+Known Issues:
+-----------------------------------------------------------------------------}
+// $Id$
+
+unit JvAppAnimatedIcon;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, Controls, ExtCtrls, Graphics, ImgList;
+
+type
+  TJvAppAnimatedIcon = class(TComponent)
+  private
+    FActive: Boolean;
+    FDelay: Cardinal;
+    FIcons: TImageList;
+    FTimer: TTimer;
+    FNumber: Integer;
+    procedure SetActive(const Value: Boolean);
+    procedure SetDelay(const Value: Cardinal);
+    procedure SetIcons(const Value: TImageList);
+    procedure Animate(Sender: TObject);
+  protected
+    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  published
+    property Active: Boolean read FActive write SetActive default False;
+    property Delay: Cardinal read FDelay write SetDelay default 100;
+    property Icons: TImageList read FIcons write SetIcons;
+  end;
+
+
+implementation
+
+uses
+  Forms, JvJVCLUtils;
+
+constructor TJvAppAnimatedIcon.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FActive := False;
+  FDelay := 100;
+  FNumber := 0;
+  FTimer := TTimer.Create(Self);
+  FTimer.OnTimer := @Animate;
+  FTimer.Interval := FDelay;
+  FTimer.Enabled := FActive;
+end;
+
+destructor TJvAppAnimatedIcon.Destroy;
+begin
+  FTimer.Free;
+  inherited Destroy;
+end;
+
+procedure TJvAppAnimatedIcon.Notification(AComponent: TComponent;
+  Operation: TOperation);
+begin
+  inherited Notification(AComponent, Operation);
+  
+  if Operation = opRemove then
+  begin
+    if AComponent = FIcons then
+      SetIcons(nil);
+  end;
+end;
+
+procedure TJvAppAnimatedIcon.Animate(Sender: TObject);
+
+begin
+  if (Icons <> nil) and (Icons.Count <> 0) then
+  begin
+    FNumber := (FNumber + 1) mod Icons.Count;
+    Icons.GetIcon(FNumber, Application.Icon);
+  end;
+end;
+
+procedure TJvAppAnimatedIcon.SetActive(const Value: Boolean);
+begin
+  FActive := Value;
+  FTimer.Enabled := FActive;
+end;
+
+procedure TJvAppAnimatedIcon.SetDelay(const Value: Cardinal);
+begin
+  FDelay := Value;
+  FTimer.Interval := FDelay;
+end;
+
+procedure TJvAppAnimatedIcon.SetIcons(const Value: TImageList);
+begin
+  ReplaceComponentReference(Self, Value, TComponent(FIcons));
+end;
+
+end.