From c73847f18ea54ad5b74da23f994cc3f7200ab298 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 25 Nov 2018 22:50:20 +0000
Subject: [PATCH] jvcllaz: New component TJvAnimTitle

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6740 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../jvcllaz/design/JvAppFrm/images/images.txt |   1 +
 .../design/JvAppFrm/images/tjvanimtitle.bmp   | Bin 0 -> 1654 bytes
 .../jvcllaz/design/JvAppFrm/jvappfrmreg.pas   |   4 +-
 .../examples/JvFormAnimatedIcon/main.lfm      |  68 +++++++-
 .../examples/JvFormAnimatedIcon/main.pas      |  31 +++-
 components/jvcllaz/packages/jvappfrmlazd.lpk  |   2 +-
 components/jvcllaz/packages/jvappfrmlazr.lpk  |   8 +-
 components/jvcllaz/resource/jvappfrmreg.res   | Bin 5152 -> 6848 bytes
 .../jvcllaz/run/JvAppFrm/JvAnimTitle.pas      | 157 ++++++++++++++++++
 9 files changed, 261 insertions(+), 10 deletions(-)
 create mode 100644 components/jvcllaz/design/JvAppFrm/images/tjvanimtitle.bmp
 create mode 100644 components/jvcllaz/run/JvAppFrm/JvAnimTitle.pas

diff --git a/components/jvcllaz/design/JvAppFrm/images/images.txt b/components/jvcllaz/design/JvAppFrm/images/images.txt
index f42e27267..46481f479 100644
--- a/components/jvcllaz/design/JvAppFrm/images/images.txt
+++ b/components/jvcllaz/design/JvAppFrm/images/images.txt
@@ -1,3 +1,4 @@
 tjvappanimatedicon.bmp
 tjvformanimatedicon.bmp
+tjvanimtitle.bmp
 tjvformwallpaper.bmp
diff --git a/components/jvcllaz/design/JvAppFrm/images/tjvanimtitle.bmp b/components/jvcllaz/design/JvAppFrm/images/tjvanimtitle.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..306f9af11614c6f0937e48aa5f0e01e4bfb57c5b
GIT binary patch
literal 1654
zcmY+^A(PxT6u|M9W~bhkB_*A<Kr<x;m!Mt_wS5z|pu}{EK1J~}T<Ss-0Z%^1W0@(u
z!YvRmtTRDgaG7)evhI>b_Rr7v^t_fV&AtBpk1u6wuXZ9oarf<mC$iu2`o$LN<;nl<
z#iX2KRs&aV#ofjKae4pO8<C)hpd%zWvWN--xX}nhf+LGWL4blkq9MVNAKn{?iU>o3
zBa3h=DL@fnNN{8ZDF{$R7!n*=gi~^WBEpd1$fCk9C7>J;h6G2hQwxEph%h8La-FsY
zq9VeO;K=op#6VO;7!n-0el80{MT8;2k?W^SfvAWuBsg;Y%pQn}2t$G+Z%d##5ET)I
z1V<KQ{w4us<`LycaAdI{2v9^A5*)cMn+BpH!jRy|bxC6&Dk2OCj$D_UmzXIc3<-{0
zw?Ya;MT8;2k?S_`KvYB+5*&HkLY4zj5n)JhWO3&25}=4MB$Ol9trY@M5n)Jh<ht!N
z5ET)I1V^r0G6td|!jRy|b-P+1Dk2OCj$F5L3PeSOA;FRBHupeOL>Q91zguOb&iFl%
zbvtEU%N;mMip$%lSJ&6SZta)S?myHfayU@>?D=;;Uj1D2cXxD&w1bSJw8vU-|A8#$
z;c}#$r&>8uFg)hh^&)L^8INuGIg#!6sbAMohIQUrGtc9vJWnql^Yf>CE0?ADv+sv#
zqWf{2>w1u8nNMBUolbq<-#@f6zy0!W*WI4~KJB_4y*p``@glP9r|vY()A>A|cQo0P
z=U?Q~3|&7rbHjk>AVI#7!_xHK?fli;OnrG^`*3Aiymoh{xH<RJE%^iGWm@DJ3(3Bx
zVkd3M4`uk%nF*ZwQ`eW*4kgdD)@51t%{vCf1p1wfTlqFx?&zd<es`ph*|vP*VZ1c^
zGPu&)ZiTGMks%Fb0cydaMET*H=U;DY$$|}ISsMyyzm<0L^2O8dOMh8Q3Ru^ht>f|X
R>c!PV!OiC#TLHV~`ahw5a)bZ?

literal 0
HcmV?d00001

diff --git a/components/jvcllaz/design/JvAppFrm/jvappfrmreg.pas b/components/jvcllaz/design/JvAppFrm/jvappfrmreg.pas
index 3ff44ad1d..df533d49d 100644
--- a/components/jvcllaz/design/JvAppFrm/jvappfrmreg.pas
+++ b/components/jvcllaz/design/JvAppFrm/jvappfrmreg.pas
@@ -16,12 +16,12 @@ implementation
 uses
   Classes, //PropEdits, ComponentEditors,
   JvDsgnConsts,
-  JvAppAnimatedIcon, JvFormAnimatedIcon, JvFormWallPaper;
+  JvAppAnimatedIcon, JvFormAnimatedIcon, JvAnimTitle, JvFormWallPaper;
 
 procedure Register;
 begin
   RegisterComponents(RsPaletteJvcl, [
-    TJvAppAnimatedIcon, TJvFormAnimatedIcon, TJvFormWallPaper
+    TJvAppAnimatedIcon, TJvFormAnimatedIcon, TJvAnimTitle, TJvFormWallPaper
   ]);
 end;
 
diff --git a/components/jvcllaz/examples/JvFormAnimatedIcon/main.lfm b/components/jvcllaz/examples/JvFormAnimatedIcon/main.lfm
index 34352e4f0..648df04bd 100644
--- a/components/jvcllaz/examples/JvFormAnimatedIcon/main.lfm
+++ b/components/jvcllaz/examples/JvFormAnimatedIcon/main.lfm
@@ -3,17 +3,24 @@ object Form1: TForm1
   Height = 344
   Top = 128
   Width = 937
-  Caption = 'Form1'
+  Caption = 'F'
   ClientHeight = 344
   ClientWidth = 937
   OnCreate = FormCreate
   LCLVersion = '2.1.0.0'
   object ListView1: TListView
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = Owner
+    AnchorSideBottom.Side = asrBottom
     Left = 8
     Height = 305
     Top = 31
     Width = 921
-    Align = alClient
+    Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Left = 8
     BorderSpacing.Right = 8
     BorderSpacing.Bottom = 8
@@ -27,12 +34,59 @@ object Form1: TForm1
     Left = 8
     Height = 15
     Top = 8
-    Width = 921
-    Align = alTop
+    Width = 233
     BorderSpacing.Around = 8
     Caption = 'See animation in form and application icons'
     ParentColor = False
   end
+  object CheckBox1: TCheckBox
+    AnchorSideLeft.Control = Label1
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrCenter
+    Left = 265
+    Height = 19
+    Top = 6
+    Width = 93
+    BorderSpacing.Left = 24
+    Caption = 'animated title'
+    Checked = True
+    OnChange = CheckBox1Change
+    State = cbChecked
+    TabOrder = 1
+  end
+  object CheckBox2: TCheckBox
+    AnchorSideLeft.Control = CheckBox1
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrCenter
+    Left = 382
+    Height = 19
+    Top = 6
+    Width = 127
+    BorderSpacing.Left = 24
+    Caption = 'Animated form icon'
+    Checked = True
+    OnChange = CheckBox2Change
+    State = cbChecked
+    TabOrder = 2
+  end
+  object CheckBox3: TCheckBox
+    AnchorSideLeft.Control = CheckBox2
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Label1
+    AnchorSideTop.Side = asrCenter
+    Left = 533
+    Height = 19
+    Top = 6
+    Width = 217
+    BorderSpacing.Left = 24
+    Caption = 'Animated application icon in task bar'
+    Checked = True
+    OnChange = CheckBox3Change
+    State = cbChecked
+    TabOrder = 3
+  end
   object JvFormAnimatedIcon1: TJvFormAnimatedIcon
     Icons = IconImages
     Delay = 50
@@ -4150,4 +4204,10 @@ object Form1: TForm1
     left = 80
     top = 129
   end
+  object JvAnimTitle1: TJvAnimTitle
+    Title = 'Form1'
+    Delay = 100
+    left = 80
+    top = 192
+  end
 end
diff --git a/components/jvcllaz/examples/JvFormAnimatedIcon/main.pas b/components/jvcllaz/examples/JvFormAnimatedIcon/main.pas
index f8774e0d2..7928e66a3 100644
--- a/components/jvcllaz/examples/JvFormAnimatedIcon/main.pas
+++ b/components/jvcllaz/examples/JvFormAnimatedIcon/main.pas
@@ -6,18 +6,25 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls, StdCtrls,
-  JvFormAnimatedIcon, JvAppAnimatedIcon;
+  JvFormAnimatedIcon, JvAppAnimatedIcon, JvAnimTitle;
 
 type
 
   { TForm1 }
 
   TForm1 = class(TForm)
+    CheckBox1: TCheckBox;
+    CheckBox2: TCheckBox;
+    CheckBox3: TCheckBox;
     IconImages: TImageList;
+    JvAnimTitle1: TJvAnimTitle;
     JvAppAnimatedIcon1: TJvAppAnimatedIcon;
     JvFormAnimatedIcon1: TJvFormAnimatedIcon;
     Label1: TLabel;
     ListView1: TListView;
+    procedure CheckBox1Change(Sender: TObject);
+    procedure CheckBox2Change(Sender: TObject);
+    procedure CheckBox3Change(Sender: TObject);
     procedure FormCreate(Sender: TObject);
   private
 
@@ -34,6 +41,9 @@ implementation
 
 { TForm1 }
 
+const
+  FORM_CAPTION = 'JvFormAnimation Demo';
+
 procedure TForm1.FormCreate(Sender: TObject);
 
   procedure AddItem(AIndex: Integer);
@@ -50,6 +60,25 @@ begin
   JvAppAnimatedIcon1.Active := true;
   for i:=0 to IconImages.Count-1 do
     AddItem(i);
+
+  Checkbox1Change(nil);
+end;
+
+procedure TForm1.CheckBox1Change(Sender: TObject);
+begin
+  JvAnimTitle1.Enabled := Checkbox1.Checked;
+  JvAnimTitle1.Title := FORM_CAPTION;
+  if not JvAnimTitle1.Enabled then Caption := FORM_CAPTION;
+end;
+
+procedure TForm1.CheckBox2Change(Sender: TObject);
+begin
+  JvFormAnimatedIcon1.Active := Checkbox2.Checked;
+end;
+
+procedure TForm1.CheckBox3Change(Sender: TObject);
+begin
+  JvAppAnimatedIcon1.Active := Checkbox3.Checked;
 end;
 
 end.
diff --git a/components/jvcllaz/packages/jvappfrmlazd.lpk b/components/jvcllaz/packages/jvappfrmlazd.lpk
index dd36e1d11..5991ab170 100644
--- a/components/jvcllaz/packages/jvappfrmlazd.lpk
+++ b/components/jvcllaz/packages/jvappfrmlazd.lpk
@@ -14,7 +14,7 @@
       </SearchPaths>
     </CompilerOptions>
     <Description Value="JVCL application forms (design time) containing form enhancement components:
-- animated icons, form wallpaper
+- animated icons, animated title, 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"/>
diff --git a/components/jvcllaz/packages/jvappfrmlazr.lpk b/components/jvcllaz/packages/jvappfrmlazr.lpk
index c70bbcdd0..c909731ea 100644
--- a/components/jvcllaz/packages/jvappfrmlazr.lpk
+++ b/components/jvcllaz/packages/jvappfrmlazr.lpk
@@ -13,11 +13,11 @@
       </SearchPaths>
     </CompilerOptions>
     <Description Value="JVCL Application Forms (Runtime) containing form enhancement components:
-- animated icons, form wallpaper
+- animated icons, animated title, 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="3">
+    <Files Count="4">
       <Item1>
         <Filename Value="..\run\JvAppFrm\JvFormAnimatedIcon.pas"/>
         <UnitName Value="JvFormAnimatedIcon"/>
@@ -30,6 +30,10 @@
         <Filename Value="..\run\JvAppFrm\JvAppAnimatedIcon.pas"/>
         <UnitName Value="JvAppAnimatedIcon"/>
       </Item3>
+      <Item4>
+        <Filename Value="..\run\JvAppFrm\JvAnimTitle.pas"/>
+        <UnitName Value="JvAnimTitle"/>
+      </Item4>
     </Files>
     <RequiredPkgs Count="2">
       <Item1>
diff --git a/components/jvcllaz/resource/jvappfrmreg.res b/components/jvcllaz/resource/jvappfrmreg.res
index 89d2e938fddc9323f87ba11a52e56caaa31d6e48..f61c2aeb656566e3a296e0491e2c6eb2ab4c4fcb 100644
GIT binary patch
delta 436
zcmX|-y-LJD6ot<&!%hUZSi#1|!p6c<L4*Y@EJpkzh)tfrXHZzD42a;QOk<G;SlAcv
z6<o`J)s#+~6dU$>l6AdgiuuktH}}r_{>RbuX}Eg~K%|d5T;LvOxQ4+MZ-(a*=WjPB
zJ<Ps`eU-ha(WF@wU<`Akt)0Dt!|`~$Y?{S_5)kJo3dG6Euxv>AnL44JsTc_j`I?K=
zh;>~gaoY}HpUy8*AeYdU4xw1{i3sD>zYx}fNQ}DDnRB`KlsnE|A_lq&skJsuopZ~-
z5&@#>$J%-Ml`5;KDrga@fGYAf^}&~=FBJ<Bc|@-B2kU|knj=vmp`c+Z?d&{k1npg$
zXy3D2jQ>?7&AN1cPHtMx#mG4fp>uR7#4XR;`F+U^QkPnnO*bEVarQj8?VV<ygYB6c
Hz7Bo?k?`(l

delta 18
ZcmX?Lx<F$?4KJg^<cn;gn~g;J*Z@L;21Eb=

diff --git a/components/jvcllaz/run/JvAppFrm/JvAnimTitle.pas b/components/jvcllaz/run/JvAppFrm/JvAnimTitle.pas
new file mode 100644
index 000000000..04926bb16
--- /dev/null
+++ b/components/jvcllaz/run/JvAppFrm/JvAnimTitle.pas
@@ -0,0 +1,157 @@
+{-----------------------------------------------------------------------------
+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: JvAnimTitle.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 JvAnimTitle;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, Controls, ExtCtrls, Forms;
+
+type
+  TJvAnimTitle = class(TComponent)
+  private
+    FTimer: TTimer;
+    FEnabled: Boolean;
+    FTitle: string;
+    FCurrentTitle: string;
+    FDelay: Integer;
+    FSens: Boolean;
+    FForm: TCustomForm;
+    FBlink: Integer;
+    FBlinked: Integer;
+    FBlinking: Boolean;
+    procedure SetTitle(const NewTitle: string);
+    procedure SetEnabled(NewEnable: Boolean);
+    procedure SetDelay(NewDelay: Integer);
+    procedure AnimateTitle(Sender: TObject);
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  published
+    property Title: string read FTitle write SetTitle;
+    property Enabled: Boolean read FEnabled write SetEnabled default False;
+    property Delay: Integer read FDelay write SetDelay default 50;
+    property Blink: Integer read FBlink write FBlink default 5;
+  end;
+
+
+implementation
+
+constructor TJvAnimTitle.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  FEnabled := False;
+  FDelay := 50;
+  FBlink := 5;
+  FForm := GetParentForm(TControl(AOwner));
+  FTitle := FForm.Caption;
+  FSens := True;
+  FBlinking := False;
+  FBlinked := 0;
+
+  FTimer := TTimer.Create(Self);
+  FTimer.Enabled := FEnabled;
+  FTimer.Interval := FDelay;
+  FTimer.OnTimer := @AnimateTitle;
+end;
+
+destructor TJvAnimTitle.Destroy;
+begin
+  FTimer.Free;
+  if not (csDestroying in FForm.ComponentState) then
+    FForm.Caption := FTitle;
+  inherited Destroy;
+end;
+
+procedure TJvAnimTitle.AnimateTitle(Sender: TObject);
+begin
+  if FBlinking then
+  begin
+    // (rom) this is a bad implementation better try to manipulate
+    // (rom) the WM_GETTEXT and WM_SETTEXT to the Form window
+    if FForm.Caption = Title then
+      FForm.Caption := ''
+    else
+    begin
+      FForm.Caption := Title;
+      Inc(FBlinked);
+      if FBlinked >= Blink then
+      begin
+        FBlinking := False;
+        FBlinked := 0;
+      end;
+    end;
+  end
+  else
+  begin
+    if FSens then
+    begin
+      if Length(FCurrentTitle) = Length(Title) then
+      begin
+        FSens := False;
+        if Blink > 0 then
+          FBlinking := True;
+      end
+      else
+        FCurrentTitle := FCurrentTitle + Title[Length(FCurrentTitle) + 1];
+    end
+    else
+    if FCurrentTitle = '' then
+      FSens := True
+    else
+      SetLength(FCurrentTitle, Length(FCurrentTitle) - 1);
+    {$IFDEF UNIX}
+    if FCurrentTitle = '' then
+      FForm.Caption := ' '   // else caption becomes <1>
+    else
+    {$ENDIF UNIX}
+    FForm.Caption := FCurrentTitle;
+  end;
+end;
+
+procedure TJvAnimTitle.SetTitle(const NewTitle: string);
+begin
+  FTitle := NewTitle;
+  FCurrentTitle := '';
+  FSens := True;
+end;
+
+procedure TJvAnimTitle.SetEnabled(NewEnable: Boolean);
+begin
+  FEnabled := NewEnable;
+  FTimer.Enabled := FEnabled;
+end;
+
+procedure TJvAnimTitle.SetDelay(NewDelay: Integer);
+begin
+  FDelay := NewDelay;
+  FTimer.Interval := FDelay;
+end;
+
+
+end.