paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 13:39:25 +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' Caption = 'Add Page'
ImageIndex = 13 ImageIndex = 13
OnExecute = AAddPageExecute OnExecute = AAddPageExecute
OnUpdate = AAddPageUpdate
end end
object AAlignleft: TAction object AAlignleft: TAction
Tag = 1 Tag = 1
@ -2076,7 +2077,7 @@ object FPReportDesignerForm: TFPReportDesignerForm
top = 348 top = 348
end end
object PMRecent: TPopupMenu object PMRecent: TPopupMenu
Left = 467 left = 467
Top = 209 top = 209
end end
end end

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

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