QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-04 23:30:24 +00:00
Code Releases Wiki Activity

Make DarkenFGBG a function so it gets treated as an array when IDE support is not compiled in.

Browse source
This commit is contained in:
Luke Ceddia 2016-08-15 20:58:11 +10:00
parent c8d302d1d2
commit 3f3016da6d
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/ide/ide_methods.bas
View file

@ -187,7 +187,7 @@ FUNCTION ide2 (ignore)
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
LOCATE idewy - 3, 2
DarkenFGBG -1
dummy = DarkenFGBG(1)
BkpIdeSystem = IdeSystem: IdeSystem = 2: GOSUB UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem
COLOR 1, 7: LOCATE idewy - 4, (idewx - 8) / 2: PRINT " Status "
COLOR 5, 1
@ -1345,13 +1345,13 @@ FUNCTION ide2 (ignore)
GOTO specialchar
END IF
DarkenFGBG -1
dummy = DarkenFGBG(1)
BkpIdeSystem = IdeSystem: IdeSystem = 2: GOSUB UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem
COLOR 1, 7: LOCATE idewy - 4, (idewx - 8) / 2: PRINT " Status "
COLOR 5, 1
LOCATE idewy - 3, 2: PRINT "Starting program...";
ELSE
DarkenFGBG -1
dummy = DarkenFGBG(1)
BkpIdeSystem = IdeSystem: IdeSystem = 2: GOSUB UpdateTitleOfMainWindow: IdeSystem = BkpIdeSystem
COLOR 1, 7: LOCATE idewy - 4, (idewx - 8) / 2: PRINT " Status "
COLOR 5, 1
@ -13984,10 +13984,10 @@ SUB UpdateIdeInfo
PCOPY 3, 0
END SUB
SUB DarkenFGBG (Action AS _BYTE)
FUNCTION DarkenFGBG (Action AS _BYTE)
'Darken the interface while compilation is taking place,
'to give a sense of temporary unavailability:
IF Action = -1 THEN
IF Action = 1 THEN
TempDarkerBGColor~& = _RGB32(_RED32(IDEBackgroundColor) * .5, _GREEN32(IDEBackgroundColor) * .5, _BLUE32(IDEBackgroundColor) * .5)
TempDarkerBG2Color~& = _RGB32(_RED32(IDEBackgroundColor2) * .5, _GREEN32(IDEBackgroundColor2) * .5, _BLUE32(IDEBackgroundColor2) * .5)
TempDarkerFGColor~& = _RGB32(_RED32(IDETextColor) * .5, _GREEN32(IDETextColor) * .5, _BLUE32(IDETextColor) * .5)

8
source/qb64.bas
View file

@ -1116,7 +1116,7 @@ IF C = 9 THEN 'run
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 idemode THEN
'Darken fg/bg colors
DarkenFGBG -1
dummy = DarkenFGBG(1)
COLOR 5
END IF
LOCATE idewy - 3, 2: PRINT "Starting program...";
@ -1140,7 +1140,7 @@ IF C = 9 THEN 'run
IF idemode THEN
'Darken fg/bg colors
DarkenFGBG 0
dummy = DarkenFGBG(0)
END IF
sendc$ = CHR$(6) 'ready
@ -11915,7 +11915,7 @@ IF os$ = "WIN" THEN
CHDIR "..\.."
IF idemode THEN
'Restore fg/bg colors
DarkenFGBG 0
dummy = DarkenFGBG(0)
END IF
END IF 'No_C_Compile_Mode=0
@ -12203,7 +12203,7 @@ IF os$ = "LNX" THEN
CHDIR "../.."
IF idemode THEN
'Restore fg/bg colors
DarkenFGBG 0
dummy = DarkenFGBG(0)
END IF
END IF