mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40: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:
parent
022218f7a7
commit
14ddb620b3
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue