QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-01 10:20:42 +00:00
Code Releases Wiki Activity

New default theme "Super dark blue".

Browse source
This commit is contained in:
FellippeHeitor 2020-12-29 00:18:33 -03:00
parent ce1d6008c2
commit d9f148b12c
2 changed files with 32 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
source/global/IDEsettings.bas
View file

@ -57,10 +57,10 @@ IF LoadedIDESettings = 0 THEN
result = ReadConfigSetting("CommentColor", value$)
IF result THEN
IDECommentColor = VRGBS(value$, _RGB32(85, 255, 255))
IDECommentColor = VRGBS(value$, _RGB32(98,98,98))
ELSE
IDECommentColor = _RGB32(85, 255, 255)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "CommentColor", "_RGB32(85,255,255)"
IDECommentColor = _RGB32(98,98,98)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "CommentColor", "_RGB32(98,98,98)"
END IF
result = ReadConfigSetting("CustomKeywords$", value$)
@ -84,66 +84,66 @@ IF LoadedIDESettings = 0 THEN
result = ReadConfigSetting("MetaCommandColor", value$)
IF result THEN
IDEMetaCommandColor = VRGBS(value$, _RGB32(85, 255, 85))
IDEMetaCommandColor = VRGBS(value$, _RGB32(85,206,85))
ELSE
IDEMetaCommandColor = _RGB32(85, 255, 85)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "MetaCommandColor", "_RGB32(85,255,85)"
IDEMetaCommandColor = _RGB32(85,206,85)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "MetaCommandColor", "_RGB32(85,206,85)"
END IF
result = ReadConfigSetting("KeywordColor", value$)
IF result THEN
IDEKeywordColor = VRGBS(value$, _RGB32(147, 196, 235))
IDEKeywordColor = VRGBS(value$, _RGB32(69,118,147))
ELSE
IDEKeywordColor = _RGB32(147, 196, 235)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "KeywordColor", "_RGB32(147,196,235)"
IDEKeywordColor = _RGB32(69,118,147)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "KeywordColor", "_RGB32(69,118,147)"
END IF
result = ReadConfigSetting("HighlightColor", value$)
IF result THEN
IDEBracketHighlightColor = VRGBS(value$, _RGB32(0, 147, 177))
IDEBracketHighlightColor = VRGBS(value$, _RGB32(0,88,108))
ELSE
IDEBracketHighlightColor = _RGB32(0, 147, 177)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "HighlightColor", "_RGB32(0,147,177)"
IDEBracketHighlightColor = _RGB32(0,88,108)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "HighlightColor", "_RGB32(0,88,108)"
END IF
result = ReadConfigSetting("NumbersColor", value$)
IF result THEN
IDENumbersColor = VRGBS(value$, _RGB32(245, 128, 177))
IDENumbersColor = VRGBS(value$, _RGB32(216,98,78))
ELSE
IDENumbersColor = _RGB32(245, 128, 177)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "NumbersColor", "_RGB32(245,128,177)"
IDENumbersColor = _RGB32(216,98,78)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "NumbersColor", "_RGB32(216,98,78)"
END IF
result = ReadConfigSetting("QuoteColor", value$)
IF result THEN
IDEQuoteColor = VRGBS(value$, _RGB32(255, 255, 85))
IDEQuoteColor = VRGBS(value$, _RGB32(255,167,0))
ELSE
IDEQuoteColor = _RGB32(255, 255, 85)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "QuoteColor", "_RGB32(255,255,85)"
IDEQuoteColor = _RGB32(255,167,0)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "QuoteColor", "_RGB32(255,167,0)"
END IF
result = ReadConfigSetting("TextColor", value$)
IF result THEN
IDETextColor = VRGBS(value$, _RGB32(226, 226, 226))
IDETextColor = VRGBS(value$, _RGB32(216,216,216))
ELSE
IDETextColor = _RGB32(226, 226, 226)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "TextColor", "_RGB32(226,226,226)"
IDETextColor = _RGB32(216,216,216)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "TextColor", "_RGB32(216,216,216)"
END IF
result = ReadConfigSetting("BackgroundColor", value$)
IF result THEN
IDEBackGroundColor = VRGBS(value$, _RGB32(0, 0, 170))
IDEBackGroundColor = VRGBS(value$, _RGB32(0,0,39))
ELSE
IDEBackGroundColor = _RGB32(0, 0, 170)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor", "_RGB32(0,0,170)"
IDEBackGroundColor = _RGB32(0,0,39)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor", "_RGB32(0,0,39)"
END IF
result = ReadConfigSetting("BackgroundColor2", value$)
IF result THEN
IDEBackGroundColor2 = VRGBS(value$, _RGB32(0, 108, 177))
IDEBackGroundColor2 = VRGBS(value$, _RGB32(0,49,78))
ELSE
IDEBackGroundColor2 = _RGB32(0, 108, 177)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor2", "_RGB32(0,108,177)"
IDEBackGroundColor2 = _RGB32(0,49,78)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor2", "_RGB32(0,49,78)"
END IF
result = ReadConfigSetting("SwapMouseButton", value$)
@ -478,11 +478,6 @@ IF LoadedIDESettings = 0 THEN
WriteConfigSetting "'[GENERAL SETTINGS]", "BackupSize", "100 'in MB"
WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!"
WriteConfigSetting "'[IDE COLOR SETTINGS]", "SchemeID", "1"
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor", "_RGB32(0,0,170)"
WriteConfigSetting "'[IDE COLOR SETTINGS]", "CommentColor", "_RGB32(85,255,255)"
WriteConfigSetting "'[IDE COLOR SETTINGS]", "MetaCommandColor", "_RGB32(85,255,85)"
WriteConfigSetting "'[IDE COLOR SETTINGS]", "QuoteColor", "_RGB32(255,255,85)"
WriteConfigSetting "'[IDE COLOR SETTINGS]", "TextColor", "_RGB32(255,255,255)"
IF INSTR(_OS$, "WIN") THEN
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_AutoPosition", "TRUE"
END IF

9
source/ide/ide_methods.bas
View file

@ -312,9 +312,9 @@ FUNCTION ide2 (ignore)
menu$(m, i) = "Options": i = i + 1
menu$(m, i) = "#Display...": i = i + 1
menu$(m, i) = "IDE C#olors...": i = i + 1
menu$(m, i) = "#Code Layout...": i = i + 1
menu$(m, i) = "-": i = i + 1
menu$(m, i) = "#Language...": i = i + 1
menu$(m, i) = "#Code Layout...": i = i + 1
menu$(m, i) = "#Backup/Undo...": i = i + 1
menu$(m, i) = "#Advanced...": i = i + 1
menu$(m, i) = "-": i = i + 1
@ -15070,11 +15070,12 @@ END SUB
SUB LoadColorSchemes
DIM i AS LONG
'Preset built-in schemes
PresetColorSchemes = 9
PresetColorSchemes = 10
REDIM ColorSchemes$(1 TO PresetColorSchemes): i = 0
i = i + 1: ColorSchemes$(i) = "QB64 Default|226226226147196235245128177255255085085255085085255255000000170000108177000147177"
i = i + 1: ColorSchemes$(i) = "Classic QB4.5|177177177177177177177177177177177177177177177177177177000000170000000170000147177"
i = i + 1: ColorSchemes$(i) = "Super dark blue|216216216069118147216098078255167000085206085098098098000000039000049078000088108"
i = i + 1: ColorSchemes$(i) = "Dark blue|226226226069147216245128177255177000085255085049196196000000069000068108000147177"
i = i + 1: ColorSchemes$(i) = "QB64 Original|226226226147196235245128177255255085085255085085255255000000170000108177000147177"
i = i + 1: ColorSchemes$(i) = "Classic QB4.5|177177177177177177177177177177177177177177177177177177000000170000000170000147177"
i = i + 1: ColorSchemes$(i) = "CF Dark|226226226115222227255043138255178034185237049157118137043045037010000020088088088"
i = i + 1: ColorSchemes$(i) = "Dark side|255255255206206000245010098000177000085255085049186245011022029100100100000147177"
i = i + 1: ColorSchemes$(i) = "Camouflage|196196196255255255245128177255177000137177147147137020000039029098069020000147177"