From 975d674e5fa3c9b55eacd6b9a918e2fae4fad62d Mon Sep 17 00:00:00 2001
From: April Ayres-Griffiths <aag6581@gmail.com>
Date: Mon, 15 Apr 2019 23:12:36 +1000
Subject: [PATCH] fix key map open apple

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

diff --git a/backup/main.pas b/backup/main.pas
index 49e2acb..adc320f 100644
--- a/backup/main.pas
+++ b/backup/main.pas
@@ -2954,7 +2954,7 @@ begin
   code := MapKeyCode(Key,Shift);
   if code <> 0 then
      SendKey( code, 0, 1, MapShiftState(Key, Shift) );
-  StatusBar1.SimpleText := 'keycode = '+IntToStr(code);
+  //StatusBar1.SimpleText := 'keycode = '+IntToStr(code);
 end;
 
 procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char);
diff --git a/main.pas b/main.pas
index adc320f..49e2acb 100644
--- a/main.pas
+++ b/main.pas
@@ -2954,7 +2954,7 @@ begin
   code := MapKeyCode(Key,Shift);
   if code <> 0 then
      SendKey( code, 0, 1, MapShiftState(Key, Shift) );
-  //StatusBar1.SimpleText := 'keycode = '+IntToStr(code);
+  StatusBar1.SimpleText := 'keycode = '+IntToStr(code);
 end;
 
 procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char);