QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 09:20:38 +00:00
Code Issues Releases Wiki Activity

Cosmetic: Darken the interface while G++ is being run.

Browse source 
Uses _PALETTECOLOR to change the background of the IDE to a darker shade while external compilation is taking place, to give a sense of temporary unavailability.
This commit is contained in:
FellippeHeitor 2016-07-17 17:17:51 -03:00
parent f9735e6785
commit 99e0b539af
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
source/ide/ide_methods.bas
View file

@ -183,6 +183,11 @@ IF LEFT$(c$, 1) = CHR$(12) 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
LOCATE idewy - 3, 2
'Darken the interface while compilation is taking place,
'to give a sense of temporary unavailability:
TempDarkerColor~& = _RGB32(_RED32(IDEBackgroundColor) * .5, _GREEN32(IDEBackgroundColor) * .5, _BLUE32(IDEBackgroundColor) * .5)
_PALETTECOLOR 1, TempDarkerColor~&, 0
IF os$ = "LNX" THEN
PRINT "Creating executable file named " + CHR$(34) + f$ + extension$ + CHR$(34) + "..."
ELSE
@ -1340,6 +1345,10 @@ DO
LOCATE idewy - 3, 2: PRINT "Starting program...";
ELSE
'Darken the interface while compilation is taking place,
'to give a sense of temporary unavailability:
TempDarkerColor~& = _RGB32(_RED32(IDEBackgroundColor) * .5, _GREEN32(IDEBackgroundColor) * .5, _BLUE32(IDEBackgroundColor) * .5)
_PALETTECOLOR 1, TempDarkerColor~&, 0
IF os$ = "LNX" THEN
LOCATE idewy - 3, 2: PRINT "Creating executable file...";

8
source/qb64.bas
View file

@ -11901,6 +11901,10 @@ IF os$ = "WIN" THEN
CHDIR ".\internal\c"
SHELL _HIDE a$
CHDIR "..\.."
IF idemode THEN
'Restore background color
_PALETTECOLOR 1, IDEBackgroundColor, 0
END IF
END IF 'No_C_Compile_Mode=0
END IF
@ -12185,6 +12189,10 @@ IF os$ = "LNX" THEN
CHDIR "./internal/c"
SHELL _HIDE a$
CHDIR "../.."
IF idemode THEN
'Restore background color
_PALETTECOLOR 1, IDEBackgroundColor, 0
END IF
END IF
IF INSTR(_OS$, "[MACOSX]") THEN