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

Properly colorizes 32BIT and 64BIT in $IF blocks.

Browse source
This commit is contained in:
Fellippe Heitor 2021-02-18 19:39:22 -03:00
parent 5a74a1a571
commit 774707c584
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
source/ide/ide_methods.bas
View file

@ -8380,6 +8380,13 @@ SUB ideshowtext
IF isnumber(checkKeyword$) THEN
is_Number = -1
isKeyword = LEN(checkKeyword$)
ELSEIF INSTR(UserDefineList$, "@" + UCASE$(checkKeyword$)) > 0 THEN
'keep checking
FOR i = i TO LEN(a2$)
IF INSTR(char.sep$, MID$(a2$, i, 1)) > 0 THEN right.sep$ = MID$(a2$, i, 1): GOTO keywordAcquired
checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1)
NEXT
GOTO keywordAcquired
END IF
END IF
GOTO setOldChar
@ -8394,6 +8401,7 @@ SUB ideshowtext
checkKeyword$ = checkKeyword$ + MID$(a2$, i, 1)
NEXT
IF comment = 0 AND LEFT$(checkKeyword$, 1) = "?" THEN isKeyword = 1: GOTO setOldChar
keywordAcquired:
checkKeyword$ = UCASE$(checkKeyword$)
IF INSTR(listOfKeywords$, "@" + checkKeyword$ + "@") > 0 OR _
(qb64prefix_set = 1 AND INSTR(listOfKeywords$, "@_" + checkKeyword$ + "@") > 0) THEN