mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
Improves contextual detection of help topic
This commit is contained in:
parent
7492260746
commit
6f7c97db85
|
@ -14626,7 +14626,20 @@ FUNCTION getWordAtCursor$
|
||||||
LOOP
|
LOOP
|
||||||
a2$ = MID$(a$, x1, x2 - x1 + 1)
|
a2$ = MID$(a$, x1, x2 - x1 + 1)
|
||||||
ELSE
|
ELSE
|
||||||
a2$ = CHR$(ASC(a$, x))
|
symbol$ = CHR$(ASC(a$, x))
|
||||||
|
IF symbol$ = "~" THEN getWordAtCursor$ = "~": EXIT FUNCTION
|
||||||
|
IF symbol$ = "`" THEN getWordAtCursor$ = "`": EXIT FUNCTION
|
||||||
|
IF symbol$ = "%" AND MID$(a$, x + 1) = "&" THEN getWordAtCursor$ = "%&": EXIT FUNCTION
|
||||||
|
IF symbol$ = "&" AND MID$(a$, x - 1) = "%" THEN getWordAtCursor$ = "%&": EXIT FUNCTION
|
||||||
|
x1 = x
|
||||||
|
DO WHILE x1 > 1
|
||||||
|
IF MID$(a$, x1 - 1, 1) = symbol$ THEN x1 = x1 - 1 ELSE EXIT DO
|
||||||
|
LOOP
|
||||||
|
x2 = x
|
||||||
|
DO WHILE x2 < LEN(a$)
|
||||||
|
IF MID$(a$, x2 + 1, 1) = symbol$ THEN x2 = x2 + 1 ELSE EXIT DO
|
||||||
|
LOOP
|
||||||
|
a2$ = MID$(a$, x1, x2 - x1 + 1)
|
||||||
END IF
|
END IF
|
||||||
getWordAtCursor$ = a2$ 'a2$ now holds the word or character at current cursor position
|
getWordAtCursor$ = a2$ 'a2$ now holds the word or character at current cursor position
|
||||||
ELSEIF x = LEN(a$) + 1 AND x > 1 THEN
|
ELSEIF x = LEN(a$) + 1 AND x > 1 THEN
|
||||||
|
|
Loading…
Reference in a new issue