mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
Add percentage bar to "Change All" (Change dialog).
This commit is contained in:
parent
2840adce97
commit
525de822d1
|
@ -5479,13 +5479,14 @@ FUNCTION ide2 (ignore)
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
IF r$ = "C" THEN
|
IF r$ = "C" THEN
|
||||||
idecx = oldcx: idecy = oldcy: GOTO ideloop
|
idecx = oldcx: idecy = oldcy
|
||||||
IF changed THEN
|
IF changed THEN
|
||||||
ideshowtext
|
ideshowtext
|
||||||
SCREEN , , 0, 0: LOCATE , , 1: SCREEN , , 3, 0
|
SCREEN , , 0, 0: LOCATE , , 1: SCREEN , , 3, 0
|
||||||
PCOPY 3, 0
|
PCOPY 3, 0
|
||||||
idechanged changed
|
idechanged changed
|
||||||
END IF
|
END IF
|
||||||
|
GOTO ideloop
|
||||||
END IF
|
END IF
|
||||||
IF r$ = "Y" THEN
|
IF r$ = "Y" THEN
|
||||||
l$ = idegetline(idecy)
|
l$ = idegetline(idecy)
|
||||||
|
@ -6234,6 +6235,7 @@ FUNCTION idechange$
|
||||||
o(i).sel = idefindonlystrings
|
o(i).sel = idefindonlystrings
|
||||||
|
|
||||||
i = i + 1
|
i = i + 1
|
||||||
|
ButtonsID = i
|
||||||
o(i).typ = 3
|
o(i).typ = 3
|
||||||
o(i).y = 14
|
o(i).y = 14
|
||||||
o(i).txt = idenewtxt("Find and #Verify" + sep + "#Change All" + sep + "Cancel")
|
o(i).txt = idenewtxt("Find and #Verify" + sep + "#Change All" + sep + "Cancel")
|
||||||
|
@ -6247,24 +6249,7 @@ FUNCTION idechange$
|
||||||
DO 'main loop
|
DO 'main loop
|
||||||
|
|
||||||
'-------- generic display dialog box & objects --------
|
'-------- generic display dialog box & objects --------
|
||||||
|
GOSUB displayDialog
|
||||||
idedrawpar p
|
|
||||||
f = 1: cx = 0: cy = 0
|
|
||||||
FOR i = 1 TO 100
|
|
||||||
|
|
||||||
IF o(i).typ THEN
|
|
||||||
|
|
||||||
'prepare object
|
|
||||||
o(i).foc = focus - f 'focus offset
|
|
||||||
|
|
||||||
o(i).cx = 0: o(i).cy = 0
|
|
||||||
|
|
||||||
idedrawobj o(i), f 'display object
|
|
||||||
|
|
||||||
IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy
|
|
||||||
|
|
||||||
END IF
|
|
||||||
NEXT i
|
|
||||||
lastfocus = f - 1
|
lastfocus = f - 1
|
||||||
'-------- end of generic display dialog box & objects --------
|
'-------- end of generic display dialog box & objects --------
|
||||||
|
|
||||||
|
@ -6388,6 +6373,15 @@ FUNCTION idechange$
|
||||||
IF idefindcasesens = 0 THEN s$ = UCASE$(s$)
|
IF idefindcasesens = 0 THEN s$ = UCASE$(s$)
|
||||||
|
|
||||||
FOR y = 1 TO iden
|
FOR y = 1 TO iden
|
||||||
|
COLOR 0, 7
|
||||||
|
maxprogresswidth = p.w - 4
|
||||||
|
percentage = INT(y / iden * 100)
|
||||||
|
percentagechars = INT(maxprogresswidth * y / iden)
|
||||||
|
percentageMsg$ = STRING$(percentagechars, 219) + STRING$(maxprogresswidth - percentagechars, 176)
|
||||||
|
LOCATE p.y + 7, p.x + 2
|
||||||
|
PRINT percentageMsg$;
|
||||||
|
PCOPY 1, 0
|
||||||
|
|
||||||
l$ = idegetline(y)
|
l$ = idegetline(y)
|
||||||
l2$ = ""
|
l2$ = ""
|
||||||
|
|
||||||
|
@ -6442,7 +6436,24 @@ FUNCTION idechange$
|
||||||
|
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
IF changed = 0 THEN idenomatch ELSE idechanged changed: idechangemade = 1
|
SCREEN , , 3, 0
|
||||||
|
COLOR 7, 1: LOCATE idewy - 3, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 2, 2: PRINT SPACE$(idewx - 2);: LOCATE idewy - 1, 2: PRINT SPACE$(idewx - 2); 'clear status window
|
||||||
|
idefocusline = 0
|
||||||
|
ideshowtext
|
||||||
|
PCOPY 3, 0
|
||||||
|
PCOPY 0, 2
|
||||||
|
PCOPY 0, 1
|
||||||
|
SCREEN , , 1, 0
|
||||||
|
GOSUB displayDialog
|
||||||
|
PCOPY 1, 0
|
||||||
|
|
||||||
|
IF changed = 0 THEN
|
||||||
|
idenomatch
|
||||||
|
ELSE
|
||||||
|
idechanged changed: idechangemade = 1
|
||||||
|
END IF
|
||||||
|
|
||||||
|
idetxt(o(ButtonsID).txt) = "Find and #Verify" + sep + "#Change All" + sep + "Close"
|
||||||
END IF 'change all
|
END IF 'change all
|
||||||
|
|
||||||
|
|
||||||
|
@ -6468,7 +6479,26 @@ FUNCTION idechange$
|
||||||
mousedown = 0
|
mousedown = 0
|
||||||
mouseup = 0
|
mouseup = 0
|
||||||
LOOP
|
LOOP
|
||||||
|
EXIT FUNCTION
|
||||||
|
displayDialog:
|
||||||
|
idedrawpar p
|
||||||
|
f = 1: cx = 0: cy = 0
|
||||||
|
FOR i = 1 TO 100
|
||||||
|
|
||||||
|
IF o(i).typ THEN
|
||||||
|
|
||||||
|
'prepare object
|
||||||
|
o(i).foc = focus - f 'focus offset
|
||||||
|
|
||||||
|
o(i).cx = 0: o(i).cy = 0
|
||||||
|
|
||||||
|
idedrawobj o(i), f 'display object
|
||||||
|
|
||||||
|
IF o(i).cx THEN cx = o(i).cx: cy = o(i).cy
|
||||||
|
|
||||||
|
END IF
|
||||||
|
NEXT i
|
||||||
|
RETURN
|
||||||
END FUNCTION
|
END FUNCTION
|
||||||
|
|
||||||
SUB FindQuoteComment (text$, __cursor AS LONG, c AS _BYTE, q AS _BYTE)
|
SUB FindQuoteComment (text$, __cursor AS LONG, c AS _BYTE, q AS _BYTE)
|
||||||
|
@ -6495,7 +6525,8 @@ SUB FindQuoteComment (text$, __cursor AS LONG, c AS _BYTE, q AS _BYTE)
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
SUB idechanged (totalChanges AS LONG)
|
SUB idechanged (totalChanges AS LONG)
|
||||||
result = idemessagebox("Change Complete", LTRIM$(STR$(totalChanges)) + " substitutions.", "")
|
IF totalChanges > 1 THEN pl$ = "s"
|
||||||
|
result = idemessagebox("Change Complete", LTRIM$(STR$(totalChanges)) + " substitution" + pl$ + ".", "")
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
FUNCTION idechangeit$
|
FUNCTION idechangeit$
|
||||||
|
|
Loading…
Reference in a new issue