pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TRxDBGridPrint - fix AV with TfrDesigner

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3451 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-08-08 12:28:58 +00:00
parent 2de7d41fef
commit e8b3066a10
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/rx/trunk/rxdbgridprintgrid.pas
View File

@ -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;