forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

menu file, added action 'save file copy as...'

This commit is contained in:
Basile Burg 2015-12-10 07:35:22 +01:00
parent 806758e5f1
commit ae990b03ef
2 changed files with 42 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/ce_main.lfm
View File

@ -1790,6 +1790,9 @@ object CEMainForm: TCEMainForm
CEFFD8D1D2FFB37A06FFB78116FFB9851CC5BB871F00BB871F00 CEFFD8D1D2FFB37A06FFB78116FFB9851CC5BB871F00BB871F00
} }
end end
object MenuItem71: TMenuItem
Action = actFileSaveCopyAs
end
object MenuItem62: TMenuItem object MenuItem62: TMenuItem
Action = actFileHtmlExport Action = actFileHtmlExport
Bitmap.Data = { Bitmap.Data = {
@ -1914,7 +1917,7 @@ object CEMainForm: TCEMainForm
} }
end end
object MenuItem38: TMenuItem object MenuItem38: TMenuItem
Action = ActFileCompAndRunWithArgs Action = actFileCompAndRunWithArgs
Bitmap.Data = { Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -3278,7 +3281,7 @@ object CEMainForm: TCEMainForm
} }
end end
object MenuItem13: TMenuItem object MenuItem13: TMenuItem
Action = ActFileCompAndRunWithArgs Action = actFileCompAndRunWithArgs
Bitmap.Data = { Bitmap.Data = {
36040000424D3604000000000000360000002800000010000000100000000100 36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000 2000000000000004000064000000640000000000000000000000000000000000
@ -3929,11 +3932,11 @@ object CEMainForm: TCEMainForm
OnExecute = actFileCompileAndRunOutExecute OnExecute = actFileCompileAndRunOutExecute
OnUpdate = updateDocumentBasedAction OnUpdate = updateDocumentBasedAction
end end
object ActFileCompAndRunWithArgs: TAction object actFileCompAndRunWithArgs: TAction
Category = 'File' Category = 'File'
Caption = 'Compile file and run...' Caption = 'Compile file and run...'
ImageIndex = 22 ImageIndex = 22
OnExecute = ActFileCompAndRunWithArgsExecute OnExecute = actFileCompAndRunWithArgsExecute
OnUpdate = updateDocumentBasedAction OnUpdate = updateDocumentBasedAction
ShortCut = 24695 ShortCut = 24695
end end
@ -3991,6 +3994,13 @@ object CEMainForm: TCEMainForm
ImageIndex = 8 ImageIndex = 8
OnExecute = actProjNewNativeExecute OnExecute = actProjNewNativeExecute
end end
object actFileSaveCopyAs: TAction
Category = 'File'
Caption = 'Save file copy as...'
ImageIndex = 2
OnExecute = actFileSaveCopyAsExecute
OnUpdate = updateDocumentBasedAction
end
end end
object imgList: TImageList object imgList: TImageList
left = 64 left = 64

28
src/ce_main.pas
View File

@ -36,6 +36,7 @@ type
actFileHtmlExport: TAction; actFileHtmlExport: TAction;
actFileUnittest: TAction; actFileUnittest: TAction;
actFileCompileAndRunOut: TAction; actFileCompileAndRunOut: TAction;
actFileSaveCopyAs: TAction;
actProjNewDubJson: TAction; actProjNewDubJson: TAction;
actProjNewNative: TAction; actProjNewNative: TAction;
actSetRunnableSw: TAction; actSetRunnableSw: TAction;
@ -130,6 +131,7 @@ type
MenuItem68: TMenuItem; MenuItem68: TMenuItem;
MenuItem69: TMenuItem; MenuItem69: TMenuItem;
MenuItem70: TMenuItem; MenuItem70: TMenuItem;
MenuItem71: TMenuItem;
mnuLayout: TMenuItem; mnuLayout: TMenuItem;
mnuItemMruFile: TMenuItem; mnuItemMruFile: TMenuItem;
mnuItemMruProj: TMenuItem; mnuItemMruProj: TMenuItem;
@ -140,6 +142,7 @@ type
MenuItem7: TMenuItem; MenuItem7: TMenuItem;
MenuItem8: TMenuItem; MenuItem8: TMenuItem;
MenuItem9: TMenuItem; MenuItem9: TMenuItem;
procedure actFileSaveCopyAsExecute(Sender: TObject);
procedure actProjNewDubJsonExecute(Sender: TObject); procedure actProjNewDubJsonExecute(Sender: TObject);
procedure actProjNewNativeExecute(Sender: TObject); procedure actProjNewNativeExecute(Sender: TObject);
procedure actSetRunnableSwExecute(Sender: TObject); procedure actSetRunnableSwExecute(Sender: TObject);
@ -1563,6 +1566,31 @@ begin
else openFile(fname); else openFile(fname);
end; end;
end; end;
procedure TCEMainForm.actFileSaveCopyAsExecute(Sender: TObject);
var
str: TStringList;
begin
if fDoc = nil then
exit;
with TSaveDialog.create(nil) do
try
if fDoc.isDSource then
Filter:= DdiagFilter;
if execute then
begin
str := TStringList.create;
try
str.assign(fDoc.Lines);
str.saveToFile(FileName);
finally
str.free;
end;
end;
finally
free;
end;
end;
{$ENDREGION} {$ENDREGION}
{$REGION edit ------------------------------------------------------------------} {$REGION edit ------------------------------------------------------------------}