paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 09:18:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix double DesignReport call (bug ID #33324)

Browse Source 
git-svn-id: trunk@57451 -
This commit is contained in:
michael 2018-03-06 07:51:42 +00:00
parent b6fbc78556
commit 1f3b852e69
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpreport/design/frmfpreportdesignermain.lfm
View File

@ -325,8 +325,6 @@ object FPReportDesignerForm: TFPReportDesignerForm
inherited PCData: TPageControl
Height = 655
Width = 261
ActivePage = FReportData.TSData
TabIndex = 0
inherited TSData: TTabSheet
ClientHeight = 620
ClientWidth = 255

9
components/fpreport/design/frmfpreportdesignermain.pp
View File

@ -481,13 +481,7 @@ end;
procedure TFPReportDesignerForm.FormShow(Sender: TObject);
begin
if Assigned(Report) then
begin
MaybeAddFirstPage;
DesignReport;
end;
SBReport.Visible:=False;
SBReport.Visible:=True;
SBReport.Refresh;
end;
procedure TFPReportDesignerForm.DesignReport;
@ -496,6 +490,7 @@ Var
I : Integer;
begin
MaybeAddFirstPage;
Report.StartDesigning;
For I:=0 to Report.PageCount-1 do
AddPageDesign(I+1,Report.Pages[I]);