paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 20:29:14 +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;
begin
if IsOpened then
exit;
if Assigned(FOnOpen) then
FOnOpen(Self);
DoOpen;
@ -12456,11 +12458,11 @@ begin
TFPReportDataFooterBand.RegisterElement;
TFPReportColumnHeaderBand.RegisterElement;
TFPReportColumnFooterBand.RegisterElement;
TFPReportMemo.RegisterElement;
TFPReportImage.RegisterElement;
TFPReportCheckbox.RegisterElement;
TFPReportShape.RegisterElement;
TFPReportPage.RegisterElement;
TFPReportMemo.RegisterElement.Standard:=True;
TFPReportImage.RegisterElement.Standard:=True;
TFPReportCheckbox.RegisterElement.Standard:=True;
TFPReportShape.RegisterElement.Standard:=True;
TFPReportPage.RegisterElement.Standard:=True;
end;
initialization