paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 18:50:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Amend r38630, same operation for startrender

Browse Source 
git-svn-id: trunk@38635 -
This commit is contained in:
michael 2018-03-27 11:55:20 +00:00
parent 112086f4fa
commit d8f8b9844f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-report/src/fpreportdata.pp
View File

@ -383,7 +383,7 @@ procedure TFPCustomReportDataManager.StartRender;
Var
I : integer;
D : TFPReportDataDefinitionItem;
H : TFPReportDataHandler;
H : TFPReportDataHandlerClass;
begin
// Create all datasets
@ -392,7 +392,7 @@ begin
D:=DataDefinitions[i];
if Assigned(D.RunReportData) then
begin
H:=TFPCustomReportDataManager.GetTypeHandler(D.DataType);
H:=TFPCustomReportDataManager.GetTypeHandlerClass(D.DataType);
H.StartRender(D.RunReportData.DataSet);
end;
end;