瀏覽代碼

* Amend r38630, same operation for startrender

git-svn-id: trunk@38635 -
michael 7 年之前
父節點
當前提交
d8f8b9844f
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      packages/fcl-report/src/fpreportdata.pp

+ 2 - 2
packages/fcl-report/src/fpreportdata.pp

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