process input widget, only enabled when has a process

src/ce_procinput.lfm

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

src/ce_procinput.pas

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