From 14ddb620b336965f613367fc649a1c8fb2131498 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Wed, 6 Apr 2016 02:26:23 -0300
Subject: [PATCH] Highlight the current line with a darker shade of the bg
 color.

Can be overriden by making BackgroundColor2 = BackgroundColor in the config.txt file.
---
 source/global/IDEsettings.bas | 9 +++++++++
 source/ide/ide_methods.bas    | 9 ++++++++-
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/source/global/IDEsettings.bas b/source/global/IDEsettings.bas
index bd5c5e6e7..e5e1e6727 100644
--- a/source/global/IDEsettings.bas
+++ b/source/global/IDEsettings.bas
@@ -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
diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index e6e922702..12b44a934 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -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)