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

close #58, add an action to run compiled file outside

This commit is contained in:
Basile Burg 2016-05-26 22:12:12 +02:00
parent 4e89d12c6e
commit 7803172007
2 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_main.lfm
View File

@ -2107,6 +2107,9 @@ object CEMainForm: TCEMainForm
07FFB47A07FFB47A08FFB57C0AFFB67F0FFFB88114FFBA851B23 07FFB47A07FFB47A08FFB57C0AFFB67F0FFFB88114FFBA851B23
} }
end end
object MenuItem79: TMenuItem
Action = actFileRunOut
end
object MenuItem63: TMenuItem object MenuItem63: TMenuItem
Action = actFileUnittest Action = actFileUnittest
Bitmap.Data = { Bitmap.Data = {
@ -3632,6 +3635,9 @@ object CEMainForm: TCEMainForm
07FFB47A07FFB47A08FFB57C0AFFB67F0FFFB88114FFBA851B23 07FFB47A07FFB47A08FFB57C0AFFB67F0FFFB88114FFBA851B23
} }
end end
object MenuItem80: TMenuItem
Action = actFileRunOut
end
object MenuItem64: TMenuItem object MenuItem64: TMenuItem
Action = actFileUnittest Action = actFileUnittest
Bitmap.Data = { Bitmap.Data = {
@ -4242,6 +4248,13 @@ object CEMainForm: TCEMainForm
OnExecute = actFileRunExecute OnExecute = actFileRunExecute
OnUpdate = updateDocumentBasedAction OnUpdate = updateDocumentBasedAction
end end
object actFileRunOut: TAction
Category = 'File'
Caption = 'Run compiled file outside'
ImageIndex = 22
OnExecute = actFileRunOutExecute
OnUpdate = updateDocumentBasedAction
end
object actFileUnittest: TAction object actFileUnittest: TAction
Category = 'File' Category = 'File'
Caption = 'Run file unittests' Caption = 'Run file unittests'

19
src/ce_main.pas
View File

@ -40,6 +40,7 @@ type
actFileCompile: TAction; actFileCompile: TAction;
actFileRun: TAction; actFileRun: TAction;
actFileDscanner: TAction; actFileDscanner: TAction;
actFileRunOut: TAction;
actProjNewDubJson: TAction; actProjNewDubJson: TAction;
actProjNewNative: TAction; actProjNewNative: TAction;
actSetRunnableSw: TAction; actSetRunnableSw: TAction;
@ -142,6 +143,8 @@ type
MenuItem76: TMenuItem; MenuItem76: TMenuItem;
MenuItem77: TMenuItem; MenuItem77: TMenuItem;
MenuItem78: TMenuItem; MenuItem78: TMenuItem;
MenuItem79: TMenuItem;
MenuItem80: TMenuItem;
mnuLayout: TMenuItem; mnuLayout: TMenuItem;
mnuItemMruFile: TMenuItem; mnuItemMruFile: TMenuItem;
mnuItemMruProj: TMenuItem; mnuItemMruProj: TMenuItem;
@ -155,6 +158,7 @@ type
procedure actFileCompileExecute(Sender: TObject); procedure actFileCompileExecute(Sender: TObject);
procedure actFileDscannerExecute(Sender: TObject); procedure actFileDscannerExecute(Sender: TObject);
procedure actFileRunExecute(Sender: TObject); procedure actFileRunExecute(Sender: TObject);
procedure actFileRunOutExecute(Sender: TObject);
procedure actFileSaveCopyAsExecute(Sender: TObject); procedure actFileSaveCopyAsExecute(Sender: TObject);
procedure actProjNewDubJsonExecute(Sender: TObject); procedure actProjNewDubJsonExecute(Sender: TObject);
procedure actProjNewNativeExecute(Sender: TObject); procedure actProjNewNativeExecute(Sender: TObject);
@ -310,6 +314,7 @@ type
function compileRunnable(unittest: boolean = false): boolean; function compileRunnable(unittest: boolean = false): boolean;
procedure executeRunnable(unittest: boolean = false; redirect: boolean = true; procedure executeRunnable(unittest: boolean = false; redirect: boolean = true;
const runArgs: string = ''); const runArgs: string = '');
procedure runFile(outside: boolean);
// file sub routines // file sub routines
procedure newFile; procedure newFile;
@ -2256,7 +2261,7 @@ begin
end; end;
end; end;
procedure TCEMainForm.actFileRunExecute(Sender: TObject); procedure TCEMainForm.runFile(outside: boolean);
var var
fname: string; fname: string;
older: boolean = false; older: boolean = false;
@ -2282,7 +2287,17 @@ begin
exit; exit;
end; end;
if fname.fileExists then if fname.fileExists then
executeRunnable(false, true); executeRunnable(false, not outside);
end;
procedure TCEMainForm.actFileRunExecute(Sender: TObject);
begin
runFile(false);
end;
procedure TCEMainForm.actFileRunOutExecute(Sender: TObject);
begin
runFile(true);
end; end;
procedure TCEMainForm.actFileOpenContFoldExecute(Sender: TObject); procedure TCEMainForm.actFileOpenContFoldExecute(Sender: TObject);