mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-01 08:00:37 +00:00
Allow changing color of menu+dialogs (Closes #221)
New item in Options->IDE Colors allows customizing the color that's used to draw menu items and dialogs (`Color 7`).
This commit is contained in:
parent
a6fafc49bc
commit
52c25d6077
|
@ -1,6 +1,6 @@
|
||||||
DIM SHARED IDECommentColor AS _UNSIGNED LONG, IDEMetaCommandColor AS _UNSIGNED LONG
|
DIM SHARED IDECommentColor AS _UNSIGNED LONG, IDEMetaCommandColor AS _UNSIGNED LONG
|
||||||
DIM SHARED IDEQuoteColor AS _UNSIGNED LONG, IDETextColor AS _UNSIGNED LONG
|
DIM SHARED IDEQuoteColor AS _UNSIGNED LONG, IDETextColor AS _UNSIGNED LONG
|
||||||
DIM SHARED IDEBackgroundColor AS _UNSIGNED LONG
|
DIM SHARED IDEBackgroundColor AS _UNSIGNED LONG, IDEChromaColor AS _UNSIGNED LONG
|
||||||
DIM SHARED IDEBackgroundColor2 AS _UNSIGNED LONG, IDEBracketHighlightColor AS _UNSIGNED LONG
|
DIM SHARED IDEBackgroundColor2 AS _UNSIGNED LONG, IDEBracketHighlightColor AS _UNSIGNED LONG
|
||||||
DIM SHARED IDEKeywordColor AS _UNSIGNED LONG, IDENumbersColor AS _UNSIGNED LONG
|
DIM SHARED IDEKeywordColor AS _UNSIGNED LONG, IDENumbersColor AS _UNSIGNED LONG
|
||||||
DIM SHARED IDE_AutoPosition AS _BYTE, IDE_TopPosition AS INTEGER, IDE_LeftPosition AS INTEGER
|
DIM SHARED IDE_AutoPosition AS _BYTE, IDE_TopPosition AS INTEGER, IDE_LeftPosition AS INTEGER
|
||||||
|
@ -23,7 +23,7 @@ DIM SHARED wikiBaseAddress$
|
||||||
|
|
||||||
ConfigFile$ = "internal/config.ini"
|
ConfigFile$ = "internal/config.ini"
|
||||||
iniFolderIndex$ = STR$(tempfolderindex)
|
iniFolderIndex$ = STR$(tempfolderindex)
|
||||||
DebugInfoIniWarning$ = " 'Do not change manually. Use 'qb64 -s', or Options->Advanced in the IDE"
|
DebugInfoIniWarning$ = " 'Do not change manually. Use 'qb64 -s', or Debug->Advanced in the IDE"
|
||||||
|
|
||||||
windowSettingsSection$ = "IDE WINDOW" + iniFolderIndex$
|
windowSettingsSection$ = "IDE WINDOW" + iniFolderIndex$
|
||||||
colorSettingsSection$ = "IDE COLOR SETTINGS" + iniFolderIndex$
|
colorSettingsSection$ = "IDE COLOR SETTINGS" + iniFolderIndex$
|
||||||
|
@ -461,6 +461,7 @@ IDENumbersColor = _RGB32(216, 98, 78)
|
||||||
IDEQuoteColor = _RGB32(255, 167, 0)
|
IDEQuoteColor = _RGB32(255, 167, 0)
|
||||||
IDEMetaCommandColor = _RGB32(85, 206, 85)
|
IDEMetaCommandColor = _RGB32(85, 206, 85)
|
||||||
IDECommentColor = _RGB32(98, 98, 98)
|
IDECommentColor = _RGB32(98, 98, 98)
|
||||||
|
IDEChromaColor = _RGB32(170, 170, 170)
|
||||||
IDEBackgroundColor = _RGB32(0, 0, 39)
|
IDEBackgroundColor = _RGB32(0, 0, 39)
|
||||||
IDEBackgroundColor2 = _RGB32(0, 49, 78)
|
IDEBackgroundColor2 = _RGB32(0, 49, 78)
|
||||||
IDEBracketHighlightColor = _RGB32(0, 88, 108)
|
IDEBracketHighlightColor = _RGB32(0, 88, 108)
|
||||||
|
@ -495,6 +496,11 @@ IF ReadConfigSetting(colorSettingsSection$, "CommentColor", value$) THEN
|
||||||
ELSE WriteConfigSetting colorSettingsSection$, "CommentColor", rgbs$(IDECommentColor)
|
ELSE WriteConfigSetting colorSettingsSection$, "CommentColor", rgbs$(IDECommentColor)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
IF ReadConfigSetting(colorSettingsSection$, "ChromaColor", value$) THEN
|
||||||
|
IDEChromaColor = VRGBS(value$, IDEChromaColor)
|
||||||
|
ELSE WriteConfigSetting colorSettingsSection$, "ChromaColor", rgbs$(IDEChromaColor)
|
||||||
|
END IF
|
||||||
|
|
||||||
IF ReadConfigSetting(colorSettingsSection$, "MetaCommandColor", value$) THEN
|
IF ReadConfigSetting(colorSettingsSection$, "MetaCommandColor", value$) THEN
|
||||||
IDEMetaCommandColor = VRGBS(value$, IDEMetaCommandColor)
|
IDEMetaCommandColor = VRGBS(value$, IDEMetaCommandColor)
|
||||||
ELSE WriteConfigSetting colorSettingsSection$, "MetaCommandColor", rgbs$(IDEMetaCommandColor)
|
ELSE WriteConfigSetting colorSettingsSection$, "MetaCommandColor", rgbs$(IDEMetaCommandColor)
|
||||||
|
|
|
@ -953,6 +953,7 @@ FUNCTION ide2 (ignore)
|
||||||
_PALETTECOLOR 2, _RGB32(84, 84, 84), 0 'dark gray - help system and interface details
|
_PALETTECOLOR 2, _RGB32(84, 84, 84), 0 'dark gray - help system and interface details
|
||||||
_PALETTECOLOR 5, IDEBracketHighlightColor, 0
|
_PALETTECOLOR 5, IDEBracketHighlightColor, 0
|
||||||
_PALETTECOLOR 6, IDEBackgroundColor2, 0
|
_PALETTECOLOR 6, IDEBackgroundColor2, 0
|
||||||
|
_PALETTECOLOR 7, IDEChromaColor, 0
|
||||||
_PALETTECOLOR 8, IDENumbersColor, 0
|
_PALETTECOLOR 8, IDENumbersColor, 0
|
||||||
_PALETTECOLOR 10, IDEMetaCommandColor, 0
|
_PALETTECOLOR 10, IDEMetaCommandColor, 0
|
||||||
_PALETTECOLOR 11, IDECommentColor, 0
|
_PALETTECOLOR 11, IDECommentColor, 0
|
||||||
|
@ -12168,6 +12169,7 @@ SUB ideshowtext
|
||||||
_PALETTECOLOR 2, _RGB32(84, 84, 84), 0 'dark gray - help system and interface details
|
_PALETTECOLOR 2, _RGB32(84, 84, 84), 0 'dark gray - help system and interface details
|
||||||
_PALETTECOLOR 5, IDEBracketHighlightColor, 0
|
_PALETTECOLOR 5, IDEBracketHighlightColor, 0
|
||||||
_PALETTECOLOR 6, IDEBackgroundColor2, 0
|
_PALETTECOLOR 6, IDEBackgroundColor2, 0
|
||||||
|
_PALETTECOLOR 7, IDEChromaColor, 0
|
||||||
_PALETTECOLOR 8, IDENumbersColor, 0
|
_PALETTECOLOR 8, IDENumbersColor, 0
|
||||||
_PALETTECOLOR 10, IDEMetaCommandColor, 0
|
_PALETTECOLOR 10, IDEMetaCommandColor, 0
|
||||||
_PALETTECOLOR 11, IDECommentColor, 0
|
_PALETTECOLOR 11, IDECommentColor, 0
|
||||||
|
@ -15975,9 +15977,9 @@ FUNCTION idechoosecolorsbox
|
||||||
DIM bkpIDEQuoteColor AS _UNSIGNED LONG, bkpIDETextColor AS _UNSIGNED LONG
|
DIM bkpIDEQuoteColor AS _UNSIGNED LONG, bkpIDETextColor AS _UNSIGNED LONG
|
||||||
DIM bkpIDEBackgroundColor AS _UNSIGNED LONG, bkpIDEKeywordColor AS _UNSIGNED LONG
|
DIM bkpIDEBackgroundColor AS _UNSIGNED LONG, bkpIDEKeywordColor AS _UNSIGNED LONG
|
||||||
DIM bkpIDEBackgroundColor2 AS _UNSIGNED LONG, bkpIDENumbersColor AS _UNSIGNED LONG
|
DIM bkpIDEBackgroundColor2 AS _UNSIGNED LONG, bkpIDENumbersColor AS _UNSIGNED LONG
|
||||||
DIM bkpIDEBracketHighlightColor AS _UNSIGNED LONG
|
DIM bkpIDEBracketHighlightColor AS _UNSIGNED LONG, bkpIDEChromaColor AS _UNSIGNED LONG
|
||||||
|
|
||||||
TotalItems = 9
|
TotalItems = 10
|
||||||
DIM SelectionIndicator$(1 TO TotalItems)
|
DIM SelectionIndicator$(1 TO TotalItems)
|
||||||
bkpIDECommentColor = IDECommentColor
|
bkpIDECommentColor = IDECommentColor
|
||||||
bkpIDEMetaCommandColor = IDEMetaCommandColor
|
bkpIDEMetaCommandColor = IDEMetaCommandColor
|
||||||
|
@ -15988,6 +15990,7 @@ FUNCTION idechoosecolorsbox
|
||||||
bkpIDEBackgroundColor = IDEBackgroundColor
|
bkpIDEBackgroundColor = IDEBackgroundColor
|
||||||
bkpIDEBackgroundColor2 = IDEBackgroundColor2
|
bkpIDEBackgroundColor2 = IDEBackgroundColor2
|
||||||
bkpIDEBracketHighlightColor = IDEBracketHighlightColor
|
bkpIDEBracketHighlightColor = IDEBracketHighlightColor
|
||||||
|
bkpIDEChromaColor = IDEChromaColor
|
||||||
|
|
||||||
'-------- generic dialog box header --------
|
'-------- generic dialog box header --------
|
||||||
PCOPY 0, 2
|
PCOPY 0, 2
|
||||||
|
@ -16005,7 +16008,7 @@ FUNCTION idechoosecolorsbox
|
||||||
_PALETTECOLOR 5, &HFF00A800, 0 'Original green may have been changed by the Help System, so 5 is now green
|
_PALETTECOLOR 5, &HFF00A800, 0 'Original green may have been changed by the Help System, so 5 is now green
|
||||||
|
|
||||||
i = 0
|
i = 0
|
||||||
idepar p, 73, 19, "IDE Colors"
|
idepar p, 73, 20, "IDE Colors"
|
||||||
|
|
||||||
l$ = CHR$(16) + "Normal Text"
|
l$ = CHR$(16) + "Normal Text"
|
||||||
l$ = l$ + sep + " Keywords"
|
l$ = l$ + sep + " Keywords"
|
||||||
|
@ -16016,10 +16019,11 @@ FUNCTION idechoosecolorsbox
|
||||||
l$ = l$ + sep + " Background"
|
l$ = l$ + sep + " Background"
|
||||||
l$ = l$ + sep + " Current line background"
|
l$ = l$ + sep + " Current line background"
|
||||||
l$ = l$ + sep + " Bracket/selection highlight"
|
l$ = l$ + sep + " Bracket/selection highlight"
|
||||||
|
l$ = l$ + sep + " Menus and dialogs"
|
||||||
i = i + 1
|
i = i + 1
|
||||||
o(i).typ = 2
|
o(i).typ = 2
|
||||||
o(i).y = 4
|
o(i).y = 4
|
||||||
o(i).w = 30: o(i).h = 9
|
o(i).w = 30: o(i).h = 10
|
||||||
o(i).txt = idenewtxt(l$)
|
o(i).txt = idenewtxt(l$)
|
||||||
o(i).sel = 1
|
o(i).sel = 1
|
||||||
SelectedITEM = 1
|
SelectedITEM = 1
|
||||||
|
@ -16058,26 +16062,26 @@ FUNCTION idechoosecolorsbox
|
||||||
|
|
||||||
i = i + 1
|
i = i + 1
|
||||||
o(i).typ = 4 'check box
|
o(i).typ = 4 'check box
|
||||||
o(i).y = 15
|
o(i).y = 16
|
||||||
o(i).nam = idenewtxt("#Highlight brackets")
|
o(i).nam = idenewtxt("#Highlight brackets")
|
||||||
IF brackethighlight THEN o(i).sel = 1
|
IF brackethighlight THEN o(i).sel = 1
|
||||||
|
|
||||||
i = i + 1
|
i = i + 1
|
||||||
o(i).typ = 4 'check box
|
o(i).typ = 4 'check box
|
||||||
o(i).y = 16
|
o(i).y = 17
|
||||||
o(i).nam = idenewtxt("#Multi-highlight (selection)")
|
o(i).nam = idenewtxt("#Multi-highlight (selection)")
|
||||||
IF multihighlight THEN o(i).sel = 1
|
IF multihighlight THEN o(i).sel = 1
|
||||||
|
|
||||||
i = i + 1
|
i = i + 1
|
||||||
o(i).typ = 4 'check box
|
o(i).typ = 4 'check box
|
||||||
o(i).y = 17
|
o(i).y = 18
|
||||||
o(i).nam = idenewtxt("Highlight #keywords and numbers")
|
o(i).nam = idenewtxt("Highlight #keywords and numbers")
|
||||||
IF keywordHighlight THEN o(i).sel = 1
|
IF keywordHighlight THEN o(i).sel = 1
|
||||||
|
|
||||||
i = i + 1
|
i = i + 1
|
||||||
o(i).typ = 3
|
o(i).typ = 3
|
||||||
o(i).y = 19
|
o(i).y = 20
|
||||||
o(i).txt = idenewtxt("#OK" + sep + "Restore #defaults" + sep + "#Cancel")
|
o(i).txt = idenewtxt("#OK" + sep + "Restore #Defaults" + sep + "#Cancel")
|
||||||
o(i).dft = 1
|
o(i).dft = 1
|
||||||
|
|
||||||
result = ReadConfigSetting(colorSettingsSection$, "SchemeID", value$)
|
result = ReadConfigSetting(colorSettingsSection$, "SchemeID", value$)
|
||||||
|
@ -16090,7 +16094,7 @@ FUNCTION idechoosecolorsbox
|
||||||
'Validate this scheme first
|
'Validate this scheme first
|
||||||
FoundPipe = INSTR(ColorSchemes$(SchemeID), "|")
|
FoundPipe = INSTR(ColorSchemes$(SchemeID), "|")
|
||||||
IF FoundPipe > 0 THEN
|
IF FoundPipe > 0 THEN
|
||||||
IF LEN(MID$(ColorSchemes$(SchemeID), FoundPipe + 1)) = 81 THEN
|
IF LEN(MID$(ColorSchemes$(SchemeID), FoundPipe + 1)) = 90 THEN
|
||||||
a2$ = LEFT$(ColorSchemes$(SchemeID), FoundPipe - 1)
|
a2$ = LEFT$(ColorSchemes$(SchemeID), FoundPipe - 1)
|
||||||
ELSE
|
ELSE
|
||||||
SchemeID = 0
|
SchemeID = 0
|
||||||
|
@ -16158,6 +16162,7 @@ FUNCTION idechoosecolorsbox
|
||||||
_PALETTECOLOR 1, IDEBackgroundColor, 0
|
_PALETTECOLOR 1, IDEBackgroundColor, 0
|
||||||
_PALETTECOLOR 2, _RGB32(84, 84, 84), 0 'dark gray - help system and interface details
|
_PALETTECOLOR 2, _RGB32(84, 84, 84), 0 'dark gray - help system and interface details
|
||||||
_PALETTECOLOR 6, IDEBackgroundColor2, 0
|
_PALETTECOLOR 6, IDEBackgroundColor2, 0
|
||||||
|
_PALETTECOLOR 7, IDEChromaColor, 0
|
||||||
_PALETTECOLOR 8, IDENumbersColor, 0
|
_PALETTECOLOR 8, IDENumbersColor, 0
|
||||||
_PALETTECOLOR 10, IDEMetaCommandColor, 0
|
_PALETTECOLOR 10, IDEMetaCommandColor, 0
|
||||||
_PALETTECOLOR 11, IDECommentColor, 0
|
_PALETTECOLOR 11, IDECommentColor, 0
|
||||||
|
@ -16189,12 +16194,12 @@ FUNCTION idechoosecolorsbox
|
||||||
IF T = 255 THEN slider$ = CHR$(180)
|
IF T = 255 THEN slider$ = CHR$(180)
|
||||||
_PRINTSTRING (p.x + 39 + r, p.y + 11), slider$
|
_PRINTSTRING (p.x + 39 + r, p.y + 11), slider$
|
||||||
|
|
||||||
COLOR 7, 1
|
|
||||||
_PRINTSTRING (p.x + 39, p.y + 13), CHR$(218) + STRING$(25, 196)
|
|
||||||
_PRINTSTRING (p.x + 39, p.y + 14), CHR$(179) + SPACE$(25)
|
|
||||||
_PRINTSTRING (p.x + 39, p.y + 15), CHR$(179) + SPACE$(25)
|
|
||||||
|
|
||||||
SELECT EVERYCASE SelectedITEM
|
SELECT EVERYCASE SelectedITEM
|
||||||
|
CASE 1 TO 9
|
||||||
|
COLOR 7, 1
|
||||||
|
_PRINTSTRING (p.x + 39, p.y + 13), CHR$(218) + STRING$(25, 196)
|
||||||
|
_PRINTSTRING (p.x + 39, p.y + 14), CHR$(179) + SPACE$(25)
|
||||||
|
_PRINTSTRING (p.x + 39, p.y + 15), CHR$(179) + SPACE$(25)
|
||||||
CASE 1: COLOR 13, 1: SampleText$ = "myVar% = " 'Normal text
|
CASE 1: COLOR 13, 1: SampleText$ = "myVar% = " 'Normal text
|
||||||
CASE 2: COLOR 12, 1: SampleText$ = "CLS: PRINT" 'Keywords
|
CASE 2: COLOR 12, 1: SampleText$ = "CLS: PRINT" 'Keywords
|
||||||
CASE 3: COLOR 13, 1: SampleText$ = "myVar% = " 'Normal text
|
CASE 3: COLOR 13, 1: SampleText$ = "myVar% = " 'Normal text
|
||||||
|
@ -16206,6 +16211,12 @@ FUNCTION idechoosecolorsbox
|
||||||
CASE 9
|
CASE 9
|
||||||
COLOR 6, 6: SampleText$ = "" 'Bracket highlight
|
COLOR 6, 6: SampleText$ = "" 'Bracket highlight
|
||||||
_PALETTECOLOR 6, IDEBracketHighlightColor, 0
|
_PALETTECOLOR 6, IDEBracketHighlightColor, 0
|
||||||
|
CASE 10
|
||||||
|
COLOR 0, 7
|
||||||
|
_PRINTSTRING (p.x + 39, p.y + 13), CHR$(218) + STRING$(24, 196) + CHR$(191)
|
||||||
|
_PRINTSTRING (p.x + 39, p.y + 14), CHR$(179) + SPACE$(24) + CHR$(179)
|
||||||
|
_PRINTSTRING (p.x + 39, p.y + 15), CHR$(192) + STRING$(24, 196) + CHR$(217)
|
||||||
|
SampleText$ = " Open... Ctrl+O "
|
||||||
END SELECT
|
END SELECT
|
||||||
|
|
||||||
_PRINTSTRING (p.x + 40, p.y + 14), SampleText$
|
_PRINTSTRING (p.x + 40, p.y + 14), SampleText$
|
||||||
|
@ -16229,6 +16240,9 @@ FUNCTION idechoosecolorsbox
|
||||||
COLOR 13, 6: PRINT "(";
|
COLOR 13, 6: PRINT "(";
|
||||||
LOCATE p.y + 14, p.x + 56
|
LOCATE p.y + 14, p.x + 56
|
||||||
PRINT ")";
|
PRINT ")";
|
||||||
|
ELSEIF SelectedITEM = 10 THEN
|
||||||
|
COLOR 15, 7
|
||||||
|
_PRINTSTRING (p.x + 41, p.y + 14), "O"
|
||||||
END IF
|
END IF
|
||||||
'-------- end of custom display changes --------
|
'-------- end of custom display changes --------
|
||||||
|
|
||||||
|
@ -16318,7 +16332,7 @@ FUNCTION idechoosecolorsbox
|
||||||
|
|
||||||
'Build scheme string
|
'Build scheme string
|
||||||
SchemeString$ = SchemeString$ + "|"
|
SchemeString$ = SchemeString$ + "|"
|
||||||
FOR j = 1 TO 9
|
FOR j = 1 TO 10
|
||||||
SELECT CASE j
|
SELECT CASE j
|
||||||
CASE 1: CurrentColor~& = IDETextColor
|
CASE 1: CurrentColor~& = IDETextColor
|
||||||
CASE 2: CurrentColor~& = IDEKeywordColor
|
CASE 2: CurrentColor~& = IDEKeywordColor
|
||||||
|
@ -16329,6 +16343,7 @@ FUNCTION idechoosecolorsbox
|
||||||
CASE 7: CurrentColor~& = IDEBackgroundColor
|
CASE 7: CurrentColor~& = IDEBackgroundColor
|
||||||
CASE 8: CurrentColor~& = IDEBackgroundColor2
|
CASE 8: CurrentColor~& = IDEBackgroundColor2
|
||||||
CASE 9: CurrentColor~& = IDEBracketHighlightColor
|
CASE 9: CurrentColor~& = IDEBracketHighlightColor
|
||||||
|
CASE 10: CurrentColor~& = IDEChromaColor
|
||||||
END SELECT
|
END SELECT
|
||||||
|
|
||||||
r$ = str2$(_RED32(CurrentColor~&)): r$ = STRING$(3 - LEN(r$), "0") + r$
|
r$ = str2$(_RED32(CurrentColor~&)): r$ = STRING$(3 - LEN(r$), "0") + r$
|
||||||
|
@ -16356,7 +16371,7 @@ FUNCTION idechoosecolorsbox
|
||||||
SchemeString$ = SchemeString$ + "|"
|
SchemeString$ = SchemeString$ + "|"
|
||||||
|
|
||||||
'Build scheme string
|
'Build scheme string
|
||||||
FOR j = 1 TO 9
|
FOR j = 1 TO 10
|
||||||
SELECT CASE j
|
SELECT CASE j
|
||||||
CASE 1: CurrentColor~& = IDETextColor
|
CASE 1: CurrentColor~& = IDETextColor
|
||||||
CASE 2: CurrentColor~& = IDEKeywordColor
|
CASE 2: CurrentColor~& = IDEKeywordColor
|
||||||
|
@ -16367,6 +16382,7 @@ FUNCTION idechoosecolorsbox
|
||||||
CASE 7: CurrentColor~& = IDEBackgroundColor
|
CASE 7: CurrentColor~& = IDEBackgroundColor
|
||||||
CASE 8: CurrentColor~& = IDEBackgroundColor2
|
CASE 8: CurrentColor~& = IDEBackgroundColor2
|
||||||
CASE 9: CurrentColor~& = IDEBracketHighlightColor
|
CASE 9: CurrentColor~& = IDEBracketHighlightColor
|
||||||
|
CASE 10: CurrentColor~& = IDEChromaColor
|
||||||
END SELECT
|
END SELECT
|
||||||
|
|
||||||
r$ = str2$(_RED32(CurrentColor~&)): r$ = STRING$(3 - LEN(r$), "0") + r$
|
r$ = str2$(_RED32(CurrentColor~&)): r$ = STRING$(3 - LEN(r$), "0") + r$
|
||||||
|
@ -16432,7 +16448,7 @@ FUNCTION idechoosecolorsbox
|
||||||
ValidateScheme:
|
ValidateScheme:
|
||||||
FoundPipe = INSTR(ColorSchemes$(SchemeID), "|")
|
FoundPipe = INSTR(ColorSchemes$(SchemeID), "|")
|
||||||
IF FoundPipe > 0 THEN
|
IF FoundPipe > 0 THEN
|
||||||
IF LEN(MID$(ColorSchemes$(SchemeID), FoundPipe + 1)) = 81 THEN
|
IF LEN(MID$(ColorSchemes$(SchemeID), FoundPipe + 1)) = 90 THEN
|
||||||
a2$ = LEFT$(ColorSchemes$(SchemeID), FoundPipe - 1)
|
a2$ = LEFT$(ColorSchemes$(SchemeID), FoundPipe - 1)
|
||||||
ELSE
|
ELSE
|
||||||
SchemeID = SchemeID + SchemeArrow
|
SchemeID = SchemeID + SchemeArrow
|
||||||
|
@ -16452,7 +16468,7 @@ FUNCTION idechoosecolorsbox
|
||||||
o(9).v1 = LEN(idetxt(o(9).txt))
|
o(9).v1 = LEN(idetxt(o(9).txt))
|
||||||
o(9).issel = -1
|
o(9).issel = -1
|
||||||
o(9).sx1 = 0
|
o(9).sx1 = 0
|
||||||
ColorData$ = RIGHT$(ColorSchemes$(SchemeID), 81)
|
ColorData$ = RIGHT$(ColorSchemes$(SchemeID), 90)
|
||||||
i = 1
|
i = 1
|
||||||
r$ = MID$(ColorData$, i, 3): i = i + 3: g$ = MID$(ColorData$, i, 3): i = i + 3: b$ = MID$(ColorData$, i, 3): i = i + 3
|
r$ = MID$(ColorData$, i, 3): i = i + 3: g$ = MID$(ColorData$, i, 3): i = i + 3: b$ = MID$(ColorData$, i, 3): i = i + 3
|
||||||
IDETextColor = _RGB32(VAL(r$), VAL(g$), VAL(b$))
|
IDETextColor = _RGB32(VAL(r$), VAL(g$), VAL(b$))
|
||||||
|
@ -16472,6 +16488,8 @@ FUNCTION idechoosecolorsbox
|
||||||
IDEBackgroundColor2 = _RGB32(VAL(r$), VAL(g$), VAL(b$))
|
IDEBackgroundColor2 = _RGB32(VAL(r$), VAL(g$), VAL(b$))
|
||||||
r$ = MID$(ColorData$, i, 3): i = i + 3: g$ = MID$(ColorData$, i, 3): i = i + 3: b$ = MID$(ColorData$, i, 3): i = i + 3
|
r$ = MID$(ColorData$, i, 3): i = i + 3: g$ = MID$(ColorData$, i, 3): i = i + 3: b$ = MID$(ColorData$, i, 3): i = i + 3
|
||||||
IDEBracketHighlightColor = _RGB32(VAL(r$), VAL(g$), VAL(b$))
|
IDEBracketHighlightColor = _RGB32(VAL(r$), VAL(g$), VAL(b$))
|
||||||
|
r$ = MID$(ColorData$, i, 3): i = i + 3: g$ = MID$(ColorData$, i, 3): i = i + 3: b$ = MID$(ColorData$, i, 3): i = i + 3
|
||||||
|
IDEChromaColor = _RGB32(VAL(r$), VAL(g$), VAL(b$))
|
||||||
GOTO ChangeTextBoxes
|
GOTO ChangeTextBoxes
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -16534,7 +16552,7 @@ FUNCTION idechoosecolorsbox
|
||||||
|
|
||||||
IF SelectedITEM <> o(1).sel AND o(1).sel > 0 THEN
|
IF SelectedITEM <> o(1).sel AND o(1).sel > 0 THEN
|
||||||
SelectedITEM = o(1).sel
|
SelectedITEM = o(1).sel
|
||||||
FOR i = 1 TO 9: SelectionIndicator$(i) = " ": NEXT i
|
FOR i = 1 TO 10: SelectionIndicator$(i) = " ": NEXT i
|
||||||
SelectionIndicator$(SelectedITEM) = CHR$(16)
|
SelectionIndicator$(SelectedITEM) = CHR$(16)
|
||||||
|
|
||||||
i = 0
|
i = 0
|
||||||
|
@ -16547,6 +16565,7 @@ FUNCTION idechoosecolorsbox
|
||||||
i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Background"
|
i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Background"
|
||||||
i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Current line background"
|
i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Current line background"
|
||||||
i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Bracket/selection highlight"
|
i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Bracket/selection highlight"
|
||||||
|
i = i + 1: l$ = l$ + sep + SelectionIndicator$(i) + "Menus and dialogs"
|
||||||
idetxt(o(1).txt) = l$
|
idetxt(o(1).txt) = l$
|
||||||
|
|
||||||
ChangeTextBoxes:
|
ChangeTextBoxes:
|
||||||
|
@ -16560,6 +16579,7 @@ FUNCTION idechoosecolorsbox
|
||||||
CASE 7: CurrentColor~& = IDEBackgroundColor
|
CASE 7: CurrentColor~& = IDEBackgroundColor
|
||||||
CASE 8: CurrentColor~& = IDEBackgroundColor2
|
CASE 8: CurrentColor~& = IDEBackgroundColor2
|
||||||
CASE 9: CurrentColor~& = IDEBracketHighlightColor
|
CASE 9: CurrentColor~& = IDEBracketHighlightColor
|
||||||
|
CASE 10: CurrentColor~& = IDEChromaColor
|
||||||
END SELECT
|
END SELECT
|
||||||
idetxt(o(2).txt) = str2$(_RED32(CurrentColor~&))
|
idetxt(o(2).txt) = str2$(_RED32(CurrentColor~&))
|
||||||
idetxt(o(3).txt) = str2$(_GREEN32(CurrentColor~&))
|
idetxt(o(3).txt) = str2$(_GREEN32(CurrentColor~&))
|
||||||
|
@ -16615,6 +16635,7 @@ FUNCTION idechoosecolorsbox
|
||||||
CASE 7: IDEBackgroundColor = CurrentColor~& 'Background
|
CASE 7: IDEBackgroundColor = CurrentColor~& 'Background
|
||||||
CASE 8: IDEBackgroundColor2 = CurrentColor~& 'Current line background
|
CASE 8: IDEBackgroundColor2 = CurrentColor~& 'Current line background
|
||||||
CASE 9: IDEBracketHighlightColor = CurrentColor~& 'Bracket highlight
|
CASE 9: IDEBracketHighlightColor = CurrentColor~& 'Bracket highlight
|
||||||
|
CASE 10: IDEChromaColor = CurrentColor~&
|
||||||
END SELECT
|
END SELECT
|
||||||
|
|
||||||
IF K$ = CHR$(27) OR (focus = 10 AND info <> 0) THEN
|
IF K$ = CHR$(27) OR (focus = 10 AND info <> 0) THEN
|
||||||
|
@ -16627,6 +16648,7 @@ FUNCTION idechoosecolorsbox
|
||||||
IDEBackgroundColor = bkpIDEBackgroundColor
|
IDEBackgroundColor = bkpIDEBackgroundColor
|
||||||
IDEBackgroundColor2 = bkpIDEBackgroundColor2
|
IDEBackgroundColor2 = bkpIDEBackgroundColor2
|
||||||
IDEBracketHighlightColor = bkpIDEBracketHighlightColor
|
IDEBracketHighlightColor = bkpIDEBracketHighlightColor
|
||||||
|
IDEChromaColor = bkpIDEChromaColor
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
@ -16653,7 +16675,7 @@ FUNCTION idechoosecolorsbox
|
||||||
GOSUB enableHighlighter
|
GOSUB enableHighlighter
|
||||||
|
|
||||||
WriteConfigSetting colorSettingsSection$, "SchemeID", str2$(SchemeID)
|
WriteConfigSetting colorSettingsSection$, "SchemeID", str2$(SchemeID)
|
||||||
FOR i = 1 TO 9
|
FOR i = 1 TO 10
|
||||||
SELECT CASE i
|
SELECT CASE i
|
||||||
CASE 1: CurrentColor~& = IDETextColor: colorid$ = "TextColor"
|
CASE 1: CurrentColor~& = IDETextColor: colorid$ = "TextColor"
|
||||||
CASE 2: CurrentColor~& = IDEKeywordColor: colorid$ = "KeywordColor"
|
CASE 2: CurrentColor~& = IDEKeywordColor: colorid$ = "KeywordColor"
|
||||||
|
@ -16664,6 +16686,7 @@ FUNCTION idechoosecolorsbox
|
||||||
CASE 7: CurrentColor~& = IDEBackgroundColor: colorid$ = "BackgroundColor"
|
CASE 7: CurrentColor~& = IDEBackgroundColor: colorid$ = "BackgroundColor"
|
||||||
CASE 8: CurrentColor~& = IDEBackgroundColor2: colorid$ = "BackgroundColor2"
|
CASE 8: CurrentColor~& = IDEBackgroundColor2: colorid$ = "BackgroundColor2"
|
||||||
CASE 9: CurrentColor~& = IDEBracketHighlightColor: colorid$ = "HighlightColor"
|
CASE 9: CurrentColor~& = IDEBracketHighlightColor: colorid$ = "HighlightColor"
|
||||||
|
CASE 10: CurrentColor~& = IDEChromaColor: colorid$ = "ChromaColor"
|
||||||
END SELECT
|
END SELECT
|
||||||
WriteConfigSetting colorSettingsSection$, colorid$, rgbs$(CurrentColor~&)
|
WriteConfigSetting colorSettingsSection$, colorid$, rgbs$(CurrentColor~&)
|
||||||
NEXT i
|
NEXT i
|
||||||
|
@ -19263,11 +19286,13 @@ FUNCTION DarkenFGBG (Action AS _BYTE)
|
||||||
TempDarkerKWColor~& = _RGB32(_RED32(IDEKeywordColor) * .5, _GREEN32(IDEKeywordColor) * .5, _BLUE32(IDEKeywordColor) * .5)
|
TempDarkerKWColor~& = _RGB32(_RED32(IDEKeywordColor) * .5, _GREEN32(IDEKeywordColor) * .5, _BLUE32(IDEKeywordColor) * .5)
|
||||||
TempDarkerNumColor~& = _RGB32(_RED32(IDENumbersColor) * .5, _GREEN32(IDENumbersColor) * .5, _BLUE32(IDENumbersColor) * .5)
|
TempDarkerNumColor~& = _RGB32(_RED32(IDENumbersColor) * .5, _GREEN32(IDENumbersColor) * .5, _BLUE32(IDENumbersColor) * .5)
|
||||||
TempDarkerCommentColor~& = _RGB32(_RED32(IDECommentColor) * .5, _GREEN32(IDECommentColor) * .5, _BLUE32(IDECommentColor) * .5)
|
TempDarkerCommentColor~& = _RGB32(_RED32(IDECommentColor) * .5, _GREEN32(IDECommentColor) * .5, _BLUE32(IDECommentColor) * .5)
|
||||||
|
TempDarkerIDEChromaColor~& = _RGB32(_RED32(IDEChromaColor) * .5, _GREEN32(IDEChromaColor) * .5, _BLUE32(IDEChromaColor) * .5)
|
||||||
TempDarkerMetaColor~& = _RGB32(_RED32(IDEMetaCommandColor) * .5, _GREEN32(IDEMetaCommandColor) * .5, _BLUE32(IDEMetaCommandColor) * .5)
|
TempDarkerMetaColor~& = _RGB32(_RED32(IDEMetaCommandColor) * .5, _GREEN32(IDEMetaCommandColor) * .5, _BLUE32(IDEMetaCommandColor) * .5)
|
||||||
TempDarkerQuoteColor~& = _RGB32(_RED32(IDEQuoteColor) * .5, _GREEN32(IDEQuoteColor) * .5, _BLUE32(IDEQuoteColor) * .5)
|
TempDarkerQuoteColor~& = _RGB32(_RED32(IDEQuoteColor) * .5, _GREEN32(IDEQuoteColor) * .5, _BLUE32(IDEQuoteColor) * .5)
|
||||||
_PALETTECOLOR 1, TempDarkerBGColor~&, 0
|
_PALETTECOLOR 1, TempDarkerBGColor~&, 0
|
||||||
_PALETTECOLOR 5, TempDarkerBGColor~&, 0
|
_PALETTECOLOR 5, TempDarkerBGColor~&, 0
|
||||||
_PALETTECOLOR 6, TempDarkerBG2Color~&, 0
|
_PALETTECOLOR 6, TempDarkerBG2Color~&, 0
|
||||||
|
_PALETTECOLOR 7, TempDarkerIDEChromaColor~&, 0
|
||||||
_PALETTECOLOR 8, TempDarkerNumColor~&, 0
|
_PALETTECOLOR 8, TempDarkerNumColor~&, 0
|
||||||
_PALETTECOLOR 10, TempDarkerMetaColor~&, 0
|
_PALETTECOLOR 10, TempDarkerMetaColor~&, 0
|
||||||
_PALETTECOLOR 11, TempDarkerCommentColor~&, 0
|
_PALETTECOLOR 11, TempDarkerCommentColor~&, 0
|
||||||
|
@ -19278,6 +19303,7 @@ FUNCTION DarkenFGBG (Action AS _BYTE)
|
||||||
_PALETTECOLOR 1, IDEBackgroundColor, 0
|
_PALETTECOLOR 1, IDEBackgroundColor, 0
|
||||||
_PALETTECOLOR 5, IDEBracketHighlightColor, 0
|
_PALETTECOLOR 5, IDEBracketHighlightColor, 0
|
||||||
_PALETTECOLOR 6, IDEBackgroundColor2, 0
|
_PALETTECOLOR 6, IDEBackgroundColor2, 0
|
||||||
|
_PALETTECOLOR 7, IDEChromaColor, 0
|
||||||
_PALETTECOLOR 8, IDENumbersColor, 0
|
_PALETTECOLOR 8, IDENumbersColor, 0
|
||||||
_PALETTECOLOR 10, IDEMetaCommandColor, 0
|
_PALETTECOLOR 10, IDEMetaCommandColor, 0
|
||||||
_PALETTECOLOR 11, IDECommentColor, 0
|
_PALETTECOLOR 11, IDECommentColor, 0
|
||||||
|
@ -19313,16 +19339,16 @@ SUB LoadColorSchemes
|
||||||
'Preset built-in schemes
|
'Preset built-in schemes
|
||||||
PresetColorSchemes = 10
|
PresetColorSchemes = 10
|
||||||
REDIM ColorSchemes$(1 TO PresetColorSchemes): i = 0
|
REDIM ColorSchemes$(1 TO PresetColorSchemes): i = 0
|
||||||
i = i + 1: ColorSchemes$(i) = "Super dark blue|216216216069118147216098078255167000085206085098098098000000039000049078000088108"
|
i = i + 1: ColorSchemes$(i) = "Super dark blue|216216216069118147216098078255167000085206085098098098000000039000049078000088108170170170"
|
||||||
i = i + 1: ColorSchemes$(i) = "Dark blue|226226226069147216245128177255177000085255085049196196000000069000068108000147177"
|
i = i + 1: ColorSchemes$(i) = "Dark blue|226226226069147216245128177255177000085255085049196196000000069000068108000147177170170170"
|
||||||
i = i + 1: ColorSchemes$(i) = "QB64 Original|226226226147196235245128177255255085085255085085255255000000170000108177000147177"
|
i = i + 1: ColorSchemes$(i) = "QB64 Original|226226226147196235245128177255255085085255085085255255000000170000108177000147177170170170"
|
||||||
i = i + 1: ColorSchemes$(i) = "Classic QB4.5|177177177177177177177177177177177177177177177177177177000000170000000170000147177"
|
i = i + 1: ColorSchemes$(i) = "Classic QB4.5|177177177177177177177177177177177177177177177177177177000000170000000170000147177170170170"
|
||||||
i = i + 1: ColorSchemes$(i) = "CF Dark|226226226115222227255043138255178034185237049157118137043045037010000020088088088"
|
i = i + 1: ColorSchemes$(i) = "CF Dark|226226226115222227255043138255178034185237049157118137043045037010000020088088088170170170"
|
||||||
i = i + 1: ColorSchemes$(i) = "Dark side|255255255206206000245010098000177000085255085049186245011022029100100100000147177"
|
i = i + 1: ColorSchemes$(i) = "Dark side|255255255206206000245010098000177000085255085049186245011022029100100100000147177170170170"
|
||||||
i = i + 1: ColorSchemes$(i) = "Camouflage|196196196255255255245128177255177000137177147147137020000039029098069020000147177"
|
i = i + 1: ColorSchemes$(i) = "Camouflage|196196196255255255245128177255177000137177147147137020000039029098069020000147177170170170"
|
||||||
i = i + 1: ColorSchemes$(i) = "Plum|186186186255255255245128177255108000085186078085186255059000059088088128000147177"
|
i = i + 1: ColorSchemes$(i) = "Plum|186186186255255255245128177255108000085186078085186255059000059088088128000147177170170170"
|
||||||
i = i + 1: ColorSchemes$(i) = "Light green|051051051000000216245128177255157255147177093206206206234255234206255206000147177"
|
i = i + 1: ColorSchemes$(i) = "Light green|051051051000000216245128177255157255147177093206206206234255234206255206000147177170170170"
|
||||||
i = i + 1: ColorSchemes$(i) = "All white|051051051000000216245128177206147000059177000206206206255255255245245245000147177"
|
i = i + 1: ColorSchemes$(i) = "All white|051051051000000216245128177206147000059177000206206206255255255245245245000147177170170170"
|
||||||
TotalColorSchemes = PresetColorSchemes
|
TotalColorSchemes = PresetColorSchemes
|
||||||
LastValidColorScheme = TotalColorSchemes
|
LastValidColorScheme = TotalColorSchemes
|
||||||
|
|
||||||
|
@ -19342,12 +19368,18 @@ SUB LoadColorSchemes
|
||||||
IF LEN(MID$(value$, FoundPipe + 1)) = 81 THEN
|
IF LEN(MID$(value$, FoundPipe + 1)) = 81 THEN
|
||||||
'Extended schemes (9 colors):
|
'Extended schemes (9 colors):
|
||||||
LastValidColorScheme = TotalColorSchemes
|
LastValidColorScheme = TotalColorSchemes
|
||||||
|
value$ = value$ + "170170170"
|
||||||
|
WriteConfigSetting colorSchemesSection$, "Scheme" + str2$(i) + "$", value$
|
||||||
|
ColorSchemes$(TotalColorSchemes) = value$
|
||||||
|
ELSEIF LEN(MID$(value$, FoundPipe + 1)) = 90 THEN
|
||||||
|
'Extended schemes (10 colors):
|
||||||
|
LastValidColorScheme = TotalColorSchemes
|
||||||
ELSEIF LEN(MID$(value$, FoundPipe + 1)) = 54 THEN
|
ELSEIF LEN(MID$(value$, FoundPipe + 1)) = 54 THEN
|
||||||
'Version 1.1 schemes (only 6 colors)
|
'Version 1.1 schemes (only 6 colors)
|
||||||
'Convert to extended scheme:
|
'Convert to extended scheme:
|
||||||
temp$ = LEFT$(value$, FoundPipe)
|
temp$ = LEFT$(value$, FoundPipe)
|
||||||
temp$ = temp$ + MID$(value$, FoundPipe + 1, 9) + "069147216245128177"
|
temp$ = temp$ + MID$(value$, FoundPipe + 1, 9) + "069147216245128177"
|
||||||
temp$ = temp$ + MID$(value$, FoundPipe + 10) + "000147177"
|
temp$ = temp$ + MID$(value$, FoundPipe + 10) + "000147177170170170"
|
||||||
ColorSchemes$(TotalColorSchemes) = temp$
|
ColorSchemes$(TotalColorSchemes) = temp$
|
||||||
WriteConfigSetting colorSchemesSection$, "Scheme" + str2$(i) + "$", temp$
|
WriteConfigSetting colorSchemesSection$, "Scheme" + str2$(i) + "$", temp$
|
||||||
LastValidColorScheme = TotalColorSchemes
|
LastValidColorScheme = TotalColorSchemes
|
||||||
|
|
Loading…
Reference in a new issue