QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 08:51:22 +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)
TextColor = _RGB32(255, 255,255)
end if
end if
_palettecolor 11, CommentColor, 0
_palettecolor 10, MetaCommandColor, 0
_palettecolor 14, QuoteColor, 0
_palettecolor 15, TextColor, 0
_palettecolor 13, TextColor, 0
end if
cc = -1
@ -6255,7 +6255,7 @@ FOR y = 0 TO (idewy - 9)
CASE CHR$(34)
inquote = NOT inquote
CASE "'"
IF inquote = 0 AND MID$(a$, k, 2) = "'$" THEN comment = -1
IF inquote = 0 THEN comment = -1
END SELECT
NEXT k
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 "'": IF inquote = 0 THEN comment = -1
END SELECT
IF left$(ltrim$(a$),2) = "'$" THEN metacommand = -1 : comment = 0
COLOR 15
IF left$(ltrim$(a$),2) = "'$" or left$(ltrim$(a$),1) = "$" THEN metacommand = -1 : comment = 0
COLOR 13
IF comment THEN
COLOR 11