Переглянути джерело

* Avoid AV acessing page if band not assigned

git-svn-id: trunk@38930 -
michael 7 роки тому
батько
коміт
75e4be46f9
1 змінених файлів з 4 додано та 1 видалено
  1. 4 1
      packages/fcl-report/src/fpreport.pp

+ 4 - 1
packages/fcl-report/src/fpreport.pp

@@ -6940,7 +6940,10 @@ end;
 
 function TFPReportElement.GetReportPage: TFPReportCustomPage;
 begin
-  Result := Band.Page;
+  if Assigned(Band) then
+    Result := Band.Page
+  else
+    Result:=Nil;
 end;
 
 procedure TFPReportElement.SaveDataToNames;