Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-11-25 17:42:21 +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);
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);

2
main.pas
View File

@ -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);