QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-02 22:21:21 +00:00
Code Releases Wiki Activity

Replace "..." with String$(3, 250) for status indicator

Browse source
This commit is contained in:
FellippeHeitor 2021-10-12 16:03:58 -03:00
parent 358c0b23ef
commit b8c0763b70
1 changed files with 15 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
source/ide/ide_methods.bas
View file

@ -103,6 +103,17 @@ FUNCTION ide (ignore)
status.progress$ = STRING$(3 - LEN(status.progress$), 32) + status.progress$ + "%"
END IF
IdeInfo = CHR$(0) + status.progress$
'ELSE
' STATIC p AS _BYTE, lastUpdateDots AS SINGLE
' IF TIMER - lastUpdateDots > .5 THEN
' lastUpdateDots = TIMER
' p = p + 1
' temp$ = STRING$(3, 250) '"..."
' IF p > 3 THEN p = 1
' ASC(temp$, p) = 254
' COLOR 7, 1
' _PRINTSTRING (2, idewy - 3), temp$ 'compilation progress indicator
' END IF
END IF
UpdateIdeInfo
@ -1085,7 +1096,7 @@ FUNCTION ide2 (ignore)
IF IDEShowErrorsImmediately OR IDECompilationRequested THEN
clearStatusWindow 0
IdeInfo = ""
_PRINTSTRING (2, idewy - 3), "..." 'assume new compilation will begin
_PRINTSTRING (2, idewy - 3), STRING$(3, 250) 'assume new compilation will begin "..."
END IF
END IF
@ -2975,7 +2986,7 @@ FUNCTION ide2 (ignore)
IF tempInclude1$ = tempInclude2$ THEN
IF IDEShowErrorsImmediately THEN
IF idecompiling = 1 THEN
_PRINTSTRING (2, idewy - 3), "..."
_PRINTSTRING (2, idewy - 3), STRING$(3, 250) '"..."
ELSE
_PRINTSTRING (2, idewy - 3), "OK" 'report OK status
statusarealink = 0
@ -6350,10 +6361,10 @@ FUNCTION ide2 (ignore)
IdeInfo = ""
IF idecompiling = 1 THEN
_PRINTSTRING (2, idewy - 3), "..."
_PRINTSTRING (2, idewy - 3), STRING$(3, 250) '"..."
ELSE
IF idefocusline THEN
_PRINTSTRING (2, idewy - 3), "..."
_PRINTSTRING (2, idewy - 3), STRING$(3, 250) '"..."
ELSE
_PRINTSTRING (2, idewy - 3), "OK" 'report OK status
END IF