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

Shows search flags when no match is found (F3).

Browse source
This commit is contained in:
FellippeHeitor 2021-01-18 04:28:38 -03:00
parent 525de822d1
commit 8fd038be44
1 changed files with 21 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
source/ide/ide_methods.bas
View file

@ -1674,7 +1674,7 @@ FUNCTION ide2 (ignore)
GOSUB UpdateSearchBar
IF KSHIFT THEN idefindinvert = 1
IdeAddSearched idefindtext
idefindagain
idefindagain -1
ELSE
GOTO idefindjmp
END IF
@ -5545,7 +5545,7 @@ FUNCTION ide2 (ignore)
PCOPY 3, 0
result = idemessagebox("Search complete", "No changes made.", "")
ELSE
idenomatch
idenomatch -1
END IF
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
GOTO ideloop
@ -6448,7 +6448,7 @@ FUNCTION idechange$
PCOPY 1, 0
IF changed = 0 THEN
idenomatch
idenomatch 0
ELSE
idechanged changed: idechangemade = 1
END IF
@ -7144,7 +7144,7 @@ FUNCTION idefind$
s$ = idetxt(o(1).txt)
idefindtext$ = s$
IdeAddSearched idefindtext
idefindagain
idefindagain 0
EXIT FUNCTION
END IF
@ -7176,7 +7176,7 @@ FUNCTION idefind$
LOOP
END FUNCTION
SUB idefindagain
SUB idefindagain (showFlags AS _BYTE)
DIM comment AS _BYTE, quote AS _BYTE
IF idefindinvert THEN
@ -7281,7 +7281,7 @@ SUB idefindagain
IF idefindbackwards THEN
y = y - 1
IF y = start - 1 AND looped = 1 THEN
idenomatch
idenomatch showFlags
IF idefindinvert THEN
IF idefindbackwards = 0 THEN idefindbackwards = 1 ELSE idefindbackwards = 0
idefindinvert = 0
@ -7293,7 +7293,7 @@ SUB idefindagain
ELSE
y = y + 1
IF y = start + 1 AND looped = 1 THEN
idenomatch
idenomatch showFlags
IF idefindinvert THEN
IF idefindbackwards = 0 THEN idefindbackwards = 1 ELSE idefindbackwards = 0
idefindinvert = 0
@ -7660,8 +7660,20 @@ FUNCTION idenewtxt (a$)
idenewtxt = idetxtlast
END FUNCTION
SUB idenomatch
result = idemessagebox("Search complete", "Match not found.", "")
SUB idenomatch (showFlags AS _BYTE)
msg$ = "Match not found."
c$ = ", "
IF showFlags THEN
IF idefindcasesens THEN flags$ = flags$ + "match case": flagset = flagset + 1
IF idefindwholeword THEN flags$ = flags$ + LEFT$(c$, ABS(flagset) * 2) + "whole word": flagset = flagset + 1
IF idefindnocomments THEN flags$ = flags$ + LEFT$(c$, ABS(flagset) * 2) + "no comments": flagset = flagset + 1
IF idefindonlycomments THEN flags$ = flags$ + LEFT$(c$, ABS(flagset) * 2) + "only comments": flagset = flagset + 1
IF idefindnostrings THEN flags$ = flags$ + LEFT$(c$, ABS(flagset) * 2) + "no strings": flagset = flagset + 1
IF idefindonlystrings THEN flags$ = flags$ + LEFT$(c$, ABS(flagset) * 2) + "only strings": flagset = flagset + 1
IF flagset > 1 THEN pl$ = "s"
IF flagset THEN msg$ = msg$ + "\n(Flag" + pl$ + ": " + flags$ + ")"
END IF
result = idemessagebox("Search complete", msg$, "")
END SUB
FUNCTION idefiledialog$(programname$, mode AS _BYTE)