From 9e16784c7ee2f88b6bfbadc74b16a8abfade43c9 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Tue, 27 Mar 2018 07:55:22 +0000
Subject: [PATCH] * StartRender/EndRender support (enable transaction control)
 for bug ID #0033496

git-svn-id: trunk@57565 -
---
 .../fpreport/design/frmfpreportdesignermain.pp      | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/components/fpreport/design/frmfpreportdesignermain.pp b/components/fpreport/design/frmfpreportdesignermain.pp
index 287a03265a..004fa4e739 100644
--- a/components/fpreport/design/frmfpreportdesignermain.pp
+++ b/components/fpreport/design/frmfpreportdesignermain.pp
@@ -1125,10 +1125,15 @@ Var
 begin
   if not ValidateReport then
     exit;
-  FReport.RunReport;
-  F:=TFPreportPreviewExport.Create(Self);
-  FReport.RenderReport(F);
-  FReport.ClearPreparedReport;
+  FReportDesignData.StartRender;
+  try
+    FReport.RunReport;
+    F:=TFPreportPreviewExport.Create(Self);
+    FReport.RenderReport(F);
+    FReport.ClearPreparedReport;
+  finally
+    FReportDesignData.EndRender;
+  end;
 end;
 
 procedure TFPReportDesignerForm.APreviewUpdate(Sender: TObject);