From e8b3066a10d9c6f57a8f4a56f50a53882ebfcff6 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 8 Aug 2014 12:28:58 +0000
Subject: [PATCH] TRxDBGridPrint - fix AV with TfrDesigner

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3451 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdbgridprintgrid.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/components/rx/trunk/rxdbgridprintgrid.pas b/components/rx/trunk/rxdbgridprintgrid.pas
index fe3a2f905..c81d2b523 100644
--- a/components/rx/trunk/rxdbgridprintgrid.pas
+++ b/components/rx/trunk/rxdbgridprintgrid.pas
@@ -419,11 +419,15 @@ end;
 function TRxDBGridPrint.DoExecTools: boolean;
 var
   C:integer;
+  SaveDesign: TfrReportDesigner;
 begin
   Result:=false;
   if (RxDBGrid = nil) or (RxDBGrid.DataSource = nil) or (RxDBGrid.DataSource.Dataset = nil) then
     Exit;
 
+  SaveDesign:=frDesigner;
+  frDesigner:=nil;
+
   FDataSet := RxDBGrid.Datasource.Dataset;
   FReport:=TfrReport.Create(Self);
   FReport.OnPrintColumn:=@OnPrintColumn;
@@ -451,6 +455,7 @@ begin
     FreeAndNil(FColumnDataSet);
     FreeAndNil(FReportDataSet);
     FreeAndNil(FReport);
+    frDesigner:=SaveDesign;
   end;
 end;