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

* Cannot add page if there is no report (bug ID #33234)

Browse Source 
git-svn-id: trunk@57387 -
This commit is contained in:
michael 2018-02-27 12:43:16 +00:00
parent dda40dc1a4
commit c6b1894e69
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -634,6 +634,7 @@ object FPReportDesignerForm: TFPReportDesignerForm
Caption = 'Add Page'
ImageIndex = 13
OnExecute = AAddPageExecute
OnUpdate = AAddPageUpdate
end
object AAlignleft: TAction
Tag = 1
@ -2076,7 +2077,7 @@ object FPReportDesignerForm: TFPReportDesignerForm
top = 348
end
object PMRecent: TPopupMenu
Left = 467
Top = 209
left = 467
top = 209
end
end

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

@ -217,6 +217,7 @@ type
procedure AAddPageExecute(Sender: TObject);
procedure AAddBandExecute(Sender: TObject);
procedure AAddBandUpdate(Sender: TObject);
procedure AAddPageUpdate(Sender: TObject);
procedure AAddShapeExecute(Sender: TObject);
procedure AAlignExecute(Sender: TObject);
procedure AAlignUpdate(Sender: TObject);
@ -738,6 +739,11 @@ begin
(Sender as TAction).Enabled:=(rdoAllowBands in DesignOptions) and TOK;
end;
procedure TFPReportDesignerForm.AAddPageUpdate(Sender: TObject);
begin
(Sender as Taction).Enabled:=Assigned(FReport);
end;
procedure TFPReportDesignerForm.AAddCheckBoxExecute(Sender: TObject);
begin
CurrentDesigner.AddElement(TFPReportCheckbox);