From 7916be2e3ed9583496fd345fa7bcd2fb98e6f2dd Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Mon, 18 Jan 2021 02:25:38 -0300 Subject: [PATCH] Show eventual substitutions even if Find and Replace is canceled. --- source/ide/ide_methods.bas | 10 +++++++++- source/qb64.bas | 2 +- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas index 7c6ba1819..2be0c20c8 100644 --- a/source/ide/ide_methods.bas +++ b/source/ide/ide_methods.bas @@ -5478,7 +5478,15 @@ FUNCTION ide2 (ignore) idedeltxt PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt ideselect = 0 - IF r$ = "C" THEN idecx = oldcx: idecy = oldcy: GOTO ideloop + IF r$ = "C" THEN + idecx = oldcx: idecy = oldcy: GOTO ideloop + IF changed THEN + ideshowtext + SCREEN , , 0, 0: LOCATE , , 1: SCREEN , , 3, 0 + PCOPY 3, 0 + idechanged changed + END IF + END IF IF r$ = "Y" THEN l$ = idegetline(idecy) idechangemade = 1 diff --git a/source/qb64.bas b/source/qb64.bas index 9060df312..99b8be97a 100644 --- a/source/qb64.bas +++ b/source/qb64.bas @@ -12511,7 +12511,7 @@ IF Debug THEN PRINT #9, "ERL="; ERL IF idemode AND qberrorhappenedvalue >= 0 THEN 'real qb error occurred ideerrorline = linenumber - idemessage$ = "Compiler error (check for syntax errors) (" _ERRORMESSAGE$ + ":" + idemessage$ = "Compiler error (check for syntax errors) (" + _ERRORMESSAGE$ + ":" IF ERR THEN idemessage$ = idemessage$ + str2$(ERR) + "-" IF _ERRORLINE THEN idemessage$ = idemessage$ + str2$(_ERRORLINE) IF _INCLERRORLINE THEN idemessage$ = idemessage$ + "-" + _INCLERRORFILE$ + "-" + str2$(_INCLERRORLINE)