Browse Source

* Avoid AV acessing page if band not assigned

git-svn-id: trunk@38930 -
michael 7 years ago
parent
commit
75e4be46f9
1 changed files with 4 additions and 1 deletions
  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;