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

19
src/ce_main.pas
View File

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