I'm using a Modified for of PwerLexer converted to VB
Dragging the Virtical Scroll Bar Freezes the Application till it catches up... Arrow Keys,MouseWheel and Scroll Buttons are smooth scrolling.
Is there any way To Fix the Scroll Drag so its smoother?
Imports System.Text
Imports System.Drawing
Imports System.Text.RegularExpressions
Imports ScintillaNET
Imports DSeX.ConfigStructs
Public Class PwrLexer
Private Shared Lock As Boolean = False
' Origional Thread for this class
'http://scintillanet.codeplex.com/discussions/42949
Private Const ST_DEFAULT As Integer = 32
Private Const ST_STRING_VAR As Integer = 11
Private Const ST_NUM_VAR As Integer = 12
Private Const ST_STRING As Integer = 13
Private Const ST_ID As Integer = 14
Private Const ST_NUMBER As Integer = 15
Private Const ST_COMMENT As Integer = 16
Private Const ST_HEADER As Integer = 17
Private Shared HEADER As String = KeysIni.GetKeyValue("MS-General", "Header")
Private Shared RegWhiteSpace As New Regex("^\s+") '\s+
Private Shared RegStrVar As New Regex("^~([A-Za-z0-9_]+)", RegexOptions.IgnoreCase)
Private Shared RegNumVar As New Regex("^%([A-Za-z0-9_]+)", RegexOptions.IgnoreCase)
Private Shared RegString As New Regex("^\{(.*?)\}")
Private Shared RegLineID As New Regex("^\(([0-9]*)\:([0-9]*)\)")
Private Shared RegNumber As New Regex("^([0-9#]+)")
Private Shared RegHeader As New Regex("^(" + HEADER + ")", RegexOptions.IgnoreCase)
Public Shared Sub Init(scintilla As Scintilla)
scintilla.Indentation.SmartIndentType = SmartIndent.None
scintilla.ConfigurationManager.Language = [String].Empty
scintilla.Lexing.LexerName = "container"
scintilla.Lexing.Lexer = Lexer.Container
scintilla.Styles(ST_DEFAULT).ForeColor = Color.Black
scintilla.Styles(ST_STRING_VAR).ForeColor = EditSettings.StringVariableColor
scintilla.Styles(ST_NUM_VAR).ForeColor = EditSettings.VariableColor
scintilla.Styles(ST_STRING).ForeColor = EditSettings.StringColor
scintilla.Styles(ST_COMMENT).ForeColor = EditSettings.CommentColor
scintilla.Styles(ST_ID).ForeColor = EditSettings.IDColor
scintilla.Styles(ST_NUMBER).ForeColor = EditSettings.NumberColor
scintilla.Styles(ST_HEADER).ForeColor = Color.Green
scintilla.Styles(ST_HEADER).Bold = True
End Sub
Public Shared Sub StyleNeeded(ByRef scintilla As Scintilla, ByRef range As Range)
Dim start As Integer = range.StartingLine.StartPosition
Dim [end] As Integer = start
Dim max As Integer = scintilla.Lines(scintilla.Lines.Count - 1).StartPosition + scintilla.Lines(scintilla.Lines.Count - 1).Length
Debug.Print("StyleNeededEventArgs()")
'we'll get the whole update range at once
'we also get the maximum editor range, incase a new comment goes to the end of the file
'Dim curr As Line = range.StartingLine
'While curr.Number <= range.EndingLine.Number
' [end] += curr.Length
' curr = curr.[Next]
'End While
Dim test As String = range.Text
[end] += test.Length
StyleSection(scintilla, start, [end], max, test)
End Sub
Public Shared Sub StyleSection(ByRef scintilla As Scintilla, ByRef start As Integer, ByRef [end] As Integer, ByRef max As Integer, ByRef Txt As String)
Dim pos As Integer = start
Dim i As Integer = 0
While pos < [end]
Dim curr As String = scintilla.GetRange(pos, [end]).Text
'make a couple of direct checks for special handling (comments/string literals) pass the rest to a RegEx handler
'If (curr.Length > 1)' AndAlso (curr(0) = "*"c) Then
' pos += StyleCommentSingle(scintilla, pos, [end], max)
If RegHeader.IsMatch(curr) Then
pos += StyleRegExWhole(scintilla, curr, RegHeader, ST_HEADER, pos, [end], max)
'ElseIf (curr(0) = "{"c) Then
' pos += StyleString(scintilla, curr, pos, [end], max)
'ElseIf RegStrVar.IsMatch(curr) Then
' pos += StyleRegExWhole(scintilla, curr, RegStrVar, ST_STRING_VAR, pos, [end], max)
'ElseIf RegNumVar.IsMatch(curr) Then
' pos += StyleRegExWhole(scintilla, curr, RegNumVar, ST_NUM_VAR, pos, [end], max)
'ElseIf RegLineID.IsMatch(curr) Then
' pos += StyleRegExWhole(scintilla, curr, RegLineID, ST_ID, pos, [end], max)
'ElseIf RegNumber.IsMatch(curr) Then
' pos += StyleRegExWhole(scintilla, curr, RegNumber, ST_NUMBER, pos, [end], max)
'ElseIf RegWhiteSpace.IsMatch(curr) Then
' pos += StyleRegExWhole(scintilla, curr, RegWhiteSpace, ST_DEFAULT, pos, [end], max)
Else
Select Case curr(0)
'Case vbLf
' pos += 1
'Case vbCr
' pos += 1
Case "*"c
i = StyleCommentSingle(scintilla, pos, [end], max)
Case "("c
i = StyleRegExWhole(scintilla, curr, RegLineID, ST_ID, pos, [end], max)
Case "%"c
i = StyleRegExWhole(scintilla, curr, RegNumVar, ST_STRING_VAR, pos, [end], max)
Case "0"c To "9"c
i = StyleRegExWhole(scintilla, curr, RegNumber, ST_NUMBER, pos, [end], max)
Case "{"c
i = StyleString(scintilla, curr, pos, [end], max)
Case "~"c
i = StyleRegExWhole(scintilla, curr, RegStrVar, ST_STRING_VAR, pos, [end], max)
Case Else
i = 0
End Select
If i = 0 Then
DirectCast(scintilla, INativeScintilla).StartStyling(pos, &H1F)
DirectCast(scintilla, INativeScintilla).SetStyling(1, ST_DEFAULT)
pos += 1
Else
pos += i
End If
End If
End While
End Sub
Public Shared Function StyleHeader(ByRef scintilla As Scintilla, ByRef start As Integer, ByRef [end] As Integer, ByRef max As Integer) As Integer
Dim full As String = scintilla.GetRange(start, max).Text.ToUpper()
Dim offset As Integer = 0
While (full(offset) <> ControlChars.Cr) AndAlso (full(offset) <> ControlChars.Lf) AndAlso (start + offset < max)
offset += 1
End While
DirectCast(scintilla, INativeScintilla).StartStyling(start, &H1F)
DirectCast(scintilla, INativeScintilla).SetStyling(offset, ST_HEADER)
Return offset
End Function
Public Shared Function StyleCommentSingle(ByRef scintilla As Scintilla, ByRef start As Integer, ByRef [end] As Integer, ByRef max As Integer) As Integer
Dim full As String = scintilla.GetRange(start, max).Text.ToUpper()
Dim offset As Integer = 0
While (full(offset) <> ControlChars.Cr) AndAlso (full(offset) <> ControlChars.Lf) AndAlso (start + offset < max - 1)
offset += 1
End While
DirectCast(scintilla, INativeScintilla).StartStyling(start, &H1F)
DirectCast(scintilla, INativeScintilla).SetStyling(offset, ST_COMMENT)
Return offset
End Function
Public Shared Function StyleString(ByRef scintilla As Scintilla, ByRef text As String, ByRef start As Integer, ByRef [end] As Integer, ByRef max As Integer) As Integer
Dim full As String = scintilla.GetRange(start, max).Text.ToUpper()
Dim offset As Integer = 1
While (full(offset) <> ControlChars.Cr) AndAlso (full(offset) <> ControlChars.Lf) AndAlso (full(offset) <> "}"c) AndAlso (start + offset < max - 1)
offset += 1
End While
offset += 1
DirectCast(scintilla, INativeScintilla).StartStyling(start, &H1F)
DirectCast(scintilla, INativeScintilla).SetStyling(offset, ST_STRING)
Return offset
End Function
Public Shared Function StyleRegExWhole(ByRef scintilla As Scintilla, ByRef text As String, ByRef reg As Regex, ByRef style As Integer, ByRef start As Integer, ByRef [end] As Integer, _
ByRef max As Integer) As Integer
'match & style an entire regex
Dim match As String = reg.Match(text).Value
DirectCast(scintilla, INativeScintilla).StartStyling(start, &H1F)
DirectCast(scintilla, INativeScintilla).SetStyling(match.Length, style)
Return match.Length
End Function
Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
target = value
Return value
End Function
End Class
