mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
Replace "..." with String$(3, 250) for status indicator
This commit is contained in:
parent
358c0b23ef
commit
b8c0763b70
1 changed files with 15 additions and 4 deletions
|
@ -103,6 +103,17 @@ FUNCTION ide (ignore)
|
||||||
status.progress$ = STRING$(3 - LEN(status.progress$), 32) + status.progress$ + "%"
|
status.progress$ = STRING$(3 - LEN(status.progress$), 32) + status.progress$ + "%"
|
||||||
END IF
|
END IF
|
||||||
IdeInfo = CHR$(0) + status.progress$
|
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
|
END IF
|
||||||
UpdateIdeInfo
|
UpdateIdeInfo
|
||||||
|
|
||||||
|
@ -1085,7 +1096,7 @@ FUNCTION ide2 (ignore)
|
||||||
IF IDEShowErrorsImmediately OR IDECompilationRequested THEN
|
IF IDEShowErrorsImmediately OR IDECompilationRequested THEN
|
||||||
clearStatusWindow 0
|
clearStatusWindow 0
|
||||||
IdeInfo = ""
|
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
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -2975,7 +2986,7 @@ FUNCTION ide2 (ignore)
|
||||||
IF tempInclude1$ = tempInclude2$ THEN
|
IF tempInclude1$ = tempInclude2$ THEN
|
||||||
IF IDEShowErrorsImmediately THEN
|
IF IDEShowErrorsImmediately THEN
|
||||||
IF idecompiling = 1 THEN
|
IF idecompiling = 1 THEN
|
||||||
_PRINTSTRING (2, idewy - 3), "..."
|
_PRINTSTRING (2, idewy - 3), STRING$(3, 250) '"..."
|
||||||
ELSE
|
ELSE
|
||||||
_PRINTSTRING (2, idewy - 3), "OK" 'report OK status
|
_PRINTSTRING (2, idewy - 3), "OK" 'report OK status
|
||||||
statusarealink = 0
|
statusarealink = 0
|
||||||
|
@ -6350,10 +6361,10 @@ FUNCTION ide2 (ignore)
|
||||||
IdeInfo = ""
|
IdeInfo = ""
|
||||||
|
|
||||||
IF idecompiling = 1 THEN
|
IF idecompiling = 1 THEN
|
||||||
_PRINTSTRING (2, idewy - 3), "..."
|
_PRINTSTRING (2, idewy - 3), STRING$(3, 250) '"..."
|
||||||
ELSE
|
ELSE
|
||||||
IF idefocusline THEN
|
IF idefocusline THEN
|
||||||
_PRINTSTRING (2, idewy - 3), "..."
|
_PRINTSTRING (2, idewy - 3), STRING$(3, 250) '"..."
|
||||||
ELSE
|
ELSE
|
||||||
_PRINTSTRING (2, idewy - 3), "OK" 'report OK status
|
_PRINTSTRING (2, idewy - 3), "OK" 'report OK status
|
||||||
END IF
|
END IF
|
||||||
|
|
Loading…
Reference in a new issue