mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-09 01:25:13 +00:00
Added support for a background color setting in the options
This commit is contained in:
parent
d87657bde3
commit
5130038a2e
|
@ -1,5 +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 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
|
||||||
DIM SHARED IDE_Index$
|
DIM SHARED IDE_Index$
|
||||||
DIM SHARED LoadedIDESettings AS INTEGER
|
DIM SHARED LoadedIDESettings AS INTEGER
|
||||||
|
@ -69,12 +70,21 @@ IF LoadedIDESettings = 0 THEN
|
||||||
|
|
||||||
result = ReadConfigSetting("TextColor", value$)
|
result = ReadConfigSetting("TextColor", value$)
|
||||||
IF result THEN
|
IF result THEN
|
||||||
IDETextColor = VRGBS(value$, _RGB32(255, 255, 2555))
|
IDETextColor = VRGBS(value$, _RGB32(255, 255, 255))
|
||||||
ELSE
|
ELSE
|
||||||
IDETextColor = _RGB32(255, 255, 255)
|
IDETextColor = _RGB32(255, 255, 255)
|
||||||
WriteConfigSetting "'[IDE COLOR SETTINGS]", "TextColor", "_RGB32(255,255,255)"
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "TextColor", "_RGB32(255,255,255)"
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
result = ReadConfigSetting("BackgroundColor", value$)
|
||||||
|
IF result THEN
|
||||||
|
IDEBackGroundColor = VRGBS(value$, _RGB32(0, 0, 170))
|
||||||
|
ELSE
|
||||||
|
IDEBackGroundColor = _RGB32(0, 0, 170)
|
||||||
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor", "_RGB32(0,0,170)"
|
||||||
|
END IF
|
||||||
|
|
||||||
|
|
||||||
IF INSTR(_OS$, "WIN") THEN
|
IF INSTR(_OS$, "WIN") THEN
|
||||||
|
|
||||||
result = ReadConfigSetting("IDE_AutoPosition", value$)
|
result = ReadConfigSetting("IDE_AutoPosition", value$)
|
||||||
|
@ -167,8 +177,8 @@ IF LoadedIDESettings = 0 THEN
|
||||||
IF idecpindex < 0 OR idecpindex > idecpnum THEN idecpindex = 0: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CodePage", "0"
|
IF idecpindex < 0 OR idecpindex > idecpnum THEN idecpindex = 0: WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_CodePage", "0"
|
||||||
|
|
||||||
result = ReadConfigSetting("BackupSize", value$)
|
result = ReadConfigSetting("BackupSize", value$)
|
||||||
idebackupdize = VAL(value$)
|
idebackupsize = VAL(value$)
|
||||||
IF idebackupsize < 10 OR idebackupsize > 2000 THEN idebackupize = 100: WriteConfigSetting "'[GENERAL SETTINGS]", "BackupSize", "100 'in MB"
|
IF idebackupsize < 10 OR idebackupsize > 2000 THEN idebackupsize = 100: WriteConfigSetting "'[GENERAL SETTINGS]", "BackupSize", "100 'in MB"
|
||||||
|
|
||||||
result = ReadConfigSetting("DeBugInfo", value$)
|
result = ReadConfigSetting("DeBugInfo", value$)
|
||||||
idedebuginfo = VAL(value$)
|
idedebuginfo = VAL(value$)
|
||||||
|
@ -202,6 +212,7 @@ IF LoadedIDESettings = 0 THEN
|
||||||
IF INSTR(_OS$, "WIN") THEN WriteConfigSetting "'[GENERAL SETTINGS]", "AllowIndependentSettings", "FALSE"
|
IF INSTR(_OS$, "WIN") THEN WriteConfigSetting "'[GENERAL SETTINGS]", "AllowIndependentSettings", "FALSE"
|
||||||
WriteConfigSetting "'[GENERAL SETTINGS]", "BackupSize", "100 'in MB"
|
WriteConfigSetting "'[GENERAL SETTINGS]", "BackupSize", "100 'in MB"
|
||||||
WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!"
|
WriteConfigSetting "'[GENERAL SETTINGS]", "DebugInfo", "FALSE 'INTERNAL VARIABLE USE ONLY!! DO NOT MANUALLY CHANGE!"
|
||||||
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor", "_RGB32(0,0,170)"
|
||||||
WriteConfigSetting "'[IDE COLOR SETTINGS]", "CommentColor", "_RGB32(85,255,255)"
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "CommentColor", "_RGB32(85,255,255)"
|
||||||
WriteConfigSetting "'[IDE COLOR SETTINGS]", "MetaCommandColor", "_RGB32(85,255,85)"
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "MetaCommandColor", "_RGB32(85,255,85)"
|
||||||
WriteConfigSetting "'[IDE COLOR SETTINGS]", "QuoteColor", "_RGB32(255,255,85)"
|
WriteConfigSetting "'[IDE COLOR SETTINGS]", "QuoteColor", "_RGB32(255,255,85)"
|
||||||
|
|
|
@ -6167,6 +6167,8 @@ idet$ = LEFT$(idet$, ideli - 1) + MKL$(textlen) + text$ + MKL$(textlen) + RIGHT$
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
SUB ideshowtext
|
SUB ideshowtext
|
||||||
|
|
||||||
|
_palettecolor 1, IDEBackgroundColor, 0
|
||||||
_palettecolor 11, IDECommentColor, 0
|
_palettecolor 11, IDECommentColor, 0
|
||||||
_palettecolor 10, IDEMetaCommandColor, 0
|
_palettecolor 10, IDEMetaCommandColor, 0
|
||||||
_palettecolor 14, IDEQuoteColor, 0
|
_palettecolor 14, IDEQuoteColor, 0
|
||||||
|
|
Loading…
Reference in a new issue