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

Darken the FG color too (while compiling with g++).

Browse source
This commit is contained in:
FellippeHeitor 2016-07-17 17:40:10 -03:00
parent 94d1442060
commit a3c4bc4336
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
source/ide/ide_methods.bas
View file

@ -185,8 +185,10 @@ IF LEFT$(c$, 1) = CHR$(12) THEN
'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
TempDarkerBGColor~& = _RGB32(_RED32(IDEBackgroundColor) * .5, _GREEN32(IDEBackgroundColor) * .5, _BLUE32(IDEBackgroundColor) * .5)
TempDarkerFGColor~& = _RGB32(_RED32(IDETextColor) * .5, _GREEN32(IDETextColor) * .5, _BLUE32(IDETextColor) * .5)
_PALETTECOLOR 1, TempDarkerBGColor~&, 0
_PALETTECOLOR 13, TempDarkerFGColor~&, 0
IF os$ = "LNX" THEN
PRINT "Creating executable file named " + CHR$(34) + f$ + extension$ + CHR$(34) + "..."
@ -1347,8 +1349,10 @@ DO
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
TempDarkerBGColor~& = _RGB32(_RED32(IDEBackgroundColor) * .5, _GREEN32(IDEBackgroundColor) * .5, _BLUE32(IDEBackgroundColor) * .5)
TempDarkerFGColor~& = _RGB32(_RED32(IDETextColor) * .5, _GREEN32(IDETextColor) * .5, _BLUE32(IDETextColor) * .5)
_PALETTECOLOR 1, TempDarkerBGColor~&, 0
_PALETTECOLOR 13, TempDarkerFGColor~&, 0
IF os$ = "LNX" THEN
LOCATE idewy - 3, 2: PRINT "Creating executable file...";

6
source/qb64.bas
View file

@ -11902,8 +11902,9 @@ IF os$ = "WIN" THEN
SHELL _HIDE a$
CHDIR "..\.."
IF idemode THEN
'Restore background color
'Restore fg/bg colors
_PALETTECOLOR 1, IDEBackgroundColor, 0
_PALETTECOLOR 13, IDETextColor, 0
END IF
END IF 'No_C_Compile_Mode=0
@ -12190,8 +12191,9 @@ IF os$ = "LNX" THEN
SHELL _HIDE a$
CHDIR "../.."
IF idemode THEN
'Restore background color
'Restore fg/bg colors
_PALETTECOLOR 1, IDEBackgroundColor, 0
_PALETTECOLOR 13, IDETextColor, 0
END IF
END IF