Переглянути джерело

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

git-svn-id: trunk@38469 -
michael 7 роки тому
батько
коміт
ba97e919e6
1 змінених файлів з 2 додано та 0 видалено
  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;