Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2025-02-20 07:28:55 +00:00
Code Issues Projects Releases Wiki Activity

fix key map open apple

Browse Source
This commit is contained in:
April Ayres-Griffiths 2019-04-15 23:12:36 +10:00
parent 7dd9d908a6
commit 975d674e5f
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backup/main.pas
View File

@ -2954,7 +2954,7 @@ begin
code := MapKeyCode(Key,Shift); code := MapKeyCode(Key,Shift);
if code <> 0 then if code <> 0 then
SendKey( code, 0, 1, MapShiftState(Key, Shift) ); SendKey( code, 0, 1, MapShiftState(Key, Shift) );
StatusBar1.SimpleText := 'keycode = '+IntToStr(code); //StatusBar1.SimpleText := 'keycode = '+IntToStr(code);
end; end;
procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char); procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char);

2
main.pas
View File

@ -2954,7 +2954,7 @@ begin
code := MapKeyCode(Key,Shift); code := MapKeyCode(Key,Shift);
if code <> 0 then if code <> 0 then
SendKey( code, 0, 1, MapShiftState(Key, Shift) ); SendKey( code, 0, 1, MapShiftState(Key, Shift) );
//StatusBar1.SimpleText := 'keycode = '+IntToStr(code); StatusBar1.SimpleText := 'keycode = '+IntToStr(code);
end; end;
procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char); procedure TGUIForm.FormKeyPress(Sender: TObject; var Key: char);