src/Router4D.Helper.pas

@@ -30,10 +30,7 @@ begin
 	for lIndex := Self.ControlCount - 1 downto 0 do
   begin
     if (Self.Controls[lIndex] is TForm) then
-    begin
       (Self.Controls[lIndex] as TForm).Close;
-      (Self.Controls[lIndex] as TForm).parent := nil;
-    end;
   end;
 end;
 

src/Router4D.History.pas

@@ -42,7 +42,6 @@ type
       FInstanteObject : iRouter4DComponent;
       FListCacheOrder : TList<String>;
       FIndexCache : Integer;
-      FMaxCacheHistory : Integer;
       procedure CreateInstancePersistent( aPath : String);
       //procedure CacheKeyNotify(Sender: TObject; const Key: string; Action: TCollectionNotification);
     public
@@ -73,7 +72,6 @@ type
       function InstanteObject : iRouter4DComponent;
       function GoBack : String;
       function BreadCrumb(aDelimiter: char = '/') : String;
-      function addCacheHistory(aKey : String) : TRouter4DHistory;
       function IndexCache : Integer;
   end;
 
@@ -227,21 +225,6 @@ begin
     FListCache2.Add(aKey, CachePersistent);
 end;
 
-function TRouter4DHistory.addCacheHistory(aKey: String): TRouter4DHistory;
-var
-  I: Integer;
-begin
-  Result := Self;
-  for I := Pred(FListCacheOrder.Count) downto Succ(FIndexCache) do
-    FListCacheOrder.Delete(I);
-
-  if FListCacheOrder.Count > FMaxCacheHistory then
-    FListCacheOrder.Delete(0);
-
-  FListCacheOrder.Add(aKey);
-  FIndexCache := Pred(FListCacheOrder.Count);
-end;
-
 function TRouter4DHistory.AddHistory(aKey: String; aObject: TPersistentClass;
   aSBKey : String; isVisible: Boolean): iRouter4DComponent;
 var
@@ -261,8 +244,6 @@ constructor TRouter4DHistory.Create;
 begin
   FListCache :=  TObjectDictionary<String, TObject>.Create;
   FListCache2 := TDictionary<String, TCachePersistent>.Create;
-  FListCacheOrder := TList<String>.Create;
-  FMaxCacheHistory := 10;
   {$IFDEF HAS_FMX}
   FListCacheContainer := TObjectDictionary<String, TFMXObject>.Create;
   {$ELSE}
@@ -294,7 +275,6 @@ begin
   FListCache.Free;
   FListCache2.Free;
   FListCacheContainer.Free;
-  FListCacheOrder.Free;
   inherited;
 end;
 

src/Router4D.Interfaces.pas

@@ -51,7 +51,6 @@ type
     function &To ( aPatch : String; aProps : TProps; aKey : String = '') : iRouter4DLink; overload;
     function &To ( aPatch : String; aNameContainer : String) : iRouter4DLink; overload;
     function IndexLink ( aPatch : String ) : iRouter4DLink;
-    function GoBack : iRouter4DLink;
   end;
 
   iRouter4DRender = interface

src/Router4D.Link.pas

@@ -38,7 +38,6 @@ type
     function &To ( aPatch : String) : iRouter4DLink; overload;
     function &To ( aPatch : String; aProps : TProps; aKey : String = '') : iRouter4DLink; overload;
     function &To ( aPatch : String; aNameContainer : String) : iRouter4DLink; overload;
-    function GoBack : iRouter4DLink;
     function IndexLink ( aPatch : String ) : iRouter4DLink;
   end;
 
@@ -67,7 +66,6 @@ begin
   aComponent
     .AddObject(
       Router4DHistory
-        .addCacheHistory(aPatch)
         .GetHistory(aPatch)
         .Render
     );
@@ -87,7 +85,6 @@ begin
   aComponent
     .AddObject(
       Router4DHistory
-        .addCacheHistory(aPatch)
         .GetHistory(aPatch)
         .Render
     );
@@ -114,7 +111,6 @@ begin
   aContainer
     .AddObject(
       Router4DHistory
-        .addCacheHistory(aPatch)
         .GetHistory(aPatch)
         .Render
     );
@@ -135,26 +131,6 @@ begin
   inherited;
 end;
 
-function TRouter4DLink.GoBack : iRouter4DLink;
-begin
-  Result := Self;
-  {$IFDEF HAS_FMX}
-  Router4DHistory.MainRouter.RemoveObject(0);
-  {$ELSE}
-  Router4DHistory.MainRouter.RemoveObject;
-  {$ENDIF}
-  Router4DHistory.InstanteObject.UnRender;
-  Router4DHistory
-  .MainRouter
-    .AddObject(
-      Router4DHistory
-        .GetHistory(Router4DHistory.GoBack)
-        .Render
-    );
-
-  if Assigned(FAnimation) then
-    FAnimation(Router4DHistory.MainRouter);
-end;
 function TRouter4DLink.IndexLink(aPatch: String): iRouter4DLink;
 begin
   Result := Self;
@@ -190,7 +166,6 @@ begin
   .MainRouter
     .AddObject(
       Router4DHistory
-        .addCacheHistory(aPatch)
         .GetHistory(aPatch)
         .Render
     );
@@ -213,7 +188,6 @@ begin
   .MainRouter
     .AddObject(
       Router4DHistory
-        .addCacheHistory(aPatch)
         .GetHistory(aPatch)
         .Render
     );