mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-05 21:40:25 +00:00
Reenable highlighter if IDE Colors are changed.
This commit is contained in:
parent
529a162816
commit
ce1d6008c2
|
@ -12750,6 +12750,7 @@ FUNCTION idechoosecolorsbox
|
|||
|
||||
IF (focus = 9 AND info <> 0) THEN
|
||||
LoadDefaultScheme:
|
||||
GOSUB enableHighlighter
|
||||
IDECommentColor = _RGB32(85, 255, 255)
|
||||
IDEMetaCommandColor = _RGB32(85, 255, 85)
|
||||
IDEQuoteColor = _RGB32(255, 255, 85)
|
||||
|
@ -12777,6 +12778,8 @@ FUNCTION idechoosecolorsbox
|
|||
(focus = 7 AND K$ = CHR$(13)) OR _
|
||||
(focus = 11 AND K$ = CHR$(13)) THEN
|
||||
'save changes
|
||||
GOSUB enableHighlighter
|
||||
|
||||
WriteConfigSetting "'[IDE COLOR SETTINGS]", "SchemeID", str2$(SchemeID)
|
||||
FOR i = 1 TO 9
|
||||
SELECT CASE i
|
||||
|
@ -12849,6 +12852,14 @@ FUNCTION idechoosecolorsbox
|
|||
idetxt(o(9).txt) = "User-defined"
|
||||
END IF
|
||||
RETURN
|
||||
|
||||
enableHighlighter:
|
||||
IF DisableSyntaxHighlighter THEN
|
||||
DisableSyntaxHighlighter = 0
|
||||
WriteConfigSetting "'[GENERAL SETTINGS]", "DisableSyntaxHighlighter", "FALSE"
|
||||
menu$(OptionsMenuID, OptionsMenuDisableSyntax) = "Disable Syntax #Highlighter"
|
||||
END IF
|
||||
RETURN
|
||||
END FUNCTION
|
||||
|
||||
|
||||
|
|
Loading…
Reference in a new issue