Const HIGHLIGHT_ERRORLINE:Int = 3 'Markershortcut
Global _highlighthandle:Int = -1
textarea.Markerdefine(HIGHLIGHT_ERRORLINE, SC_MARK_BACKGROUND)
textarea.Markersetback(HIGHLIGHT_ERRORLINE, 255, 0, 0)


Function HighlightCurrentLine(s:TScintillaTextArea)
    Local Line:Int = TextAreaCursor(s, TEXTAREA_LINES)
    Print "High " + _highlighthandle
    If _highlighthandle <> - 1 Then
        s.Markerdeletehandle(_highlighthandle)
    End If
    _highlighthandle = s.Markeradd(Line, HIGHLIGHT_ERRORLINE)
    RedrawGadget(s)
End Function