Apple-2-Tools/microm8-gui
1
0
Fork 0
mirror of https://github.com/paleotronic/microm8-gui.git synced 2024-06-08 01:29:34 +00:00
Code Issues Projects Releases Wiki Activity

key diags

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

10
backup/main.pas
View File

@ -2809,6 +2809,8 @@ var
isMeta: boolean; isMeta: boolean;
isSuper: boolean; isSuper: boolean;
isHyper: boolean; isHyper: boolean;
isExtra1: boolean;
isExtra2: boolean;
s: string; s: string;
begin begin
@ -2819,6 +2821,8 @@ begin
isMeta := (ssMeta in Shift); isMeta := (ssMeta in Shift);
isSuper := (ssSuper in Shift); isSuper := (ssSuper in Shift);
isHyper := (ssHyper in Shift); isHyper := (ssHyper in Shift);
isExtra1 := (ssExtra1 in Shift);
isExtra2 := (ssExtra2 in Shift);
keydesc := ''; keydesc := '';
@ -2834,6 +2838,12 @@ begin
if isHyper then if isHyper then
keydesc := 'Hyper'; keydesc := 'Hyper';
if isExtra1 then
keydesc := 'Extra1'
if isExtra2 then
keydesc := 'Extra2'
if isAlt then if isAlt then
begin begin
result := OPEN_APPLE; result := OPEN_APPLE;

4
main.pas
View File

@ -2839,10 +2839,10 @@ begin
keydesc := 'Hyper'; keydesc := 'Hyper';
if isExtra1 then if isExtra1 then
keydesc := 'Extra1' keydesc := 'Extra1';
if isExtra2 then if isExtra2 then
keydesc := 'Extra2' keydesc := 'Extra2';
if isAlt then if isAlt then
begin begin