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

Minor tweak to IDE colors so palette changes won't affect anything outside text.

Browse source
This commit is contained in:
SMcNeill 2015-04-10 17:10:28 -04:00
parent 9107324221
commit 708b28355b
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
source/ide/ide_methods.bas
View file

@ -6193,12 +6193,12 @@ if IdeShowTextInit <> -1 then
QuoteColor = _RGB32(255, 255, 85) QuoteColor = _RGB32(255, 255, 85)
TextColor = _RGB32(255, 255,255) TextColor = _RGB32(255, 255,255)
end if end if
end if
_palettecolor 11, CommentColor, 0 _palettecolor 11, CommentColor, 0
_palettecolor 10, MetaCommandColor, 0 _palettecolor 10, MetaCommandColor, 0
_palettecolor 14, QuoteColor, 0 _palettecolor 14, QuoteColor, 0
_palettecolor 15, TextColor, 0 _palettecolor 13, TextColor, 0
end if
cc = -1 cc = -1
@ -6255,7 +6255,7 @@ FOR y = 0 TO (idewy - 9)
CASE CHR$(34) CASE CHR$(34)
inquote = NOT inquote inquote = NOT inquote
CASE "'" CASE "'"
IF inquote = 0 AND MID$(a$, k, 2) = "'$" THEN comment = -1 IF inquote = 0 THEN comment = -1
END SELECT END SELECT
NEXT k NEXT k
FOR m = 1 TO LEN(a2$) 'continue checking, while printing to the screen FOR m = 1 TO LEN(a2$) 'continue checking, while printing to the screen
@ -6263,8 +6263,8 @@ FOR y = 0 TO (idewy - 9)
CASE CHR$(34): inquote = NOT inquote CASE CHR$(34): inquote = NOT inquote
CASE "'": IF inquote = 0 THEN comment = -1 CASE "'": IF inquote = 0 THEN comment = -1
END SELECT END SELECT
IF left$(ltrim$(a$),2) = "'$" THEN metacommand = -1 : comment = 0 IF left$(ltrim$(a$),2) = "'$" or left$(ltrim$(a$),1) = "$" THEN metacommand = -1 : comment = 0
COLOR 15 COLOR 13
IF comment THEN IF comment THEN
COLOR 11 COLOR 11