mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
If the cursor is on a SUB/FUNC name, it is highlighted.
This commit is contained in:
parent
41a70085f6
commit
649d44b27e
|
@ -6411,10 +6411,31 @@ DIM sep AS STRING * 1
|
||||||
sep = CHR$(0)
|
sep = CHR$(0)
|
||||||
'-------- end of generic dialog box header --------
|
'-------- end of generic dialog box header --------
|
||||||
|
|
||||||
|
'------- identify word or character at current cursor position - copied/adapted from FUNCTION ide2:
|
||||||
|
a$ = idegetline(idecy)
|
||||||
|
x = idecx
|
||||||
|
IF x <= LEN(a$) THEN
|
||||||
|
IF alphanumeric(ASC(a$, x)) THEN
|
||||||
|
x1 = x
|
||||||
|
DO WHILE x1 > 1
|
||||||
|
IF alphanumeric(ASC(a$, x1 - 1)) OR ASC(a$, x1 - 1) = 36 THEN x1 = x1 - 1 ELSE EXIT DO
|
||||||
|
LOOP
|
||||||
|
x2 = x
|
||||||
|
DO WHILE x2 < LEN(a$)
|
||||||
|
IF alphanumeric(ASC(a$, x2 + 1)) OR ASC(a$, x2 + 1) = 36 THEN x2 = x2 + 1 ELSE EXIT DO
|
||||||
|
LOOP
|
||||||
|
a2$ = MID$(a$, x1, x2 - x1 + 1)
|
||||||
|
ELSE
|
||||||
|
a2$ = CHR$(ASC(a$, x))
|
||||||
|
END IF
|
||||||
|
a2$ = UCASE$(a2$) 'a2$ now holds the word or character at current cursor position
|
||||||
|
END IF
|
||||||
|
|
||||||
'-------- init --------
|
'-------- init --------
|
||||||
|
|
||||||
ly$ = MKL$(1)
|
ly$ = MKL$(1)
|
||||||
CurrentlyViewingWhichSUBFUNC = 1
|
CurrentlyViewingWhichSUBFUNC = 1
|
||||||
|
PreferCurrentCursorSUBFUNC = 0
|
||||||
l$ = ideprogname$
|
l$ = ideprogname$
|
||||||
IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$
|
IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$
|
||||||
FOR y = 1 TO iden
|
FOR y = 1 TO iden
|
||||||
|
@ -6451,6 +6472,11 @@ FOR y = 1 TO iden
|
||||||
n$ = a$
|
n$ = a$
|
||||||
args$ = ""
|
args$ = ""
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
'If the user currently has the cursor over a SUB/FUNC name, let's highlight it
|
||||||
|
'instead of the currently in edition, for a quick link functionality:
|
||||||
|
IF a2$ = UCASE$(n$) THEN PreferCurrentCursorSUBFUNC = (LEN(ly$) / 4)
|
||||||
|
|
||||||
IF LEN(n$) <= 20 THEN
|
IF LEN(n$) <= 20 THEN
|
||||||
n$ = n$ + SPACE$(20 - LEN(n$))
|
n$ = n$ + SPACE$(20 - LEN(n$))
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -6483,7 +6509,11 @@ o(i).y = 1
|
||||||
'68
|
'68
|
||||||
o(i).w = idewx - 12: o(i).h = idewy + idesubwindow - 9
|
o(i).w = idewx - 12: o(i).h = idewy + idesubwindow - 9
|
||||||
o(i).txt = idenewtxt(l$)
|
o(i).txt = idenewtxt(l$)
|
||||||
o(i).sel = CurrentlyViewingWhichSUBFUNC
|
IF PreferCurrentCursorSUBFUNC <> 0 THEN
|
||||||
|
o(i).sel = PreferCurrentCursorSUBFUNC
|
||||||
|
ELSE
|
||||||
|
o(i).sel = CurrentlyViewingWhichSUBFUNC
|
||||||
|
END IF
|
||||||
o(i).nam = idenewtxt("Program Items")
|
o(i).nam = idenewtxt("Program Items")
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue