Browse Source

* Fix bug #33400, clear should also clear run-time objects

git-svn-id: trunk@38469 -
michael 7 years ago
parent
commit
ba97e919e6
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/fcl-report/src/fpreport.pp

+ 2 - 0
packages/fcl-report/src/fpreport.pp

@@ -7817,6 +7817,8 @@ Var
   P : TFPReportCustomPage;
   P : TFPReportCustomPage;
 
 
 begin
 begin
+  // Previous run objects
+  EmptyRTObjects;
   // Variables
   // Variables
   FRTCurPageIdx := -1;
   FRTCurPageIdx := -1;
   FDateCreated := Now;
   FDateCreated := Now;