Apple-2-Tools
/
microm8-gui
mirror of https://github.com/paleotronic/microm8-gui.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix key map open apple

This commit is contained in:
April Ayres-Griffiths 2019-04-15 23:42:20 +10:00
parent 0a6293f48a
commit 1b745d3953
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
backup/main.pas
View File

@ -2839,12 +2839,12 @@ begin
keydesc := 'Hyper';
if isExtra1 then
keydesc := 'Extra1'
keydesc := 'Extra1';
if isExtra2 then
keydesc := 'Extra2'
keydesc := 'Extra2';
if isAlt then
if isAlt or isMeta then
begin
result := OPEN_APPLE;
keydesc := 'Alt';

4
main.pas
View File

@ -2844,7 +2844,7 @@ begin
if isExtra2 then
keydesc := 'Extra2';
if isAlt then
if isAlt or isMeta then
begin
result := OPEN_APPLE;
keydesc := 'Alt';
@ -2991,7 +2991,7 @@ begin
code := MapKeyCode(Key,Shift);
if code <> 0 then
SendKey( code, 0, 1, MapShiftState(Key, Shift) );
StatusBar1.SimpleText := keydesc;
//StatusBar1.SimpleText := keydesc;
end;
procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char);