From 8a0aa40f5fa6e27fb9dc37aa3e89b7204684d81f Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Fri, 22 May 2015 18:57:56 +0200
Subject: [PATCH] process input widget, only enabled when has a process

---
 src/ce_procinput.lfm | 1 +
 src/ce_procinput.pas | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/src/ce_procinput.lfm b/src/ce_procinput.lfm
index 258d5deb..6e8fc3ff 100644
--- a/src/ce_procinput.lfm
+++ b/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
diff --git a/src/ce_procinput.pas b/src/ce_procinput.pas
index 82717cec..b8de0441 100644
--- a/src/ce_procinput.pas
+++ b/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;