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;