mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-08-05 15:50:25 +00:00
Added support for ALT-numkeys to generate ASCII codes in the IDE.
This commit is contained in:
parent
9118329366
commit
463e0929af
1 changed files with 14 additions and 0 deletions
14
qb64.bas
14
qb64.bas
|
@ -28599,6 +28599,20 @@ DO
|
||||||
END IF
|
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 mCLICK THEN
|
IF mCLICK THEN
|
||||||
IF mX > 1 AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN 'inside text box
|
IF mX > 1 AND mX < idewx AND mY > 2 AND mY < (idewy - 5) THEN 'inside text box
|
||||||
ideselect = 1
|
ideselect = 1
|
||||||
|
|
Loading…
Reference in a new issue