Răsfoiți Sursa

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

git-svn-id: trunk@38469 -
michael 7 ani în urmă
părinte
comite
ba97e919e6
1 a modificat fișierele cu 2 adăugiri și 0 ștergeri
  1. 2 0
      packages/fcl-report/src/fpreport.pp

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

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