From 8520c2088960fe6496a5f327bd1ec4a937352f7b Mon Sep 17 00:00:00 2001
From: April Ayres-Griffiths <aag6581@gmail.com>
Date: Fri, 19 Apr 2019 10:15:12 +1000
Subject: [PATCH] remove debugs

---
 backup/main.pas | 8 ++++----
 main.pas        | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/backup/main.pas b/backup/main.pas
index 35efb2b..f2b8eb7 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -1747,7 +1747,7 @@ end;
 
 procedure TGUIForm.miSPEjectClick(Sender: TObject);
 begin
-      StatusBar1.SimpleText := SimpleGet(baseUrl + '/api/control/hardware/disk/eject/2');
+      SimpleGet(baseUrl + '/api/control/hardware/disk/eject/2');
 end;
 
 procedure TGUIForm.miSPFileClick(Sender: TObject);
@@ -2379,7 +2379,7 @@ begin
      Respo := TStringStream.Create('');
      SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
      S := Respo.DataString;
-     self.StatusBar1.SimpleText:=S;
+     //self.StatusBar1.SimpleText:=S;
      Respo.Destroy;
 end;
 
@@ -2395,7 +2395,7 @@ begin
      Respo := TStringStream.Create('');
      SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
      S := Respo.DataString;
-     self.StatusBar1.SimpleText:=S;
+     //self.StatusBar1.SimpleText:=S;
      Respo.Destroy;
 end;
 
@@ -3000,7 +3000,7 @@ begin
            else
               Result := 0;
       end;
-  //VK_SHIFT: Result := 0;
+  VK_SHIFT: Result := 0;
   VK_CAPITAL: begin
                  {$IFDEF DARWIN}
                  Caps := (not KeyUp);
diff --git a/main.pas b/main.pas
index fa5e101..daeb4ed 100644
--- a/main.pas
+++ b/main.pas
@@ -1747,7 +1747,7 @@ end;
 
 procedure TGUIForm.miSPEjectClick(Sender: TObject);
 begin
-      StatusBar1.SimpleText := SimpleGet(baseUrl + '/api/control/hardware/disk/eject/2');
+      SimpleGet(baseUrl + '/api/control/hardware/disk/eject/2');
 end;
 
 procedure TGUIForm.miSPFileClick(Sender: TObject);
@@ -2379,7 +2379,7 @@ begin
      Respo := TStringStream.Create('');
      SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
      S := Respo.DataString;
-     self.StatusBar1.SimpleText:=S;
+     //self.StatusBar1.SimpleText:=S;
      Respo.Destroy;
 end;
 
@@ -2395,7 +2395,7 @@ begin
      Respo := TStringStream.Create('');
      SimpleFormPost(baseUrl + '/api/control/system/launch',json,Respo);
      S := Respo.DataString;
-     self.StatusBar1.SimpleText:=S;
+     //self.StatusBar1.SimpleText:=S;
      Respo.Destroy;
 end;
 
@@ -2865,7 +2865,7 @@ end;
 
 procedure TGUIForm.FormDeactivate(Sender: TObject);
 begin
-  StatusBar1.SimpleText := 'focus lost';
+  //StatusBar1.SimpleText := 'focus lost';
   lastFocusLostTime:=Now();
 end;