paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not open dataset twice. Correct Standard elements registration

Browse Source 
git-svn-id: trunk@41567 -
This commit is contained in:
michael 2019-03-03 08:38:41 +00:00
parent 12e98d891a
commit 629f73c918
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-report/src/fpreport.pp
View File

@ -10668,6 +10668,8 @@ end;
procedure TFPReportData.Open; procedure TFPReportData.Open;
begin begin
if IsOpened then
exit;
if Assigned(FOnOpen) then if Assigned(FOnOpen) then
FOnOpen(Self); FOnOpen(Self);
DoOpen; DoOpen;
@ -12456,11 +12458,11 @@ begin
TFPReportDataFooterBand.RegisterElement; TFPReportDataFooterBand.RegisterElement;
TFPReportColumnHeaderBand.RegisterElement; TFPReportColumnHeaderBand.RegisterElement;
TFPReportColumnFooterBand.RegisterElement; TFPReportColumnFooterBand.RegisterElement;
TFPReportMemo.RegisterElement; TFPReportMemo.RegisterElement.Standard:=True;
TFPReportImage.RegisterElement; TFPReportImage.RegisterElement.Standard:=True;
TFPReportCheckbox.RegisterElement; TFPReportCheckbox.RegisterElement.Standard:=True;
TFPReportShape.RegisterElement; TFPReportShape.RegisterElement.Standard:=True;
TFPReportPage.RegisterElement; TFPReportPage.RegisterElement.Standard:=True;
end; end;
initialization initialization