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

* Add save as

Browse Source 
git-svn-id: trunk@57411 -
This commit is contained in:
michael 2018-02-28 08:28:48 +00:00
parent 4edb42c9f6
commit ff945e6631
2 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -371,6 +371,9 @@ object FPReportDesignerForm: TFPReportDesignerForm
object MISaveReport: TMenuItem
Action = AFileSave
end
object MISaveAs: TMenuItem
Action = AFileSaveAs
end
object MIRecent: TMenuItem
Caption = 'Recent'
end
@ -572,6 +575,7 @@ object FPReportDesignerForm: TFPReportDesignerForm
Hint = 'Save the report'
ImageIndex = 3
OnExecute = AFileSaveExecute
OnUpdate = AFileSaveUpdate
ShortCut = 16467
end
object AFileOpen: TAction
@ -893,6 +897,12 @@ object FPReportDesignerForm: TFPReportDesignerForm
Caption = 'Recent'
Hint = 'Recently used reports'
end
object AFileSaveAs: TAction
Category = 'File'
Caption = 'Save as...'
OnExecute = AFileSaveAsExecute
OnUpdate = AFileSaveAsUpdate
end
end
object SDReport: TSaveDialog
DefaultExt = '.json'

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

@ -74,6 +74,7 @@ type
AAlignVCenter: TAction;
AAlignBottom: TAction;
AAlign: TAction;
AFileSaveAs: TAction;
ARecent: TAction;
AReportData: TAction;
APreview: TAction;
@ -99,6 +100,7 @@ type
ILReport: TImageList;
MenuItem1: TMenuItem;
MenuItem2: TMenuItem;
MISaveAs: TMenuItem;
MIPreview: TMenuItem;
MIframeBottom: TMenuItem;
MIFrameTop: TMenuItem;
@ -232,6 +234,9 @@ type
procedure AAlignUpdate(Sender: TObject);
procedure ADeleteExecute(Sender: TObject);
procedure ADeleteUpdate(Sender: TObject);
procedure AFileSaveAsExecute(Sender: TObject);
procedure AFileSaveAsUpdate(Sender: TObject);
procedure AFileSaveUpdate(Sender: TObject);
procedure AFrameExecute(Sender: TObject);
procedure AFrameUpdate(Sender: TObject);
procedure ANewExecute(Sender: TObject);
@ -833,6 +838,28 @@ begin
(Sender as TAction).Enabled:=Assigned(CurrentDesigner) and (CurrentDesigner.Objects.SelectionCount>0);
end;
procedure TFPReportDesignerForm.AFileSaveAsExecute(Sender: TObject);
Var
FN : String;
begin
FN:=FileName;
FileName:='';
if Not SaveReport then
FileName:=FN;
end;
procedure TFPReportDesignerForm.AFileSaveAsUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=Assigned(Report);
end;
procedure TFPReportDesignerForm.AFileSaveUpdate(Sender: TObject);
begin
(Sender as TAction).Enabled:=Assigned(Report);
end;
procedure TFPReportDesignerForm.AFrameExecute(Sender: TObject);
Var