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

Show compilation progress (BASIC -> C++) in the status bar.

Browse source 
The only indication that the program was being compiled was the "..." on the status area. Now, if you hit F5 (or F11) and your program is still being compiled to C++, you will see a progress indicator on the bottom status line.

Also:
- Display "Start typing to search for text in this help page" upon invoking the help system (the search functionality is already built-in).
This commit is contained in:
FellippeHeitor 2016-05-24 01:35:28 -03:00
parent 8749b28228
commit 546947d967
2 changed files with 44 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/global/version.bas
View file

@ -3,5 +3,5 @@ DIM SHARED BuildNum AS STRING
Version$ = "1.000"
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
'integer. If you make a change, update the date and increase the id!
BuildNum$ = "20160507/14"
BuildNum$ = "20160524/15"

59
source/ide/ide_methods.bas
View file

@ -91,11 +91,28 @@ IF ASC(idecommand$) = 3 THEN 'request next line (compiler->ide)
idecompiledline$ = idegetline(idecompiledline)
ide = 4
idereturn$ = idecompiledline$
'Update compilation progress on the status bar
IF IdeSystem <> 3 AND ideautorun <> 0 THEN
status.progress$ = str2$(INT((idecompiledline * 100) / iden))
status.progress$ = STRING$(3 - LEN(status.progress$), 32) + status.progress$ + "%)"
IF prepass THEN
status.progress$ = "Step 1/2 (" + status.progress$
ELSE
status.progress$ = "Step 2/2 (" + status.progress$
END IF
IdeInfo = status.progress$
END IF
UpdateIdeInfo
EXIT FUNCTION
END IF
IF iCHANGED THEN iCHECKLATER = 1
END IF 'ideexit
END IF 'not on screen
ELSE
IF IdeSystem <> 3 THEN IdeInfo = ""
UpdateIdeInfo
END IF 'idecompiledline<iden
END IF
@ -832,6 +849,7 @@ DO
IF idechangemade THEN
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
IF LEFT$(IdeInfo, 5) = "Step " THEN IdeInfo = ""
LOCATE idewy - 3, 2: PRINT "..."; 'assume new compilation will begin
END IF
@ -890,13 +908,22 @@ DO
END IF
NEXT
'Help_Search_Str
a$ = ""
IF LEN(Help_Search_Str) THEN
a$ = Help_Search_Str
IF LEN(a$) > 20 THEN a$ = string$(3, 250) + RIGHT$(a$, 17)
a$ = "[" + a$ + "](DELETE=next)"
IF IdeSystem = 3 THEN
a$ = ""
IF LEN(Help_Search_Str) THEN
a$ = Help_Search_Str
IF LEN(a$) > 20 THEN a$ = string$(3, 250) + RIGHT$(a$, 17)
a$ = "[" + a$ + "](DELETE=next)"
IdeInfo = a$
ELSE
IdeInfo = "Start typing to search for text in this help page"
END IF
ELSE
IdeInfo = ""
END IF
IdeInfo$ = a$
UpdateIdeInfo
ELSE
Help_Search_Str = ""
END IF
IF IdeSystem = 2 THEN 'override cursor position
@ -920,16 +947,6 @@ DO
SCREEN , , 3, 0
END IF
IF IdeSystem <> 3 THEN IdeInfo$ = ""
'show info message (if any)
a$ = IdeInfo$
IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + string$(3, 250)
IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$))
COLOR 0, 3: LOCATE idewy + idesubwindow, 2
PRINT a$;
LOCATE , , 1
@ -12611,5 +12628,15 @@ SUB AddQuickNavHistory(LineNumber&)
QuickNavHistory(QuickNavTotal) = LineNumber&
END SUB
SUB UpdateIdeInfo
'show info message (if any)
a$ = IdeInfo
IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + string$(3, 250)
IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$))
COLOR 0, 3: LOCATE idewy + idesubwindow, 2
PRINT a$;
PCOPY 3, 0
END SUB
'$INCLUDE:'wiki\wiki_methods.bas'