Control ScintillaControl Inherits ScintillaControlMBS
ControlInstance ScintillaControl Inherits ScintillaControlMBS
EventHandler Sub AutoCompleteCancelled()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub AutoCompleteCharacterDeleted()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub AutoCompleteCompleted(Position as Integer, Character as Integer, Text as String, listCompletionMethod as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub AutoCompleteSelection(Position as Integer, Character as Integer, Text as String, listCompletionMethod as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub AutoCompleteSelectionChange(Position as Integer, Text as String, listType as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub CallTipClick(Position as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub CharacterAdded(Character as Integer, CharacterSource as Integer)
System.DebugLog CurrentMethodName
// new line -> let's indent the text a bit
If Character = 13 Or Character = 10 Then
Dim CurrentPosition As Integer = Me.Position
Dim curLine As Integer = Me.LineFromPosition(CurrentPosition)
Dim lineLength As Integer = Me.LineLength(curLine)
If curLine > 0 And lineLength < 2 Then
// beginning on a new line
Dim prevLine As String = Me.Line(curLine-1)
Dim Len As Integer = 0
For i As Integer = 1 To prevLine.Len
Dim ch As String = prevLine.Mid(i, 1)
If Asc(ch) = 9 Or Asc(ch) = 32 Then
// we take that
Len = i
Else
// start of text, so exit
Exit
End If
Next
Dim prefix As String = prevLine.Left(Len)
Me.ReplaceSelection(prefix)
return
End If
End If
End EventHandler
EventHandler Sub Close()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub DWellEnd(Position as Integer, X as Integer, Y as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub DWellStart(Position as Integer, X as Integer, Y as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub DoubleClick(Position as Integer, line as integer, modifiers as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Function DragEnter(obj As DragItem, action As Integer) As Boolean
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub DragExit(obj As DragItem, action As Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Function DragOver(x As Integer, y As Integer, obj As DragItem, action As Integer) As Boolean
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub DropObject(obj As DragItem, action As Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub FocusIn()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub FocusOut()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub FolderToggled(Line as Integer, Position as Integer, Margin as ScintillaMarginMBS)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub HotSpotClick(Position as Integer, modifiers as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub HotSpotDoubleCLick(Position as Integer, modifiers as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub HotspotReleaseClick(Position as Integer, modifiers as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub IndicatorClick(Position as Integer, modifiers as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub IndicatorRelease(Position as Integer, modifiers as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub Key(Character as Integer, modifiers as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub MacroRecord(Message as Integer, wParam as Integer, lParam as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub MarginClick(Position as Integer, modifiers as Integer, Margin as ScintillaMarginMBS)
System.DebugLog CurrentMethodName
dim line as integer = me.LineFromPosition(Position)
if margin.Margin = 1 then // bookmark
dim old as integer = me.MarkerGet(line)
if old = 2 then // bit 2 is set for marker element 1
me.MarkerDelete(line, 1)
else
call me.MarkerAdd(line, 1)
end if
end if
End EventHandler
EventHandler Sub MarginRightClick(Position as Integer, modifiers as Integer, Margin as ScintillaMarginMBS)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub Modified(Position as Integer, modificationType as Integer, Text as String, length as Integer, linesAdded as Integer, line as Integer, foldLevelNow as Integer, foldLevelPrev as Integer, token as Integer, annotationLinesAdded as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub ModifyAttemptReadOnly()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub MouseEnter()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub MouseExit()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub MouseMove(X As Integer, Y As Integer)
'System.DebugLog CurrentMethodName
End EventHandler
EventHandler Function MouseWheel(X As Integer, Y As Integer, deltaX as Integer, deltaY as Integer) As Boolean
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub NeedsShown(Position as Integer, length as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub Open()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub Painted()
'System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub SavePointLeft()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub SavePointReached()
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub ScaleFactorChanged(NewFactor as double)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub SelectionChanged(updated as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub StyleNeeded(Position as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub TextChanged(Position as Integer, modificationType as Integer, Text as String, length as Integer, linesAdded as Integer, line as Integer)
System.DebugLog CurrentMethodName
UpdateTimer.RunMode = timer.RunModes.Single
End EventHandler
EventHandler Sub URIDropped(text as String)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub UpdateUI(updated as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub UserListSelection(Position as Integer, Character as Integer, Text as String, listType as Integer, listCompletionMethod as Integer)
System.DebugLog CurrentMethodName
End EventHandler
EventHandler Sub Zoom()
System.DebugLog CurrentMethodName
End EventHandler
End Control