QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Prevents Selected from being = 0 in ASCII Chart

Browse source
This commit is contained in:
FellippeHeitor 2021-01-15 13:54:41 -03:00
parent ee18d8ba9d
commit f7ce06cfc6
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
source/ide/ide_methods.bas
View file

@ -14024,7 +14024,7 @@ FUNCTION ideASCIIbox$
'-------- end of generic input response --------
IF mY > p.y AND mY < p.y + p.h AND mX > p.x AND mX < p.x + p.w THEN
IF Hover = 0 AND mCLICK THEN Selected = 0: focus = 1
IF Hover = 0 AND mCLICK THEN focus = 1
END IF
IF (K$ = CHR$(13) AND focus = 1) THEN
@ -14071,7 +14071,7 @@ FUNCTION ideASCIIbox$
Selected = Selected - 1
END IF
IF Selected < 1 THEN Selected = 255
CASE 20480 'Up
CASE 20480 'Down
IF KCTRL AND Selected > 0 THEN
IF Selected = 240 THEN
Selected = 255
@ -14091,12 +14091,12 @@ FUNCTION ideASCIIbox$
Selected = Selected + 16 - 256
END IF
END IF
CASE 18432 'Down
CASE 18432 'Up
IF KCTRL AND Selected > 0 THEN
DO UNTIL Selected <= 16
Selected = Selected - 16
LOOP
IF Selected < 1 THEN Selected = 0
IF Selected < 1 THEN Selected = 1
ELSE
IF Selected = 16 THEN
'corner case