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

process input widget, only enabled when has a process

This commit is contained in:
Basile Burg 2015-05-22 18:57:56 +02:00
parent fef9cf673f
commit 8a0aa40f5f
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/ce_procinput.lfm
View File

@ -38,6 +38,7 @@ inherited CEProcInputWidget: TCEProcInputWidget
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 30 ClientHeight = 30
ClientWidth = 605 ClientWidth = 605
Enabled = False
TabOrder = 1 TabOrder = 1
object btnSend: TButton object btnSend: TButton
Left = 530 Left = 530

4
src/ce_procinput.pas
View File

@ -80,7 +80,11 @@ begin
// TODO-cfeature: process list, imply that each TCESynMemo must have its own runnable TProcess // TODO-cfeature: process list, imply that each TCESynMemo must have its own runnable TProcess
// currently they share the CEMainForm.fRunProc variable. // currently they share the CEMainForm.fRunProc variable.
if fProc <> nil then if fProc <> nil then
begin
fProc.Terminate(1); fProc.Terminate(1);
Panel1.Enabled:=false;
end
else Panel1.Enabled:=true;
txtExeName.Caption := 'no process'; txtExeName.Caption := 'no process';
fProc := nil; fProc := nil;