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

Reenable highlighter if IDE Colors are changed.

Browse source
This commit is contained in:
FellippeHeitor 2020-12-28 23:43:15 -03:00
parent 529a162816
commit ce1d6008c2
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
source/ide/ide_methods.bas
View file

@ -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