From 61c5482ce76a4201023670928ba630af4e7e40c2 Mon Sep 17 00:00:00 2001
From: Thulio Bittencourt <bittencourtthulio@gmail.com>
Date: Wed, 5 May 2021 19:43:10 -0300
Subject: [PATCH] =?UTF-8?q?Incluido=20Recurso=20de=20Transi=C3=A7=C3=A3o?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Samples/FMX/Demo/Router4DelphiDemo.res        | Bin 112160 -> 112160 bytes
 .../Router4DelphiDemo.View.Principal.pas      |   8 ++++++++
 Samples/FMX/SimpleDemo/SimpleDemo.res         | Bin 112124 -> 112124 bytes
 src/Router4D.Link.pas                         |  12 +++++++++++-
 4 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/Samples/FMX/Demo/Router4DelphiDemo.res b/Samples/FMX/Demo/Router4DelphiDemo.res
index 40531bb73c0de6f884d5d552c9710c1caa4a1198..717dc2814870b86c6235354ba83b85c2033815b9 100644
GIT binary patch
delta 16
XcmZ4RhHb$cwuUW?GTT^~85kG<JT3(@

delta 16
XcmZ4RhHb$cwuUW?GTT^$8yFY>J?;g=

diff --git a/Samples/FMX/Demo/Views/Router4DelphiDemo.View.Principal.pas b/Samples/FMX/Demo/Views/Router4DelphiDemo.View.Principal.pas
index 31b1fb0..67d6073 100644
--- a/Samples/FMX/Demo/Views/Router4DelphiDemo.View.Principal.pas
+++ b/Samples/FMX/Demo/Views/Router4DelphiDemo.View.Principal.pas
@@ -14,6 +14,7 @@ type
     { Private declarations }
   public
     { Public declarations }
+    procedure Animation( aLayout : TFMXObject );
   end;
 
 var
@@ -28,9 +29,16 @@ uses
 
 {$R *.fmx}
 
+procedure TViewPrincipal.Animation(aLayout: TFMXObject);
+begin
+  TLayout(aLayout).Opacity := 0;
+  TLayout(aLayout).AnimateFloat('Opacity', 1, 0.2);
+end;
+
 procedure TViewPrincipal.FormCreate(Sender: TObject);
 begin
   TRouter4D.Render<TMainLayout>.SetElement(Layout1, Layout1);
+  TRouter4D.Link.Animation(Animation);
 end;
 
 end.
diff --git a/Samples/FMX/SimpleDemo/SimpleDemo.res b/Samples/FMX/SimpleDemo/SimpleDemo.res
index c0b549e7323fc252088a965a7d52f76e40579455..da8906f4ace1ca2294cdfbaf5ac8fdd920577cca 100644
GIT binary patch
delta 16
YcmezKn(fbPwuUW?Ken<kGcYg!08D)b!~g&Q

delta 16
YcmezKn(fbPwuUW?Ken<6H!v^&08TvzQ~&?~

diff --git a/src/Router4D.Link.pas b/src/Router4D.Link.pas
index 0390a40..cca7bdc 100644
--- a/src/Router4D.Link.pas
+++ b/src/Router4D.Link.pas
@@ -41,10 +41,14 @@ type
     function IndexLink ( aPatch : String ) : iRouter4DLink;
   end;
 
+var
+  Router4DLink : iRouter4DLink;
+
 implementation
 
 { TRouter4DLink }
 
+
 uses Router4D.History;
 
 {$IFDEF HAS_FMX}
@@ -198,7 +202,13 @@ end;
 
 class function TRouter4DLink.New: iRouter4DLink;
 begin
-  Result := Self.Create;
+  if not Assigned(Router4DLink) then
+    Router4DLink := Self.Create;
+
+  Result := Router4DLink;
 end;
 
+initialization
+  Router4DLink := TRouter4DLink.New;
+
 end.