You've already forked lazarus-ccr
Comba Animation - Initial commit v1.00
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5794 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
joshy
BIN
components/Comba_Animation/images/back_400.jpg
Normal file
BIN
components/Comba_Animation/images/back_400.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 78 KiB |
BIN
components/Comba_Animation/images/background_org.png
Normal file
BIN
components/Comba_Animation/images/background_org.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 42 KiB |
BIN
components/Comba_Animation/images/flare2.png
Normal file
BIN
components/Comba_Animation/images/flare2.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 10 KiB |
BIN
components/Comba_Animation/images/reload_original.png
Normal file
BIN
components/Comba_Animation/images/reload_original.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.3 KiB |
231
components/Comba_Animation/output/Contributors.txt
Normal file
231
components/Comba_Animation/output/Contributors.txt
Normal file
@ -0,0 +1,231 @@
|
||||
#The following people contributed to Lazarus:
|
||||
|
||||
A. J. Venter
|
||||
Алексей Лагунов
|
||||
Alexander Grau
|
||||
Alexander S. Klenin
|
||||
Alexander Shiyan
|
||||
Alexandr Gridnev
|
||||
Alexandre Leclerc
|
||||
Alexandru Alexandrov
|
||||
Alexey Torgashin
|
||||
Andreas Hausladen
|
||||
Andreas Schneider
|
||||
Andrew Haines
|
||||
Andrew Johnson
|
||||
Anton A. Panferov
|
||||
Anton Kavalenka
|
||||
Antônio Galvão
|
||||
Arnold Bosch
|
||||
Attila Tamás - Hungarian translation
|
||||
August Klein
|
||||
Babak Mahmoudabadi
|
||||
Balazs Szekely
|
||||
Bald Zhang
|
||||
Bart Broersma
|
||||
Benito van der Zander
|
||||
Bent Normann Olsen
|
||||
Bernd Engelhardt
|
||||
Bernd Kreuss
|
||||
Bernd Mueller
|
||||
Bob Wingard
|
||||
Bogusław Brandys
|
||||
Boian Mitov
|
||||
Boris Arko
|
||||
Boris Glavin
|
||||
Boris Popov
|
||||
Brad Campbell
|
||||
Bruce Tulloch
|
||||
Chris Rorden
|
||||
Christian Budde
|
||||
Christian Iversen
|
||||
Christian Ulrich
|
||||
Christopher Kirkpatrick
|
||||
Cliff Baeseman
|
||||
Colin Western
|
||||
Curtis White
|
||||
Daniel Oom
|
||||
Daniel Simões de Almeida
|
||||
Darek Mazur
|
||||
Darius Blaszijk
|
||||
Dávid Fehér - Hungarian translation
|
||||
David Guadagnini
|
||||
David Jenkins
|
||||
David Pethes
|
||||
David Zimmer
|
||||
Dean Zobec
|
||||
Denis Golovan
|
||||
Denis Kozlov
|
||||
Denis Volodarsky
|
||||
Derit Agustin
|
||||
Diogo Piçarra
|
||||
Dirk Schiphorst
|
||||
Dmitry Boyarintsev
|
||||
Dominique Louis
|
||||
Ere Maijala
|
||||
Eric Chapman
|
||||
Erivelton Silva
|
||||
Erwin van den Bosch
|
||||
Eugene Kryukov
|
||||
Evgen A. Palamarchuck
|
||||
Ezik Shlomi
|
||||
Fabrizio Fellini
|
||||
Fathony Luthfillah (x2nie)
|
||||
Felipe Monteiro de Carvalho
|
||||
Flávio Etrusco
|
||||
Florian Koeberle
|
||||
Francisco Manuel
|
||||
Gerard Visent
|
||||
Gilles Vasseur - French translation
|
||||
Giuliano Colla
|
||||
Giulio Bernardi
|
||||
GongYu
|
||||
Graeme Geldenhuys
|
||||
Grzegorz Zakrzewski
|
||||
Hakan Kizilhan
|
||||
Hans Luijten
|
||||
Hans-Joachim Ott
|
||||
Hans-Peter Diettrich
|
||||
Haruyuki Fujimaki
|
||||
Henry Vermaak
|
||||
Hwang Weng Sun
|
||||
Ido Kanner
|
||||
Igor Paliychuk
|
||||
Imad Goubaa
|
||||
James Chandler Jr.
|
||||
Jan Adamec
|
||||
Jan Foster
|
||||
Janusz Tomczak
|
||||
Jarto Tarpio
|
||||
Jason King
|
||||
Jeffrey A. Wormsley
|
||||
Jeroen van Idekinge
|
||||
Jesus Reyes
|
||||
JiXian Yang
|
||||
Jörg Braun - German translation
|
||||
Johannes Muller
|
||||
Jonas Maebe
|
||||
Joost van der Sluis
|
||||
Jose Alonso Cardenas M.
|
||||
José Martínez - Spanish translation
|
||||
Jose Mejuto
|
||||
Jouke Rensma
|
||||
Juan Salvador Pérez García
|
||||
Juha Manninen
|
||||
Júnior Gonçalves
|
||||
Justin Smyth
|
||||
Karl Brandt
|
||||
Keith Bowes
|
||||
Khaled Shagrouni
|
||||
Kostas Michalopoulos
|
||||
Krzysztof Dibowski
|
||||
Ladislav Michl
|
||||
Laurent Jacques
|
||||
Leslie Kaye
|
||||
Louis Hoefler
|
||||
Luca Olivetti
|
||||
Lucas Martin
|
||||
Ludo Brands
|
||||
Luis R. Hilario B.
|
||||
Luís Rodrigues
|
||||
Luiz Américo
|
||||
Maciej Izak (hnb)
|
||||
Marc Fokker
|
||||
Marc Geldon
|
||||
Marc Weustink
|
||||
Marcelo Borges de Paula
|
||||
Mario Bonati
|
||||
Mario Ray Mahardhika
|
||||
Marius Ellen
|
||||
Mark Bravington
|
||||
Markus Muller
|
||||
Martin Friebe
|
||||
Martin Patik
|
||||
Martin Smat
|
||||
Márton Papp
|
||||
Martyn Ranyard
|
||||
Massimo Magnano
|
||||
Massimo Soricetti
|
||||
Matthijs Willemstein
|
||||
Mattias Gärtner
|
||||
Mattias Hansson
|
||||
Maxim Ganetsky
|
||||
Mazen Neifer
|
||||
Micha Nelissen
|
||||
Michael A. Hess
|
||||
Michael Fuchs
|
||||
Michael W. Vogel
|
||||
Michal Bukovjan
|
||||
Michal Gawrycki
|
||||
Michalis Kamburelis
|
||||
Mike Sapsard
|
||||
Mike Thompson
|
||||
Nikolay Ermolov
|
||||
Nur Cholif Murtadho
|
||||
Olivier Guilbaud
|
||||
Ondrej Pokorny
|
||||
Patrick Chevalley
|
||||
Paul Ishenin
|
||||
Paul Michell
|
||||
Pawel Trochimczuk
|
||||
Peter Dyson
|
||||
Péter Gábor
|
||||
Petr Kristan
|
||||
Philip J. Hess
|
||||
Philippe Picard
|
||||
Pierre Gillmann
|
||||
Przemyslaw Nagay
|
||||
Radek Cervinka
|
||||
Raul Moratalla
|
||||
Razvan Adrian Bogdan
|
||||
Reimar Grabowski
|
||||
Reinier Olislagers
|
||||
Roozbeh GHolizadeh
|
||||
Rostislav Okulov
|
||||
Salvatore Coppola
|
||||
Samuel Herzog
|
||||
Samuel Liddicott
|
||||
Sandro Cumerlato
|
||||
Sean McIlwain
|
||||
Sebastian Gasiorek
|
||||
Seppo Suutarla - Finnish translation
|
||||
Sérgio Marcelo
|
||||
Shane Miller
|
||||
Sileno Goedicke
|
||||
Silvio Clécio
|
||||
Simon Ameis
|
||||
Slavko Fedorik
|
||||
Stefan Hille
|
||||
Takeda Matsuki
|
||||
Tamás Kálcza - Hungarian translation
|
||||
Taras Boychuk
|
||||
Theo Lustenberger
|
||||
Tim P. Launchbury
|
||||
Tobias Giesen
|
||||
Tom Lisjac
|
||||
Tomáš Gregorovič
|
||||
Tomasz Wieckowski
|
||||
Tony Maro
|
||||
Vaclav Valicek
|
||||
Valdas Jankūnas
|
||||
Valdinilson Lourenço da Cunha
|
||||
Vasily I. Volchenko
|
||||
Vincent Beuselinck
|
||||
Vincent Snijders
|
||||
Vladimir Serotyukov
|
||||
Vladimir Zhirov
|
||||
Vojtech Cihak
|
||||
Wanderlan Santos dos Anjos
|
||||
Werner Pamler
|
||||
Wojciech Malinowski
|
||||
Yauheni Nazimau
|
||||
Yuichiro Takahashi
|
||||
Yuriy Yeroshkin
|
||||
Yury Sidorov
|
||||
Zaenal Mutaqin
|
||||
Zaher Dirkey
|
||||
Zdravko Gabrovski
|
||||
Zeljan Rikalo
|
||||
Žilvinas Ledas
|
||||
|
||||
#and special thanks to the FPC team.
|
||||
140
components/Comba_Animation/samples/contributors/contributors.lpi
Normal file
140
components/Comba_Animation/samples/contributors/contributors.lpi
Normal file
@ -0,0 +1,140 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="10"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<Title Value="Lazarus Contributors Animation"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<XPManifest>
|
||||
<TextName Value="CompanyName.ProductName.AppName"/>
|
||||
<TextDesc Value="Your application description."/>
|
||||
</XPManifest>
|
||||
</General>
|
||||
<i18n>
|
||||
<EnableI18N LFM="False"/>
|
||||
</i18n>
|
||||
<BuildModes Count="2">
|
||||
<Item1 Name="Debug" Default="True"/>
|
||||
<Item2 Name="Release">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="..\..\output\contributors"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<OtherUnitFiles Value="..\..\src"/>
|
||||
<UnitOutputDirectory Value="..\..\lib\$NameOnly($(ProjFile))\lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
</Item2>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="1">
|
||||
<Item1>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="5">
|
||||
<Unit0>
|
||||
<Filename Value="contributors.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="uanimationcontributors.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="..\..\src\uanimationbasic.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="ufrmcontributors.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmContributors"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\..\src\uanimationtypes.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit4>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="..\..\output\contributors"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<OtherUnitFiles Value="..\..\src"/>
|
||||
<UnitOutputDirectory Value="..\..\lib\$NameOnly($(ProjFile))\lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<CodeGeneration>
|
||||
<Checks>
|
||||
<IOChecks Value="True"/>
|
||||
<RangeChecks Value="True"/>
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<VerifyObjMethodCallValidity Value="True"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
@ -0,0 +1,23 @@
|
||||
program contributors;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, uanimationbasic,
|
||||
uanimationcontributors,
|
||||
ufrmcontributors, uanimationtypes;
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Title:='Lazarus Contributors Animation';
|
||||
RequireDerivedFormResource := True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TfrmContributors, frmContributors);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
@ -0,0 +1,393 @@
|
||||
unit uanimationcontributors;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Graphics, Controls, uanimationbasic,LCLIntf;
|
||||
|
||||
type
|
||||
|
||||
{ TAnimationTranslateLinear }
|
||||
|
||||
TAnimationTranslateLinear=class(TAnimationItem)
|
||||
private
|
||||
protected
|
||||
public
|
||||
FStartPoint: TPoint;
|
||||
FEndPoint: TPoint;
|
||||
end;
|
||||
|
||||
{ TTextLineAnimation }
|
||||
|
||||
TTextLineAnimation=class(TAnimationTranslateLinear)
|
||||
private
|
||||
protected
|
||||
FText: string;
|
||||
FLXTime: int64;
|
||||
FTextWidth: integer;
|
||||
FHighLight: Boolean;
|
||||
procedure DoPerform; override;
|
||||
public
|
||||
property Text: string read FText write FText;
|
||||
constructor Create(const aOrigin: TPoint; const aTarget: TPoint; const aDuration: int64); reintroduce;
|
||||
end;
|
||||
|
||||
{ TBackgroundAnimation }
|
||||
|
||||
TBackgroundAnimation=class(TAnimationItem)
|
||||
private
|
||||
protected
|
||||
FBackground: TBitmap;
|
||||
procedure DoPerform; override;
|
||||
public
|
||||
constructor Create(const aBitmap: TBitMap);
|
||||
procedure LoadBackgroundFromFile;
|
||||
procedure LoadFromBitmap(const aBitmap: TBitmap);
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
{ TAboutTextZoomAnimation }
|
||||
|
||||
TAboutTextZoomAnimation=class(TAnimationItem)
|
||||
private
|
||||
protected
|
||||
FText: string;
|
||||
FFinalXY: TPoint;
|
||||
FHidden: Boolean;
|
||||
procedure DoPerform; override;
|
||||
procedure DoFinalizeAnimation; override;
|
||||
public
|
||||
end;
|
||||
|
||||
{ TAboutAnimation }
|
||||
|
||||
TAboutAnimation=class (TAnimationQueue)
|
||||
private
|
||||
protected
|
||||
FX: integer;
|
||||
FTarget: TBitmap;
|
||||
FPaintBuffer: TBitmap;
|
||||
FRefreshObject: TControl;
|
||||
FTextLines: TStringList;
|
||||
FViewPort: TRect;
|
||||
FAboutZoomEffect: TAboutTextZoomAnimation;
|
||||
FFullAnimationTime: int64;
|
||||
FMousePoint: TPoint;
|
||||
FCalculatedFontSize: integer;
|
||||
//Object to check upper and lower boundary animations
|
||||
FFirstLine: TTextLineAnimation;
|
||||
procedure PrepareLinesObjects;
|
||||
public
|
||||
property PaintBuffer: TBitmap read FPaintBuffer;
|
||||
property RefreshObject: TControl read FRefreshObject write FRefreshObject;
|
||||
property MousePosition: TPoint read FMousePoint write FMousePoint;
|
||||
|
||||
constructor Create(const aTargetImage: TBitmap);
|
||||
destructor Destroy; override;
|
||||
procedure Animate; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
const
|
||||
EACHLINE_HEIGHT=20;
|
||||
EACHLINE_TIME=600; //Milliseconds
|
||||
INITIAL_TEXT_FONT_SIZE=13;
|
||||
TEXT_ZOOM_SIZE=80;
|
||||
COLOR_TEXT=clBlack;
|
||||
COLOR_TEXT_HIGHLIGHT=$FF0000;
|
||||
COLOR_OUTLINE=$E0E0E0;
|
||||
COLOR_ZOOM_TEXT=$C0C0C0;
|
||||
OUTLINE_OFFSET=1;
|
||||
|
||||
{ TAboutTextZoomAnimation }
|
||||
|
||||
procedure TAboutTextZoomAnimation.DoPerform;
|
||||
var
|
||||
Factor: Single;
|
||||
Distance: integer;
|
||||
TheBMP: TBitmap;
|
||||
PreserveSize: integer;
|
||||
begin
|
||||
inherited DoPerform;
|
||||
If FHidden then exit;
|
||||
if FText='' then Exit;
|
||||
Factor:=GetElapsedMilliseconds / Duration;
|
||||
Distance:=TEXT_ZOOM_SIZE-TAboutAnimation(FQueue).FCalculatedFontSize;
|
||||
Distance:=Distance-Trunc(Distance*Factor);
|
||||
TheBmp:=TAboutAnimation(FQueue).PaintBuffer;
|
||||
PreserveSize:=TheBMP.Canvas.Font.Size;
|
||||
TheBMP.Canvas.Font.Size:=Distance+TAboutAnimation(FQueue).FCalculatedFontSize;
|
||||
TheBMP.Canvas.Font.Color:=COLOR_ZOOM_TEXT;
|
||||
TheBMP.Canvas.TextOut(TheBmp.Canvas.Width div 2 - TheBMP.Canvas.TextWidth(FText) div 2,FFinalXY.y-distance*2,FText);
|
||||
TheBMP.Canvas.Font.Size:=PreserveSize;
|
||||
thebmp.Canvas.Font.Color:=clBlack;
|
||||
end;
|
||||
|
||||
procedure TAboutTextZoomAnimation.DoFinalizeAnimation;
|
||||
begin
|
||||
inherited DoFinalizeAnimation;
|
||||
FHidden:=true;
|
||||
end;
|
||||
|
||||
{ TBackgroundAnimation }
|
||||
|
||||
procedure TBackgroundAnimation.LoadBackgroundFromFile;
|
||||
var
|
||||
BackgroundLoad: TPicture;
|
||||
begin
|
||||
TAboutAnimation(FQueue).FTarget.Canvas.Clear;
|
||||
BackgroundLoad:=TPicture.Create;
|
||||
try
|
||||
BackgroundLoad.LoadFromFile('..\images\back_400.jpg');
|
||||
except
|
||||
end;
|
||||
FBackground:=TBitmap.Create;
|
||||
FBackground.Assign(TAboutAnimation(FQueue).FTarget);
|
||||
//R.Left:=0;
|
||||
//R.Top:=0;
|
||||
//R.Right:=FBackground.Width;
|
||||
//R.Bottom:=FBackground.Height;
|
||||
//FBackground.Canvas.AntialiasingMode:=amOn;
|
||||
// Use StretchDraw if target does not matches source dimensions
|
||||
// FBackground.Canvas.StretchDraw(R,BackgroundLoad.Bitmap);
|
||||
FBackground.Canvas.Draw(0,0,BackgroundLoad.Bitmap);
|
||||
BackgroundLoad.Free;
|
||||
end;
|
||||
|
||||
procedure TBackgroundAnimation.LoadFromBitmap(const aBitmap: TBitmap);
|
||||
begin
|
||||
FBackground:=TBitmap.Create;
|
||||
FBackground.SetSize(aBitmap.Width,aBitmap.Height);
|
||||
FBackground.Canvas.Draw(0,0,aBitmap);
|
||||
end;
|
||||
|
||||
procedure TBackgroundAnimation.DoPerform;
|
||||
var
|
||||
TheBMP: TBitmap;
|
||||
begin
|
||||
if not Assigned(FBackground) then begin
|
||||
LoadBackgroundFromFile;
|
||||
end;
|
||||
TheBmp:=TAboutAnimation(FQueue).PaintBuffer;
|
||||
TheBMP.Canvas.Draw(0,0,FBackground);
|
||||
end;
|
||||
|
||||
constructor TBackgroundAnimation.Create(const aBitmap: TBitMap);
|
||||
begin
|
||||
LoadFromBitmap(aBitmap);
|
||||
end;
|
||||
|
||||
destructor TBackgroundAnimation.Destroy;
|
||||
begin
|
||||
FreeAndNil(FBackground);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
{ TAboutAnimation }
|
||||
|
||||
procedure TAboutAnimation.PrepareLinesObjects;
|
||||
var
|
||||
j: integer;
|
||||
EachLine: TTextLineAnimation;
|
||||
StartOffSet: integer;
|
||||
StartPoint,EndPoint: TPoint;
|
||||
EachLineDuration: int64;
|
||||
BlankZone: int64;
|
||||
begin
|
||||
StartOffSet:=FTarget.Height;
|
||||
BlankZone:=int64(StartOffSet div EACHLINE_HEIGHT)*EACHLINE_TIME;
|
||||
EachLineDuration:=FTextLines.Count*int64(EACHLINE_TIME)+BlankZone;
|
||||
for j := 0 to FTextLines.Count-1 do begin
|
||||
StartPoint.x:=0;
|
||||
StartPoint.y:=j*EACHLINE_HEIGHT+StartOffSet;
|
||||
EndPoint.x:=0;
|
||||
EndPoint.y:=StartPoint.y+(FTextLines.Count*EACHLINE_HEIGHT)+StartOffSet;
|
||||
EachLine:=TTextLineAnimation.Create(StartPoint,EndPoint,EachLineDuration);
|
||||
EachLine.FreeWithQueue:=true;
|
||||
if Length(FTextLines[j])>0 then begin
|
||||
if FTextLines[j][1]='#' then begin
|
||||
EachLine.FHighLight:=true;
|
||||
FTextLines[j]:=copy(FTextLines[j],2,Length(FTextLines[j])-1);
|
||||
end;
|
||||
end;
|
||||
EachLine.Text:=FTextLines[j];
|
||||
EachLine.FTextWidth:=FPaintBuffer.Canvas.TextWidth(FTextLines[j]);
|
||||
Self.Add(EachLine);
|
||||
if j=0 then begin
|
||||
FFirstLine:=EachLine;
|
||||
end;
|
||||
end;
|
||||
FFullAnimationTime:=EachLineDuration;
|
||||
end;
|
||||
|
||||
constructor TAboutAnimation.Create(const aTargetImage: TBitmap);
|
||||
var
|
||||
AnimBackground: TBackgroundAnimation;
|
||||
AnimTextZoom: TAboutTextZoomAnimation;
|
||||
TextWidth: integer;
|
||||
begin
|
||||
FTarget:=aTargetImage;
|
||||
FPaintBuffer:=TBitmap.Create;
|
||||
with FPaintBuffer do begin
|
||||
Assign(FTarget);
|
||||
Canvas.Brush.Color:=clWhite;
|
||||
Canvas.Brush.Style:=bsSolid;
|
||||
Canvas.Pen.Color:=clBlack;
|
||||
Canvas.FillRect(0,0,Width,Height);
|
||||
end;
|
||||
inherited Create;
|
||||
|
||||
FTextLines:=TStringList.Create;
|
||||
try
|
||||
FTextLines.LoadFromFile('Contributors.txt');
|
||||
except
|
||||
end;
|
||||
|
||||
if FTextLines.Count=0 then FTextLines.Add('Missing contributors.txt file.');
|
||||
|
||||
FPaintBuffer.Canvas.Font.Size:=INITIAL_TEXT_FONT_SIZE+1;
|
||||
repeat
|
||||
FPaintBuffer.Canvas.Font.Size:=FPaintBuffer.Canvas.Font.Size-1;
|
||||
TextWidth:=FPaintBuffer.Canvas.TextWidth(FTextLines[0]);
|
||||
until TextWidth<FPaintBuffer.Canvas.Width;
|
||||
FCalculatedFontSize:=FPaintBuffer.Canvas.Font.Size;
|
||||
|
||||
AnimBackground:=TBackgroundAnimation.Create(aTargetImage);
|
||||
aTargetImage.Canvas.Clear;
|
||||
AnimBackground.FreeWithQueue:=true;
|
||||
Self.Add(AnimBackground);
|
||||
|
||||
AnimTextZoom:=TAboutTextZoomAnimation.Create;
|
||||
AnimTextZoom.Duration:=EACHLINE_TIME;
|
||||
AnimTextZoom.Repeats:=1;
|
||||
AnimTextZoom.FreeWithQueue:=true;
|
||||
AnimTextZoom.FText:='This is a zooming text cache';
|
||||
Self.Add(AnimTextZoom);
|
||||
Self.FAboutZoomEffect:=AnimTextZoom;
|
||||
|
||||
PrepareLinesObjects;
|
||||
end;
|
||||
|
||||
destructor TAboutAnimation.Destroy;
|
||||
begin
|
||||
FTextLines.Free;
|
||||
FreeAndNil(FPaintBuffer);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TAboutAnimation.Animate;
|
||||
var
|
||||
R1: TRect;
|
||||
begin
|
||||
if FState<>eAnimationQueueStarted then exit;
|
||||
if Reversed then begin
|
||||
if FFirstLine.GetElapsedMilliseconds<0 then begin
|
||||
Reverse;
|
||||
end;
|
||||
end else begin
|
||||
if FFirstLine.GetElapsedMilliseconds>FFullAnimationTime then begin
|
||||
Start;
|
||||
end;
|
||||
end;
|
||||
R1.Top:=0;R1.Left:=0;
|
||||
FTarget.GetSize(R1.Right,R1.Bottom);
|
||||
FViewPort:=R1;
|
||||
// Is "Draw" faster than CopyRect ?
|
||||
// FTarget.Canvas.CopyRect(R1,FPaintBuffer.Canvas,R1);
|
||||
FTarget.Canvas.Draw(0,0,FPaintBuffer);
|
||||
if Assigned(FRefreshObject) then begin
|
||||
FRefreshObject.Refresh;
|
||||
end;
|
||||
inherited Animate;
|
||||
end;
|
||||
|
||||
{ TTextLineAnimation }
|
||||
|
||||
constructor TTextLineAnimation.Create(const aOrigin: TPoint;
|
||||
const aTarget: TPoint; const aDuration: int64);
|
||||
begin
|
||||
Duration:=aDuration;
|
||||
FStartPoint:=aOrigin;
|
||||
FEndPoint:=aTarget;
|
||||
end;
|
||||
|
||||
procedure TTextLineAnimation.DoPerform;
|
||||
var
|
||||
TheBMP: TBitmap;
|
||||
Factor: single;
|
||||
Distance: integer;
|
||||
NP: integer;
|
||||
LX: integer;
|
||||
LT: integer;
|
||||
bInBottonLine: Boolean;
|
||||
bIsMouseOver: Boolean=false;
|
||||
TextRect: TRect;
|
||||
begin
|
||||
Factor:=GetElapsedMilliseconds / Duration;
|
||||
if Factor>1.0 then exit;
|
||||
Distance:=FEndPoint.y-FStartPoint.y;
|
||||
NP:=Trunc(Distance * Factor);
|
||||
NP:=FStartPoint.y-NP;
|
||||
if NP<TAboutAnimation(FQueue).FViewPort.Top-EACHLINE_HEIGHT then exit;
|
||||
if NP>TAboutAnimation(FQueue).FViewPort.Bottom then exit;
|
||||
LT:=(TAboutAnimation(FQueue).FViewPort.Right div 2) - (FTextWidth div 2);
|
||||
if (NP>TAboutAnimation(FQueue).FViewPort.Bottom-EACHLINE_HEIGHT) and (NP<=TAboutAnimation(FQueue).FViewPort.Bottom) then begin
|
||||
bInBottonLine:=true;
|
||||
if TAboutAnimation(FQueue).FAboutZoomEffect.FText<>FText then begin
|
||||
TAboutAnimation(FQueue).FAboutZoomEffect.FText:=FText;
|
||||
TAboutAnimation(FQueue).FAboutZoomEffect.FFinalXY.x:=LT;
|
||||
TAboutAnimation(FQueue).FAboutZoomEffect.FFinalXY.Y:=TAboutAnimation(FQueue).FViewPort.Bottom-EACHLINE_HEIGHT;
|
||||
TAboutAnimation(FQueue).FAboutZoomEffect.Start;
|
||||
end;
|
||||
if FLXTime=0 then FLXTime:=GetElapsedMilliseconds;
|
||||
LX:=TAboutAnimation(FQueue).FViewPort.Right;
|
||||
Distance:=LX-LT+10; // 10 stop pixels...
|
||||
Factor:=(GetElapsedMilliseconds - FLXTime) / EACHLINE_TIME;
|
||||
Factor:=Sin(Factor*pi/2);
|
||||
Distance:=Trunc(Distance * Factor);
|
||||
if Distance>(LX-LT) then Distance:=LX-LT;
|
||||
LX:=LX-Distance;
|
||||
NP:=TAboutAnimation(FQueue).FViewPort.Bottom-EACHLINE_HEIGHT;
|
||||
end else begin
|
||||
bInBottonLine:=false;
|
||||
LX:=LT;
|
||||
end;
|
||||
TextRect:=rect(LX,NP,FTextWidth+LX,NP+EACHLINE_HEIGHT);
|
||||
TheBmp:=TAboutAnimation(FQueue).PaintBuffer;
|
||||
|
||||
TheBMP.Canvas.Brush.Style:=bsClear;
|
||||
if not bInBottonLine then begin
|
||||
TheBMP.Canvas.Font.Color:=COLOR_OUTLINE; //Very light gray
|
||||
TheBMP.Canvas.AntialiasingMode:=amOff;
|
||||
if OUTLINE_OFFSET>0 then begin
|
||||
TheBMP.Canvas.TextOut(LX+OUTLINE_OFFSET,NP+OUTLINE_OFFSET,FText);
|
||||
TheBMP.Canvas.TextOut(LX-OUTLINE_OFFSET,NP+OUTLINE_OFFSET,FText);
|
||||
TheBMP.Canvas.TextOut(LX+OUTLINE_OFFSET,NP-OUTLINE_OFFSET,FText);
|
||||
TheBMP.Canvas.TextOut(LX-OUTLINE_OFFSET,NP-OUTLINE_OFFSET,FText);
|
||||
end;
|
||||
end;
|
||||
|
||||
if PtInRect(TextRect,(TAboutAnimation(FQueue).MousePosition)) then begin
|
||||
bIsMouseOver:=true;
|
||||
end;
|
||||
|
||||
if FHighLight or bIsMouseOver then begin
|
||||
TheBMP.Canvas.Font.Color:=COLOR_TEXT_HIGHLIGHT;
|
||||
TheBMP.Canvas.Font.Style:=[fsUnderline];
|
||||
end else begin
|
||||
TheBMP.Canvas.Font.Color:=COLOR_TEXT;
|
||||
end;
|
||||
// TheBMP.Canvas.AntialiasingMode:=amOn;
|
||||
if not bInBottonLine then begin
|
||||
TheBMP.Canvas.TextOut(LX,NP,FText);
|
||||
end;
|
||||
if FHighLight or bInBottonLine or bIsMouseOver then begin
|
||||
TheBMP.Canvas.Font.Style:=[];
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
2532
components/Comba_Animation/samples/contributors/ufrmcontributors.lfm
Normal file
2532
components/Comba_Animation/samples/contributors/ufrmcontributors.lfm
Normal file
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,67 @@
|
||||
unit ufrmcontributors;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls
|
||||
, uanimationbasic, uanimationcontributors;
|
||||
|
||||
type
|
||||
|
||||
{ TfrmContributors }
|
||||
|
||||
TfrmContributors = class(TForm)
|
||||
imgLazarus: TImage;
|
||||
tmrAnimationCadence: TTimer;
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure tmrAnimationCadenceTimer(Sender: TObject);
|
||||
private
|
||||
protected
|
||||
AnimationQueue: TAboutAnimation;
|
||||
public
|
||||
|
||||
end;
|
||||
|
||||
var
|
||||
frmContributors: TfrmContributors;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TfrmContributors }
|
||||
|
||||
procedure TfrmContributors.FormCreate(Sender: TObject);
|
||||
begin
|
||||
imgLazarus.Canvas.Clear;
|
||||
AnimationQueue:=TAboutAnimation.Create(imgLazarus.Picture.Bitmap);
|
||||
|
||||
AnimationQueue.Start(true);
|
||||
end;
|
||||
|
||||
procedure TfrmContributors.FormClose(Sender: TObject;
|
||||
var CloseAction: TCloseAction);
|
||||
begin
|
||||
AnimationQueue.Pause;
|
||||
CloseAction:=caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmContributors.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
FreeAndNil(AnimationQueue);
|
||||
end;
|
||||
|
||||
procedure TfrmContributors.tmrAnimationCadenceTimer(Sender: TObject);
|
||||
begin
|
||||
AnimationQueue.MousePosition:=imgLazarus.ScreenToClient(Mouse.CursorPos);
|
||||
AnimationQueue.Animate;
|
||||
// Self.Repaint;
|
||||
// Self.Caption:=format('FPS: %.2f',[AnimationQueue.AverageFPS]);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,135 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="10"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<Title Value="Animated Controls Sample"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<XPManifest>
|
||||
<TextName Value="CompanyName.ProductName.AppName"/>
|
||||
<TextDesc Value="Your application description."/>
|
||||
</XPManifest>
|
||||
</General>
|
||||
<i18n>
|
||||
<EnableI18N LFM="False"/>
|
||||
</i18n>
|
||||
<BuildModes Count="2">
|
||||
<Item1 Name="Debug" Default="True"/>
|
||||
<Item2 Name="Release">
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="..\..\output\controlsample"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<OtherUnitFiles Value="..\..\src"/>
|
||||
<UnitOutputDirectory Value="..\..\lib\$NameOnly($(ProjFile))\lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="3"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<GenerateDebugInfo Value="False"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
</Item2>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="1">
|
||||
<Item1>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="5">
|
||||
<Unit0>
|
||||
<Filename Value="controlsample.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="frmcontrolsample.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="frmAnimationControls"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="..\..\src\uanimationcontrol.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="..\..\src\uanimationtypes.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\..\src\uanimationbasic.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit4>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="..\..\output\controlsample"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<OtherUnitFiles Value="..\..\src"/>
|
||||
<UnitOutputDirectory Value="..\..\lib\$NameOnly($(ProjFile))\lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Parsing>
|
||||
<SyntaxOptions>
|
||||
<IncludeAssertionCode Value="True"/>
|
||||
</SyntaxOptions>
|
||||
</Parsing>
|
||||
<CodeGeneration>
|
||||
<Checks>
|
||||
<IOChecks Value="True"/>
|
||||
<RangeChecks Value="True"/>
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<VerifyObjMethodCallValidity Value="True"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
</Debugging>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
@ -0,0 +1,23 @@
|
||||
program controlsample;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, frmcontrolsample,
|
||||
uanimationcontrol,
|
||||
uanimationtypes;
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Title:='Animated Controls Sample';
|
||||
RequireDerivedFormResource := True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TfrmAnimationControls, frmAnimationControls);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
@ -0,0 +1,869 @@
|
||||
object frmAnimationControls: TfrmAnimationControls
|
||||
Left = 497
|
||||
Height = 544
|
||||
Top = 268
|
||||
Width = 514
|
||||
Caption = 'LCL Controls animated'
|
||||
ClientHeight = 544
|
||||
ClientWidth = 514
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnResize = FormResize
|
||||
Position = poDesktopCenter
|
||||
LCLVersion = '1.7'
|
||||
object butReverse: TButton
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 390
|
||||
Height = 30
|
||||
Top = 4
|
||||
Width = 122
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Right = 2
|
||||
Caption = 'Reverse'
|
||||
OnClick = butReverseClick
|
||||
TabOrder = 2
|
||||
end
|
||||
object butPause: TButton
|
||||
Left = 282
|
||||
Height = 30
|
||||
Top = 4
|
||||
Width = 101
|
||||
Caption = 'Pause'
|
||||
OnClick = butPauseClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object shpSliding: TShape
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 4
|
||||
Width = 258
|
||||
end
|
||||
object butSliding: TBitBtn
|
||||
AnchorSideTop.Control = shpSliding
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = shpSliding
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 4
|
||||
Width = 96
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
Caption = 'Sliding'
|
||||
OnClick = butSlidingClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object pnlCheckbox: TPanel
|
||||
AnchorSideLeft.Control = Owner
|
||||
Left = 2
|
||||
Height = 31
|
||||
Top = 48
|
||||
Width = 117
|
||||
AutoSize = True
|
||||
BorderSpacing.Left = 2
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 31
|
||||
ClientWidth = 117
|
||||
TabOrder = 3
|
||||
object CheckBox1: TCheckBox
|
||||
Left = 6
|
||||
Height = 19
|
||||
Top = 6
|
||||
Width = 105
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Checkbox effect'
|
||||
OnChange = CheckBox1Change
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object pnlText1: TPanel
|
||||
AnchorSideLeft.Control = pnlCheckbox
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pnlCheckbox
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 123
|
||||
Height = 56
|
||||
Top = 48
|
||||
Width = 389
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Right = 2
|
||||
ClientHeight = 56
|
||||
ClientWidth = 389
|
||||
TabOrder = 4
|
||||
object Label1: TLabel
|
||||
Left = 3
|
||||
Height = 50
|
||||
Top = 3
|
||||
Width = 383
|
||||
Align = alClient
|
||||
AutoSize = False
|
||||
BorderSpacing.Around = 2
|
||||
Caption = 'The checkbox is into a panel (autosize) and with a BorderSpacing to allow the panel color change to be visible around.'
|
||||
ParentColor = False
|
||||
WordWrap = True
|
||||
end
|
||||
end
|
||||
object grpButtons: TGroupBox
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = pnlText1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 4
|
||||
Height = 72
|
||||
Top = 104
|
||||
Width = 506
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Right = 4
|
||||
Caption = 'Some buttons effects'
|
||||
ClientHeight = 52
|
||||
ClientWidth = 502
|
||||
TabOrder = 5
|
||||
object butBounceCaption: TButton
|
||||
Left = 8
|
||||
Height = 30
|
||||
Top = 8
|
||||
Width = 120
|
||||
Caption = 'Bounce caption'
|
||||
OnClick = butBounceCaptionClick
|
||||
TabOrder = 0
|
||||
end
|
||||
object butZoomTest: TButton
|
||||
Left = 136
|
||||
Height = 30
|
||||
Top = 8
|
||||
Width = 120
|
||||
Caption = 'Click Zoom'
|
||||
OnClick = butZoomTestClick
|
||||
TabOrder = 1
|
||||
end
|
||||
object BitBtn1: TBitBtn
|
||||
Left = 264
|
||||
Height = 30
|
||||
Top = 8
|
||||
Width = 232
|
||||
Caption = 'Button icon animation'
|
||||
Enabled = False
|
||||
Font.Style = [fsStrikeOut]
|
||||
Glyph.Data = {
|
||||
36090000424D3609000000000000360000002800000018000000180000000100
|
||||
2000000000000009000064000000640000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000003000000080000000D000000120000
|
||||
00170000001B0000001E0000001D0000001A00000017000000120000000D0000
|
||||
0007000000030000000000000000000000000000000000000000000000000000
|
||||
0000000000017B441E52000000130000001B0000002200000029000000300000
|
||||
00350000003A0000003D0F070342331E0C541E0F0743000000320000002C0000
|
||||
00250000001E0000001500000008000000010000000000000000000000000000
|
||||
000000000008874920F76338174D000000220000002B000000340000003C4223
|
||||
106B77411CC3854920F5874A20FC894D25F7874A20FA86491FFA7B441DBE4B2A
|
||||
1255000000260000001D000000140000000A0000000000000000000000000000
|
||||
000000000003864A20FE8A4F27F25530143F130D062768381775864B24DD9A68
|
||||
43F8AB7A57FDB68662FFBA8B66FFB5825BFFB07A50FFA86E42FF975B2FFD884A
|
||||
20F7753F1D80000000160000000E000000060000000000000000000000000000
|
||||
000000000000884920FEBD9578FE884B22EF874C21F1A37351F5C39D81FFBB8D
|
||||
68FFB88862FFB78660FFB48058FFB37F57FFB27D54FFAE764BFFAA6F41FFA264
|
||||
35FF894C21F38547216300000000000000000000000000000000000000000000
|
||||
000000000000874B20FDCFAE95FFBC9374FFC7A286FFC39979FFB5825BFFBF94
|
||||
72FFBB8E6CFFA5714BFB9A643AF290552CF48B4E24FF8B5026FF92572BFF9B5E
|
||||
30FF9F6131FF884B21F280402008000000000000000000000000000000000000
|
||||
000000000000874B1FFDCEAD93FFBF9472FFAF784DFFB98862FFC8A386FFA36E
|
||||
46FC884B21F5874B208886492154894C2136995B2D3AA16232C6A16438FC9053
|
||||
28FF8C4E23FE8B4E23FA89481F63000000000000000000000000000000000000
|
||||
000000000000884B1FFCCDAB91FFA56837FFB78660FFC9A58AFF90562DF6884C
|
||||
21B98446231D00000000000000000000000000000000A467372AA66837ECC48E
|
||||
65BFA1673CEC864A20FF8A4C22C7000000000000000000000000000000000000
|
||||
000000000000884A20FCCCAB90FFA86D3FFFA86C3EFFC8A387FFA16D4BF6874B
|
||||
218C0000000000000000000000000000000000000000A464371CA86B3AB3CE9B
|
||||
7463CC977178965A30DF8B4D22E9000000000000000000000000000000000000
|
||||
000000000000874A21FBC9A489FFCBA98FFFCBA98FFFCBA98FFFC7A285FF9159
|
||||
31F888481E5C0000000000000000000000000000000099663305AA66330FDB92
|
||||
6D07D59F8018A56C4452884A21EC000000000000000000000000000000000000
|
||||
000000000000884B21EB874B20F7874B20F7874B20F7874B20F7874B20F7874B
|
||||
20F7874A21EA884C212F92492407805020108050201080502010805020108050
|
||||
201080502010805020107F4A1F17FF0000010000000000000000000000000000
|
||||
0000000000008040400480800002000000000000000000000000000000000000
|
||||
0000000000000000000085471F19874B1FE5874A20FE894D24F8884C22F8884C
|
||||
22F8884B21F8884B21F8874A20FE805020100000000000000000000000000000
|
||||
000000000000884C20E3A3694075D29F7928D9997314AA633912BF8040040000
|
||||
0000000000000000000000000000884A222D874B21F4B58764FFC59D7EFFC7A1
|
||||
83FFCBA78BFFCEAC91FF884B21F88E471C120000000000000000000000000000
|
||||
000000000000894C21ED96592FE4CA966C86CB977171A96A3AC0A86633230000
|
||||
00000000000000000000000000000000000087491F428B4E26F8BA8F6DFFB07A
|
||||
4FFFA46534FFCBA78BFF874C21F78C4D26140000000000000000000000000000
|
||||
000000000000894B21E6874A20FFAF7449EDC38D62CDA7693AE6A26736340000
|
||||
0000000000000000000000000000854A2030894C21C990552BF4B58764FFBB8C
|
||||
67FFA46534FFC8A184FF8A4F25F68B4623160000000000000000000000000000
|
||||
000000000000884B229F8C4E24FE894C22FEA26538FEAB6F40F7A46736A90000
|
||||
0000874B1E11894C2136894C21A8894C21F5A36B43FEBA8A64FFAF784DFFAE77
|
||||
4BFFBE916EFFC69E80FF8C5127F58A4A20180000000000000000000000000000
|
||||
000000000000864A2037894D23F39C5D2EFF8C4F23FD894C21FF8C4E24FF884B
|
||||
20FE884A1FFA8D5228F09D643AFAB07B51FFB17B51FFAD7448FFB78660FFB484
|
||||
5FFFA6714BFEC49B7BFF8C5028F4894E1D1A0000000000000000000000000000
|
||||
00000000000000000000884B229F8D4F24F4A36433FFA16231FF9E6030FFA467
|
||||
38FFA86D3FFFAC7246FFAE764BFFAF784EFFB17C53FFB07D54FF995E35F6874B
|
||||
21F1884B21D7A16B44F88D532BF38949241C0000000000000000000000000000
|
||||
00000000000000000000FF000001884B229D884C21F595562AFB9E6030FFA263
|
||||
33FFA66939FFA66B3DFFA3683CFF9C6135FC8E5429F0884A21F4894B217D8040
|
||||
2B0C8049240E884B21D9874A20FF884D221E0000000000000000000000000000
|
||||
000000000000000000000000000000000000864A2226884B229C894C21DE884A
|
||||
20F7884B20FC884B21F0884C21DA884B209885481E4399333305000000000000
|
||||
000000000000854E2117874B1FDD844A211F0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000AA5500030000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000874820208E471C120000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000
|
||||
}
|
||||
OnClick = BitBtn1Click
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
object pnlDropDown: TPanel
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = grpButtons
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 2
|
||||
Height = 142
|
||||
Top = 178
|
||||
Width = 510
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 2
|
||||
BorderSpacing.Top = 2
|
||||
BorderSpacing.Right = 2
|
||||
ClientHeight = 142
|
||||
ClientWidth = 510
|
||||
TabOrder = 6
|
||||
object pnlDropDownHeader: TPanel
|
||||
Left = 1
|
||||
Height = 24
|
||||
Top = 1
|
||||
Width = 508
|
||||
Align = alTop
|
||||
ClientHeight = 24
|
||||
ClientWidth = 508
|
||||
TabOrder = 0
|
||||
object lblDropDownMessage: TLabel
|
||||
Left = 1
|
||||
Height = 22
|
||||
Top = 1
|
||||
Width = 477
|
||||
Align = alClient
|
||||
Caption = 'Press the button to collapse the panel below.'
|
||||
Color = 39423
|
||||
Layout = tlCenter
|
||||
ParentColor = False
|
||||
Transparent = False
|
||||
end
|
||||
object butDropDown: TButton
|
||||
Left = 478
|
||||
Height = 22
|
||||
Top = 1
|
||||
Width = 29
|
||||
Align = alRight
|
||||
Caption = '^'
|
||||
OnClick = butDropDownClick
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object pnlDropDownContents: TPanel
|
||||
Left = 1
|
||||
Height = 116
|
||||
Top = 25
|
||||
Width = 508
|
||||
Align = alClient
|
||||
ClientHeight = 116
|
||||
ClientWidth = 508
|
||||
TabOrder = 1
|
||||
object Label3: TLabel
|
||||
AnchorSideLeft.Control = pnlDropDownContents
|
||||
AnchorSideTop.Control = pnlDropDownContents
|
||||
Left = 5
|
||||
Height = 15
|
||||
Top = 5
|
||||
Width = 124
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Some sample content...'
|
||||
ParentColor = False
|
||||
end
|
||||
object lbSampleEntries: TListBox
|
||||
AnchorSideLeft.Control = Label3
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = pnlDropDownContents
|
||||
AnchorSideRight.Control = pnlDropDownContents
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = pnlDropDownContents
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 133
|
||||
Height = 106
|
||||
Top = 5
|
||||
Width = 370
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 4
|
||||
BorderSpacing.Bottom = 4
|
||||
Items.Strings = (
|
||||
'Sample entry 1'
|
||||
'Sample entry 2'
|
||||
'Sample entry 3'
|
||||
'Sample entry 4'
|
||||
'Sample entry 5'
|
||||
'And a final, and a bit larger than previous, entry'
|
||||
)
|
||||
ItemHeight = 15
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
end
|
||||
object pnlAttached: TPanel
|
||||
AnchorSideLeft.Control = pnlDropDown
|
||||
AnchorSideTop.Control = pnlDropDown
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = pnlDropDown
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 2
|
||||
Height = 25
|
||||
Top = 320
|
||||
Width = 510
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
ClientHeight = 25
|
||||
ClientWidth = 510
|
||||
TabOrder = 7
|
||||
object Label4: TLabel
|
||||
Left = 1
|
||||
Height = 23
|
||||
Top = 1
|
||||
Width = 508
|
||||
Align = alClient
|
||||
Alignment = taCenter
|
||||
Caption = 'This is an attached panel to DropDown content.'
|
||||
Layout = tlCenter
|
||||
ParentColor = False
|
||||
end
|
||||
end
|
||||
object pnlMarquee: TPanel
|
||||
Left = 0
|
||||
Height = 24
|
||||
Top = 520
|
||||
Width = 514
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 24
|
||||
ClientWidth = 514
|
||||
Color = clSilver
|
||||
ParentColor = False
|
||||
TabOrder = 10
|
||||
object imgFlareMarquee: TImage
|
||||
Left = 0
|
||||
Height = 24
|
||||
Top = 0
|
||||
Width = 378
|
||||
AutoSize = True
|
||||
Picture.Data = {
|
||||
1754506F727461626C654E6574776F726B477261706869634F28000089504E47
|
||||
0D0A1A0A0000000D494844520000017A000000180806000000F4EB3675000000
|
||||
06624B4744000000000000F943BB7F000000097048597300000B1300000B1301
|
||||
009A9C180000000774494D4507E102180A1C3AD34D4FAE0000000C6954587443
|
||||
6F6D6D656E740000000000BCAEB299000020004944415478DA957DDD8E64C971
|
||||
DE1791A7BAA7A77B6696BB4BD186B15C5994E54B1BB24018346D7A97D41B18BE
|
||||
D02BD84FA07BCA2F20C07E02E925BCBB16281BA02C58BA236142062DCA00C9DD
|
||||
1972667A7ABAAB4E66F8227EF354F5CC6A809AEAAA3A3F79CEC98C8CF8E28B2F
|
||||
0927FEC977BF4BF4C92722BFFFFB84F540A00600041984F7DE173CFD82204220
|
||||
02440810C2E595E0E68600E84B84707E2EB8BBD3DFCFCE05FB3D814000118610
|
||||
CE7682C39E2044200010D21690BDDBB1DA2258573BB69D1742FAB3D8EFDD8E0D
|
||||
02448FD158D0BB1EBFEEC74D30BA9F97C02CE8C3F767DB9FA76BF1766B1BED6F
|
||||
3F1FD8EE1CDBE9F57B0201C2711E8020F6BD8040421062BB76B673B29D53DF89
|
||||
DAE63C9CC714FB1C6D65883008E5773FA6501E9B1A48C87E5B0034081A080DB0
|
||||
976001A4818821D240B41C6D03347023B4C668C4E0C6684DDF9909AD35342630
|
||||
EBF7CDB625662C5CB663062FACEFCC7A4C662C8D7079D5F0E811E3EA11E3F123
|
||||
C6A32BC6E515E1F2B2E1F292F0F092F5FD2183CB7D98EED7F4B7BF5AF9AD0318
|
||||
F7BCE4C4DF82DE075E5D0F5C5F0BAE6F065EBD1AB87935707D3DF0F25AF0F265
|
||||
C7CB9782972F066E6F07C6E8E85D30C6C018036B178C3ED0EDF3289FFB18BA6D
|
||||
1F1843D07B8F773F46EFBA5F1F82B10E805640F43A042B88BA7EA60E4107A103
|
||||
58211800561006446C3B74400640E5BA454034202420FB2CC86D48EC7E50B937
|
||||
710C01D021D07DF33DF7D5E3FA3E0288DF5BE8670844044452EEBD985D38FD59
|
||||
20201180F46FF66D482043403CDCC4E9F9A81E436D0235FD8D6A3B003089EE02
|
||||
B515DCEC5C501BD3163F26A21DEB202C4DB721E86F7E3C40C0A4367159F43A99
|
||||
CB67362B42B97D63C1EBD784070F745F3543FACE24383F177CF1B9DAE8F373C1
|
||||
6FFD96E0073F207CFBDBC2A70C7DD8D977BE02FCEB7F2378EF5D3590C3AE6559
|
||||
80DD4E8DFCB2A8BD10D1776280EDB087BD19B406ECF78CDDCE6CA500BBDD405F
|
||||
A1938800ECF693ED6F9F48EC7EEB7700B3DD70B61B60465A8DA26DBFE843EC83
|
||||
F278A4FB12098610C06A6809C0188CC6DA366201C84CB1CD256CED229A6CB13D
|
||||
38BBD920807C1FD27D88F481D9F7C85DAC23213A801F3FA637DBDFBF2122FBAC
|
||||
E7616F006DFA6E7C5D7EB373881D58CFE99389DD33D4898BA27D7A6E9D287C82
|
||||
8A6DFC1A6DE223BB61FE3DDB75B05F1B9509501F01D8F741DE4BF66334023780
|
||||
1BD0967CE92402B4062C0D581AE5A5CE77F8C477E5C185B1207CB97F126F7D05
|
||||
7ACFD728EFEB2A5857603D08FA5083350641C4A60AD18E2A66A36410446DA9BE
|
||||
0645D344B49F8B68BF07EA760086A471251D2C7135548C0CF26FB28BA04D178A
|
||||
7B644ED430A749864E1FE2271E79E7F4AB7A6DDBB6EA3146DA5C7372FCB8D5D4
|
||||
6ADFF6D3B8B17767CBFF0D3B1FC43B7E5EAE9D4ECF09D1F60C339842763CC973
|
||||
FAB33007D086461C4744C7B2C481DD0609BA685BC86C12289F0D0868369989B5
|
||||
6BD83CD3573D41EF84B33389DBBE76C26E27F12847CFF9D3FB07A0C759BB5ED3
|
||||
CD2B423FE81879FD9A70F54870792938EC813E74EC3D7F8EE56477F606BDF304
|
||||
F8F18F090F1F0277B782972FBD4312D6AE5EFCE14058576DD0D280D6B493FBE0
|
||||
A6AE837EF5C9BA013B33C260C2B08B13212CA40382480700B358C7D063B5A677
|
||||
705974FB66DF0F9F00A05E3CFC1894C3D38F23663C09026A7A1C46DE440C3772
|
||||
C5EA96014693FD241D0C31A8283A900F16A991CAD6F45807221F50543ABC19D2
|
||||
E19DD4A399327427E34573A400A21C506033BEC88844CA64E29DB8DA3F428942
|
||||
CAA4B6B90A9A8CBE1A6EA63A91CDBF473B884A0047D3CB8FBB3460B7A8215F98
|
||||
2C3A2070990038269253861D6FF98E379EA1DCF39A8DBDD0C03A04EB1074516F
|
||||
710C41B70138BA4D04C306AB3B03226A9C453D4E487A6B528C8F1AA58D612D86
|
||||
DF3BABB86189A95972C3DA6EF1EE48277ED389422427048AD6D867F77C3D88DE
|
||||
4C1C82119EF9FC14EC38A41E2E4120347BD3546CB59EC7C79C649FB46B1E2030
|
||||
0DBB3FBA37FB7DF3FE2CF30093F088292CB0140F1E66A4D91DC3B0417ED3440D
|
||||
334BB10F0266A00BD9F5D85D919C4065E8D5F7EE3691726851DA4808D07B4E7C
|
||||
7E31EB9D4617EB5E11873108BDFBF6BACF18405B04B7776A031F3D163CFB82D0
|
||||
5775809B3DAFA7CF70D2A3A74F3F15F9C33F24FCE427847FF23BDAD8B373E0BD
|
||||
F7D3B03F793CC2B85F3C542FB935600C7D273613C4E9C5D7E1C6043416EC1609
|
||||
430010C6D09BDB9A8644D3C32FC66A0C32EF5B8DFC6493A97467F18840C2D3CE
|
||||
68212704A21C06DA6639B20F44C5245827ACCE3D497AE352C242B7A5EED9D374
|
||||
4C8946A7278FE8B13C79F679BC44286432451C03D2072ED9B5A7E7059BF004F3
|
||||
67F79C84789A4CA87AFC9210947BDECC7344229823208F72EAF5C53DAB914C79
|
||||
D7E3125A23F3DAD391589AA031D018061DE18441C63DC67EEBD5D77DE9C4B6C7
|
||||
BFCB208C553DB3EAD5F755B07618BC220AC78CE29185CD92D91336A32643278D
|
||||
3EF274436C1AA8EFE1D10AD274593F2089BEE79382D028DB486988C22A321206
|
||||
4DBFA44C0BE134FB392C2E906244A9B8D2BEDFB0238CFCAE3A4DB2099664507A
|
||||
D8A08041259C108979CC7BA1A30CD94E0588A444116293B1FE36470CD11E774E
|
||||
061492B10336CA063796F0F2FBA0723D82210ABDC850033C86DA30813AC580A0
|
||||
2D238D3909DA22D81F6C3AEC7A8EE1933A09CE16495B2382DD998E976EDEFCF9
|
||||
8541D604DCDD119E7DA1CF6FBF07EE6E757C1083FEF44FE4A4472F1F7F4CF8E1
|
||||
5F2844F33FFE3B9BD74CF8EAFB82EB6BDDE8C50B7BD8068F88102E1E08EEF6DE
|
||||
4309E70F04FD809831F5A2158FDEEDF42299F4E1B6457426F2D0C606D5DA190B
|
||||
FBC3619BDD60BFB9170BF562CD6011340CD31930BD449DB5ADEF39DCE3C793F4
|
||||
307B3FC6E4C3F32EF0858CEABB90FA17430D73853824BC752E183D9B2D2FDF0D
|
||||
4E836AC6D6626848C91960980535DC9D8AF517B173E7EC82616DF3B12CA0D970
|
||||
53F5CC79BA26314C9BA4C22F28300E36D3819E0B11A954379E2D04CF634484B1
|
||||
8557488D7C63F3DE17185CA3DFB3BDB785404C1B3C8D4E60F4F7C137E304EE7B
|
||||
0A17CEBF45046B178828B6DEFD3580DE07568375D68EF068A51C57AAE71D137D
|
||||
C177CD7088CCED9130D68A758B1B6BB750861147C4509C0DF5878719EF0132B8
|
||||
87DCE38618046193032B96CEE1852331613B9690C79F89917B0440DEE6D867BE
|
||||
978E7767B430E3F2147982F977C7E07502331CDEEE2FC1A197C4EBD9612DD627
|
||||
CA6654B99550DF7B06E7F9FB2034DFA70DF4AEFDA51914DB574316EC3CDDE036
|
||||
6E924E221C8590880CDAA2DBB712F59EEDB27F1DF60A871F56A0837076AECFCC
|
||||
21EB8B0BCD855E5C28627775A913D020E07CD16DAE1EA9ED1B03F8E6BF147CF2
|
||||
C9B1472FDFFB2ED1A79F0ADE79025C5CE8971F7C20383F137CFE39A12D3A0134
|
||||
D641FAF0520293DF1F1436383F5758E4B052625C661A1C0BEFAB1A826637C60D
|
||||
AF26268A6717989C7AF762DB71933284FD38894DFAF1BC6DC43A9B7219EB3E3B
|
||||
13A96BCE5CA000DE789E1B9B563DD3F4BCD50B559C59D2630F435ACD4D460C5C
|
||||
71F9925B75AF06A4212AF9E0F08823EC5841613D72F046A51F1A9315C936F14D
|
||||
05324A78275B8D309A6206942A64421B6FDD23172E91DDD6FB377C27EEB3D965
|
||||
87FC2A26BF2C0ADDB01B7826F356D49B676C3DFAFBFEBE0FD29113DBE2C4F79E
|
||||
7C339CF484473F56A00FC1E1A01EBDC23A9BA9C29D1237AA6E22A578B0E908A7
|
||||
072A748C8DD3E47AA4A1A5198A09EFBCE48B8E067F8184BC8F8C094EC2F4A2B4
|
||||
B9EAF4385C221579D17E37C6BC6F84BF28DE758593A6D449F1F48DC821741C7F
|
||||
8900C233942306AF8AB8D76CE3AB40657DB88394FF1A7B1237ED52E451A0061D
|
||||
9074F64A84326C9C6AFF48E74C9107F5C265689F395B060E07E070D06D7767FA
|
||||
795914E31783A1D735DF7767EA50DFDEE9310F2B70BE137CF194B03F20BCFA9F
|
||||
FF12F49FBE2F48B648B95FFFF5136DEE3BEF020F2E32C1B2DB019797C07A205C
|
||||
5E6AD87176AEB3CBF9996067AFB6D3994B0661B7881A6E4BA61D0E6CC654C04D
|
||||
67224FC436B6CF66141633DCCCF38BD8664937FEFE404493BE6CD1054322811B
|
||||
86CF92AD4CFE424C201A7ED50CAB8685151A394A5E9971F20E55E0D364252193
|
||||
8DB33174186A3A651CC793C0152AF104AABE281D9D192D8FC1963D378DB3273C
|
||||
88B149BED27C5D25415613BB84320155A809331B89A8266DA94C8A9409EE6043
|
||||
E9844CC5D366320F3E3C797B593F68ECB83D360CA853100D9D30F2742F067FEC
|
||||
C9CF3FAFE6BD0FC3E6C74863BF0EC5E7FDBB805386C30208FC3D219C927C34AF
|
||||
3630FC62D9A56C1C7870B5302427DB3BC1A672DF75D6278E92D89519662C0E8A
|
||||
9060B843C325E95B92C06ED49D941098BF14024189777CA61150245D27FC5E9C
|
||||
4D733C9D8BC3B2C5F267E450C71322393E06D06894E740310603AB2785911D26
|
||||
1A3DF7A5207DA803209BFC3E517E5F022E8B0008EB81D19A60B7D388ED70B0A4
|
||||
B091590E7BC2E1A013E57EAF98FC61AFCEDABA023737849B1BC28BE784F7DF17
|
||||
BCBC26FCE297849B1BE0D933C8471FD149432FDFF9B7DAC2AF7D15F89D7F2AF8
|
||||
E01F69EBCECE7496F17FBB1D70B6082E1EEAEF8D15636BAD1830F8A09429BFE2
|
||||
2E2CB1C22F306C8B58BD77660B0E0DAF979295EE1DD159DA22C1DE08632A2511
|
||||
4892CC43A1603B50790889EF97C44E61CEB8EB30DB649A92A66ACC4A7269FAEC
|
||||
E166DA16D9B01B026AE1B299940453B5A12C13B325DA42952583085D484E8D76
|
||||
8407E350CAF0F6C48BCBFE693CA54C2875E2AB9E393115164D31B14C47DEA41A
|
||||
008FAE33699B987C35F86AD8D5CB17F02268CB9BD8367F1F7C5EDEE2FDBB33A0
|
||||
035D211B37F062AC1B415F25BF73A6E250E3EE2499C45D291E4D60F51BCF7736
|
||||
4030CFD89E9DB31A69869D64F33791531B6BB23607A46C12B79958C4719E2290
|
||||
2675B6C8DAE286B382EFB2B1C2017D8FF4DC835459D0B23125FE2999360528F2
|
||||
EDA7086360CA790CC97DC72800D398AFB95B563BD2B4C3081ECD93A0347591FA
|
||||
4CC6A0B8954E1219837058955A392C51AB14F51A402B863F8270E1390DED5FFD
|
||||
609101AB33B13BD3C9E6F56B45462E1E8845236AC70E2BF0F419F0F50F07EE6E
|
||||
81DB5BE0F9F3B075CB8CCD7F44680BE4A38F183FFCA13EBC0F3E14FCDDFF35AC
|
||||
D71829CF9F276E7FF5D0F8F3E438B6192E06EEEE3866E8B37389D0C34350C7D7
|
||||
FBCA91D176043066DECE969875EF95267CBE022184CC96F6C1D196C699E01A95
|
||||
9182998F1F494929187BF1A865EB354A31F604C3B37DE6E6D22EB610AC62FE76
|
||||
A841990845E1F283155B971A98E7C04A2E29A6FC4150C6AC1E401C1B375EBD50
|
||||
C96BD8F7284C1DBF762AFBE5EF954533E3E2F5FC847BBC6CC1C4108A73A0E260
|
||||
645C7AE7DE27FF5E0DBEC23764DFD7C96EC6E6B738FDA9C940EEC1E7EF67DF88
|
||||
2887BE576CBE1B36DFD3C877C3F027EAE3188143AB9DDC62F7983C624C98BC1C
|
||||
FDA6587B31E8E1D84BF0D49D876DA3C92018C3E827FAA5B715C5EB36FEBB63E5
|
||||
9489FEB088DE06DB57282D70E5A2C3B8F381F92379E22874D0E4BF8FCC2D88CC
|
||||
D185453CC4F37DA2290211B0F1E6C56A025092D66CAC1B6E256740C978F2E8C7
|
||||
317632588848A1972400E4F97A774879C464BC2C23984A3E39EC96AC1720A843
|
||||
A3CEB3C4775478FBFEAFF2E7070197578A829C9D09BEF882F0FE7BC058816F7F
|
||||
7BA077D01FFD9154DCB5B06D3E137CF5AB7ED07C96CB4E67976527683BC7A88C
|
||||
DA685EFBF903B186AA510FD8C4C6DC7A487AA087E9CB2281890705AF7A8ABCF5
|
||||
FED22BE68DB316383D6B78A330504198FD3C8E274B411BEC9C7A4D3263F0EC8C
|
||||
1D39C6E939C352D9B2CC0BA77E6BE75038E5E0C4F70934991FA69CC6D89CF984
|
||||
5D2A5CE249BF0DAC4434112183AD0656A33FC13525315BE845640558F0E22F49
|
||||
18A672DEE728A3406D86D3548FBFE64E1D46AB3572CCE9C92FAC183D378D1498
|
||||
48BFB3C42CD329CF53EE61D4C809232F5F82A593FF9CDAD62DBAEC03E8626C9B
|
||||
D539F41EAE53899C6403EF25042385591178F70457276CA0CC142B00229A79F2
|
||||
053BA4722F089B22203A91BBF0488E64E3C093D138698E3C44F2CC710D62F31A
|
||||
151E3A928CE04E8A3B84B4497F0783A5DE13C3E3A5708B36CCB5528B34B3E282
|
||||
12AD9EF9187340A3E3B624700B3DB27E861979C7F297569F1B29163F08CC4323
|
||||
3B493AA658F8D1D79C1C9CE5D48752CB074ABD1980BDC13564E41166C1ED6B52
|
||||
6795B49F11EC9D819BD74A9439EC81D7AF759B67BF3AE211CFFFDE7D57DFFFF9
|
||||
3F13BCFB15C18B5F139E3C012E1E00BBC52A65015C3C109CED3C93AC5892881A
|
||||
D9FD5DE2F38D81B35D42285E05D65AC22EA3EBCCC72C3A03921A6AB697189C53
|
||||
8D411467B5348851B430F2C6B3F15C87C1299EC4649609C6C9F1EF138164688C
|
||||
52BD5B3AD9CC2099D9368299533A41305292419283E588D4273433604A1B6758
|
||||
24992E5233CD9B0098A898FC8AADFB81F944D7D8D04CA9241A0A8833C3674471
|
||||
6F625290C4EA3D4260CCB384F3E8DDD0EF96C4E89D53DF76060D91E1F36F8468
|
||||
B6100CDF439BBC6F82D878D62259DDDA951933BA266047DF1650CD18BBD4631A
|
||||
467D44F173230AA30306A5B218F2F0FC6B2442C19E99A19B8D2D0F6AA2F57D3F
|
||||
9755C0CA06F6F1E3311526894DCA3215E295B1C495CC9419DB005EFC9C718ABC
|
||||
41A5167DCE3139BCB429269BB0F9A95C25698995AE586B481C72A14D32B60F9D
|
||||
54FD77C7E6C7AAAC3DA54EDA717B75E80CBA0E8AA5D12C3B05DBA677AD1B5A0D
|
||||
0E12511C7E582E67ED4AC5F4F31C0E6A6FF786DB2F8BE0E6B5B6E7F6B5C23337
|
||||
37C0C30BF5E86FEF80A7CF087FFD5784CF7F11F8FC91A197EF7C87E88FFF58F0
|
||||
7BDF14FCEDDF11AE1EE9C0FAE52F955DB3EC045757FA1A4369406C854CAD213E
|
||||
9F9F9B712E78BD57CFA260E82E47A038AB199C6183DE3C724F7838E6DE582797
|
||||
08D364E6CF4791EA9440B50923B69148CC7A489A5EB475759E0829899B1F9993
|
||||
C2AE41267E1DBEA009DD4E94288C1E49C22251B94A539233D93F251AB1C90747
|
||||
C5491BC36CFF8FC9843166603FA9B255F661A627D6CA56C9B6064349BD6D4F4E
|
||||
F3861FEF137D5EF71C4DD184CF9379F194744ACE6840FB9A9887446FAE62BD17
|
||||
B77F134B474E1E43A454C10E4C18FDBA31F47DA078F209D7A891A0A9BAB5B254
|
||||
501837A34E140517864870C48BDB38D3145112B827B0FB09A51E25BFE5CE82A4
|
||||
81B5D4C1D496A0498E19F28F0A589F181C770F8C7E66B7D48AD38C6668867D4A
|
||||
4EC9A1A888006A2159A421129B0FEC5B12928ADAE0A9EDC9EC81685E71C834B8
|
||||
147E454E7A52271B7BDE9A644D3E7CDB99008471E9BB38C5D39C5D3BF7E14053
|
||||
7EC0D93B6215B2A3136E5F2B5B675D8143D77B74D8139E3E25434DD47EFDEEEF
|
||||
0A9EFD9A70761EB77939D2B7F9DEF708FFEB2F33C900107EE33704CF9E12FA60
|
||||
A08214B5F8A86ADF6C59278ED39F8985249A18A5AA2963C66BD919454D921FDE
|
||||
D784213C0FD03B4F5E1B897E47066F305BE51B9DC0D529CF2785873F888EB07A
|
||||
6C356A24218E48E38AF1E227DE266535A2D0CC5DCFE9C14B9C26AC1EC5D3DF62
|
||||
F493C9AF3982A0E6CDB9805179F25E7E4E9BEDC83078D7C4A19958B94D6452C5
|
||||
D482A540A9F7B36D6754F5164F7F2A6BCF77262A9CF902E10456AF1124F3CCEC
|
||||
39C6E6BF0CF3A6E8AB9C34F2C71EFDE82A6BE005516AF0E5E8E5615A7AB26929
|
||||
0903C3328751DC143C78892A558F2CE3FCC588532D8422E7C91B0FDF71F228C1
|
||||
1FE11849E1CE1F55BE9A760D8904179DB7387E8D4808C9538FECDA5CA0E57792
|
||||
29AF8D51789924364E2A2F1F718D1A89485013A5440644F3A4959F4730798846
|
||||
D1A0B1B6B04CDFB556AB7567BC9D448C51637A36958269E67369230BD79C6544
|
||||
73CDC0B2D4024A0906CEEE4C263C3EE8B2CE482CFA36EEE85EBF223CBAB28942
|
||||
005E048F1F2921E0EB1F0AFEECCF08FFEA5B42DF3F81D1D3279F887CF411E1DD
|
||||
AFE80CF2F0A1E0C30F058F1F6BB295C8920570AC29B1E5F3738571969633B9E3
|
||||
E500B4388052E3219C8FA28BB3ECF28626FF3D43FD56D9269CD85B788D4DE2E1
|
||||
3A5592D82A3839932BAE59563D7AE7D1134BD1BA9971E5402C9C2E29950A6C1C
|
||||
FF09879F934D9BA8F2584A8066F828FC1ADAF00FA23D32315A82EF53316BD9C0
|
||||
3B9C469A8E340DF222A570E6D3E4F024E53073E2932E4924A171431BFD37A692
|
||||
8FE0CC9980D2632752EA646BF38B2D6A548AA5FECDF74237B88759832FC9B839
|
||||
1D21781154502923F14AEAD5073E2F930C9A6CBC73D75F910AE198573A46EAE1
|
||||
24134702C30DF79A64C2E1DD7DA6131314517AFB74448929E8510908B71CFEEA
|
||||
8D8F8052A4545B4B78F434E9DFCC94D009582A709F471154D92D5B5C55E6944B
|
||||
A5334F51845333437B67661205C45B20A8895A6D859464DF8B68FE6FA24EB344
|
||||
B453FD05AD983547598075652C4BCACA7854A7B99D02178D949FA1281AD5DCE6
|
||||
C5850433E7B0AAF44C5F81FD1DB03B57398521C0CFFE1FE17FFF84F08DDF9E8C
|
||||
FC64E8E5E38F893EFB4CF0DEFB2A64F6E001F0AB5F11CECEB4716B273CBC50EE
|
||||
7C5B74225816E0C1B9F1E6A1504D6BAE3889D03C698BF2E661D8AB882621880D
|
||||
9FB7CA338F02FC8634C3EBD9A50E90C685ED388EE3731889A2B3435AC2ACBA3A
|
||||
0270FAC48EDD47386661E8B04449ED0422B3E81615FE7CF8E7A69993066F8E74
|
||||
AA6C8117815571B0519439E5888A59EA00242384F4A42B6843275440E790568E
|
||||
D437E7EA9324B2A5F05BE646AAB8DACCBF0F60A770E9990B4B6783ED23EB6863
|
||||
9085076F74CA25746D28E8952E8D70BFB7FE363EBDFC3DF1F91C84C999D7C1E6
|
||||
B4CAD50AA5BC4236129645E02BE4092676A37ADC131C8214F41A1AEC19322F41
|
||||
11AC70CC313DF2CD40D5917223CDEC8E60B484933257A84EA91D9292B8D45D06
|
||||
667C7EDA76D38C5A5815C263C091068ECF6F91C8AD7223554AC4211A9609261E
|
||||
A12743098B54E1CC30C23451277DF21A36B9F6356B54A4A79335BCA29ED4B376
|
||||
9B5979F48EF93B9434567D35E3E97B21D5DD5EDF0F0775805FDF6A22F6EE0ED8
|
||||
2D8257D784C30ABCBE25BC7C41B8BB4D5B74730DFCCDDF90FCC11FD049434F9F
|
||||
7EAA2DB97A0CFC9F9F121E5EE9601301760D78FC440DE6FE4E8D74EF84FD9D1A
|
||||
ACC35A55254B890E2963E7B057754826E5A62ECDA53FF577F7E8BC2A56202160
|
||||
36CC484BF1B087252C5A9B755E68AE778A86288FDF0DA956F23AE364F62AAD0E
|
||||
A068D7B81E8E6C54225D20AD8AA4614AB26262B54C916160D81991F0942C4544
|
||||
14515854AB4FAB8857D5C5114C8351B6607DCD910047D4517923DC414EC89C12
|
||||
50B54DE04DA5ABB54059563215584505EDA62EA0350A23DF8C271F06BE01BC50
|
||||
F0EBDFCE9E791B6C03BC59BD32BF576CD4E09A5569C28AD94B481E8CD5067297
|
||||
82ABD3E4ED4AA9924570E2694A1C8A1563852ECE481D18FD3B2B69C3599F12BD
|
||||
354C18618A246409E4B86EAA585E3A45B79F18A832313D27965031E62E809803
|
||||
E6FEB4C830A72BEB1572A0256E4F85A6E8798C74627A61C28861E5B512D72783
|
||||
31B6F83A95C4B9C155454C318EBFD2948BF0DFC798F3285A453B478ECB22580F
|
||||
5E7390859A8BEBDD78BB863ECBDD99E6416F6FF5AABD08EFE52BFDBC1E74FCEC
|
||||
F78AD93B21E5EE0E5858F0F39F4F1D3931FA8F3ED601F43F7F98E264AE2C3806
|
||||
E19D278217D77A61D7D759D7CE0675DCDE51CA0BD81DDC5B03A2D4782D5C732F
|
||||
C621A559AE1D45268042A7C6D92EEB9A05426278BC5408A2E8DB50E1C6CBA443
|
||||
8F08A9AA7853C5D4AB96BC141E7B358464DAFC14387DC9178C22C63492AF2F7E
|
||||
2D8342B7C6C58651346DDC0519A163439B42AD13C64B92F3AE7AF476AE49C5B2
|
||||
D60F7086242704CBFC378157AF6666DA8527E25950D1DD91CA8F4FAF5F0CD70F
|
||||
FA289D9E50C8AB618D33BF344EC903F7E8A9E2F3B80797BF4FA06CAB6FF326D5
|
||||
4A4CD8F310F7D68D6D23CE9B575EFD081EFD880428510A874DC7AE1A02635682
|
||||
DCC22D34316C0A27DFF56A64839F6F70EC490C4F2A0F7ECC38893B08542A7069
|
||||
83DF572FDD630B83434936B87F243EC74C1AA639E7A1D780925748368F73FFA5
|
||||
E617A8E0F355E3A6461BE5B8A0AA8209A5400E83862531F1AA7B3300B436D423
|
||||
7738770248A5D4B088924ECABD5D57C3F779A864C19293CD6E41E43E7C32DD19
|
||||
13518C6EEC93C9C5C5307C3E8928D7D73A9E2EAE040FAD68EAF2A1E0A73F257C
|
||||
F081E0377F533006E8FBDF3F0DDDE01FFE03F5522E2F613AC97A594B4BC6C9B2
|
||||
64956265EAB2B35D3867C0D5B46C9645A195EEBA372CC16E7126CDBA261FDAE9
|
||||
975478F463546A5E2212C133F744CD4841B34A69741DFAF00C9C31123736593E
|
||||
69CA2ABF7DC33F09EE7FE19157168B879FD14968C2D3A792EC8D3C2695888433
|
||||
DD1B09673AC90F4F9C273470CAE325C9C2013EF25E79F6E68983377DCCB699E9
|
||||
6454747AA2EA9536183E0A6F7EA321C42136679FC3A063D29B6F9CEFAA7F9339
|
||||
9CFB9527EFA9EC7C233C733F4E9F2C1B9A28947D557ADCEA98FD40E1BC57CDF9
|
||||
B4F1A3307082A72D5B75CB120548DD662E8E4AC38B997943270C35CB0CC84F09
|
||||
CDF95E51D1AD9960A6915EF32821EE36C298E440B677BC449652E8C5EAA86C02
|
||||
50A149E66353363B3D4D325D7FD7D771AD9A896F348B6C668EC4E013F7D24508
|
||||
CD6A3C469FE5707DFB2A69505490A7DA15759A0DC26EB670C96A2C1C52E1B221
|
||||
299D713035CBB1D19F4F390D550B164BA23C7D4A78FE82F0DE7B82AF7F5DF0E7
|
||||
7F4E78FEFCA8FB6665ECBB5F017EFB1B821FFD8870F30AF8DAD704CF9E694875
|
||||
7129B8BBD599657FD0446B5FB5E1875507E7306D1BD7481E9D80D56751170A4A
|
||||
784539A88844C790D45D6E4D2F8C5981B9880A481F64423694D2A0A64EE94FD3
|
||||
F7712C1E5C1C2916D0982958D8243E8F3A11D5CE5972CA21AB20760E9A38EBD8
|
||||
8825D16444535BA18688B52D54543585E858830695E554A991948A9EEEC5D331
|
||||
8D1225593B79F87402E6604BE86EAA5B296025DA144ECD4CA4AAAA9374CBC473
|
||||
A604AC433406D9906BD1DBE7FBF56BE89E6227DA4C0C6F122F3B36FA23F46BA4
|
||||
C0348ACB4F1AF46B615B540F9B8A00162523C7F17C915982B7F2EEA5C081B3DE
|
||||
7CA97A95AA8459FAD391EAD75C309586D5447CE330398138394E660D84D49847
|
||||
EAD55418A9CAF816BEE6F19D36CAB3B34E0495CB598C283652227422A16C2969
|
||||
B244315857372112F4323623D8E184595C0414A635CF54A0361F9B75BC9AC0A0
|
||||
7442A77942F7E7A630B3093EB2B5C12AF5D91CDBFD9EC271DCED04777B36DC3E
|
||||
9D0C112DA45A9A56C23E7FA10E0741F9F4777BC25FFF959EFAD9B3A30E9E1EFD
|
||||
A37774A3F3074AD179754DB87EA9195F74E7C6EBC08310EEF6263F6C6C95B3B3
|
||||
1421F32AD6DDB998F222451894D5FB6AB4B5400A937E4A78F933EE000007B849
|
||||
44415466B9532AC03D415EE6605082E6350BC4774BB256653C9E74D025F8FA3E
|
||||
5332CD3A3D55CC2C269AA2AD3EEB7815D95ECA4E3AA9F47AA73E62F35076A2B2
|
||||
3C582A064CD5484024302BEE2D531155A5B7D50477C0434572408EDC23134F43
|
||||
5D86D03D6F9AD426C1B3979F390599F4F78F78F5441396EF399765C944ACAB55
|
||||
BAEE8D336F96099FA737306CEE9B104E19F7FB8DBD0CE822231DA135AE9A3726
|
||||
70662B4A8D916C19C7611D7B76A6CA18125CE9B1156CB4D2FE49C37E14468EB8
|
||||
2321456AC3A51630C12F292F39026A718135AF6A4549E44EF5B454253E52E307
|
||||
F778E9A82B4A61CB869113DB639A0468B31A15CAAA4F429B15A84AA403C124F0
|
||||
361DDF12D91A81CC9A34359D5D736842AABADB2D5790AB3A953A9C5ABD7B82B4
|
||||
E5F79809580F9C4C9A9223736F7D74D59157B55DCD47DDEDF51A7B51CA1C6B4E
|
||||
38BDE7D05DF7A63A6039D2DFFB17FA544F18FA45BEFB31D1279F0AFEF22F520A
|
||||
D3717930F0EC29E3C913C1F35FCF7A364C84D7B7A6417FB75D435647F3D99926
|
||||
0B5CAA568B0268921F580F9C6BBF5A9217625AD006B5247E9FD69217CD6E8FA2
|
||||
C1A252A9D9C6D1398489AA673D3AA7C44DB4FB583D6FBB749E08923F2F5CBC69
|
||||
144E7D2948AA1EBD246E2E1BDC3DCFCBB19DCA1438B7DFE70F0A4D0E2918BF17
|
||||
3749A90D08CDFBA2779FDA355C34F167ED7D294A93D14EE293DE31153E29A1F4
|
||||
0FF1F56C4BFD80CCDAF022332F9F6883C773EACFA7C157ED1BA237F1E6F92D4C
|
||||
9C8A678F2FC19F1F467BB455A47A52289D79A3544BD5BF91BA665EE1C627BC9E
|
||||
1CF78A55CF2C988A85CF7A38557327F468A8144D5159D569C2EB8D531E1A2B23
|
||||
7465EA2A5013CF9E045BEDF8C4DDC74C8270ED1D190911CD997F54FD7B88C412
|
||||
7CB12EAA0CBB16831F036BAFFB20F6CD95B66CC451E2FE626A5186E998BEFC26
|
||||
B208E5CD11D5EAA32B6443AC86DED93BCE97EFDDBC6FBBBFC9AF2FDA349C7916
|
||||
D7AC57FDFA9C8C199A843DDB153144129CEF4CC8CC174B625D2EF0F202A16A39
|
||||
3AF0DE7B035F7CA190CDF903C137FEB1E070007DF6D938853C32C680FCFB7FA7
|
||||
19E56F7D4B7071613AC9677A81CB2278F54A07CDE543F5BA9A25171A0B6EEFD4
|
||||
A0EF76CE90902863F775625138E8BB25F9F53E5E7D31DCB1DA422694BC566E12
|
||||
587C334903319A52E5D9675529727D589660354C6A8F9CF8714D0157379B3639
|
||||
3C29D4483A418A674A2D1AD0CC71C746AA18A815A1758D5909F960B6BFA70A5F
|
||||
CC8A95BC3D36E7F281952614798852C21449E54DE294362A9588E46BC921142F
|
||||
9D699621A602DC735116054B309E6A84C36525AAA5192DB7AA55B68D547593C2
|
||||
9FFF327A356F8271F0162827BDA8F54006CDCC104EEF30D68D2FAA53356968C2
|
||||
DD93774E31C7CC3CF502E314AC7F523CAD454E75822084B0D8AC4D8F14249319
|
||||
B2A19AEE9D38EE542A4F298AA622E7200E0B1E4B2DD7D71029120EF37C4A9B25
|
||||
3AF36F29089361EC31C68B18A06CE40FCA718645F34328042368C3981B4E53AE
|
||||
95FA8C499658287324EE54A6D89B1555711AF9F0FA81928FD41CA44A2318F572
|
||||
68A4B73435DAAE1936BA2D3862344BAF3DBABCD48A5AD5A957A8D01DBEC39DEA
|
||||
41FDE8C7846507F98FFFE124838CE9B3FFA6DC79418A993D79023C7E0C3CBC04
|
||||
1E3ED481777925D8AF140BD89EED743192C5A48247940EDB606C62A2F88A2BF1
|
||||
46DF4693B43306CE2648E609542E9C5D66D7A1A092C844E8DA7BC23575AF73B1
|
||||
709749D6106A8421142FCC72F69094453A0A65B2ACDA57F07099D822938780B2
|
||||
28C466E9BC714211D3B71F2EA55C4BB25157629A0BAAB26C9E22E94705BFF181
|
||||
3C061F15471588F2A4CDA323E261AEA5EBB8FC2CC140930C316DD60D24D92E2A
|
||||
9E1451C12C47ECEBC4BA91CFA229AFD3781B7DF24D2C9CB7AD097B3A113BA454
|
||||
C45AC18BC336C19FEF32AF1E55FE26B265ECAAA2CCB47E2C26D95D4C85465274
|
||||
70B68F4AE67564E5C47AB1BE6F5D4D89361B4C776EC366A9457D0E7D5059683C
|
||||
163A29C672BAFB32D14A2BEC11EA9A542A46EAC220654D566C16F6DE5E42C226
|
||||
4ECC3806F5B6DD3D248C4D8746CA22477E9C4A81750AF9BAF284F5E7FE4037FD
|
||||
7826DD8E59AFB91B23CF8BEE7C9DDAB5EBD294ABC9201C0E6AAB5EBF561CFEEE
|
||||
16D835454E5E5EABFEFCCB17FA74EEF6C0CFFE96F0FA06F8C10FE8146C133E21
|
||||
FDE7FF22F8E637053FFB19E1EA4A07DBE79F6B8194D8BAB0D72F35CCD0EFD4F3
|
||||
EAA2A1F6DDAD79A4AC419D4B0AB7A6D5B45E4CE537C6133BBEC008468A624D7A
|
||||
F1D53E918488556B1AFAB6C2779552A5EA7CDC79C1619F68BCEAADA82FF80A58
|
||||
3C07FF5321515DDFA176CE09BF2F55BFB461AFD555F57853229D7672CE236C16
|
||||
2909EE8BE51784371D7993F19FEF2701A356B752593E71A64EBA1E3D552AEC86
|
||||
6D33A996140F1E1B2D1B0D53E72A63DF8638A39930E8EC2C9B0ADFF85AB18ECF
|
||||
D35B12A9F7F1E1BFCC2A54B3672F66D0D75E2A1A8BC64D1FE9D927F77DD6980F
|
||||
864D68B69B02E5C4449150A59C5838A1015545CF469131C0AC0B431B6D1BA9CA
|
||||
AB2704CFA4C88B7895E85C41905EF09CF18CF51DA6094A0A8559322AD0252D37
|
||||
4F431006F9449E782AD79DA15594022A1CADBA3542E1D3F320E918A98822E7A2
|
||||
27A528D11742F2BA85DE338FD1DA8810C20BA1D8F4707AB7DCE1482859C4D78A
|
||||
CDF62E8B2D5262DCFD4307CECE46889A79D2F9C1B9AD976DCEE93A08AF6EEC1A
|
||||
BA8ED4274FB4ADFB83CAC6BCBAD1E2AA9FFFE26447FEFF3BD70300455D759800
|
||||
00000049454E44AE426082
|
||||
}
|
||||
Transparent = True
|
||||
end
|
||||
object lblMarqueeText: TLabel
|
||||
Left = 0
|
||||
Height = 24
|
||||
Top = 0
|
||||
Width = 514
|
||||
Align = alClient
|
||||
Alignment = taCenter
|
||||
Caption = 'This is a marquee background effect with transparency.'
|
||||
Font.Style = [fsBold, fsItalic]
|
||||
Layout = tlCenter
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Height = 48
|
||||
Top = 472
|
||||
Width = 514
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 48
|
||||
ClientWidth = 514
|
||||
TabOrder = 9
|
||||
object shpTri2: TShape
|
||||
AnchorSideTop.Control = Label5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = Panel1
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 256
|
||||
Height = 33
|
||||
Top = 15
|
||||
Width = 81
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
Shape = stTriangleRight
|
||||
end
|
||||
object shpTri1: TShape
|
||||
AnchorSideTop.Control = Label5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = Panel1
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 176
|
||||
Height = 33
|
||||
Top = 15
|
||||
Width = 81
|
||||
Anchors = [akTop, akLeft, akBottom]
|
||||
Shape = stTriangleLeft
|
||||
end
|
||||
object Shape1: TShape
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = Label5
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = Panel1
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = Label5
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 1
|
||||
Height = 1
|
||||
Top = 11
|
||||
Width = 512
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 1
|
||||
BorderSpacing.Right = 1
|
||||
BorderSpacing.Bottom = 3
|
||||
Brush.Style = bsClear
|
||||
Pen.Color = clGray
|
||||
end
|
||||
object Label5: TLabel
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = Panel1
|
||||
Left = 12
|
||||
Height = 15
|
||||
Top = 0
|
||||
Width = 216
|
||||
BorderSpacing.Left = 12
|
||||
Caption = 'Animated metronome with color change'
|
||||
Color = clBtnFace
|
||||
ParentColor = False
|
||||
ShowAccelChar = False
|
||||
Transparent = False
|
||||
end
|
||||
end
|
||||
object butAlphaBlend: TButton
|
||||
Left = 8
|
||||
Height = 32
|
||||
Top = 360
|
||||
Width = 160
|
||||
Caption = 'Alpha blend form'
|
||||
OnClick = butAlphaBlendClick
|
||||
TabOrder = 8
|
||||
end
|
||||
object chkLabelFlashing: TCheckBox
|
||||
Left = 192
|
||||
Height = 19
|
||||
Top = 360
|
||||
Width = 92
|
||||
Caption = 'Flashing label'
|
||||
OnChange = chkLabelFlashingChange
|
||||
TabOrder = 11
|
||||
end
|
||||
object lblFlashingLabel: TLabel
|
||||
AnchorSideLeft.Control = chkLabelFlashing
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = chkLabelFlashing
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = chkLabelFlashing
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 288
|
||||
Height = 19
|
||||
Top = 360
|
||||
Width = 222
|
||||
Alignment = taCenter
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Right = 4
|
||||
Caption = 'Flashing message'
|
||||
Layout = tlCenter
|
||||
ParentColor = False
|
||||
end
|
||||
object lblFPS: TLabel
|
||||
AnchorSideLeft.Control = chkMarquee
|
||||
AnchorSideTop.Control = chkMarquee
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 192
|
||||
Height = 15
|
||||
Top = 429
|
||||
Width = 31
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'FPS: 0'
|
||||
ParentColor = False
|
||||
end
|
||||
object chkMetronome: TCheckBox
|
||||
AnchorSideLeft.Control = chkLabelFlashing
|
||||
AnchorSideTop.Control = chkLabelFlashing
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 192
|
||||
Height = 19
|
||||
Top = 383
|
||||
Width = 138
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Animated metronome'
|
||||
OnChange = chkMetronomeChange
|
||||
TabOrder = 12
|
||||
end
|
||||
object chkMarquee: TCheckBox
|
||||
AnchorSideLeft.Control = chkLabelFlashing
|
||||
AnchorSideTop.Control = chkMetronome
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 192
|
||||
Height = 19
|
||||
Top = 406
|
||||
Width = 101
|
||||
BorderSpacing.Top = 4
|
||||
Caption = 'Marquee demo'
|
||||
OnChange = chkMarqueeChange
|
||||
TabOrder = 13
|
||||
end
|
||||
object tmrAnimatedCadence: TTimer
|
||||
Interval = 15
|
||||
OnTimer = tmrAnimatedCadenceTimer
|
||||
Left = 456
|
||||
Top = 128
|
||||
end
|
||||
end
|
||||
@ -0,0 +1,621 @@
|
||||
unit frmcontrolsample;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
||||
StdCtrls, Buttons, uanimationbasic, uanimationcontrol
|
||||
(* Still not working
|
||||
, uanimationbitmap
|
||||
*)
|
||||
;
|
||||
|
||||
type
|
||||
|
||||
{ TfrmAnimationControls }
|
||||
|
||||
TfrmAnimationControls = class(TForm)
|
||||
BitBtn1: TBitBtn;
|
||||
butSliding: TBitBtn;
|
||||
butReverse: TButton;
|
||||
butPause: TButton;
|
||||
butBounceCaption: TButton;
|
||||
butDropDown: TButton;
|
||||
butAlphaBlend: TButton;
|
||||
butZoomTest: TButton;
|
||||
CheckBox1: TCheckBox;
|
||||
chkMetronome: TCheckBox;
|
||||
chkLabelFlashing: TCheckBox;
|
||||
chkMarquee: TCheckBox;
|
||||
grpButtons: TGroupBox;
|
||||
imgFlareMarquee: TImage;
|
||||
Label1: TLabel;
|
||||
lblFPS: TLabel;
|
||||
lblFlashingLabel: TLabel;
|
||||
lblDropDownMessage: TLabel;
|
||||
Label3: TLabel;
|
||||
Label4: TLabel;
|
||||
Label5: TLabel;
|
||||
lblMarqueeText: TLabel;
|
||||
lbSampleEntries: TListBox;
|
||||
Panel1: TPanel;
|
||||
pnlMarquee: TPanel;
|
||||
pnlAttached: TPanel;
|
||||
pnlDropDownContents: TPanel;
|
||||
pnlDropDownHeader: TPanel;
|
||||
pnlDropDown: TPanel;
|
||||
pnlText1: TPanel;
|
||||
pnlCheckbox: TPanel;
|
||||
Shape1: TShape;
|
||||
shpTri1: TShape;
|
||||
shpTri2: TShape;
|
||||
shpSliding: TShape;
|
||||
tmrAnimatedCadence: TTimer;
|
||||
procedure BitBtn1Click(Sender: TObject);
|
||||
procedure butAlphaBlendClick(Sender: TObject);
|
||||
procedure butBounceCaptionClick(Sender: TObject);
|
||||
procedure butDropDownClick(Sender: TObject);
|
||||
procedure butReverseClick(Sender: TObject);
|
||||
procedure butPauseClick(Sender: TObject);
|
||||
procedure butSlidingClick(Sender: TObject);
|
||||
procedure butZoomTestClick(Sender: TObject);
|
||||
procedure CheckBox1Change(Sender: TObject);
|
||||
procedure chkMarqueeChange(Sender: TObject);
|
||||
procedure chkMetronomeChange(Sender: TObject);
|
||||
procedure chkLabelFlashingChange(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormResize(Sender: TObject);
|
||||
procedure tmrAnimatedCadenceTimer(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
AnimationQueue: TAnimationQueue;
|
||||
FDropDownExpandedHeight: Integer;
|
||||
FAnimateTri1: TAnimationControlTranslate;
|
||||
FAnimateTri2: TAnimationControlTranslate;
|
||||
procedure DropPanelEndAnimationCollapse(Sender: TAnimationItem);
|
||||
procedure MetronomeEndAnimation(Sender: TAnimationItem);
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
{ TAnimationSampleBrushColor }
|
||||
|
||||
TAnimationSampleBrushColor=class(TAnimationCustomControlColor)
|
||||
protected
|
||||
procedure DoChangeColor(const aNewColor: integer); override;
|
||||
public
|
||||
property InitialColor;
|
||||
property FinalColor;
|
||||
property TransitionMode;
|
||||
end;
|
||||
|
||||
var
|
||||
frmAnimationControls: TfrmAnimationControls;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TAnimationSampleBrushColor }
|
||||
|
||||
procedure TAnimationSampleBrushColor.DoChangeColor(const aNewColor: integer);
|
||||
begin
|
||||
// Brush color instead Control.Color
|
||||
(Self.FControl as TShape).Brush.Color:=aNewColor;
|
||||
end;
|
||||
|
||||
{ TfrmAnimationControls }
|
||||
|
||||
procedure TfrmAnimationControls.butBounceCaptionClick(Sender: TObject);
|
||||
var
|
||||
Ef: TAnimationControlCaptionCapital;
|
||||
begin
|
||||
AnimationQueue.RemoveGroupID(butBounceCaption);
|
||||
Ef:=TAnimationControlCaptionCapital.Create(butBounceCaption);
|
||||
{$PUSH}{$HINTS OFF} // Hide hint about use int64
|
||||
Ef.Duration:=50*Length(butBounceCaption.Caption);
|
||||
{$POP}
|
||||
ef.Repeats:=2;
|
||||
ef.AutoReverse:=true;
|
||||
ef.TransitionMode:=eAnimationTransitionBallisticBoth;
|
||||
EF.AnimationOnEndAction:=eAnimationOnEndFree;
|
||||
AnimationQueue.Add(Ef);
|
||||
EF.Start;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.butAlphaBlendClick(Sender: TObject);
|
||||
var
|
||||
lAlphaBlend: TAnimationControlAlphaBlend;
|
||||
begin
|
||||
AnimationQueue.RemoveGroupID(Self);
|
||||
lAlphaBlend:=TAnimationControlAlphaBlend.Create(Self);
|
||||
lAlphaBlend.AnimationOnEndAction:=TAnimationOnEndAction.eAnimationOnEndFree;
|
||||
lAlphaBlend.Duration:=1000;
|
||||
lAlphaBlend.Repeats:=2;
|
||||
lAlphaBlend.AutoReverse:=true;
|
||||
lAlphaBlend.TransitionMode:=TAnimationTransitionMode.eAnimationTransitionLinear;
|
||||
lAlphaBlend.InitialBlend:=255;
|
||||
lAlphaBlend.FinalBlend:=0;
|
||||
lAlphaBlend.FinalizeBehavior:=eAnimationFinalizeBehaviorInitial;
|
||||
AnimationQueue.Add(lAlphaBlend);
|
||||
lAlphaBlend.Start;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.BitBtn1Click(Sender: TObject);
|
||||
(* Still not working
|
||||
var
|
||||
lAnimBitmap: TAnimationControlBitBtnPicture;
|
||||
*)
|
||||
begin
|
||||
(* Still not working
|
||||
AnimationQueue.RemoveGroupID(BitBtn1);
|
||||
lAnimBitmap:=TAnimationControlBitBtnPicture.Create(BitBtn1);
|
||||
lAnimBitmap.AnimationOnEndAction:=TAnimationOnEndAction.eAnimationOnEndFree;
|
||||
lAnimBitmap.Duration:=2000;
|
||||
lAnimBitmap.Repeats:=1;
|
||||
lAnimBitmap.InitialAngle:=0;
|
||||
lAnimBitmap.FinalAngle:=360;
|
||||
|
||||
AnimationQueue.Add(lAnimBitmap);
|
||||
lAnimBitmap.Start;
|
||||
*)
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.butDropDownClick(Sender: TObject);
|
||||
var
|
||||
lDropAnimation: TAnimationControlZoom;
|
||||
lDropRotate: TAnimationControlFontRotator;
|
||||
lDropText: TAnimationControlCaptionReplace;
|
||||
lFinalRect: TRect;
|
||||
lList: TFPList;
|
||||
procedure ReverseList(aList: TFPList);
|
||||
var
|
||||
j: integer;
|
||||
begin
|
||||
for j := 0 to Pred(aList.Count) do begin
|
||||
if not TAnimationItem(lList[j]).Reverse then begin
|
||||
//writeln('Can''t reverse now');
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
lList:=AnimationQueue.FindGroupID(pnlDropDown);
|
||||
try
|
||||
if lList.Count>0 then begin
|
||||
// Reverse all the related controls
|
||||
ReverseList(lList);
|
||||
lList.Free;
|
||||
lList:=AnimationQueue.FindGroupID(lbSampleEntries);
|
||||
ReverseList(lList);
|
||||
lList.Free;
|
||||
lList:=AnimationQueue.FindGroupID(lblDropDownMessage);
|
||||
ReverseList(lList);
|
||||
end else begin
|
||||
AnimationQueue.RemoveGroupID(pnlDropDown);
|
||||
AnimationQueue.RemoveGroupID(lbSampleEntries);
|
||||
AnimationQueue.RemoveGroupID(lblDropDownMessage);
|
||||
|
||||
lDropAnimation:=TAnimationControlZoom.Create(pnlDropDown);
|
||||
lDropAnimation.AnimationOnEndAction:=TAnimationOnEndAction.eAnimationOnEndFree;
|
||||
lDropAnimation.Duration:=500;
|
||||
lDropAnimation.Repeats:=1;
|
||||
lDropAnimation.TransitionMode:=TAnimationTransitionMode.eAnimationTransitionBallisticBoth;
|
||||
|
||||
lDropRotate:=TAnimationControlFontRotator.Create(lbSampleEntries);
|
||||
lDropRotate.AnimationOnEndAction:=TAnimationOnEndAction.eAnimationOnEndFree;
|
||||
lDropRotate.Duration:=lDropAnimation.Duration;
|
||||
lDropRotate.Repeats:=lDropAnimation.Repeats;
|
||||
lDropRotate.TransitionMode:=TAnimationTransitionMode.eAnimationTransitionLinear;
|
||||
|
||||
lDropText:=TAnimationControlCaptionReplace.Create(lblDropDownMessage);
|
||||
lDropText.AnimationOnEndAction:=TAnimationOnEndAction.eAnimationOnEndFree;
|
||||
lDropText.Duration:=lDropAnimation.Duration;
|
||||
lDropText.Repeats:=lDropAnimation.Repeats;
|
||||
lDropText.TransitionMode:=TAnimationTransitionMode.eAnimationTransitionLinear;
|
||||
|
||||
if butDropDown.Tag=0 then begin
|
||||
//writeln('Collapse');
|
||||
// DropDown panel is expanded
|
||||
// Store current height to recover when expand
|
||||
if FDropDownExpandedHeight=0 then begin
|
||||
FDropDownExpandedHeight:=pnlDropDown.Height;
|
||||
end;
|
||||
butDropDown.Caption:='_';
|
||||
lFinalRect:=pnlDropDown.BoundsRect;
|
||||
lFinalRect.Bottom:=pnlDropDownHeader.Height+pnlDropDown.Top;
|
||||
|
||||
lDropAnimation.SetFinalSize(lFinalRect);
|
||||
lDropAnimation.OnAnimationEnd:=@DropPanelEndAnimationCollapse;
|
||||
|
||||
lDropRotate.InitialAngle:=0;
|
||||
lDropRotate.FinalAngle:=90;
|
||||
|
||||
lDropText.FinalText:='Now press the button again to expand the panel.';
|
||||
|
||||
end else begin
|
||||
//writeln('Expand');
|
||||
butDropDown.Caption:='^';
|
||||
lFinalRect:=pnlDropDown.BoundsRect;
|
||||
lFinalRect.Bottom:=FDropDownExpandedHeight+pnlDropDown.Top;
|
||||
lDropAnimation.SetFinalSize(lFinalRect);
|
||||
lDropAnimation.OnAnimationEnd:=@DropPanelEndAnimationCollapse;
|
||||
|
||||
lDropRotate.InitialAngle:=90;
|
||||
lDropRotate.FinalAngle:=0;
|
||||
|
||||
pnlDropDownContents.Enabled:=true;
|
||||
|
||||
lDropText.FinalText:='Press the button to collapse the panel below.';
|
||||
|
||||
end;
|
||||
AnimationQueue.Add(lDropAnimation);
|
||||
AnimationQueue.Add(lDropRotate);
|
||||
AnimationQueue.Add(lDropText);
|
||||
lDropAnimation.Start;
|
||||
lDropRotate.Start;
|
||||
lDropText.Start;
|
||||
end;
|
||||
finally
|
||||
lList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.DropPanelEndAnimationCollapse(
|
||||
Sender: TAnimationItem);
|
||||
begin
|
||||
// Disable contents so controls will not be reached by tabstop even when
|
||||
// its visual size is zero.
|
||||
if Sender.Reversed then begin
|
||||
if butDropDown.Tag=1 then begin
|
||||
// Reversed expansion, disable again
|
||||
//writeln('End reversed expand');
|
||||
pnlDropDownContents.Enabled:=false;
|
||||
end else begin
|
||||
// Reversed collapse, do nothing
|
||||
//writeln('End reversed collapse');
|
||||
end;
|
||||
end else begin
|
||||
if butDropDown.Tag=1 then begin
|
||||
// Finished expansion
|
||||
//writeln('End expand');
|
||||
butDropDown.Tag:=0;
|
||||
end else begin
|
||||
// Finished collapse
|
||||
//writeln('End collapse');
|
||||
butDropDown.Tag:=1;
|
||||
pnlDropDownContents.Enabled:=false;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.butReverseClick(Sender: TObject);
|
||||
begin
|
||||
AnimationQueue.Reversed:=not AnimationQueue.Reversed;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.butPauseClick(Sender: TObject);
|
||||
begin
|
||||
AnimationQueue.Paused:=not AnimationQueue.Paused;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.butSlidingClick(Sender: TObject);
|
||||
var
|
||||
Button: TAnimationControlTranslate;
|
||||
Zoom: TAnimationControlZoom;
|
||||
lList: TFPList;
|
||||
begin
|
||||
lList:=AnimationQueue.FindGroupID(butSliding);
|
||||
try
|
||||
if lList.Count>0 then begin
|
||||
// Do not start new animation until current finish.
|
||||
exit;
|
||||
end;
|
||||
Button:=TAnimationControlTranslate.Create(butSliding);
|
||||
Button.Duration:=1500;
|
||||
Button.Repeats:=4;
|
||||
Button.AnimationOnEndAction:=eAnimationOnEndFree;
|
||||
Button.AutoReverse:=true;
|
||||
Button.SetFinalPosition(Point(shpSliding.Left+shpSliding.Width-butSliding.Width,butSliding.Top));
|
||||
Button.AnchorLocation:=eAnimationAnchorLocationLeft;
|
||||
Button.FreeWithQueue:=true;
|
||||
Button.TransitionMode:=eAnimationTransitionBallisticBoth;
|
||||
Button.FinalizeBehavior:=eAnimationFinalizeBehaviorInitial;
|
||||
AnimationQueue.Add(Button);
|
||||
|
||||
Zoom:=TAnimationControlZoom.Create(butSliding);
|
||||
Zoom.Duration:=750;
|
||||
Zoom.Repeats:=2;
|
||||
Zoom.AutoReverse:=true;
|
||||
Zoom.AnimationOnEndAction:=eAnimationOnEndFree;
|
||||
Zoom.SetFinalZoom(0.1);
|
||||
Zoom.FreeWithQueue:=true;
|
||||
Zoom.ZoomMode:=eAnimationZoomModeHeightBottom;
|
||||
Zoom.FinalizeBehavior:=eAnimationFinalizeBehaviorInitial;
|
||||
Zoom.RemoveAnchors:=true;
|
||||
Button.AddSyncStartStopAnimation(Zoom); //Synchronize restart/reverse action for Zoom when button restarts.
|
||||
//This can cause problems with Repeats counter
|
||||
AnimationQueue.Add(Zoom);
|
||||
|
||||
Button.Start;
|
||||
Zoom.Start;
|
||||
finally
|
||||
lList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.butZoomTestClick(Sender: TObject);
|
||||
var
|
||||
butAnim: TAnimationControlZoom;
|
||||
begin
|
||||
// All animation references to butZoomTest must be removed
|
||||
// before as in the creation process we capture the current
|
||||
// dimensions. Removing ID before creation of new animation
|
||||
// first finalizes control and then captures original dimensions.
|
||||
// If not done this way starting butZoomTest dimensions will be
|
||||
// the current Zoom factor which is almost always small.
|
||||
AnimationQueue.RemoveGroupID(butZoomTest);
|
||||
butAnim:=TAnimationControlZoom.Create(butZoomTest);
|
||||
butAnim.SetFinalZoom(0.25);
|
||||
butAnim.ZoomMode:=TAnimationZoomMode.eAnimationZoomModeAll;
|
||||
butAnim.TransitionMode:=TAnimationTransitionMode.eAnimationTransitionLinear;
|
||||
butAnim.AutoReverse:=true;
|
||||
butAnim.Repeats:=2;
|
||||
butAnim.AnimationOnEndAction:=TAnimationOnEndAction.eAnimationOnEndFree;
|
||||
butAnim.Duration:=100;
|
||||
butAnim.GroupID:=butZoomTest;
|
||||
AnimationQueue.Add(butAnim,true);
|
||||
butAnim.Start;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.CheckBox1Change(Sender: TObject);
|
||||
var
|
||||
CheckboxAnim: TAnimationControlZoom;
|
||||
LightAnim: TAnimationControlColor;
|
||||
begin
|
||||
AnimationQueue.RemoveGroupID(CheckBox1);
|
||||
|
||||
CheckboxAnim:=TAnimationControlZoom.Create(CheckBox1);
|
||||
CheckboxAnim.SetFinalZoom(0.25);
|
||||
CheckboxAnim.ZoomMode:=TAnimationZoomMode.eAnimationZoomModeWidthLeft;
|
||||
CheckboxAnim.TransitionMode:=TAnimationTransitionMode.eAnimationTransitionLinear;
|
||||
CheckboxAnim.AutoReverse:=true;
|
||||
CheckboxAnim.Repeats:=2;
|
||||
CheckboxAnim.AnimationOnEndAction:=TAnimationOnEndAction.eAnimationOnEndFree;
|
||||
CheckboxAnim.Duration:=250;
|
||||
AnimationQueue.Add(CheckboxAnim,true);
|
||||
CheckboxAnim.Start;
|
||||
|
||||
|
||||
LightAnim:=TAnimationControlColor.Create(pnlCheckbox);
|
||||
LightAnim.InitialColor:=ColorToRGB(clBtnFace);
|
||||
LightAnim.FinalColor:=$00FF00;
|
||||
LightAnim.TransitionMode:=TAnimationTransitionMode.eAnimationTransitionBallisticOut;
|
||||
LightAnim.AutoReverse:=true;
|
||||
LightAnim.Repeats:=2;
|
||||
LightAnim.AnimationOnEndAction:=TAnimationOnEndAction.eAnimationOnEndFree;
|
||||
LightAnim.Duration:=150;
|
||||
LightAnim.FinalizeBehavior:=eAnimationFinalizeBehaviorInitial;
|
||||
AnimationQueue.Add(LightAnim);
|
||||
LightAnim.Start;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.chkMarqueeChange(Sender: TObject);
|
||||
var
|
||||
lMarqueeBackground: TAnimationControlTranslate;
|
||||
lList: TFPList;
|
||||
begin
|
||||
lList:=AnimationQueue.FindGroupID(imgFlareMarquee);
|
||||
try
|
||||
if lList.Count=0 then exit;
|
||||
lMarqueeBackground:=TObject(lList[0]) as TAnimationControlTranslate;
|
||||
if chkMarquee.Checked then begin
|
||||
if lMarqueeBackground.State=eAnimationStatePaused then begin
|
||||
lMarqueeBackground.Pause;
|
||||
end else begin
|
||||
lMarqueeBackground.Start;
|
||||
end;
|
||||
end else begin
|
||||
lMarqueeBackground.Pause;
|
||||
end;
|
||||
finally
|
||||
lList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.chkMetronomeChange(Sender: TObject);
|
||||
var
|
||||
TriangleColor1,TriangleColor2: TAnimationSampleBrushColor;
|
||||
begin
|
||||
if not chkMetronome.Checked then begin
|
||||
AnimationQueue.RemoveGroupID(shpTri1);
|
||||
AnimationQueue.RemoveGroupID(shpTri2);
|
||||
end else begin
|
||||
FAnimateTri1:=TAnimationControlTranslate.Create(shpTri1);
|
||||
FAnimateTri1.Duration:=1000;
|
||||
FAnimateTri1.AnimationOnEndAction:=eAnimationOnEndStop;
|
||||
FAnimateTri1.AutoReverse:=true;
|
||||
FAnimateTri1.Repeats:=2;
|
||||
FAnimateTri1.SetInitialPosition(Point((Self.Width div 2)-shpTri1.Width,shpTri1.Top));
|
||||
FAnimateTri1.SetFinalPosition(Point(0,shpTri1.Top));
|
||||
FAnimateTri1.FreeWithQueue:=true;
|
||||
FAnimateTri1.TransitionMode:=eAnimationTransitionBallisticIn;
|
||||
FAnimateTri1.FinalizeBehavior:=eAnimationFinalizeBehaviorInitial;
|
||||
FAnimateTri1.OnAnimationEnd:=@MetronomeEndAnimation;
|
||||
AnimationQueue.Add(FAnimateTri1);
|
||||
|
||||
TriangleColor1:=TAnimationSampleBrushColor.Create(shpTri1);
|
||||
TriangleColor1.Duration:=2000;
|
||||
TriangleColor1.AnimationOnEndAction:=eAnimationOnEndStop;
|
||||
TriangleColor1.AutoReverse:=false;
|
||||
TriangleColor1.Repeats:=1;
|
||||
TriangleColor1.InitialColor:=ColorToRGB(clRed);
|
||||
TriangleColor1.FinalColor:=ColorToRGB(clWhite);
|
||||
TriangleColor1.FreeWithQueue:=true;
|
||||
TriangleColor1.TransitionMode:=eAnimationTransitionBallisticOut;
|
||||
AnimationQueue.Add(TriangleColor1);
|
||||
|
||||
FAnimateTri2:=TAnimationControlTranslate.Create(shpTri2);
|
||||
FAnimateTri2.Duration:=1000;
|
||||
FAnimateTri2.AnimationOnEndAction:=eAnimationOnEndStop;
|
||||
FAnimateTri2.AutoReverse:=true;
|
||||
FAnimateTri2.Repeats:=2;
|
||||
FAnimateTri2.SetInitialPosition(Point((Self.Width div 2),shpTri2.Top));
|
||||
FAnimateTri2.SetFinalPosition(Point(Self.Width-shpTri2.Width,shpTri2.Top));
|
||||
FAnimateTri2.FreeWithQueue:=true;
|
||||
FAnimateTri2.TransitionMode:=eAnimationTransitionBallisticIn;
|
||||
FAnimateTri2.FinalizeBehavior:=eAnimationFinalizeBehaviorInitial;
|
||||
FAnimateTri2.OnAnimationEnd:=@MetronomeEndAnimation;
|
||||
AnimationQueue.Add(FAnimateTri2);
|
||||
|
||||
TriangleColor2:=TAnimationSampleBrushColor.Create(shpTri2);
|
||||
TriangleColor2.Duration:=2000;
|
||||
TriangleColor2.AnimationOnEndAction:=eAnimationOnEndStop;
|
||||
TriangleColor2.AutoReverse:=false;
|
||||
TriangleColor2.Repeats:=1;
|
||||
TriangleColor2.InitialColor:=ColorToRGB(clRed);
|
||||
TriangleColor2.FinalColor:=ColorToRGB(clWhite);
|
||||
TriangleColor2.FreeWithQueue:=true;
|
||||
TriangleColor2.TransitionMode:=eAnimationTransitionBallisticOut;
|
||||
AnimationQueue.Add(TriangleColor2);
|
||||
|
||||
TriangleColor1.Start;
|
||||
FAnimateTri1.Start;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.chkLabelFlashingChange(Sender: TObject);
|
||||
var
|
||||
lFlashing: TAnimationControlColor;
|
||||
lList: TFPList;
|
||||
begin
|
||||
if TCheckBox(Sender).Checked then begin
|
||||
AnimationQueue.RemoveGroupID(lblFlashingLabel);
|
||||
lFlashing:=TAnimationControlColor.Create(lblFlashingLabel);
|
||||
lFlashing.Duration:=1000;
|
||||
lFlashing.InitialColor:=ColorToRGB(clBtnFace);
|
||||
lFlashing.FinalColor:=ColorToRGB(TColor($000000FF));
|
||||
lFlashing.AutoReverse:=true;
|
||||
lFlashing.Repeats:=0; // infinite
|
||||
lFlashing.FinalizeBehavior:=eAnimationFinalizeBehaviorInitial;
|
||||
AnimationQueue.Add(lFlashing);
|
||||
lFlashing.Start;
|
||||
end else begin
|
||||
lList:=AnimationQueue.FindGroupID(lblFlashingLabel);
|
||||
try
|
||||
if lList.Count>0 then begin
|
||||
lFlashing:=TObject(lList[0]) as TAnimationControlColor;
|
||||
lFlashing.FinalizeASAP(true);
|
||||
end;
|
||||
finally
|
||||
lList.Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.FormCreate(Sender: TObject);
|
||||
var
|
||||
Button: TAnimationControlTranslate;
|
||||
MarqueeBackground: TAnimationControlTranslate;
|
||||
begin
|
||||
AnimationQueue:=TAnimationQueue.Create;
|
||||
|
||||
Button:=TAnimationControlTranslate.Create(butPause);
|
||||
Button.Duration:=2000;
|
||||
Button.AnimationOnEndAction:=eAnimationOnEndFree;
|
||||
Button.AutoReverse:=false;
|
||||
Button.Repeats:=1;
|
||||
Button.SetFinalPosition(Point(0,butPause.Top));
|
||||
Button.AnchorLocation:=eAnimationAnchorLocationCenter;
|
||||
Button.SwapOriginWithFinal;
|
||||
Button.FreeWithQueue:=true;
|
||||
Button.TransitionMode:=eAnimationTransitionBallisticIn;
|
||||
AnimationQueue.Add(Button);
|
||||
|
||||
AnimationQueue.Start(true);
|
||||
|
||||
MarqueeBackground:=TAnimationControlTranslate.Create(imgFlareMarquee);
|
||||
MarqueeBackground.Duration:=Trunc(imgFlareMarquee.Parent.Width*10);
|
||||
MarqueeBackground.AnimationOnEndAction:=eAnimationOnEndFree;
|
||||
MarqueeBackground.AutoReverse:=false;
|
||||
MarqueeBackground.Repeats:=0;
|
||||
MarqueeBackground.SetInitialPosition(Point(imgFlareMarquee.Width*-1,0));
|
||||
MarqueeBackground.SetFinalPosition(Point(imgFlareMarquee.Parent.Width,0));
|
||||
MarqueeBackground.AnchorLocation:=eAnimationAnchorLocationCenter;
|
||||
MarqueeBackground.FreeWithQueue:=true;
|
||||
MarqueeBackground.TransitionMode:=eAnimationTransitionLinear;
|
||||
AnimationQueue.Add(MarqueeBackground);
|
||||
MarqueeBackground.Stop;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
FreeAndNil(AnimationQueue);
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.FormResize(Sender: TObject);
|
||||
var
|
||||
lAnimations: TFPList;
|
||||
lFlareAnimation: TAnimationControlTranslate;
|
||||
begin
|
||||
// Find the animation related to imgFlareMarquee
|
||||
lAnimations:=AnimationQueue.FindGroupID(imgFlareMarquee);
|
||||
try
|
||||
if lAnimations.Count=0 then begin
|
||||
// Not found ? Exit
|
||||
exit;
|
||||
end;
|
||||
try
|
||||
lFlareAnimation:=TObject(lAnimations[0]) as TAnimationControlTranslate;
|
||||
// Now readjust final position and animation duration
|
||||
// Changing duration we get a constant speed, but better is constant time in this case.
|
||||
//lFlareAnimation.Duration:=Trunc(lFlareAnimation.Control.Parent.Width*10);
|
||||
lFlareAnimation.SetFinalPosition(Point(lFlareAnimation.Control.Parent.Width,lFlareAnimation.Control.Top));
|
||||
except
|
||||
// Eat exceptions, so program will not break if something
|
||||
// goes really wrong.
|
||||
end;
|
||||
finally
|
||||
lAnimations.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.MetronomeEndAnimation(Sender: TAnimationItem);
|
||||
var
|
||||
lList: TFPList=nil;
|
||||
j: integer;
|
||||
A: TAnimationItem;
|
||||
begin
|
||||
try
|
||||
if Sender=FAnimateTri1 then begin
|
||||
lList:=AnimationQueue.FindGroupID(shpTri2);
|
||||
end else begin
|
||||
lList:=AnimationQueue.FindGroupID(shpTri1);
|
||||
end;
|
||||
for j := 0 to Pred(lList.Count) do begin
|
||||
A:=TAnimationItem(lList[j]);
|
||||
A.Start;
|
||||
end;
|
||||
finally
|
||||
lList.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmAnimationControls.tmrAnimatedCadenceTimer(Sender: TObject);
|
||||
begin
|
||||
Self.DisableAlign;
|
||||
AnimationQueue.Animate;
|
||||
Self.EnableAlign;
|
||||
// Adding Self.Invalidate improves smooth animation but can make
|
||||
// the form less responsive in low power machines.
|
||||
// When used removes some animation artifacts in controls translation.
|
||||
//Self.Invalidate;
|
||||
lblFPS.Caption:=format('FPS: %.2f',[AnimationQueue.AverageFPS]);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
864
components/Comba_Animation/src/uanimationbasic.pas
Normal file
864
components/Comba_Animation/src/uanimationbasic.pas
Normal file
@ -0,0 +1,864 @@
|
||||
unit uanimationbasic;
|
||||
|
||||
(*
|
||||
Comba - Animation main module
|
||||
-----------------------------
|
||||
@Licence: (c) 2017 José Mejuto // joshyfun at gmail.com
|
||||
@Licence: LGPL when compiled with FPC (Free Pascal), GNU GPL V3 in other cases.
|
||||
@Links:
|
||||
GPL: https://www.gnu.org/licenses/gpl-3.0.en.html
|
||||
LGPL: https://www.gnu.org/licenses/lgpl-3.0.en.html
|
||||
|
||||
@Description:
|
||||
|
||||
This file implements an animation queue and animation item base class.
|
||||
|
||||
*)
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Graphics, math;
|
||||
|
||||
type
|
||||
|
||||
TAnimationTransitionMode=(eAnimationTransitionLinear,eAnimationTransitionBallisticIn,eAnimationTransitionBallisticOut,eAnimationTransitionBallisticBoth,eAnimationTransitionBallisticEdge);
|
||||
TAnimationFinalizeBehavior=(eAnimationFinalizeBehaviorCurrent,eAnimationFinalizeBehaviorInitial,eAnimationFinalizeBehaviorFinal);
|
||||
|
||||
TAnimationOnEndAction=(eAnimationOnEndStop,eAnimationOnEndFree);
|
||||
TAnimationState=(eAnimationStateStopped,eAnimationStateStarted,eAnimationStatePaused,eAnimationStateToBeFreed);
|
||||
|
||||
TAnimationItem=class;
|
||||
|
||||
TAnimationOnPerform=procedure (const aElapedMilliseconds: int64) of object;
|
||||
TAnimationOnAnimationEnd=procedure (Sender: TAnimationItem) of object;
|
||||
TAnimationQueue=class;
|
||||
TAnimationException=class(Exception);
|
||||
|
||||
{ TAnimationItem }
|
||||
|
||||
TAnimationItem=class(TObject)
|
||||
private
|
||||
FFinalizeASAPMode: integer;
|
||||
FUserData: Pointer;
|
||||
FOnPerform: TAnimationOnPerform;
|
||||
FOnAnimationEnd: TAnimationOnAnimationEnd;
|
||||
FFreeWithQueue: Boolean;
|
||||
FDuration: int64;
|
||||
FGroupID: pointer;
|
||||
FAnimationOnEndAction: TAnimationOnEndAction;
|
||||
FTransitionMode: TAnimationTransitionMode;
|
||||
FReverse: Boolean;
|
||||
FRepeats: integer;
|
||||
FAutoReverse: Boolean;
|
||||
FFinalizeBehavior: TAnimationFinalizeBehavior;
|
||||
procedure SetReverse(aValue: Boolean);
|
||||
protected
|
||||
FState: TAnimationState;
|
||||
FStartTick: int64;
|
||||
FPauseTick: int64;
|
||||
FQueue: TAnimationQueue;
|
||||
FStartStopSynchAnimationList: TFPList;
|
||||
FRepeated: integer;
|
||||
FFinalizeAnimation: Boolean;
|
||||
(* TransitionMode: (TAnimationTransitionMode) Linear or "curved" transition between animation values
|
||||
eAnimationTransitionLinear: Transition is linear in time.
|
||||
eAnimationTransitionBallisticIn: Fast -> Slow
|
||||
eAnimationTransitionBallisticOut: Slow -> Fast
|
||||
eAnimationTransitionBallisticBoth: Slow -> Fast -> Slow
|
||||
eAnimationTransitionBallisticEdge: Fast -> Slow -> Fast
|
||||
|
||||
Calculations are done in CalculateLinearPosition.
|
||||
|
||||
@Note: This transitions are not fine right now as some transitios
|
||||
are quite difficult to distinguish from others. It will be
|
||||
fixed in the future.
|
||||
*)
|
||||
property TransitionMode: TAnimationTransitionMode read FTransitionMode write FTransitionMode;
|
||||
(* Calculate linear position is the default functions to calculate current
|
||||
animation value based in a source and a target value using the elapsed
|
||||
time. Derived classes can use it or define a new ones with different
|
||||
signatures and names *)
|
||||
function CalculateLinearPosition(const aSource,aTarget: integer; const aElapsedMilliseconds,aDuration: int64): integer; overload;
|
||||
function CalculateLinearPosition(const aSource,aTarget: Single; const aElapsedMilliseconds,aDuration: int64): Single; overload;
|
||||
|
||||
(* Overridable
|
||||
DoInitialize: This method is called when animation starts or restarts.
|
||||
*)
|
||||
procedure DoInitialize; virtual;
|
||||
(* Overridable
|
||||
DoPerform: In this method derived classes must perform the calculations
|
||||
needed for the animation
|
||||
*)
|
||||
procedure DoPerform; virtual;
|
||||
(* Overridable
|
||||
DoFinalizeAnimation: Method called when animation is about to be finished.
|
||||
Useful to set EXACT values for final animation based on
|
||||
TAnimationFinalizeBehavior
|
||||
*)
|
||||
procedure DoFinalizeAnimation; virtual;
|
||||
(* Animate: Do some calcs and call DoPerform *)
|
||||
procedure Animate;
|
||||
(* ProcessAnimationEnd: Adjust some values to end an animation *)
|
||||
procedure ProcessAnimationEnd;
|
||||
(* FinalizeBehavior: (TAnimationFinalizeBehavior) Which value is expected when animation ends ?
|
||||
eAnimationFinalizeBehaviorCurrent: Respects actual values, whichever it be
|
||||
eAnimationFinalizeBehaviorFinal: (default) At end it is the final value
|
||||
eAnimationFinalizeBehaviorInitial: At end the values is initial value.
|
||||
|
||||
This set is quite important when playing animations in with AutoReverse and when
|
||||
reversing animations using Reverse()
|
||||
*)
|
||||
property FinalizeBehavior: TAnimationFinalizeBehavior read FFinalizeBehavior write FFinalizeBehavior;
|
||||
public
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
(* UserData: carries a pointer to user data *)
|
||||
property UserData: Pointer read FUserData write FUserData;
|
||||
(* OnPerform: This event will be called instead class
|
||||
perform if assigned *)
|
||||
property OnPerform: TAnimationOnPerform read FOnPerform write FOnPerform;
|
||||
(* OnAnimationEnd: This event will be called when animation ends *)
|
||||
property OnAnimationEnd: TAnimationOnAnimationEnd read FOnAnimationEnd write FOnAnimationEnd;
|
||||
(* FreeWithQueue: The TAnimationItem will be freed when the Queue is destroyed *)
|
||||
property FreeWithQueue: Boolean read FFreeWithQueue write FFreeWithQueue;
|
||||
(* Duration: How many milliseconds will the animation take *)
|
||||
property Duration: int64 read FDuration write FDuration;
|
||||
(* Reversed: Is animation being played in reverse time ? *)
|
||||
property Reversed: Boolean read FReverse write SetReverse;
|
||||
(*
|
||||
AnimationOnEndAction: What happends when animation is finished:
|
||||
eAnimationOnEndStop: (Default) The animation just finish
|
||||
eAnimationOnEndFree: The animation finished and then the object is freed
|
||||
*)
|
||||
property AnimationOnEndAction: TAnimationOnEndAction read FAnimationOnEndAction write FAnimationOnEndAction;
|
||||
(* AutoReverse: When animation reaches the end it will be played in reverse
|
||||
order if there are enought Repeats to be played *)
|
||||
property AutoReverse: Boolean read FAutoReverse write FAutoReverse;
|
||||
(* Repeats: How many times the animation should be repeated.
|
||||
0 = means infinite *)
|
||||
property Repeats: integer read FRepeats write FRepeats;
|
||||
(* GroupID: Pointer with an identifier to select a group of animations
|
||||
from the queue. This is useful in example when animating controls
|
||||
as all animations related to a control will share the same GroupID
|
||||
which could be the memory address of the control *)
|
||||
property GroupID: pointer read FGroupID write FGroupID;
|
||||
(*
|
||||
State: The animation play state (TAnimationState)
|
||||
eAnimationStateStopped: Animation in stopped state
|
||||
eanimationStateStarted: Animation is running
|
||||
eAnimationStatePaused: Animation is paused
|
||||
eAnimationStateToBeFreed: Animation is stopped and waiting to be freed
|
||||
*)
|
||||
property State: TAnimationState read FState;
|
||||
(* GetElapsedMilliseconds: Returns the animation elapsed milliseconds *)
|
||||
function GetElapsedMilliseconds: int64;
|
||||
(*
|
||||
FinalizeASAP: Finalizes an animation as soon as possible but waiting the
|
||||
needed time to complete the programmed animation time.
|
||||
@Parameters:
|
||||
aReverseIfNeeded: If True and animation is running in forward mode, it
|
||||
will wait to be run in reverse mode to stop it.
|
||||
*)
|
||||
procedure FinalizeASAP(const aReverseIfNeeded: Boolean=true);
|
||||
(*
|
||||
Reverse: Reverses current animation direction.
|
||||
@Parameters:
|
||||
aReverseFinalBehavior: If True Initial and Final behavior will be interchanged.
|
||||
*)
|
||||
function Reverse(const aReverseFinalBehavior: Boolean=true): Boolean;
|
||||
(* Perform: Just perform the animation *)
|
||||
procedure Perform;
|
||||
(* Start: Starts animation *)
|
||||
procedure Start;
|
||||
(* Pause: Pauses animation *)
|
||||
procedure Pause;
|
||||
(* Stop: Stops animation *)
|
||||
procedure Stop;
|
||||
(* AddSyncStartStopAnimation: When this objects reaches the animation end, in forward
|
||||
or reverse mode, animations added with this function will
|
||||
be reversed or restarted at the same time. This is useful
|
||||
to synchronize some animations for large repeats *)
|
||||
procedure AddSyncStartStopAnimation(const aAnimationItem: TAnimationItem);
|
||||
end;
|
||||
|
||||
{ TAnimationQueue }
|
||||
|
||||
TAnimationQueue=class(TObject)
|
||||
private
|
||||
FTick: int64;
|
||||
function GetAverageFPS: single;
|
||||
function GetPaused: Boolean;
|
||||
procedure SetPaused(AValue: Boolean);
|
||||
procedure SetReverse(aValue: Boolean);
|
||||
protected
|
||||
type
|
||||
TAnimationQueueState=(eAnimationQueueStopped,eAnimationQueueStarted,eAnimationQueuePaused);
|
||||
protected
|
||||
FState: TAnimationQueueState;
|
||||
FFramesCounter: integer;
|
||||
FStartTick: int64;
|
||||
FReverse: Boolean;
|
||||
FPauseElapsed: int64;
|
||||
FAnimationItems: TFPList;
|
||||
function GetAnimationTick: int64;
|
||||
function intfGetTickCount64: int64; inline;
|
||||
public
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
(* Start: Starts the animation
|
||||
|
||||
@Parameters:
|
||||
aStartQueuedAnimations: If True it starts all animations already in the queue
|
||||
|
||||
@Note: There is no Stop procedure because not calling "Animate" is just a stop. *)
|
||||
procedure Start(const aStartQueuedAnimations: Boolean=false);
|
||||
(* Pause: Pauses animation. It can be unpaused calling it again *)
|
||||
procedure Pause;
|
||||
(* Reverse: Reverses all animations in queue *)
|
||||
procedure Reverse;
|
||||
(* Animate: Animate all objects in the queue. It is the main heartbeat *)
|
||||
procedure Animate; virtual;
|
||||
(* Paint: Animate just only the supplied animation
|
||||
@Parameters:
|
||||
aPerformItem: The animation to be animated :-)
|
||||
*)
|
||||
procedure Paint(const aPerformItem: TAnimationItem);
|
||||
(* Add: Adds one animation to the queue
|
||||
@Parameters:
|
||||
aAnimationItem: The animation to be added
|
||||
aRemoveSameID: Before adding it removes all animations in the queue
|
||||
with the same GroupID, if GroupID is different than nil
|
||||
*)
|
||||
procedure Add(const aAnimationItem: TAnimationItem; const aRemoveSameGroupID: Boolean=false); virtual;
|
||||
(* Remove: Removes one animation from the queue
|
||||
@Parameters:
|
||||
aAnimationItem: The animation to be removed. If animation to be removed
|
||||
has been selected to be freed on stop it will be automatically freed.
|
||||
*)
|
||||
procedure Remove(const aAnimationItem: TAnimationItem); virtual;
|
||||
(* GetAbsoluteAnimationClock: Milliseconds since animation start *)
|
||||
function GetAbsoluteAnimationClock: int64;
|
||||
(* RemoveGroupID: Removes all animations with a given GroupID
|
||||
@Parameters:
|
||||
aClass: It can filter and remove only GroupID animations of the given class
|
||||
*)
|
||||
function RemoveGroupID(const aID: pointer; const aClass: TClass=nil): integer;
|
||||
(* FindGroupID: Returns a TFPList containing all animations of a given GroupID
|
||||
|
||||
@Parameters:
|
||||
aGroupID: The ID of the group to be returned.
|
||||
|
||||
@Note: Programmer must free the TFPList returned
|
||||
*)
|
||||
function FindGroupID(const aGroupID: pointer): TFPList;
|
||||
(* AverageFPS: Returns average animations per second since animation start *)
|
||||
property AverageFPS: single read GetAverageFPS;
|
||||
(* Reversed: Is the animation being played in reverse time ? *)
|
||||
property Reversed: Boolean read FReverse write SetReverse;
|
||||
(* Paused: Is animation in pause state ? *)
|
||||
property Paused: Boolean read GetPaused write SetPaused;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$IFDEF WINDOWS}
|
||||
Uses windows; //For QueryPerformanceCounter only and it is not a must.
|
||||
{$ENDIF}
|
||||
|
||||
resourcestring
|
||||
rs_AnimationInOtherQueue='The animation is already in other queue.';
|
||||
|
||||
const
|
||||
TFINALIZEASAPMODE_NONE=0;
|
||||
TFINALIZEASAPMODE_NOW=1;
|
||||
TFINALIZEASAPMODE_NEXT=2;
|
||||
TFINALIZEASAPMODE_REVERSED=3;
|
||||
|
||||
type
|
||||
TSplinePoint=record
|
||||
x,y: single;
|
||||
end;
|
||||
|
||||
function SplinePoint(x,y: single): TSplinePoint;
|
||||
begin
|
||||
Result.x:=x;
|
||||
Result.y:=y;
|
||||
end;
|
||||
|
||||
function CalculateSpline(const aPoint0, aPoint3, aPoint1, aPoint2: TSplinePoint; t: single ): TSplinePoint;
|
||||
begin
|
||||
Result.x := power(t,3)*(aPoint3.x+3*(aPoint1.x-aPoint2.x)-aPoint0.x)+3*power(t,2)*(aPoint0.x-2*aPoint1.x+aPoint2.x)+3*t*(aPoint1.x-aPoint0.x)+aPoint0.x;
|
||||
Result.y := power(t,3)*(aPoint3.y+3*(aPoint1.y-aPoint2.y)-aPoint0.y)+3*power(t,2)*(aPoint0.y-2*aPoint1.y+aPoint2.y)+3*t*(aPoint1.y-aPoint0.y)+aPoint0.y;
|
||||
end;
|
||||
|
||||
function CalculateElastic(const aFactor: single; const aDistance: integer; const aIntensity: single=1.5): integer;
|
||||
begin
|
||||
Result:=trunc(Power(2,10*(aFactor-1))*cos(20*PI*aIntensity/3*aFactor)*aDistance)
|
||||
end;
|
||||
|
||||
|
||||
{ TAnimationItem }
|
||||
|
||||
procedure TAnimationItem.SetReverse(aValue: Boolean);
|
||||
begin
|
||||
if FReverse=aValue then Exit;
|
||||
if FDuration=0 then begin
|
||||
FReverse:=aValue;
|
||||
exit;
|
||||
end;
|
||||
if Assigned(FQueue) then begin
|
||||
if aValue then begin
|
||||
FStartTick:=FQueue.GetAbsoluteAnimationClock-(FDuration-GetElapsedMilliseconds);
|
||||
end else begin
|
||||
FStartTick:=FQueue.GetAbsoluteAnimationClock-GetElapsedMilliseconds;
|
||||
end;
|
||||
end;
|
||||
FReverse:=aValue;
|
||||
end;
|
||||
|
||||
function TAnimationItem.CalculateLinearPosition(const aSource,
|
||||
aTarget: integer; const aElapsedMilliseconds, aDuration: int64): integer;
|
||||
var
|
||||
Factor: Single;
|
||||
Distance: integer;
|
||||
begin
|
||||
if aDuration=0 then begin
|
||||
Result:=aSource;
|
||||
exit;
|
||||
end;
|
||||
Factor:=aElapsedMilliseconds / aDuration;
|
||||
if Factor>1.0 then Factor:=1.0;
|
||||
if Factor<0.0 then Factor:=0.0;
|
||||
case FTransitionMode of
|
||||
eAnimationTransitionLinear:
|
||||
begin
|
||||
end;
|
||||
eAnimationTransitionBallisticIn:
|
||||
begin
|
||||
Factor:=CalculateSpline(SplinePoint(0,0),SplinePoint(1,0),SplinePoint(0.9,1),SplinePoint(0.999,1),Factor).x;
|
||||
end;
|
||||
eAnimationTransitionBallisticOut:
|
||||
begin
|
||||
Factor:=CalculateSpline(SplinePoint(0,0),SplinePoint(1,0),SplinePoint(0.001,1),SplinePoint(0.1,1),Factor).x;
|
||||
end;
|
||||
eAnimationTransitionBallisticBoth:
|
||||
begin
|
||||
Factor:=CalculateSpline(SplinePoint(0,0),SplinePoint(1,0),SplinePoint(0,1),SplinePoint(1,1),Factor).x;
|
||||
end;
|
||||
eAnimationTransitionBallisticEdge:
|
||||
begin
|
||||
Factor:=CalculateSpline(SplinePoint(0,0),SplinePoint(1,0),SplinePoint(1,0),SplinePoint(0,1),Factor).x;
|
||||
end;
|
||||
end;
|
||||
Distance:=aTarget-aSource;
|
||||
Distance:=Round(Distance*Factor);
|
||||
Result:=aSource+Distance;
|
||||
end;
|
||||
|
||||
function TAnimationItem.CalculateLinearPosition(const aSource, aTarget: Single;
|
||||
const aElapsedMilliseconds, aDuration: int64): Single;
|
||||
var
|
||||
Factor: Single;
|
||||
Distance: Single;
|
||||
begin
|
||||
if aDuration=0 then begin
|
||||
Result:=aSource;
|
||||
exit;
|
||||
end;
|
||||
Factor:=aElapsedMilliseconds / aDuration;
|
||||
if Factor>1.0 then Factor:=1.0;
|
||||
if Factor<0.0 then Factor:=0.0;
|
||||
case FTransitionMode of
|
||||
eAnimationTransitionLinear:
|
||||
begin
|
||||
end;
|
||||
eAnimationTransitionBallisticIn:
|
||||
begin
|
||||
Factor:=CalculateSpline(SplinePoint(0,0),SplinePoint(1,0),SplinePoint(0.9,1),SplinePoint(0.9,1),Factor).x;
|
||||
end;
|
||||
eAnimationTransitionBallisticOut:
|
||||
begin
|
||||
Factor:=CalculateSpline(SplinePoint(0,0),SplinePoint(1,0),SplinePoint(0.1,1),SplinePoint(0.1,1),Factor).x;
|
||||
end;
|
||||
eAnimationTransitionBallisticBoth:
|
||||
begin
|
||||
Factor:=CalculateSpline(SplinePoint(0,0),SplinePoint(1,0),SplinePoint(0,1),SplinePoint(1,1),Factor).x;
|
||||
end;
|
||||
eAnimationTransitionBallisticEdge:
|
||||
begin
|
||||
Factor:=CalculateSpline(SplinePoint(0,0),SplinePoint(1,0),SplinePoint(1,0),SplinePoint(0,1),Factor).x;
|
||||
end;
|
||||
end;
|
||||
Distance:=aTarget-aSource;
|
||||
Distance:=Distance*Factor;
|
||||
Result:=aSource+Distance;
|
||||
end;
|
||||
|
||||
function TAnimationItem.GetElapsedMilliseconds: int64;
|
||||
var
|
||||
LocalReversed: Boolean;
|
||||
begin
|
||||
if FFinalizeAnimation and ((FRepeats-FRepeated)>=0) then begin
|
||||
LocalReversed:=false;
|
||||
if FAutoReverse then begin
|
||||
if (FRepeats-FRepeated) mod 2 = 1 then begin
|
||||
LocalReversed:=false;
|
||||
end else begin
|
||||
LocalReversed:=true;
|
||||
end;
|
||||
end;
|
||||
FRepeated:=FRepeats;
|
||||
if LocalReversed then begin
|
||||
Result:=0;
|
||||
end else begin
|
||||
Result:=Duration;
|
||||
end;
|
||||
end else begin
|
||||
if FReverse then begin
|
||||
Result:=Duration - (FQueue.GetAbsoluteAnimationClock - FStartTick);
|
||||
end else begin
|
||||
Result:=FQueue.GetAbsoluteAnimationClock - FStartTick;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.FinalizeASAP(const aReverseIfNeeded: Boolean);
|
||||
begin
|
||||
if aReverseIfNeeded then begin
|
||||
FFinalizeASAPMode:=TFINALIZEASAPMODE_REVERSED;
|
||||
end else begin
|
||||
FFinalizeASAPMode:=TFINALIZEASAPMODE_NEXT;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.ProcessAnimationEnd;
|
||||
var
|
||||
lShouldRepeat: Boolean=false;
|
||||
procedure Restart;
|
||||
var
|
||||
j: integer;
|
||||
begin
|
||||
Start;
|
||||
if Assigned(FStartStopSynchAnimationList) then begin
|
||||
for j := 0 to FStartStopSynchAnimationList.Count-1 do begin
|
||||
TAnimationItem(FStartStopSynchAnimationList[j]).Start;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
procedure ReverseIt;
|
||||
var
|
||||
j: integer;
|
||||
begin
|
||||
Reversed:=not Reversed;
|
||||
if Assigned(FStartStopSynchAnimationList) then begin
|
||||
for j := 0 to FStartStopSynchAnimationList.Count-1 do begin
|
||||
TAnimationItem(FStartStopSynchAnimationList[j]).ProcessAnimationEnd;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
procedure DoFinalize;
|
||||
begin
|
||||
case FAnimationOnEndAction of
|
||||
eAnimationOnEndStop: FState:=eAnimationStateStopped;
|
||||
eAnimationOnEndFree: FState:=eAnimationStateToBeFreed;
|
||||
end;
|
||||
if Assigned(FOnAnimationEnd) then begin
|
||||
FOnAnimationEnd(Self);
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
inc(FRepeated);
|
||||
case FFinalizeASAPMode of
|
||||
TFINALIZEASAPMODE_NOW,
|
||||
TFINALIZEASAPMODE_NEXT:
|
||||
begin
|
||||
DoFinalize;
|
||||
end;
|
||||
TFINALIZEASAPMODE_REVERSED:
|
||||
begin
|
||||
if not Reversed then begin
|
||||
ReverseIt;
|
||||
end else begin
|
||||
DoFinalize;
|
||||
end;
|
||||
end;
|
||||
TFINALIZEASAPMODE_NONE:
|
||||
begin
|
||||
if FRepeats=0 then begin
|
||||
lShouldRepeat:=true;
|
||||
end else begin
|
||||
if FRepeated<FRepeats then begin
|
||||
lShouldRepeat:=true;
|
||||
end;
|
||||
end;
|
||||
if lShouldRepeat and FAutoReverse then begin
|
||||
ReverseIt;
|
||||
end else if lShouldRepeat then begin
|
||||
Restart;
|
||||
end else begin
|
||||
DoFinalize;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TAnimationItem.Create;
|
||||
begin
|
||||
FFreeWithQueue:=true;
|
||||
FRepeats:=1;
|
||||
FFinalizeBehavior:=eAnimationFinalizeBehaviorFinal;
|
||||
end;
|
||||
|
||||
destructor TAnimationItem.Destroy;
|
||||
begin
|
||||
if Assigned(FStartStopSynchAnimationList) then FreeAndNil(FStartStopSynchAnimationList);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
function TAnimationItem.Reverse(const aReverseFinalBehavior: Boolean): Boolean;
|
||||
begin
|
||||
if FState=eAnimationStateStarted then begin
|
||||
Reversed:=not FReverse;
|
||||
if aReverseFinalBehavior then begin
|
||||
case FFinalizeBehavior of
|
||||
eAnimationFinalizeBehaviorCurrent: ;
|
||||
eAnimationFinalizeBehaviorInitial: FFinalizeBehavior:=eAnimationFinalizeBehaviorFinal;
|
||||
eAnimationFinalizeBehaviorFinal: FFinalizeBehavior:=eAnimationFinalizeBehaviorInitial;
|
||||
end;
|
||||
end;
|
||||
Result:=true;
|
||||
end else begin
|
||||
Result:=false;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.Perform;
|
||||
begin
|
||||
if Assigned(FQueue) then begin
|
||||
FQueue.Paint(Self);
|
||||
end else begin
|
||||
if Assigned(FOnPerform) then begin
|
||||
FOnPerform(GetElapsedMilliseconds);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.DoPerform;
|
||||
begin
|
||||
// Nothing, nada.
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.Animate;
|
||||
var
|
||||
lElapsedMilliseconds: int64;
|
||||
begin
|
||||
if FState=eAnimationStateStarted then begin
|
||||
lElapsedMilliseconds:=GetElapsedMilliseconds;
|
||||
if Assigned(FOnPerform) then begin
|
||||
FOnPerform(lElapsedMilliseconds);
|
||||
end else begin
|
||||
DoPerform;
|
||||
end;
|
||||
if FFinalizeASAPMode=TFINALIZEASAPMODE_NOW then begin
|
||||
ProcessAnimationEnd;
|
||||
end else begin
|
||||
if FReverse then begin
|
||||
if lElapsedMilliseconds<=0 then begin
|
||||
ProcessAnimationEnd;
|
||||
end;
|
||||
end else begin
|
||||
if lElapsedMilliseconds>=FDuration then begin
|
||||
ProcessAnimationEnd;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.DoFinalizeAnimation;
|
||||
begin
|
||||
FFinalizeAnimation:=true;
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.DoInitialize;
|
||||
begin
|
||||
//Do nothing
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.Start;
|
||||
begin
|
||||
FStartTick:=FQueue.GetAbsoluteAnimationClock;
|
||||
FState:=eAnimationStateStarted;
|
||||
FRepeated:=0;
|
||||
FReverse:=false;
|
||||
FFinalizeAnimation:=false;
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.Pause;
|
||||
begin
|
||||
if FState=eAnimationStateStarted then begin
|
||||
FState:=eAnimationStatePaused;
|
||||
if Assigned(FQueue) then begin
|
||||
FPauseTick:=GetElapsedMilliseconds;
|
||||
end;
|
||||
end else if FState=eAnimationStatePaused then begin
|
||||
if Assigned(FQueue) then begin
|
||||
FStartTick:=FQueue.GetAbsoluteAnimationClock-FPauseTick;
|
||||
end;
|
||||
FState:=eAnimationStateStarted;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.Stop;
|
||||
begin
|
||||
if (FState=eAnimationStateStarted) or (FState=eAnimationStatePaused) or (FState=eAnimationStateStopped) then begin
|
||||
FState:=eAnimationStateStopped;
|
||||
DoFinalizeAnimation;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationItem.AddSyncStartStopAnimation(
|
||||
const aAnimationItem: TAnimationItem);
|
||||
begin
|
||||
if not Assigned(FStartStopSynchAnimationList) then begin
|
||||
FStartStopSynchAnimationList:=TFPList.Create;
|
||||
end;
|
||||
FStartStopSynchAnimationList.Add(aAnimationItem);
|
||||
end;
|
||||
|
||||
{ TAnimationQueue }
|
||||
|
||||
function TAnimationQueue.GetAbsoluteAnimationClock: int64;
|
||||
begin
|
||||
Result:=GetAnimationTick - FStartTick;
|
||||
end;
|
||||
|
||||
function TAnimationQueue.RemoveGroupID(const aID: pointer; const aClass: TClass
|
||||
): integer;
|
||||
var
|
||||
j: Integer;
|
||||
A: TAnimationItem;
|
||||
begin
|
||||
Result:=0;
|
||||
for j := Pred(FAnimationItems.Count) downto 0 do begin
|
||||
A:=TAnimationItem(FAnimationItems[j]);
|
||||
if A.GroupID=aID then begin
|
||||
if (Assigned(aClass) and (A is aClass)) or not Assigned(aClass) then begin
|
||||
Remove(A);
|
||||
inc(Result);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAnimationQueue.FindGroupID(const aGroupID: pointer): TFPList;
|
||||
var
|
||||
j: Integer;
|
||||
A: TAnimationItem;
|
||||
begin
|
||||
Result:=TFPList.Create;
|
||||
for j := Pred(FAnimationItems.Count) downto 0 do begin
|
||||
A:=TAnimationItem(FAnimationItems[j]);
|
||||
if A.GroupID=aGroupID then begin
|
||||
Result.Add(A);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationQueue.SetReverse(aValue: Boolean);
|
||||
var
|
||||
j: integer;
|
||||
begin
|
||||
if FReverse=aValue then Exit;
|
||||
for j := 0 to FAnimationItems.Count-1 do begin
|
||||
TAnimationItem(FAnimationItems[j]).Reversed:=not TAnimationItem(FAnimationItems[j]).Reversed;
|
||||
end;
|
||||
FReverse:=aValue;
|
||||
end;
|
||||
|
||||
function TAnimationQueue.GetAverageFPS: single;
|
||||
begin
|
||||
if FState=eAnimationQueueStarted then begin
|
||||
if GetAbsoluteAnimationClock>0 then begin
|
||||
Result:=(FFramesCounter * 1000) / GetAbsoluteAnimationClock;
|
||||
end else begin
|
||||
Result:=0;
|
||||
end;
|
||||
end else begin
|
||||
Result:=0;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TAnimationQueue.GetPaused: Boolean;
|
||||
begin
|
||||
if FState=eAnimationQueuePaused then begin
|
||||
Result:=true;
|
||||
end else begin
|
||||
Result:=false;
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TAnimationQueue.Create;
|
||||
begin
|
||||
FAnimationItems:=TFPList.Create;
|
||||
FState:=eAnimationQueueStopped;
|
||||
end;
|
||||
|
||||
destructor TAnimationQueue.Destroy;
|
||||
var
|
||||
j: integer;
|
||||
begin
|
||||
for j := Pred(FAnimationItems.Count) downto 0 do begin
|
||||
if TAnimationItem(FAnimationItems[j]).FFreeWithQueue then begin
|
||||
TAnimationItem(FAnimationItems[j]).Free;
|
||||
FAnimationItems.Delete(j);
|
||||
end;
|
||||
end;
|
||||
FreeAndNil(FAnimationItems);
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TAnimationQueue.SetPaused(AValue: Boolean);
|
||||
begin
|
||||
If AValue then begin
|
||||
if (FState=eAnimationQueueStarted) then begin
|
||||
FPauseElapsed:=GetAbsoluteAnimationClock;
|
||||
FState:=eAnimationQueuePaused;
|
||||
end;
|
||||
end else begin
|
||||
if FState=eAnimationQueuePaused then begin
|
||||
FStartTick:=GetTickCount64-FPauseElapsed;
|
||||
FState:=eAnimationQueueStarted;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationQueue.Start(const aStartQueuedAnimations: Boolean);
|
||||
var
|
||||
j: Integer;
|
||||
begin
|
||||
FTick:=GetTickCount64;
|
||||
if FState=eAnimationQueuePaused then begin
|
||||
SetPaused(false);
|
||||
end else begin
|
||||
FStartTick:=FTick;
|
||||
if aStartQueuedAnimations then begin
|
||||
for j := 0 to FAnimationItems.Count-1 do begin
|
||||
TAnimationItem(FAnimationItems[j]).Start;
|
||||
end;
|
||||
end;
|
||||
FState:=eAnimationQueueStarted;
|
||||
FFramesCounter:=0;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationQueue.Pause;
|
||||
begin
|
||||
FPauseElapsed:=GetAbsoluteAnimationClock;
|
||||
FState:=eAnimationQueuePaused;
|
||||
end;
|
||||
|
||||
procedure TAnimationQueue.Reverse;
|
||||
begin
|
||||
Reversed:=not Reversed;
|
||||
end;
|
||||
|
||||
procedure TAnimationQueue.Animate;
|
||||
var
|
||||
j: integer;
|
||||
A: TAnimationItem;
|
||||
begin
|
||||
if FState<>eAnimationQueueStarted then exit;
|
||||
FTick:=GetTickCount64;
|
||||
for j := FAnimationItems.Count-1 downto 0 do begin
|
||||
A:=TAnimationItem(FAnimationItems[j]);
|
||||
if A.FState=eAnimationStateToBeFreed then begin
|
||||
Remove(A);
|
||||
end;
|
||||
end;
|
||||
for j := 0 to FAnimationItems.Count-1 do begin
|
||||
A:=TAnimationItem(FAnimationItems[j]);
|
||||
if A.FState=eAnimationStateStarted then begin
|
||||
A.Animate;
|
||||
end;
|
||||
end;
|
||||
inc(FFramesCounter);
|
||||
end;
|
||||
|
||||
procedure TAnimationQueue.Paint(const aPerformItem: TAnimationItem);
|
||||
begin
|
||||
aPerformItem.DoPerform;
|
||||
end;
|
||||
|
||||
procedure TAnimationQueue.Add(const aAnimationItem: TAnimationItem;
|
||||
const aRemoveSameGroupID: Boolean);
|
||||
begin
|
||||
if Assigned(aAnimationItem.FQueue) then begin
|
||||
Raise TAnimationException.Create(rs_AnimationInOtherQueue);
|
||||
end;
|
||||
if aRemoveSameGroupID and (aAnimationItem.GroupID<>nil) then begin
|
||||
RemoveGroupID(aAnimationItem.GroupID);
|
||||
end;
|
||||
FAnimationItems.Add(aAnimationItem);
|
||||
aAnimationItem.FQueue:=Self;
|
||||
aAnimationItem.DoInitialize;
|
||||
end;
|
||||
|
||||
procedure TAnimationQueue.Remove(const aAnimationItem: TAnimationItem);
|
||||
var
|
||||
Index: integer;
|
||||
A: TAnimationItem;
|
||||
j: integer;
|
||||
begin
|
||||
Index:=FAnimationItems.IndexOf(aAnimationItem);
|
||||
if Index<0 then begin
|
||||
Raise TAnimationException.Create('Trying to remove non exist animation');
|
||||
end;
|
||||
FAnimationItems.Delete(Index);
|
||||
aAnimationItem.DoFinalizeAnimation;
|
||||
//Check if object is in the synchronization list of other object
|
||||
for j := 0 to Pred(FAnimationItems.Count) do begin
|
||||
A:=TAnimationItem(FAnimationItems[j]);
|
||||
if Assigned(A.FStartStopSynchAnimationList) then begin
|
||||
Index:=A.FStartStopSynchAnimationList.IndexOf(aAnimationItem);
|
||||
if Index>-1 then begin
|
||||
//Delete it to avoid crash when synch takes place
|
||||
A.FStartStopSynchAnimationList.Delete(Index);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
aAnimationItem.Free;
|
||||
end;
|
||||
|
||||
function TAnimationQueue.GetAnimationTick: int64;
|
||||
begin
|
||||
Result:=FTick;
|
||||
end;
|
||||
|
||||
function TAnimationQueue.intfGetTickCount64: int64;
|
||||
{$IFDEF WINDOWS}
|
||||
const
|
||||
lUseHighPrecision: Boolean=true;
|
||||
{$ENDIF}
|
||||
begin
|
||||
{$IFDEF WINDOWS}
|
||||
if lUseHighPrecision then begin
|
||||
Result:=0;
|
||||
if not QueryPerformanceCounter(Result) then begin
|
||||
Result:=GetTickCount64;
|
||||
lUseHighPrecision:=false;
|
||||
end;
|
||||
end else begin
|
||||
Result:=GetTickCount64;
|
||||
end;
|
||||
{$ELSE}
|
||||
Result:=GetTickCount64;
|
||||
{$ENDIF}
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
761
components/Comba_Animation/src/uanimationcontrol.pas
Normal file
761
components/Comba_Animation/src/uanimationcontrol.pas
Normal file
@ -0,0 +1,761 @@
|
||||
unit uanimationcontrol;
|
||||
|
||||
(*
|
||||
Comba - Animation controls module
|
||||
---------------------------------
|
||||
@Licence: (c) 2017 José Mejuto // joshyfun at gmail.com
|
||||
@Licence: LGPL when compiled with FPC (Free Pascal), GNU GPL V3 in other cases.
|
||||
@Links:
|
||||
GPL: https://www.gnu.org/licenses/gpl-3.0.en.html
|
||||
LGPL: https://www.gnu.org/licenses/lgpl-3.0.en.html
|
||||
|
||||
@Description:
|
||||
|
||||
This file implements an animation base class for LCL visual controls
|
||||
animation and implements some basic animations.
|
||||
|
||||
*)
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Controls, Graphics, Forms
|
||||
, uanimationbasic
|
||||
, uanimationtypes
|
||||
;
|
||||
|
||||
type
|
||||
|
||||
TAnimationZoomMode=(eAnimationZoomModeAll,eAnimationZoomModeWidthLeft,eAnimationZoomModeWidthRight,eAnimationZoomModeHeightTop,eAnimationZoomModeHeightBottom,eAnimationZoomModeWidth,eAnimationZoomModeHeight);
|
||||
TAnimationAnchorLocation=(eAnimationAnchorLocationLeftTop,eAnimationAnchorLocationLeft,eAnimationAnchorLocationTop,eAnimationAnchorLocationCenter);
|
||||
|
||||
{ TAnimationCustomControl }
|
||||
|
||||
TAnimationCustomControl=class(TAnimationItem)
|
||||
private
|
||||
protected
|
||||
FControl: TControl;
|
||||
procedure DoFinalizeAnimation; override;
|
||||
function GetControl: TControl;
|
||||
property Control: TControl read FControl;
|
||||
public
|
||||
constructor Create(const aControl: TControl);
|
||||
end;
|
||||
|
||||
TAnimationControl=class(TAnimationCustomControl)
|
||||
public
|
||||
property Control;
|
||||
end;
|
||||
|
||||
{ TAnimationCustomControlDimensions }
|
||||
|
||||
TAnimationCustomControlDimensions=class(TAnimationControl)
|
||||
private
|
||||
protected
|
||||
FInitialRect: TAnimationRect;
|
||||
FFinalRect: TAnimationRect;
|
||||
procedure DoFinalizeAnimation; override;
|
||||
procedure DoMoveControlPosition(const aX,aY: integer); virtual;
|
||||
procedure DoMoveControlAsRect(const aRect: TRect); virtual;
|
||||
public
|
||||
constructor Create(const aControl: TControl);
|
||||
procedure SetInitialPosition(const aInitialPosition: TPoint); virtual;
|
||||
procedure SetFinalPosition(const aFinalPosition: TPoint); virtual;
|
||||
procedure SwapOriginWithFinal; virtual;
|
||||
end;
|
||||
|
||||
{ TAnimationControlTranslate }
|
||||
|
||||
TAnimationControlTranslate=class(TAnimationCustomControlDimensions)
|
||||
protected
|
||||
FInitialCenter: TPoint;
|
||||
FFinalCenter: TPoint;
|
||||
FAnchorLocation: TAnimationAnchorLocation;
|
||||
FAnchors: TAnchors;
|
||||
FRemoveAnchors: Boolean;
|
||||
procedure DoPerform; override;
|
||||
procedure DoInitialize; override;
|
||||
procedure DoFinalizeAnimation; override;
|
||||
public
|
||||
procedure SetInitialPosition(const aInitialPosition: TPoint); override;
|
||||
procedure SetFinalPosition(const aFinalPosition: TPoint); override;
|
||||
property RemoveAnchors: Boolean read FRemoveAnchors write FRemoveAnchors;
|
||||
property AnchorLocation: TAnimationAnchorLocation read FAnchorLocation write FAnchorLocation;
|
||||
property TransitionMode;
|
||||
property FinalizeBehavior;
|
||||
end;
|
||||
|
||||
{ TAnimationControlZoom }
|
||||
|
||||
TAnimationControlZoom=class(TAnimationCustomControlDimensions)
|
||||
protected
|
||||
FAutoSized: Boolean;
|
||||
FAnchors: TAnchors;
|
||||
FFinalZoom: single;
|
||||
FZoomMode: TAnimationZoomMode;
|
||||
FZoomByRectangle: Boolean;
|
||||
FRemoveAnchors: Boolean;
|
||||
procedure DoPerform; override;
|
||||
procedure DoInitialize; override;
|
||||
procedure DoFinalizeAnimation; override;
|
||||
public
|
||||
procedure SetFinalZoom(const aFinalZoom: Single);
|
||||
procedure SetFinalSize(const aRect: TRect);
|
||||
property ZoomMode: TAnimationZoomMode read FZoomMode write FZoomMode;
|
||||
property TransitionMode;
|
||||
property FinalizeBehavior;
|
||||
property RemoveAnchors: Boolean read FRemoveAnchors write FRemoveAnchors;
|
||||
end;
|
||||
|
||||
{ TAnimationControlCaptionCapital }
|
||||
|
||||
TAnimationControlCaptionCapital=class(TAnimationControl)
|
||||
private
|
||||
protected
|
||||
FOriginalCaption: string;
|
||||
procedure DoInitialize; override;
|
||||
procedure DoPerform; override;
|
||||
procedure DoFinalizeAnimation; override;
|
||||
public
|
||||
property TransitionMode;
|
||||
end;
|
||||
|
||||
{ TAnimationCustomControlColor }
|
||||
|
||||
TAnimationCustomControlColor=class(TAnimationControl)
|
||||
private
|
||||
protected
|
||||
FInitialColor: integer;
|
||||
FFinalColor: integer;
|
||||
procedure DoPerform; override;
|
||||
procedure DoFinalizeAnimation; override;
|
||||
procedure DoChangeColor(const aNewColor: TColor); virtual; abstract;
|
||||
property InitialColor: integer read FInitialColor write FInitialColor;
|
||||
property FinalColor: integer read FFinalColor write FFinalColor;
|
||||
public
|
||||
end;
|
||||
|
||||
{ TAnimationControlColor }
|
||||
|
||||
TAnimationControlColor=class(TAnimationCustomControlColor)
|
||||
private
|
||||
protected
|
||||
procedure DoChangeColor(const aNewColor: TColor); override;
|
||||
public
|
||||
property InitialColor;
|
||||
property FinalColor;
|
||||
property TransitionMode;
|
||||
property FinalizeBehavior;
|
||||
end;
|
||||
|
||||
{ TAnimationCustomControlRotator }
|
||||
|
||||
TAnimationCustomControlRotator=class(TAnimationControl)
|
||||
private
|
||||
protected
|
||||
FInitialAngle: Single;
|
||||
FFinalAngle: Single;
|
||||
procedure DoPerform; override;
|
||||
procedure DoFinalizeAnimation; override;
|
||||
procedure DoRotate(const aAngle: Single); virtual; abstract;
|
||||
property InitialAngle: Single read FInitialAngle write FInitialAngle;
|
||||
property FinalAngle: Single read FFinalAngle write FFinalAngle;
|
||||
public
|
||||
end;
|
||||
|
||||
{ TAnimationControlFontRotator }
|
||||
|
||||
TAnimationControlFontRotator=class(TAnimationCustomControlRotator)
|
||||
private
|
||||
protected
|
||||
procedure DoRotate(const aAngle: Single); override;
|
||||
public
|
||||
property InitialAngle;
|
||||
property FinalAngle;
|
||||
property TransitionMode;
|
||||
end;
|
||||
|
||||
{ TAnimationCustomControlTextChange }
|
||||
|
||||
TAnimationCustomControlTextChange=class(TAnimationControl)
|
||||
private
|
||||
FSameLenInitialText: string;
|
||||
FSameLenFinalText: string;
|
||||
FMaxLength: integer;
|
||||
protected
|
||||
FInitialText: String;
|
||||
FFinalText: String;
|
||||
FCursorString: string;
|
||||
procedure DoPerform; override;
|
||||
procedure DoInitialize; override;
|
||||
procedure DoFinalizeAnimation; override;
|
||||
procedure DoChangeText(const aNewText: String); virtual; abstract;
|
||||
property InitialText: String read FInitialText write FInitialText;
|
||||
property FinalText: String read FFinalText write FFinalText;
|
||||
property CursorString: String read FCursorString write FCursorString;
|
||||
public
|
||||
end;
|
||||
|
||||
{ TAnimationControlCaptionReplace }
|
||||
|
||||
TAnimationControlCaptionReplace=class(TAnimationCustomControlTextChange)
|
||||
private
|
||||
protected
|
||||
procedure DoChangeText(const aNewText: String); override;
|
||||
public
|
||||
constructor Create(const aControl: TControl);
|
||||
property InitialText;
|
||||
property FinalText;
|
||||
property CursorString;
|
||||
property TransitionMode;
|
||||
end;
|
||||
|
||||
{ TAnimationCustomControlInteger }
|
||||
|
||||
TAnimationCustomControlInteger=class(TAnimationControl)
|
||||
private
|
||||
protected
|
||||
FInitialInteger: Integer;
|
||||
FFinalInteger: Integer;
|
||||
procedure DoPerform; override;
|
||||
procedure DoFinalizeAnimation; override;
|
||||
procedure DoSetValue(const aValue: Integer); virtual; abstract;
|
||||
property InitialInteger: Integer read FInitialInteger write FInitialInteger;
|
||||
property FinalInteger: Integer read FFinalInteger write FFinalInteger;
|
||||
public
|
||||
end;
|
||||
|
||||
{ TAnimationControlAlphaBlend }
|
||||
|
||||
TAnimationControlAlphaBlend=class(TAnimationCustomControlInteger)
|
||||
private
|
||||
function GetFinalBlend: Byte;
|
||||
function GetInitialBlend: Byte;
|
||||
procedure SetFinalBlend(AValue: Byte);
|
||||
procedure SetInitialBlend(AValue: Byte);
|
||||
protected
|
||||
procedure DoSetValue(const aValue: Integer); override;
|
||||
procedure DoInitialize; override;
|
||||
public
|
||||
constructor Create(const aForm: TCustomForm);
|
||||
property InitialBlend: Byte read GetInitialBlend write SetInitialBlend;
|
||||
property FinalBlend: Byte read GetFinalBlend write SetFinalBlend;
|
||||
property TransitionMode;
|
||||
property FinalizeBehavior;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TAnimationControlAlphaBlend }
|
||||
|
||||
function TAnimationControlAlphaBlend.GetFinalBlend: Byte;
|
||||
begin
|
||||
Result:=Byte(FFinalInteger);
|
||||
end;
|
||||
|
||||
function TAnimationControlAlphaBlend.GetInitialBlend: Byte;
|
||||
begin
|
||||
Result:=Byte(FInitialInteger);
|
||||
end;
|
||||
|
||||
procedure TAnimationControlAlphaBlend.SetFinalBlend(AValue: Byte);
|
||||
begin
|
||||
if FFinalInteger=AValue then Exit;
|
||||
FFinalInteger:=AValue;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlAlphaBlend.SetInitialBlend(AValue: Byte);
|
||||
begin
|
||||
if FInitialInteger=AValue then Exit;
|
||||
FInitialInteger:=AValue;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlAlphaBlend.DoSetValue(const aValue: Integer);
|
||||
begin
|
||||
TCustomForm(FControl).AlphaBlendValue:=aValue;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlAlphaBlend.DoInitialize;
|
||||
begin
|
||||
inherited DoInitialize;
|
||||
TCustomForm(FControl).AlphaBlend:=true;
|
||||
end;
|
||||
|
||||
constructor TAnimationControlAlphaBlend.Create(const aForm: TCustomForm);
|
||||
begin
|
||||
inherited Create(aForm);
|
||||
FInitialInteger:=aForm.AlphaBlendValue;
|
||||
end;
|
||||
|
||||
{ TAnimationCustomControlInteger }
|
||||
|
||||
procedure TAnimationCustomControlInteger.DoPerform;
|
||||
var
|
||||
NZ: Integer;
|
||||
begin
|
||||
inherited DoPerform;
|
||||
NZ:=CalculateLinearPosition(FInitialInteger,FFinalInteger,GetElapsedMilliseconds,Duration);
|
||||
DoSetValue(NZ);
|
||||
end;
|
||||
|
||||
procedure TAnimationCustomControlInteger.DoFinalizeAnimation;
|
||||
begin
|
||||
inherited DoFinalizeAnimation;
|
||||
case FinalizeBehavior of
|
||||
eAnimationFinalizeBehaviorCurrent:
|
||||
begin
|
||||
// Do nothing
|
||||
end;
|
||||
eAnimationFinalizeBehaviorInitial:
|
||||
begin
|
||||
DoSetValue(FInitialInteger);
|
||||
end;
|
||||
eAnimationFinalizeBehaviorFinal:
|
||||
begin
|
||||
DoSetValue(FFinalInteger);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TAnimationCustomControlTextChange }
|
||||
|
||||
procedure TAnimationCustomControlTextChange.DoPerform;
|
||||
var
|
||||
NZ: Integer;
|
||||
begin
|
||||
inherited DoPerform;
|
||||
NZ:=CalculateLinearPosition(1,FMaxLength,GetElapsedMilliseconds,Duration);
|
||||
// This is not UTF8 aware!!!
|
||||
DoChangeText(copy(FSameLenFinalText,1,NZ-1)+CursorString+copy(FSameLenInitialText,NZ));
|
||||
end;
|
||||
|
||||
procedure TAnimationCustomControlTextChange.DoInitialize;
|
||||
begin
|
||||
inherited DoInitialize;
|
||||
if Length(FInitialText)>Length(FFinalText) then begin
|
||||
FMaxLength:=Length(FInitialText);
|
||||
end else begin
|
||||
FMaxLength:=Length(FFinalText);
|
||||
end;
|
||||
FSameLenInitialText:=FInitialText+StringOfChar(' ',FMaxLength-Length(FInitialText));
|
||||
FSameLenFinalText:=FFinalText+StringOfChar(' ',FMaxLength-Length(FFinalText));
|
||||
end;
|
||||
|
||||
procedure TAnimationCustomControlTextChange.DoFinalizeAnimation;
|
||||
begin
|
||||
inherited DoFinalizeAnimation;
|
||||
case FinalizeBehavior of
|
||||
eAnimationFinalizeBehaviorCurrent:
|
||||
begin
|
||||
// Do nothing
|
||||
end;
|
||||
eAnimationFinalizeBehaviorInitial:
|
||||
begin
|
||||
DoChangeText(FInitialText);
|
||||
end;
|
||||
eAnimationFinalizeBehaviorFinal:
|
||||
begin
|
||||
DoChangeText(FFinalText);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TAnimationControlCaptionReplace }
|
||||
|
||||
procedure TAnimationControlCaptionReplace.DoChangeText(const aNewText: String);
|
||||
begin
|
||||
FControl.Caption:=aNewText;
|
||||
end;
|
||||
|
||||
constructor TAnimationControlCaptionReplace.Create(const aControl: TControl);
|
||||
begin
|
||||
inherited Create(aControl);
|
||||
FInitialText:=aControl.Caption;
|
||||
FFinalText:=aControl.Caption;
|
||||
// It proceduces a quite good eraser effect (8 spaces).
|
||||
FCursorString:=StringOfChar(' ',8);
|
||||
end;
|
||||
|
||||
{ TAnimationControlFontRotator }
|
||||
|
||||
procedure TAnimationControlFontRotator.DoRotate(const aAngle: Single);
|
||||
begin
|
||||
FControl.Font.Orientation:=trunc(aAngle*10);
|
||||
end;
|
||||
|
||||
{ TAnimationCustomControlRotator }
|
||||
|
||||
procedure TAnimationCustomControlRotator.DoPerform;
|
||||
var
|
||||
lDistance: Single;
|
||||
begin
|
||||
inherited DoPerform;
|
||||
lDistance:=CalculateLinearPosition(FInitialAngle,FFinalAngle,GetElapsedMilliseconds,Duration);
|
||||
DoRotate(lDistance);
|
||||
end;
|
||||
|
||||
procedure TAnimationCustomControlRotator.DoFinalizeAnimation;
|
||||
begin
|
||||
inherited DoFinalizeAnimation;
|
||||
case FinalizeBehavior of
|
||||
eAnimationFinalizeBehaviorCurrent:
|
||||
begin
|
||||
// Do nothing
|
||||
end;
|
||||
eAnimationFinalizeBehaviorInitial:
|
||||
begin
|
||||
DoRotate(FInitialAngle);
|
||||
end;
|
||||
eAnimationFinalizeBehaviorFinal:
|
||||
begin
|
||||
DoRotate(FFinalAngle);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TAnimationCustomColor }
|
||||
|
||||
procedure TAnimationCustomControlColor.DoPerform;
|
||||
var
|
||||
tmpBaseColor: integer;
|
||||
tmpColor1: integer;
|
||||
tmpColor2: integer;
|
||||
NewColor: integer;
|
||||
NZ: Single;
|
||||
j: integer;
|
||||
begin
|
||||
inherited DoPerform;
|
||||
NewColor:=0;
|
||||
NZ:=CalculateLinearPosition(1.0,0,GetElapsedMilliseconds,Duration);
|
||||
// Loop works in the RGB 24 bits colors (0..2)
|
||||
for j := 0 to 2 do begin
|
||||
tmpBaseColor:=(FFinalColor shr (8*j)) and 255;
|
||||
tmpColor2:=(FInitialColor shr (8*j)) and 255;
|
||||
tmpColor1:=trunc((tmpColor2-tmpBaseColor) * NZ);
|
||||
tmpColor1:=tmpBaseColor+tmpColor1;
|
||||
NewColor:=NewColor or (tmpColor1 shl (8*j));
|
||||
end;
|
||||
DoChangeColor(NewColor);
|
||||
end;
|
||||
|
||||
procedure TAnimationCustomControlColor.DoFinalizeAnimation;
|
||||
begin
|
||||
inherited DoFinalizeAnimation;
|
||||
case FinalizeBehavior of
|
||||
eAnimationFinalizeBehaviorCurrent:
|
||||
begin
|
||||
// Do nothing, is current
|
||||
end;
|
||||
eAnimationFinalizeBehaviorInitial:
|
||||
begin
|
||||
DoChangeColor(FInitialColor);
|
||||
end;
|
||||
eAnimationFinalizeBehaviorFinal:
|
||||
begin
|
||||
DoChangeColor(FFinalColor);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TAnimationCustomControlDimensions }
|
||||
|
||||
procedure TAnimationCustomControlDimensions.DoFinalizeAnimation;
|
||||
begin
|
||||
inherited DoFinalizeAnimation;
|
||||
case FinalizeBehavior of
|
||||
eAnimationFinalizeBehaviorCurrent:
|
||||
begin
|
||||
// Do nothing, it is current
|
||||
end;
|
||||
eAnimationFinalizeBehaviorInitial:
|
||||
begin
|
||||
DoMoveControlAsRect(FInitialRect.GetAsRect);
|
||||
end;
|
||||
eAnimationFinalizeBehaviorFinal:
|
||||
begin
|
||||
DoMoveControlAsRect(FFinalRect.GetAsRect);
|
||||
end;
|
||||
end;
|
||||
// When animated positions sometimes the control
|
||||
// ends with some fails in paint, so refresh it.
|
||||
FControl.Repaint;
|
||||
end;
|
||||
|
||||
procedure TAnimationCustomControlDimensions.DoMoveControlPosition(const aX, aY: integer);
|
||||
begin
|
||||
FControl.SetBounds(aX,aY,FControl.Width,FControl.Height);
|
||||
end;
|
||||
|
||||
procedure TAnimationCustomControlDimensions.DoMoveControlAsRect(
|
||||
const aRect: TRect);
|
||||
begin
|
||||
FControl.BoundsRect:=aRect;
|
||||
end;
|
||||
|
||||
constructor TAnimationCustomControlDimensions.Create(const aControl: TControl);
|
||||
begin
|
||||
inherited Create(aControl);
|
||||
FInitialRect.SetFromRect(aControl.BoundsRect);
|
||||
FFinalRect:=FInitialRect;
|
||||
end;
|
||||
|
||||
procedure TAnimationCustomControlDimensions.SetInitialPosition(
|
||||
const aInitialPosition: TPoint);
|
||||
begin
|
||||
FInitialRect.MoveTo(aInitialPosition);
|
||||
end;
|
||||
|
||||
procedure TAnimationCustomControlDimensions.SetFinalPosition(
|
||||
const aFinalPosition: TPoint);
|
||||
begin
|
||||
FFinalRect.MoveTo(aFinalPosition);
|
||||
end;
|
||||
|
||||
procedure TAnimationCustomControlDimensions.SwapOriginWithFinal;
|
||||
var
|
||||
Temp: TAnimationRect;
|
||||
begin
|
||||
Temp:=FInitialRect;
|
||||
FInitialRect:=FFinalRect;
|
||||
FFinalRect:=Temp;
|
||||
end;
|
||||
|
||||
{ TAnimationCustomControl }
|
||||
|
||||
procedure TAnimationCustomControl.DoFinalizeAnimation;
|
||||
begin
|
||||
inherited DoFinalizeAnimation;
|
||||
end;
|
||||
|
||||
function TAnimationCustomControl.GetControl: TControl;
|
||||
begin
|
||||
Result:=FControl;
|
||||
end;
|
||||
|
||||
constructor TAnimationCustomControl.Create(const aControl: TControl);
|
||||
begin
|
||||
inherited Create;
|
||||
FControl:=aControl;
|
||||
GroupID:=aControl;
|
||||
end;
|
||||
|
||||
{ TAnimationControlCaptionCapital }
|
||||
|
||||
procedure TAnimationControlCaptionCapital.DoInitialize;
|
||||
begin
|
||||
inherited DoInitialize;
|
||||
FOriginalCaption:=FControl.Caption;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlCaptionCapital.DoPerform;
|
||||
var
|
||||
NZ: Integer;
|
||||
begin
|
||||
inherited DoPerform;
|
||||
NZ:=CalculateLinearPosition(integer(1),integer(Length(FOriginalCaption)),GetElapsedMilliseconds,Duration);
|
||||
// This is not UTF8 aware!!!
|
||||
FControl.Caption:=copy(FOriginalCaption,1,NZ-1)+Uppercase(FOriginalCaption[NZ])+copy(FOriginalCaption,NZ+1);
|
||||
end;
|
||||
|
||||
procedure TAnimationControlCaptionCapital.DoFinalizeAnimation;
|
||||
begin
|
||||
inherited DoFinalizeAnimation;
|
||||
FControl.Caption:=FOriginalCaption;
|
||||
end;
|
||||
|
||||
{ TAnimationControlCustomTranslate }
|
||||
|
||||
procedure TAnimationControlTranslate.DoPerform;
|
||||
var
|
||||
NX,NY: integer;
|
||||
begin
|
||||
inherited DoPerform;
|
||||
case FAnchorLocation of
|
||||
eAnimationAnchorLocationLeft:
|
||||
begin
|
||||
NX:=CalculateLinearPosition(FInitialRect.Left,FFinalRect.Left,GetElapsedMilliseconds,Duration);
|
||||
DoMoveControlPosition(NX,FControl.Top);
|
||||
end;
|
||||
eAnimationAnchorLocationTop:
|
||||
begin
|
||||
NY:=CalculateLinearPosition(FInitialRect.Top,FFinalRect.Top,GetElapsedMilliseconds,Duration);
|
||||
DoMoveControlPosition(FControl.Left,NY);
|
||||
end;
|
||||
eAnimationAnchorLocationLeftTop:
|
||||
begin
|
||||
NX:=CalculateLinearPosition(FInitialRect.Left,FFinalRect.Left,GetElapsedMilliseconds,Duration);
|
||||
NY:=CalculateLinearPosition(FInitialRect.Top,FFinalRect.Top,GetElapsedMilliseconds,Duration);
|
||||
DoMoveControlPosition(NX,NY);
|
||||
end;
|
||||
eAnimationAnchorLocationCenter:
|
||||
begin
|
||||
NX:=CalculateLinearPosition(FInitialCenter.x,FFinalCenter.x,GetElapsedMilliseconds,Duration);
|
||||
NX:=NX-FControl.Width div 2;
|
||||
NY:=CalculateLinearPosition(FInitialCenter.y,FFinalCenter.y,GetElapsedMilliseconds,Duration);
|
||||
NY:=NY-FControl.Height div 2;
|
||||
DoMoveControlPosition(NX,NY);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlTranslate.DoInitialize;
|
||||
begin
|
||||
inherited DoInitialize;
|
||||
FInitialCenter:=FInitialRect.GetCenter;
|
||||
FFinalCenter:=FFinalRect.GetCenter;
|
||||
//Anchors could be a problem sometimes
|
||||
FAnchors:=FControl.Anchors;
|
||||
if FRemoveAnchors then begin
|
||||
FControl.Anchors:=[];
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlTranslate.DoFinalizeAnimation;
|
||||
begin
|
||||
inherited DoFinalizeAnimation;
|
||||
if FRemoveAnchors then begin
|
||||
FControl.Anchors:=FAnchors;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlTranslate.SetInitialPosition(
|
||||
const aInitialPosition: TPoint);
|
||||
begin
|
||||
inherited SetInitialPosition(aInitialPosition);
|
||||
FInitialCenter:=FInitialRect.GetCenter;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlTranslate.SetFinalPosition(
|
||||
const aFinalPosition: TPoint);
|
||||
begin
|
||||
inherited SetFinalPosition(aFinalPosition);
|
||||
FFinalCenter:=FFinalRect.GetCenter;
|
||||
end;
|
||||
|
||||
{ TAnimationControlZoom }
|
||||
|
||||
procedure TAnimationControlZoom.DoPerform;
|
||||
var
|
||||
NZ: Single;
|
||||
NRect: TAnimationRect;
|
||||
NewBottom: integer;
|
||||
Center: TPoint;
|
||||
AnimRect: TAnimationRect;
|
||||
TR: TAnimationRect;
|
||||
begin
|
||||
inherited DoPerform;
|
||||
if not FZoomByRectangle then begin
|
||||
NZ:=CalculateLinearPosition(1.0,FFinalZoom,GetElapsedMilliseconds,Duration);
|
||||
case FZoomMode of
|
||||
eAnimationZoomModeAll:
|
||||
begin
|
||||
AnimRect.SetFromRect(FControl.BoundsRect);
|
||||
Center:=AnimRect.GetCenter;
|
||||
TR.Left:=Center.x-Round(FInitialRect.Width*NZ) div 2;
|
||||
TR.Right:=TR.Left+Round(FInitialRect.Width*NZ);
|
||||
TR.Top:=Center.y-Round(FInitialRect.Height*NZ) div 2;
|
||||
TR.Bottom:=TR.Top+Round(FInitialRect.Height*NZ);
|
||||
DoMoveControlAsRect(TR.GetAsRect);
|
||||
end;
|
||||
eAnimationZoomModeWidth:
|
||||
begin
|
||||
TR.SetFromRect(FControl.BoundsRect);
|
||||
Center:=TR.GetCenter;
|
||||
TR.Left:=Center.x-Round(FInitialRect.Width*NZ) div 2;
|
||||
TR.Width:=Round(FInitialRect.Width*NZ);
|
||||
DoMoveControlAsRect(TR.GetAsRect);
|
||||
end;
|
||||
eAnimationZoomModeHeight:
|
||||
begin
|
||||
TR.SetFromRect(FControl.BoundsRect);
|
||||
Center:=TR.GetCenter;
|
||||
TR.Top:=Center.y-Round(FInitialRect.Height*NZ) div 2;
|
||||
TR.Height:=Round(FInitialRect.Height*NZ);
|
||||
DoMoveControlAsRect(TR.GetAsRect);
|
||||
end;
|
||||
eAnimationZoomModeWidthLeft:
|
||||
begin
|
||||
TR.SetFromRect(FControl.BoundsRect);
|
||||
TR.Width:=Round(FInitialRect.Width*NZ);
|
||||
DoMoveControlAsRect(TR.GetAsRect);
|
||||
end;
|
||||
eAnimationZoomModeWidthRight:
|
||||
begin
|
||||
TR.SetFromRect(FControl.BoundsRect);
|
||||
TR.Left:=TR.Right-integer(Round(FInitialRect.Width*NZ));
|
||||
TR.Width:=Round(FInitialRect.Width*NZ);
|
||||
DoMoveControlAsRect(TR.GetAsRect);
|
||||
end;
|
||||
eAnimationZoomModeHeightTop:
|
||||
begin
|
||||
TR.SetFromRect(FControl.BoundsRect);
|
||||
TR.Height:=Round(FInitialRect.Height*NZ);
|
||||
DoMoveControlAsRect(TR.GetAsRect);
|
||||
end;
|
||||
eAnimationZoomModeHeightBottom:
|
||||
begin
|
||||
TR.SetFromRect(FControl.BoundsRect);
|
||||
NewBottom:=FControl.Top+FControl.Height;
|
||||
TR.Top:=NewBottom - Round(FInitialRect.Height*NZ);
|
||||
TR.Height:=Round(FInitialRect.Height*NZ);
|
||||
DoMoveControlAsRect(TR.GetAsRect);
|
||||
end;
|
||||
end;
|
||||
end else begin
|
||||
NRect.Left:=CalculateLinearPosition(FInitialRect.Left,FFinalRect.Left,GetElapsedMilliseconds,Duration);
|
||||
NRect.Top:=CalculateLinearPosition(FInitialRect.Top,FFinalRect.Top,GetElapsedMilliseconds,Duration);
|
||||
NRect.Width:=CalculateLinearPosition(FInitialRect.Width,FFinalRect.Width,GetElapsedMilliseconds,Duration);
|
||||
NRect.Height:=CalculateLinearPosition(FInitialRect.Height,FFinalRect.Height,GetElapsedMilliseconds,Duration);
|
||||
DoMoveControlAsRect(NRect.GetAsRect);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlZoom.DoInitialize;
|
||||
begin
|
||||
inherited DoInitialize;
|
||||
if FControl.AutoSize then begin
|
||||
FAutoSized:=true;
|
||||
//Autosize and zoom effect do not work well together ;)
|
||||
FControl.AutoSize:=false;
|
||||
end else begin
|
||||
FAutoSized:=false;
|
||||
end;
|
||||
//Anchors can influence zoom in some cases
|
||||
FAnchors:=FControl.Anchors;
|
||||
if FRemoveAnchors then begin
|
||||
FControl.Anchors:=[];
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlZoom.DoFinalizeAnimation;
|
||||
begin
|
||||
inherited DoFinalizeAnimation;
|
||||
if FAutoSized then FControl.AutoSize:=true;
|
||||
if FRemoveAnchors then begin
|
||||
FControl.Anchors:=FAnchors;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlZoom.SetFinalZoom(const aFinalZoom: Single);
|
||||
begin
|
||||
FFinalZoom:=aFinalZoom;
|
||||
FZoomByRectangle:=false;
|
||||
end;
|
||||
|
||||
procedure TAnimationControlZoom.SetFinalSize(const aRect: TRect);
|
||||
begin
|
||||
FFinalRect.SetFromRect(aRect);
|
||||
FZoomByRectangle:=true;
|
||||
end;
|
||||
|
||||
{ TAnimationControlColor }
|
||||
|
||||
procedure TAnimationControlColor.DoChangeColor(const aNewColor: TColor);
|
||||
begin
|
||||
FControl.Color:=aNewColor;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
101
components/Comba_Animation/src/uanimationtypes.pas
Normal file
101
components/Comba_Animation/src/uanimationtypes.pas
Normal file
@ -0,0 +1,101 @@
|
||||
unit uanimationtypes;
|
||||
|
||||
(*
|
||||
Comba - Animation controls helper
|
||||
---------------------------------
|
||||
@Licence: (c) 2017 José Mejuto // joshyfun at gmail.com
|
||||
@Licence: LGPL when compiled with FPC (Free Pascal), GNU GPL V3 in other cases.
|
||||
@Links:
|
||||
GPL: https://www.gnu.org/licenses/gpl-3.0.en.html
|
||||
LGPL: https://www.gnu.org/licenses/lgpl-3.0.en.html
|
||||
|
||||
@Description:
|
||||
Helper unit.
|
||||
|
||||
*)
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
{$modeswitch advancedrecords}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils;
|
||||
|
||||
type
|
||||
|
||||
{ TAnimationRect }
|
||||
|
||||
TAnimationRect=record
|
||||
private
|
||||
function GetBottom: integer;
|
||||
function GetRight: integer;
|
||||
procedure SetBottom(aValue: integer);
|
||||
procedure SetRight(aValue: integer);
|
||||
public
|
||||
Left: integer;
|
||||
Top: integer;
|
||||
Width: integer;
|
||||
Height: integer;
|
||||
property Right: integer read GetRight write SetRight;
|
||||
property Bottom: integer read GetBottom write SetBottom;
|
||||
function GetAsRect: TRect;
|
||||
function GetCenter: TPoint;
|
||||
procedure SetFromRect(const aRect: TRect);
|
||||
procedure MoveTo(const aNewLeftTop: TPoint);
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TAnimationRect }
|
||||
|
||||
function TAnimationRect.GetBottom: integer;
|
||||
begin
|
||||
Result:=Top+Height;
|
||||
end;
|
||||
|
||||
function TAnimationRect.GetRight: integer;
|
||||
begin
|
||||
Result:=Left+Width;
|
||||
end;
|
||||
|
||||
procedure TAnimationRect.SetBottom(aValue: integer);
|
||||
begin
|
||||
Height:=aValue-Top;
|
||||
end;
|
||||
|
||||
procedure TAnimationRect.SetRight(aValue: integer);
|
||||
begin
|
||||
Width:=aValue-Left;
|
||||
end;
|
||||
|
||||
function TAnimationRect.GetAsRect: TRect;
|
||||
begin
|
||||
Result.Left:=Left;
|
||||
Result.Right:=Left+Width;
|
||||
Result.Top:=Top;
|
||||
Result.Bottom:=Top+Height;
|
||||
end;
|
||||
|
||||
function TAnimationRect.GetCenter: TPoint;
|
||||
begin
|
||||
Result.x:=Left+(Width div 2);
|
||||
Result.y:=Top+(Height div 2);
|
||||
end;
|
||||
|
||||
procedure TAnimationRect.SetFromRect(const aRect: TRect);
|
||||
begin
|
||||
Left:=aRect.Left;
|
||||
Top:=aRect.Top;
|
||||
Width:=aRect.Right-aRect.Left;
|
||||
Height:=aRect.Bottom-aRect.Top;
|
||||
end;
|
||||
|
||||
procedure TAnimationRect.MoveTo(const aNewLeftTop: TPoint);
|
||||
begin
|
||||
Left:=aNewLeftTop.x;
|
||||
Top:=aNewLeftTop.y;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user