QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 08:51:22 +00:00
Code Releases Wiki Activity

Minor tweak to allow keypad support for entering extended ASCII characters as well as the number keys.

Browse source
This commit is contained in:
SMcNeill 2014-07-04 15:38:10 -04:00
parent 463e0929af
commit 25c5988bbf
1 changed files with 36 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
qb64.bas
View file

@ -14,6 +14,7 @@ FileName = "internal/MathEval/Math Evaluator User Variables.bin"
Set_OrderOfOperations 'This will also make certain our directories are valid, and if not make them.
DIM SHARED AltSpecial AS _BYTE
'### END OF STEVE EDIT
'
@ -28599,19 +28600,7 @@ DO
END IF
IF KALT AND KB >= 48 AND KB <= 57 THEN
STATIC ASCvalue$
ASCvalue$ = ASCvalue$ + CHR$(KB)
GOTO specialchar
END IF
IF NOT KALT THEN
IF LEN(ASCvalue$) THEN
KB = VAL(RIGHT$(ASCvalue$, 3))
ASCvalue$ = ""
IF KB > 0 AND KB < 256 THEN K$ = CHR$(KB) ELSE GOTO specialchar
END IF
END IF
IF KALT AND KB >= 48 AND KB <= 57 THEN GOTO specialchar ' Steve Edit on 07-04-2014 to add support for ALT-numkey combos to produce ASCII codes
IF mCLICK THEN
IF mX > 1 AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN 'inside text box
@ -29330,7 +29319,7 @@ DO
a$ = idegetline(idecy)
IF LEN(a$) < idecx - 1 THEN a$ = a$ + SPACE$(idecx - 1 - LEN(a$))
IF K$ = CHR$(27) GOTO specialchar 'Steve edit 07-04-2014 to stop ESC from printing  in the IDE
IF K$ = CHR$(27) AND NOT AltSpecial THEN GOTO specialchar 'Steve edit 07-04-2014 to stop ESC from printing  in the IDE
IF ideinsert THEN
a2$ = RIGHT$(a$, LEN(a$) - idecx + 1)
@ -29344,6 +29333,8 @@ DO
idecx = idecx + LEN(K$)
specialchar:
AltSpecial = 0
LOOP
'--------------------------------------------------------------------------------
@ -37055,6 +37046,8 @@ Error_Message = a$
END SUB
SUB GetInput
STATIC ASCvalue$
IF iCHECKLATER THEN iCHECKLATER = 0: EXIT SUB
'Clear/Update immediate return values
iCHANGED = 0
@ -37068,6 +37061,30 @@ KOALT = KALT: KALTPRESS = 0: KALTRELEASE = 0
DO: LOOP UNTIL INKEY$ = ""
'Keyboard event?
k = _KEYHIT
'Steve Edit on 07-04-2014 to add extended ASCII creation with ALT-plus numkeys
IF (_KEYDOWN(100307) OR _KEYDOWN(100308)) AND (k >= -57 AND k <= -48) THEN
ASCvalue$ = ASCvalue$ + CHR$(-k)
END IF
IF NOT _KEYDOWN(100307) AND NOT _KEYDOWN(100308) THEN
IF LEN(ASCvalue$) THEN
KB = VAL(RIGHT$(ASCvalue$, 3))
IF KB > 0 AND KB < 256 THEN
K$ = CHR$(KB)
k = KB
iCHANGED = -1
AltSpecial = -1
END IF
ASCvalue$ = ""
EXIT SUB
END IF
END IF
IF k THEN
IF k < 0 THEN k = -k: release = 1
'modifiers
@ -37076,7 +37093,11 @@ IF k THEN
iCHANGED = -1: KSTATECHANGED = -1
END IF
IF k = KEY_LALT OR k = KEY_RALT THEN
IF release = 1 THEN KALT = 0: KALTRELEASE = -1 ELSE KALT = -1: KALTPRESS = -1
IF release = 1 THEN
KALT = 0: KALTRELEASE = -1
ELSE
KALT = -1: KALTPRESS = -1
END IF
iCHANGED = -1: KSTATECHANGED = -1
END IF
IF k = KEY_LCTRL OR k = KEY_RCTRL THEN