1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 10:30:36 +00:00

Highlight the current line with a darker shade of the bg color.

Can be overriden by making BackgroundColor2 = BackgroundColor in the config.txt file.
This commit is contained in:
FellippeHeitor 2016-04-06 02:26:23 -03:00
parent 022218f7a7
commit 14ddb620b3
2 changed files with 17 additions and 1 deletions

View file

@ -1,6 +1,7 @@
DIM SHARED IDECommentColor AS _UNSIGNED LONG, IDEMetaCommandColor AS _UNSIGNED LONG
DIM SHARED IDEQuoteColor AS _UNSIGNED LONG, IDETextColor AS _UNSIGNED LONG
DIM SHARED IDEBackgroundColor AS _UNSIGNED LONG
DIM SHARED IDEBackgroundColor2 AS _UNSIGNED LONG
DIM SHARED IDE_AutoPosition AS _BYTE, IDE_TopPosition AS INTEGER, IDE_LeftPosition AS INTEGER
DIM SHARED IDE_Index$
DIM SHARED LoadedIDESettings AS INTEGER
@ -85,6 +86,14 @@ IF LoadedIDESettings = 0 THEN
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor", "_RGB32(0,0,170)"
END IF
result = ReadConfigSetting("BackgroundColor2", value$)
IF result THEN
IDEBackGroundColor2 = VRGBS(value$, _RGB32(0, 0, 128))
ELSE
IDEBackGroundColor2 = _RGB32(0, 0, 128)
WriteConfigSetting "'[IDE COLOR SETTINGS]", "BackgroundColor2", "_RGB32(0,0,128)"
END IF
result = ReadConfigSetting("SwapMouseButton", value$)
if value$ = "TRUE" or val(value$) = -1 then
MouseButtonSwapped = -1

View file

@ -7149,6 +7149,7 @@ END SUB
SUB ideshowtext
_palettecolor 1, IDEBackgroundColor, 0
_palettecolor 3, IDEBackgroundColor2, 0
_palettecolor 11, IDECommentColor, 0
_palettecolor 10, IDEMetaCommandColor, 0
_palettecolor 14, IDEQuoteColor, 0
@ -7173,7 +7174,13 @@ FOR y = 0 TO (idewy - 9)
LOCATE y + 3, 1
COLOR 7, 1
PRINT CHR$(179); 'clear prev bookmarks from lhs
IF l = idefocusline AND idecy <> l THEN COLOR 7, 4 ELSE COLOR 7, 1
IF l = idefocusline AND idecy <> l THEN
COLOR 7, 4
ELSEIF idecy = l THEN
COLOR 7, 3
ELSE
COLOR 7, 1
END IF
IF l <= iden THEN
a$ = idegetline(l)