Fixed the dllcall, so that the lparam now handles negative ints too, the issue was that only the wparam did before - looks like Pulover was lazy in only implementing the one he needed at the time to handle negative ints
the DllCall is still ugly, I'm sure, as guest pointed out, it doesn't need all the %'s, but I don't want to risk screwing it up.
1) braces which don't have a matching brace are correctly highlighted to show they are broken/no match found, they are colored red.
2) indentation guides, when enabled, also share the same highlighting as the matched braces, image below
Code: Select all
; Title: Scintilla Wrapper for AHK
class scintilla {
hwnd := 0 ; Component Handle
notify := "" ; Name of the function that will handle the window messages sent by the control
; Messages which set this variables.
; ---------------------------------------------------------------------------------------------------------------
idFrom := 0 ; The handle from which the notification was sent
scnCode := 0 ; The SCN_* notification code
position := 0 ; SCN_STYLENEEDED, SCN_DOUBLECLICK, SCN_MODIFIED, SCN_MARGINCLICK
; SCN_NEEDSHOWN, SCN_DWELLSTART, SCN_DWELLEND, SCN_CALLTIPCLICK
; SCN_HOTSPOTCLICK, SCN_HOTSPOTDOUBLECLICK, SCN_HOTSPOTRELEASECLICK
; SCN_INDICATORCLICK, SCN_INDICATORRELEASE
; SCN_USERLISTSELECTION, SCN_AUTOCSELECTION
ch := 0 ; SCN_CHARADDED, SCN_KEY
modifiers := 0 ; SCN_KEY, SCN_DOUBLECLICK, SCN_HOTSPOTCLICK, SCN_HOTSPOTDOUBLECLICK
; SCN_HOTSPOTRELEASECLICK, SCN_INDICATORCLICK, SCN_INDICATORRELEASE
modType := 0 ; SCN_MODIFIED
text := 0 ; SCN_MODIFIED, SCN_USERLISTSELECTION, SCN_AUTOCSELECTION, SCN_URIDROPPED
length := 0 ; SCN_MODIFIED
linesAdded := 0 ; SCN_MODIFIED
macMessage := 0 ; SCN_MACRORECORD
macwParam := 0 ; SCN_MACRORECORD
maclParam := 0 ; SCN_MACRORECORD
line := 0 ; SCN_MODIFIED
foldLevelNow := 0 ; SCN_MODIFIED
foldLevelPrev := 0 ; SCN_MODIFIED
margin := 0 ; SCN_MARGINCLICK
listType := 0 ; SCN_USERLISTSELECTION
x := 0 ; SCN_DWELLSTART, SCN_DWELLEND
y := 0 ; SCN_DWELLSTART, SCN_DWELLEND
token := 0 ; SCN_MODIFIED with SC_MOD_CONTAINER
annotLinesAdded := 0 ; SCN_MODIFIED with SC_MOD_CHANGEANNOTATION
updated := false ; SCN_UPDATEUI
__new(params*) {
If (params.MaxIndex()) {
__SCI(this.hwnd := __Add(params*), this)
} Else {
Return this
}
}
__call(msg, ByRef wParam := 0, ByRef lParam := 0, params*) {
If (msg = "Add") {
__SCI(this.hwnd := __Add(wParam, lParam, params*), this)
} Else {
If (wParam && !(wParam+0) && !isObject(wParam)) {
VarSetCapacity(wParamA, StrPut(wParam, "UTF-8"))
StrPut(wParam, &wParamA, "UTF-8")
wParam := &wParamA
}
If (Params[1] == 2) {
VarSetCapacity(lParamA, StrPut(lParam, "UTF-8"))
StrPut(lParam, &lParamA, "UTF-8")
lParam := &lParamA
}
/*
Special Operations
Due to the fact that some functions require the user to manually prepare bufferst to store text
I decided to make most of those operations internally to have cleaner code later on.
*/
(msg = "GetText") ? (VarSetCapacity(lParam, wParam * (a_isunicode ? 2 : 1)+8), lParam := &lParam, buf:=true) : null
(msg = "GetLine") ? (VarSetCapacity(lParam, this.linelength(wParam)+1 * (a_isunicode ? 2 : 1)),lParam := &lParam, buf:=true) : null
(msg = "GetCurLine") ? (VarSetCapacity(lParam, this.linelength(wParam)+1 * (a_isunicode ? 2 : 1)), lParam := &lParam, buf:=true) : null
(msg = "GetTextRange") ? (range:=abs(wParam.1 - wParam.2)+1, dSize := __sendEditor(this.hwnd, "GetLength")
,VarSetCapacity(lParam, range > dSize ? (dSize, wParam.2 := dSize) : range)
,VarSetCapacity(textRange, 12, 0)
,NumPut(wParam.1,textRange,0,"UInt")
,NumPut(wParam.2,textRange,4,"UInt")
,NumPut(&lParam,textRange,8,"UInt")
,blParam := &lParam, wParam := false,lParam := &textRange, buf:=true) : null
res := __sendEditor(this.hwnd, msg, wParam, lParam)
; Retrieve Text from buffer
; I must switch lParam to another variable when using GetTextRange because lParam cant be overwriten
; It has the pointer to the TextRange Structure
buf ? (lParam := StrGet((msg = "GetTextRange") ? blParam : &lParam, "UTF-8"), buf:=false) : null ; convert the text from ANSI
return res
}
}
}
class sciCharRange {
__new(_cMin := 0, _cMax := 0){
this.cMin := _cMin
this.cMax := _cMax
}
}
class sciTextRange {
__new(_chrg := 0, _pStr := 0) {
If (!IsObject(_chrg)) {
Msgbox % 0x0
, % "sciTextRange Object Error"
, % "The first parameter must match a sciCharRange object"
Exit
}
this.chrg := _chrg ? _chrg : new sciCharRange
this.pStr := _pStr
}
}
class sciTextToFind {
__new(_chrg=0, _text="", _found=0) {
if (!isObject(_chrg) || !isObject(_found)) {
Msgbox % 0x0
, % "sciTextToFind Object Error"
, % "The first and last parameters must match a sciCharRange object"
Exit
}
this.chrg := _chrg ? _chrg : new sciCharRange
this.text := _text
this.found := _found ? _found : new sciCharRange
}
}
class sciRectangle {
__new(_left=0, _top=0, _right=0, _bottom=0) {
this.left := _left
this.top := _top
this.right := _right
this.bottom := _bottom
}
}
class sciRangeToFormat {
__new(_hdc=0, _hdcTarget=0, _rc=0, _rcPage=0, _chrg=0) {
this.hdc := _hdc ; The Surface ID we print to
this.hdcTarget := _hdcTarget ; The Surface ID we use for measuring (may be same as hdc)
this.rc := _rc ? _rc : new sciRectangle ; Rectangle in which to print
this.rcPage := _rcPage ? _rcPage : new sciRectangle ; Physically printable page size
this.chrg := _chrg ? _chrg : new sciCharRange ; Range of characters to print
}
}
; | Internal Functions |
/*
Function: __Add
Creates a Scintilla component and adds it to the Parent GUI.
This function initializes the Scintilla Component.
See <http://www.scintilla.org/Steps.html> for more information on how to add the component to a GUI/Control.
Parameters:
__Add(hParent, [x, y, w, h, DllPath, Styles])
hParent - Hwnd of the parent control who will host the Scintilla Component
x - x position for the control (default 5)
y - y position for the control (default 5)
w - Width of the control (default 590)
h - Height of the control (default 390)
DllPath - Path to the SciLexer.dll file, if omitted the function looks for it in *a_scriptdir*.
Styles - List of window style variable names separated by spaces.
The WS_ prefix for the variables is optional.
Full list of Style names can be found at
<http://msdn.microsoft.com/en-us/library/czada357.aspx>.
Returns:
HWND - Component handle.
Examples:
(start code)
#include ..\SCI.ahk
#singleinstance force
;---------------------
; This script adds a component with default values.
; If no path was specified when creating the object it expects scilexer.dll to be on the script's location.
; The default values are calculated to fit optimally on a 600x400 GUI/Control
Gui +LastFound
sci := new scintilla(WinExist())
Gui, show, w600 h400
return
GuiClose:
exitapp
;---------------------
#include ..\SCI.ahk
#singleinstance force
; Add multiple components.
Gui +LastFound
hwnd:=WinExist()
sci1 := new scintilla(hwnd, 0, 0, 590, 190) ; you can put the parameters here
sci2 := new scintilla
sci2.add(hwnd, 0, 200, 590, 190) ; or you can use the add function like this
Gui, show, w600 h400
return
GuiClose:
exitapp
;---------------------
#include ..\SCI.ahk
#singleinstance force
; Here we add a component embedded in a tab.
; If the variables "x,w,h" are empty the default values are used.
Gui, add, Tab2, HWNDhwndtab x0 y0 w600 h420 gtabHandler vtabLast,one|two
sci := new scintilla
sci.Add(hwndtab, x, 25, w, h, a_scriptdir "\scilexer.dll")
Gui, show, w600 h420
return
; This additional code is for hiding/showing the component depending on which tab is open
; In this example the Tab named "one" is the one that contains the control.
; If you switch the words "show" and "hide" the component will be shown when the tab called "two" is active.
tabHandler: ; Tab Handler for the Scintilla Control
Gui, submit, Nohide
action := tabLast = "one" ? "Show" : "Hide" ; decide which action to take
Control,%action%,,, % "ahk_id " sci.hwnd
return
GuiClose:
exitapp
(end)
*/
__Add(hParent, x := 5, y := 5, w := 590, h := 390, DllPath := "SciLexer.dll", Style := 0x50010000, ExStyle := 0x200) {
Static init := False
If !(init) {
If !(DllCall("LoadLibrary", "Str", DllPath)) {
MsgBox 0x10
, % StrSplit(A_ScriptName, ".")[1] . " - Error " . A_LastError
, Failed to load library %DllPath%.
Return
}
OnMessage(0x4E, "__sciNotify") ; WM_NOTIFY
init := True
}
;Gui %hParent%: Add, Custom, ClassScintilla hWndhSci x%x% y%y% w%w% h%h% %Style%
hSci := DllCall("CreateWindowEx"
, "Uint" , ExStyle
, "Str" , "Scintilla"
, "Str" , ""
, "UInt" , Style
, "Int" , x
, "Int" , y
, "Int" , w
, "Int" , h
, "UInt" , hParent
, "UInt" , 0xC0DE
, "UInt" , 0
, "UInt" , 0, "UInt")
__sendEditor(hSci) ; Initialize sendEditor function
Return hSci
}
/*
Function : __sendEditor
Posts the messages used to modify the control's behaviour.
*This is an internal function and it is not needed in normal situations. Please use the scintilla object to call all functions.
They call this function automatically*
Parameters:
__sendEditor(hwnd, msg, [wParam, lParam])
hwnd - The hwnd of the control that you want to operate on. Useful for when you have more than 1
Scintilla components in the same script. The wrapper will remember the last used hwnd,
so you can specify it once and only specify it again when you want to operate on a different
component.
*Note: This is converted internally by the wrapper from the object calling method. It is recommended that you dont use this function.*
msg - The message to be posted, full list can be found here:
<http://www.scintilla.org/ScintillaDoc.html>
wParam - wParam for the message
lParam - lParam for the message
Returns:
Status code of the DllCall performed.
Examples:
(Start Code)
__sendEditor(hSci1, "SCI_SETMARGINWIDTHN",0,40) ; Set the margin 0 to 40px on the first component.
__sendEditor(0, "SCI_SETWRAPMODE",1,0) ; Set wrap mode to true on the last used component.
__sendEditor(hSci2, "SCI_SETMARGINWIDTHN",0,50) ; Set the margin 0 to 50px on the second component.
(End)
*/
__sendEditor(hwnd, msg=0, wParam=0, lParam=0){
static
hwnd := !hwnd ? oldhwnd : hwnd, oldhwnd := hwnd, msg := !(msg+0) ? "SCI_" msg : msg
if !%hwnd%_df
{
SendMessage, SCI_GETDIRECTFUNCTION,0,0,,ahk_id %hwnd%
%hwnd%_df := ErrorLevel
SendMessage, SCI_GETDIRECTPOINTER,0,0,,ahk_id %hwnd%
%hwnd%_dp := ErrorLevel
}
if !msg && !wParam && !lParam ; called only with the hwnd param from SCI_Add
return ; Exit because we did what we needed to do already.
;OutputDebug %msg%
; The fast way to control Scintilla
return DllCall(%hwnd%_df ; DIRECT FUNCTION
,"UInt" ,%hwnd%_dp ; DIRECT POINTER
,"UInt" ,!(msg+0) ? %msg% : msg
,"Int" ,inStr(wParam, "-") ? wParam : (%wParam%+0 ? %wParam% : wParam) ; handles negative ints
,"Int" ,inStr(lParam, "-") ? lParam : (%lParam%+0 ? %lParam% : lParam)) ; handles negative ints
}
/*
Function : __sciNotify
This is the default function which will be called when the WM_NOTIFY message has been received. The message is tracked as soon as you
add a new scintilla component.
Parameters:
__sciNotify(wParam, lParam, msg, hwnd)
wParam - wParam for the message
lParam - lParam for the message
msg - The message which triggered this function
hwnd - The hwnd of the control which sent the message
Returns:
This function sets some variables on the sciObject to which the component belongs to and procedes to call your user defined notify function
which can be set in sciObj.notify.
It will pass wParam, lParam, msg and hwnd to that function so make sure you define it that way.
Returns nothing.
Examples:
*/
__sciNotify(wParam, lParam, msg, hwnd){
; fix int for x64 bit systems
__sciObj := __SCI(NumGet(lParam + 0)) ; Returns original object
__sciObj.idFrom := NumGet(lParam + a_Ptrsize * 1)
__sciObj.scnCode := NumGet(lParam + a_Ptrsize * 2)
__sciObj.position := NumGet(lParam + a_Ptrsize * 3)
__sciObj.ch := NumGet(lParam + a_Ptrsize * 4)
__sciObj.modifiers := NumGet(lParam + a_Ptrsize * 5)
__sciObj.modType := NumGet(lParam + a_Ptrsize * 6)
__sciObj.text := NumGet(lParam + a_Ptrsize * 7)
__sciObj.length := NumGet(lParam + a_Ptrsize * 8)
__sciObj.linesAdded := NumGet(lParam + a_Ptrsize * 9)
__sciObj.macMessage := NumGet(lParam + a_Ptrsize * 10)
__sciObj.macwParam := NumGet(lParam + a_Ptrsize * 11)
__sciObj.maclParam := NumGet(lParam + a_Ptrsize * 12)
__sciObj.line := NumGet(lParam + a_Ptrsize * 13)
__sciObj.foldLevelNow := NumGet(lParam + a_Ptrsize * 14)
__sciObj.foldLevelPrev := NumGet(lParam + a_Ptrsize * 15)
__sciObj.margin := NumGet(lParam + a_Ptrsize * 16)
__sciObj.listType := NumGet(lParam + a_Ptrsize * 17)
__sciObj.x := NumGet(lParam + a_Ptrsize * 18)
__sciObj.y := NumGet(lParam + a_Ptrsize * 19)
__sciObj.token := NumGet(lParam + a_Ptrsize * 20)
__sciObj.annotLinesAdded := NumGet(lParam + a_Ptrsize * 21)
__sciObj.updated := NumGet(lParam + a_Ptrsize * 22)
__sciObj.notify(wParam, lParam, msg, hwnd, __sciObj) ; Call user defined Notify Function and passes object to it as last parameter
return __sciObj := "" ; free object
}
__isHexColor(hex, msg){
if (RegexMatch(hex, "^0x[0-9a-fA-F]{6}$"))
return true
else
return false
}
__SCI(var, val=""){
static
/*
if (RegExMatch(var,"i)[ `n-\.%,(\\\/=&^]")) ; Check if it is a valid variable name
return
*/
lvar := %var%, val ? %var% := val : null
return lvar
}
; Global scintilla variables
{
global INVALID_POSITION:=-1, unused := 0 ; Some messages dont use one of their parameters. You can use this variable for them.
; Main Scintilla Functions
{
global SCI_ADDTEXT:=2001,SCI_ADDSTYLEDTEXT:=2002,SCI_INSERTTEXT:=2003,SCI_CLEARALL:=2004,SCI_CLEARDOCUMENTSTYLE:=2005,SCI_GETLENGTH:=2006
,SCI_GETCHARAT:=2007,SCI_GETCURRENTPOS:=2008,SCI_GETANCHOR:=2009,SCI_GETSTYLEAT:=2010,SCI_REDO:=2011,SCI_SETUNDOCOLLECTION:=2012
,SCI_SELECTALL:=2013,SCI_SETSAVEPOINT:=2014,SCI_GETSTYLEDTEXT:=2015,SCI_CANREDO:=2016,SCI_MARKERLINEFROMHANDLE:=2017
,SCI_MARKERDELETEHANDLE:=2018,SCI_GETUNDOCOLLECTION:=2019,SCI_GETVIEWWS:=2020,SCI_SETVIEWWS:=2021,SCI_POSITIONFROMPOINT:=2022
,SCI_POSITIONFROMPOINTCLOSE:=2023,SCI_GOTOLINE:=2024,SCI_GOTOPOS:=2025,SCI_SETANCHOR:=2026,SCI_GETCURLINE:=2027,SCI_GETENDSTYLED:=2028
,SCI_CONVERTEOLS:=2029,SCI_GETEOLMODE:=2030,SCI_SETEOLMODE:=2031,SCI_STARTSTYLING:=2032,SCI_SETSTYLING:=2033,SCI_GETBUFFEREDDRAW:=2034
,SCI_SETBUFFEREDDRAW:=2035,SCI_SETTABWIDTH:=2036,SCI_GETTABWIDTH:=2121,SCI_SETCODEPAGE:=2037,SCI_SETUSEPALETTE:=2039,SCI_MARKERDEFINE:=2040
,SCI_MARKERSETFORE:=2041,SCI_MARKERSETBACK:=2042,SCI_MARKERADD:=2043,SCI_MARKERDELETE:=2044,SCI_MARKERDELETEALL:=2045,SCI_MARKERGET:=2046
,SCI_MARKERNEXT:=2047,SCI_MARKERPREVIOUS:=2048,SCI_MARKERDEFINEPIXMAP:=2049,SCI_MARKERADDSET:=2466,SCI_MARKERSETALPHA:=2476
,SCI_SETMARGINTYPEN:=2240,SCI_GETMARGINTYPEN:=2241,SCI_SETMARGINWIDTHN:=2242,SCI_GETMARGINWIDTHN:=2243,SCI_SETMARGINMASKN:=2244
,SCI_GETMARGINMASKN:=2245,SCI_SETMARGINSENSITIVEN:=2246,SCI_GETMARGINSENSITIVEN:=2247,SCI_STYLECLEARALL:=2050,SCI_STYLESETFORE:=2051
,SCI_STYLESETBACK:=2052,SCI_STYLESETBOLD:=2053,SCI_STYLESETITALIC:=2054,SCI_STYLESETSIZE:=2055,SCI_STYLESETFONT:=2056
,SCI_STYLESETEOLFILLED:=2057,SCI_STYLEGETFORE:=2481,SCI_STYLEGETBACK:=2482,SCI_STYLEGETBOLD:=2483,SCI_STYLEGETITALIC:=2484
,SCI_STYLEGETSIZE:=2485,SCI_STYLEGETFONT:=2486,SCI_STYLEGETEOLFILLED:=2487,SCI_STYLEGETUNDERLINE:=2488,SCI_STYLEGETCASE:=2489
,SCI_STYLEGETCHARACTERSET:=2490,SCI_STYLEGETVISIBLE:=2491,SCI_STYLEGETCHANGEABLE:=2492,SCI_STYLEGETHOTSPOT:=2493,SCI_STYLERESETDEFAULT:=2058
,SCI_STYLESETUNDERLINE:=2059,SCI_STYLESETCASE:=2060,SCI_STYLESETCHARACTERSET:=2066,SCI_STYLESETHOTSPOT:=2409,SCI_SETSELFORE:=2067
,SCI_SETSELBACK:=2068,SCI_GETSELALPHA:=2477,SCI_SETSELALPHA:=2478,SCI_SETCARETFORE:=2069,SCI_ASSIGNCMDKEY:=2070,SCI_CLEARCMDKEY:=2071
,SCI_CLEARALLCMDKEYS:=2072,SCI_SETSTYLINGEX:=2073,SCI_STYLESETVISIBLE:=2074,SCI_GETCARETPERIOD:=2075,SCI_SETCARETPERIOD:=2076
,SCI_SETWORDCHARS:=2077,SCI_BEGINUNDOACTION:=2078,SCI_ENDUNDOACTION:=2079,SCI_INDICSETSTYLE:=2080,SCI_INDICGETSTYLE:=2081
,SCI_INDICSETFORE:=2082,SCI_INDICGETFORE:=2083,SCI_SETWHITESPACEFORE:=2084,SCI_SETWHITESPACEBACK:=2085,SCI_SETSTYLEBITS:=2090
,SCI_GETSTYLEBITS:=2091,SCI_SETLINESTATE:=2092,SCI_GETLINESTATE:=2093,SCI_GETMAXLINESTATE:=2094,SCI_GETCARETLINEVISIBLE:=2095
,SCI_SETCARETLINEVISIBLE:=2096,SCI_GETCARETLINEBACK:=2097,SCI_SETCARETLINEBACK:=2098,SCI_STYLESETCHANGEABLE:=2099,SCI_AUTOCSHOW:=2100
,SCI_AUTOCCANCEL:=2101,SCI_AUTOCACTIVE:=2102,SCI_AUTOCPOSSTART:=2103,SCI_AUTOCCOMPLETE:=2104,SCI_AUTOCSTOPS:=2105
,SCI_AUTOCSETSEPARATOR:=2106,SCI_AUTOCGETSEPARATOR:=2107,SCI_AUTOCSELECT:=2108,SCI_AUTOCSETCANCELATSTART:=2110
,SCI_AUTOCGETCANCELATSTART:=2111,SCI_AUTOCSETFILLUPS:=2112,SCI_AUTOCSETCHOOSESINGLE:=2113,SCI_AUTOCGETCHOOSESINGLE:=2114
,SCI_AUTOCSETIGNORECASE:=2115,SCI_AUTOCGETIGNORECASE:=2116,SCI_USERLISTSHOW:=2117,SCI_AUTOCSETAUTOHIDE:=2118,SCI_AUTOCGETAUTOHIDE:=2119
,SCI_AUTOCSETDROPRESTOFWORD:=2270,SCI_AUTOCGETDROPRESTOFWORD:=2271,SCI_REGISTERIMAGE:=2405,SCI_CLEARREGISTEREDIMAGES:=2408
,SCI_AUTOCGETTYPESEPARATOR:=2285,SCI_AUTOCSETTYPESEPARATOR:=2286,SCI_AUTOCSETMAXWIDTH:=2208,SCI_AUTOCGETMAXWIDTH:=2209
,SCI_AUTOCSETMAXHEIGHT:=2210,SCI_AUTOCGETMAXHEIGHT:=2211,SCI_SETINDENT:=2122,SCI_GETINDENT:=2123,SCI_SETUSETABS:=2124,SCI_GETUSETABS:=2125
,SCI_SETLINEINDENTATION:=2126,SCI_GETLINEINDENTATION:=2127,SCI_GETLINEINDENTPOSITION:=2128,SCI_GETCOLUMN:=2129,SCI_SETHSCROLLBAR:=2130
,SCI_GETHSCROLLBAR:=2131,SCI_SETINDENTATIONGUIDES:=2132,SCI_GETINDENTATIONGUIDES:=2133,SCI_SETHIGHLIGHTGUIDE:=2134
,SCI_GETHIGHLIGHTGUIDE:=2135,SCI_GETLINEENDPOSITION:=2136,SCI_GETCODEPAGE:=2137,SCI_GETCARETFORE:=2138,SCI_GETUSEPALETTE:=2139
,SCI_GETREADONLY:=2140,SCI_SETCURRENTPOS:=2141,SCI_SETSELECTIONSTART:=2142,SCI_GETSELECTIONSTART:=2143,SCI_SETSELECTIONEND:=2144
,SCI_GETSELECTIONEND:=2145,SCI_SETPRINTMAGNIFICATION:=2146,SCI_GETPRINTMAGNIFICATION:=2147,SCI_SETPRINTCOLORMODE:=2148
,SCI_GETPRINTCOLORMODE:=2149,SCI_FINDTEXT:=2150,SCI_FORMATRANGE:=2151,SCI_GETFIRSTVISIBLELINE:=2152,SCI_GETLINE:=2153
,SCI_GETLINECOUNT:=2154,SCI_SETMARGINLEFT:=2155,SCI_GETMARGINLEFT:=2156,SCI_SETMARGINRIGHT:=2157,SCI_GETMARGINRIGHT:=2158
,SCI_GETMODIFY:=2159,SCI_SETSEL:=2160,SCI_GETSELTEXT:=2161,SCI_GETTEXTRANGE:=2162,SCI_HIDESELECTION:=2163,SCI_POINTXFROMPOSITION:=2164
,SCI_POINTYFROMPOSITION:=2165,SCI_LINEFROMPOSITION:=2166,SCI_POSITIONFROMLINE:=2167,SCI_LINESCROLL:=2168,SCI_SCROLLCARET:=2169
,SCI_REPLACESEL:=2170,SCI_SETREADONLY:=2171,SCI_NULL:=2172,SCI_CANPASTE:=2173,SCI_CANUNDO:=2174,SCI_EMPTYUNDOBUFFER:=2175,SCI_UNDO:=2176
,SCI_CUT:=2177,SCI_COPY:=2178,SCI_PASTE:=2179,SCI_CLEAR:=2180,SCI_SETTEXT:=2181,SCI_GETTEXT:=2182,SCI_GETTEXTLENGTH:=2183
,SCI_GETDIRECTFUNCTION:=2184,SCI_GETDIRECTPOINTER:=2185,SCI_SETOVERTYPE:=2186,SCI_GETOVERTYPE:=2187,SCI_SETCARETWIDTH:=2188
,SCI_GETCARETWIDTH:=2189,SCI_SETTARGETSTART:=2190,SCI_GETTARGETSTART:=2191,SCI_SETTARGETEND:=2192,SCI_GETTARGETEND:=2193
,SCI_REPLACETARGET:=2194,SCI_REPLACETARGETRE:=2195,SCI_SEARCHINTARGET:=2197,SCI_SETSEARCHFLAGS:=2198,SCI_GETSEARCHFLAGS:=2199
,SCI_CALLTIPSHOW:=2200,SCI_CALLTIPCANCEL:=2201,SCI_CALLTIPACTIVE:=2202,SCI_CALLTIPPOSSTART:=2203,SCI_CALLTIPSETHLT:=2204
,SCI_CALLTIPSETBACK:=2205,SCI_CALLTIPSETFORE:=2206,SCI_CALLTIPSETFOREHLT:=2207,SCI_CALLTIPUSESTYLE:=2212,SCI_VISIBLEFROMDOCLINE:=2220
,SCI_DOCLINEFROMVISIBLE:=2221,SCI_WRAPCOUNT:=2235,SCI_SETFOLDLEVEL:=2222,SCI_GETFOLDLEVEL:=2223,SCI_GETLASTCHILD:=2224
,SCI_GETFOLDPARENT:=2225,SCI_SHOWLINES:=2226,SCI_HIDELINES:=2227,SCI_GETLINEVISIBLE:=2228,SCI_SETFOLDEXPANDED:=2229
,SCI_GETFOLDEXPANDED:=2230,SCI_TOGGLEFOLD:=2231,SCI_ENSUREVISIBLE:=2232,SCI_SETFOLDFLAGS:=2233,SCI_ENSUREVISIBLEENFORCEPOLICY:=2234
,SCI_SETTABINDENTS:=2260,SCI_GETTABINDENTS:=2261,SCI_SETBACKSPACEUNINDENTS:=2262,SCI_GETBACKSPACEUNINDENTS:=2263,SCI_SETMOUSEDWELLTIME:=2264
,SCI_GETMOUSEDWELLTIME:=2265,SCI_WORDSTARTPOSITION:=2266,SCI_WORDENDPOSITION:=2267,SCI_SETWRAPMODE:=2268,SCI_GETWRAPMODE:=2269
,SCI_SETWRAPVISUALFLAGS:=2460,SCI_GETWRAPVISUALFLAGS:=2461,SCI_SETWRAPVISUALFLAGSLOCATION:=2462,SCI_GETWRAPVISUALFLAGSLOCATION:=2463
,SCI_SETWRAPSTARTINDENT:=2464,SCI_GETWRAPSTARTINDENT:=2465,SCI_SETLAYOUTCACHE:=2272,SCI_GETLAYOUTCACHE:=2273,SCI_SETSCROLLWIDTH:=2274
,SCI_GETSCROLLWIDTH:=2275,SCI_TEXTWIDTH:=2276,SCI_SETENDATLASTLINE:=2277,SCI_GETENDATLASTLINE:=2278,SCI_TEXTHEIGHT:=2279
,SCI_SETVSCROLLBAR:=2280,SCI_GETVSCROLLBAR:=2281,SCI_APPENDTEXT:=2282,SCI_GETTWOPHASEDRAW:=2283,SCI_SETTWOPHASEDRAW:=2284
,SCI_TARGETFROMSELECTION:=2287,SCI_LINESJOIN:=2288,SCI_LINESSPLIT:=2289,SCI_SETFOLDMARGINCOLOR:=2290,SCI_SETFOLDMARGINHICOLOR:=2291
,SCI_ZOOMIN:=2333,SCI_ZOOMOUT:=2334,SCI_MOVECARETINSIDEVIEW:=2401,SCI_LINELENGTH:=2350,SCI_BRACEHIGHLIGHT:=2351,SCI_BRACEBADLIGHT:=2352
,SCI_BRACEMATCH:=2353,SCI_GETVIEWEOL:=2355,SCI_SETVIEWEOL:=2356,SCI_GETDOCPOINTER:=2357,SCI_SETDOCPOINTER:=2358,SCI_SETMODEVENTMASK:=2359
,SCI_GETEDGECOLUMN:=2360,SCI_SETEDGECOLUMN:=2361,SCI_GETEDGEMODE:=2362,SCI_SETEDGEMODE:=2363,SCI_GETEDGECOLOR:=2364,SCI_SETEDGECOLOR:=2365
,SCI_SEARCHANCHOR:=2366,SCI_SEARCHNEXT:=2367,SCI_SEARCHPREV:=2368,SCI_LINESONSCREEN:=2370,SCI_USEPOPUP:=2371,SCI_SELECTIONISRECTANGLE:=2372
,SCI_SETZOOM:=2373,SCI_GETZOOM:=2374,SCI_CREATEDOCUMENT:=2375,SCI_ADDREFDOCUMENT:=2376,SCI_RELEASEDOCUMENT:=2377,SCI_GETMODEVENTMASK:=2378
,SCI_SETFOCUS:=2380,SCI_GETFOCUS:=2381,SCI_SETSTATUS:=2382,SCI_GETSTATUS:=2383,SCI_SETMOUSEDOWNCAPTURES:=2384,SCI_GETMOUSEDOWNCAPTURES:=2385
,SCI_SETCURSOR:=2386,SCI_GETCURSOR:=2387,SCI_SETCONTROLCHARSYMBOL:=2388,SCI_GETCONTROLCHARSYMBOL:=2389,SCI_SETVISIBLEPOLICY:=2394
,SCI_SETXOFFSET:=2397,SCI_GETXOFFSET:=2398,SCI_CHOOSECARETX:=2399,SCI_GRABFOCUS:=2400,SCI_SETXCARETPOLICY:=2402,SCI_SETYCARETPOLICY:=2403
,SCI_SETPRINTWRAPMODE:=2406,SCI_GETPRINTWRAPMODE:=2407,SCI_SETHOTSPOTACTIVEFORE:=2410,SCI_SETHOTSPOTACTIVEBACK:=2411
,SCI_SETHOTSPOTACTIVEUNDERLINE:=2412,SCI_SETHOTSPOTSINGLELINE:=2421,SCI_POSITIONBEFORE:=2417,SCI_POSITIONAFTER:=2418
,SCI_COPYRANGE:=2419,SCI_COPYTEXT:=2420,SCI_SETSELECTIONMODE:=2422,SCI_GETSELECTIONMODE:=2423,SCI_GETLINESELSTARTPOSITION:=2424
,SCI_GETLINESELENDPOSITION:=2425,SCI_SETWHITESPACECHARS:=2443,SCI_SETCHARSDEFAULT:=2444,SCI_AUTOCGETCURRENT:=2445,SCI_ALLOCATE:=2446
,SCI_TARGETASUTF8:=2447,SCI_SETLENGTHFORENCODE:=2448,SCI_ENCODEDFROMUTF8:=2449,SCI_FINDCOLUMN:=2456,SCI_GETCARETSTICKY:=2457
,SCI_SETCARETSTICKY:=2458,SCI_TOGGLECARETSTICKY:=2459,SCI_SETPASTECONVERTENDINGS:=2467,SCI_GETPASTECONVERTENDINGS:=2468
,SCI_SETCARETLINEBACKALPHA:=2470,SCI_GETCARETLINEBACKALPHA:=2471,SCI_STARTRECORD:=3001,SCI_STOPRECORD:=3002,SCI_SETLEXER:=4001
,SCI_GETLEXER:=4002,SCI_COLORISE:=4003,SCI_SETPROPERTY:=4004,SCI_SETKEYWORDS:=4005,SCI_SETLEXERLANGUAGE:=4006,SCI_LOADLEXERLIBRARY:=4007
,SCI_GETPROPERTY:=4008,SCI_GETPROPERTYEXPANDED:=4009,SCI_GETPROPERTYINT:=4010,SCI_GETSTYLEBITSNEEDED:=4011, SCI_SETEXTRAASCENT := 2525, SCI_SETINDICATORCURRENT := 2500, SCI_INDICATORCLEARRANGE := 2505, SCI_INDICSETOUTLINEALPHA := 2558, SCI_INDICSETALPHA := 2523, SCI_INDICATORFILLRANGE := 2504, SCI_INDICATORSTART := 2508, SCI_INDICATOREND := 2509, SCI_INDICATORALLONFOR := 2506, SCI_AUTOCSETORDER := 2660, SCI_SETCARETLINEVISIBLEALWAYS := 2655
}
; Styles, Markers and Indicators
{
global MARKER_MAX:=31,STYLE_DEFAULT:=32,STYLE_LINENUMBER:=33,STYLE_BRACELIGHT:=34,STYLE_BRACEBAD:=35,STYLE_CONTROLCHAR:=36
,STYLE_INDENTGUIDE:=37,STYLE_CALLTIP:=38,STYLE_LASTPREDEFINED:=39,STYLE_MAX:=127,INDIC_MAX:=7,INDIC_PLAIN:=0,INDIC_SQUIGGLE:=1,INDIC_TT:=2
,INDIC_DIAGONAL:=3,INDIC_STRIKE:=4,INDIC_HIDDEN:=5,INDIC_BOX:=6,INDIC_ROUNDBOX:=7,INDIC0_MASK:=0x20,INDIC1_MASK:=0x40,INDIC2_MASK:=0x80
,INDICS_MASK:=0xE0,SCI_START:=2000,SCI_OPTIONAL_START:=3000,SCI_LEXER_START:=4000,SCWS_INVISIBLE:=0,SCWS_VISIBLEALWAYS:=1
,SCWS_VISIBLEAFTERINDENT:=2,SC_EOL_CRLF:=0,SC_EOL_CR:=1,SC_EOL_LF:=2,SC_CP_UTF8:=65001,SC_CP_DBCS:=1,SC_MARK_CIRCLE:=0,SC_MARK_ROUNDRECT:=1
,SC_MARK_ARROW:=2,SC_MARK_SMALLRECT:=3,SC_MARK_SHORTARROW:=4,SC_MARK_EMPTY:=5,SC_MARK_ARROWDOWN:=6,SC_MARK_MINUS:=7,SC_MARK_PLUS:=8
,SC_MARK_VLINE:=9,SC_MARK_LCORNER:=10,SC_MARK_TCORNER:=11,SC_MARK_BOXPLUS:=12,SC_MARK_BOXPLUSCONNECTED:=13,SC_MARK_BOXMINUS:=14
,SC_MARK_BOXMINUSCONNECTED:=15,SC_MARK_LCORNERCURVE:=16,SC_MARK_TCORNERCURVE:=17,SC_MARK_CIRCLEPLUS:=18,SC_MARK_CIRCLEPLUSCONNECTED:=19
,SC_MARK_CIRCLEMINUS:=20,SC_MARK_CIRCLEMINUSCONNECTED:=21,SC_MARK_BACKGROUND:=22,SC_MARK_DOTDOTDOT:=23,SC_MARK_ARROWS:=24
,SC_MARK_PIXMAP:=25,SC_MARK_FULLRECT:=26,SC_MARK_CHARACTER:=10000,SC_MARKNUM_FOLDEREND:=25,SC_MARKNUM_FOLDEROPENMID:=26
,SC_MARKNUM_FOLDERMIDTAIL:=27,SC_MARKNUM_FOLDERTAIL:=28,SC_MARKNUM_FOLDERSUB:=29,SC_MARKNUM_FOLDER:=30,SC_MARKNUM_FOLDEROPEN:=31
,SC_MASK_FOLDERS:=0xFE000000,SC_MARGIN_SYMBOL:=0,SC_MARGIN_NUMBER:=1
}
; Character Sets and Printing
{
global SC_CHARSET_ANSI:=0,SC_CHARSET_DEFAULT:=1,SC_CHARSET_BALTIC:=186
,SC_CHARSET_CHINESEBIG5:=136,SC_CHARSET_EASTEUROPE:=238,SC_CHARSET_GB2312:=134,SC_CHARSET_GREEK:=161,SC_CHARSET_HANGUL:=129
,SC_CHARSET_MAC:=77,SC_CHARSET_OEM:=255,SC_CHARSET_RUSSIAN:=204,SC_CHARSET_CYRILLIC:=1251,SC_CHARSET_SHIFTJIS:=128
,SC_CHARSET_SYMBOL:=2,SC_CHARSET_TURKISH:=162,SC_CHARSET_JOHAB:=130,SC_CHARSET_HEBREW:=177,SC_CHARSET_ARABIC:=178,SC_CHARSET_VIETNAMESE:=163
,SC_CHARSET_THAI:=222,SC_CHARSET_8859_15:=1000, SC_CASE_MIXED:=0,SC_CASE_UPPER:=1,SC_CASE_LOWER:=2,SC_PRINT_NORMAL:=0,SC_PRINT_INVERTLIGHT:=1
,SC_PRINT_BLACKONWHITE:=2,SC_PRINT_COLORONWHITE:=3,SC_PRINT_COLORONWHITEDEFAULTBG:=4
}
; Search Flags
{
global SCFIND_WHOLEWORD:=2,SCFIND_MATCHCASE:=4
,SCFIND_WORDSTART:=0x00100000,SCFIND_REGEXP:=0x00200000,SCFIND_POSIX:=0x00400000
}
; Folding
{
global SC_FOLDLEVELBASE:=0x400,SC_FOLDLEVELWHITEFLAG:=0x1000
,SC_FOLDLEVELHEADERFLAG:=0x2000,SC_FOLDLEVELBOXHEADERFLAG:=0x4000,SC_FOLDLEVELBOXFOOTERFLAG:=0x8000,SC_FOLDLEVELCONTRACTED:=0x10000
,SC_FOLDLEVELUNINDENT:=0x20000,SC_FOLDLEVELNUMBERMASK:=0x0FFF,SC_FOLDFLAG_LINEBEFORE_EXPANDED:=0x0002,SC_FOLDFLAG_LINEBEFORE_CONTRACTED:=0x0004
,SC_FOLDFLAG_LINEAFTER_EXPANDED:=0x0008,SC_FOLDFLAG_LINEAFTER_CONTRACTED:=0x0010,SC_FOLDFLAG_LEVELNUMBERS:=0x0040,SC_FOLDFLAG_BOX:=0x0001
}
; Keys
{
global SCMOD_NORM:=0, SCMOD_SHIFT:=1,SCMOD_CTRL:=2,SCMOD_ALT:=4, SCK_DOWN:=300,SCK_UP:=301,SCK_LEFT:=302,SCK_RIGHT:=303,SCK_HOME:=304,SCK_END:=305
,SCK_PRIOR:=306,SCK_NEXT:=307,SCK_DELETE:=308,SCK_INSERT:=309,SCK_ESCAPE:=7,SCK_BACK:=8,SCK_TAB:=9,SCK_RETURN:=13,SCK_ADD:=310,SCK_SUBTRACT:=311
,SCK_DIVIDE:=312
}
; Lexing
{
global SCLEX_CONTAINER:=0,SCLEX_NULL:=1,SCLEX_PYTHON:=2,SCLEX_CPP:=3,SCLEX_HTML:=4,SCLEX_XML:=5,SCLEX_PERL:=6,SCLEX_SQL:=7,SCLEX_VB:=8
,SCLEX_PROPERTIES:=9,SCLEX_ERRORLIST:=10,SCLEX_MAKEFILE:=11,SCLEX_BATCH:=12,SCLEX_XCODE:=13,SCLEX_LATEX:=14,SCLEX_LUA:=15,SCLEX_DIFF:=16
,SCLEX_CONF:=17,SCLEX_PASCAL:=18,SCLEX_AVE:=19,SCLEX_ADA:=20,SCLEX_LISP:=21,SCLEX_RUBY:=22,SCLEX_EIFFEL:=23,SCLEX_EIFFELKW:=24
,SCLEX_TCL:=25,SCLEX_NNCRONTAB:=26,SCLEX_BULLANT:=27,SCLEX_VBSCRIPT:=28,SCLEX_BAAN:=31,SCLEX_MATLAB:=32,SCLEX_SCRIPTOL:=33
,SCLEX_ASM:=34,SCLEX_CPPNOCASE:=35,SCLEX_FORTRAN:=36,SCLEX_F77:=37,SCLEX_CSS:=38,SCLEX_POV:=39,SCLEX_LOUT:=40,SCLEX_ESCRIPT:=41
,SCLEX_PS:=42,SCLEX_NSIS:=43,SCLEX_MMIXAL:=44,SCLEX_CLW:=45,SCLEX_CLWNOCASE:=46,SCLEX_LOT:=47,SCLEX_YAML:=48,SCLEX_TEX:=49
,SCLEX_METAPOST:=50,SCLEX_POWERBASIC:=51,SCLEX_FORTH:=52,SCLEX_ERLANG:=53,SCLEX_OCTAVE:=54,SCLEX_MSSQL:=55,SCLEX_VERILOG:=56,SCLEX_KIX:=57
,SCLEX_GUI4CLI:=58,SCLEX_SPECMAN:=59,SCLEX_AU3:=60,SCLEX_APDL:=61,SCLEX_BASH:=62,SCLEX_ASN1:=63,SCLEX_VHDL:=64,SCLEX_CAML:=65
,SCLEX_BLITZBASIC:=66,SCLEX_PUREBASIC:=67,SCLEX_HASKELL:=68,SCLEX_PHPSCRIPT:=69,SCLEX_TADS3:=70,SCLEX_REBOL:=71,SCLEX_SMALLTALK:=72
,SCLEX_FLAGSHIP:=73,SCLEX_CSOUND:=74,SCLEX_FREEBASIC:=75,SCLEX_INNOSETUP:=76,SCLEX_OPAL:=77,SCLEX_SPICE:=78,SCLEX_D:=79,SCLEX_CMAKE:=80
,SCLEX_GAP:=81,SCLEX_PLM:=82,SCLEX_PROGRESS:=83,SCLEX_ABAQUS:=84,SCLEX_ASYMPTOTE:=85,SCLEX_R:=86,SCLEX_MAGIK:=87,SCLEX_POWERSHELL:=88
,SCLEX_MYSQL:=89,SCLEX_PO:=90,SCLEX_TAL:=91,SCLEX_COBOL:=92,SCLEX_TACL:=93,SCLEX_SORCUS:=94,SCLEX_POWERPRO:=95,SCLEX_NIMROD:=96,SCLEX_SML:=97
,SCLEX_MARKDOWN:=98,SCLEX_TXT2TAGS:=99,SCLEX_A68K:=100,SCLEX_MODULA:=101,SCLEX_COFFEESCRIPT:=102,SCLEX_TCMD:=103,SCLEX_AVS:=104,SCLEX_ECL:=105
,SCLEX_OSCRIPT:=106,SCLEX_VISUALPROLOG:=107,SCLEX_LITERATEHASKELL:=108,SCLEX_AHKL:=109
,SCE_AHKL_NEUTRAL:=0,SCE_AHKL_IDENTIFIER:=1,SCE_AHKL_COMMENTDOC:=2,SCE_AHKL_COMMENTLINE:=3,SCE_AHKL_COMMENTBLOCK:=4,SCE_AHKL_COMMENTKEYWORD:=5
,SCE_AHKL_STRING:=6,SCE_AHKL_STRINGOPTS:=7,SCE_AHKL_STRINGBLOCK:=8,SCE_AHKL_STRINGCOMMENT:=9,SCE_AHKL_LABEL:=10,SCE_AHKL_HOTKEY:=11
,SCE_AHKL_HOTSTRING:=12,SCE_AHKL_HOTSTRINGOPT:=13,SCE_AHKL_HEXNUMBER:=14,SCE_AHKL_DECNUMBER:=15,SCE_AHKL_VAR:=16,SCE_AHKL_VARREF:=17
,SCE_AHKL_OBJECT:=18,SCE_AHKL_USERFUNCTION:=19,SCE_AHKL_DIRECTIVE:=20,SCE_AHKL_COMMAND:=21,SCE_AHKL_PARAM:=22,SCE_AHKL_CONTROLFLOW:=23
,SCE_AHKL_BUILTINFUNCTION:=24,SCE_AHKL_BUILTINVAR:=25,SCE_AHKL_KEY:=26,SCE_AHKL_USERDEFINED1:=27,SCE_AHKL_USERDEFINED2:=28,SCE_AHKL_ESCAPESEQ:=30
,SCE_AHKL_ERROR:=31,AHKL_LIST_DIRECTIVES:=0,AHKL_LIST_COMMANDS:=1,AHKL_LIST_PARAMETERS:=2,AHKL_LIST_CONTROLFLOW:=3,AHKL_LIST_FUNCTIONS:=4
,AHKL_LIST_VARIABLES:=5,AHKL_LIST_KEYS:=6,AHKL_LIST_USERDEFINED1:=7,AHKL_LIST_USERDEFINED2:=8,SCLEX_AUTOMATIC=1000
}
; Notifications
{
global SCEN_CHANGE:=768,SCEN_SETFOCUS:=512,SCEN_KILLFOCUS:=256, SCN_STYLENEEDED:=2000,SCN_CHARADDED:=2001
,SCN_SAVEPOINTREACHED:=2002,SCN_SAVEPOINTLEFT:=2003,SCN_MODIFYATTEMPTRO:=2004,SCN_DOUBLECLICK:=2006,SCN_UPDATEUI:=2007
,SCN_MODIFIED:=2008,SCN_MACRORECORD:=2009,SCN_MARGINCLICK:=2010,SCN_NEEDSHOWN:=2011,SCN_PAINTED:=2013,SCN_USERLISTSELECTION:=2014
,SCN_URIDROPPED:=2015,SCN_DWELLSTART:=2016,SCN_DWELLEND:=2017,SCN_ZOOM:=2018,SCN_HOTSPOTCLICK:=2019,SCN_HOTSPOTDOUBLECLICK:=2020
, SCN_CALLTIPCLICK := 2021, SCN_AUTOCSELECTION := 2022, SCN_AUTOCCOMPLETED := 2030, SCN_AUTOCCANCELLED := 2025
}
; Other
{
global SCI_LINEDOWN:=2300,SCI_LINEDOWNEXTEND:=2301,SCI_LINEDOWNRECTEXTEND:=2426
,SCI_LINESCROLLDOWN:=2342,SCI_LINEUP:=2302,SCI_LINEUPEXTEND:=2303,SCI_LINEUPRECTEXTEND:=2427,SCI_LINESCROLLUP:=2343,SCI_PARADOWN:=2413
,SCI_PARADOWNEXTEND:=2414,SCI_PARAUP:=2415,SCI_PARAUPEXTEND:=2416,SCI_CHARLEFT:=2304,SCI_CHARLEFTEXTEND:=2305,SCI_CHARLEFTRECTEXTEND:=2428
,SCI_CHARRIGHT:=2306,SCI_CHARRIGHTEXTEND:=2307,SCI_CHARRIGHTRECTEXTEND:=2429,SCI_WORDLEFT:=2308,SCI_WORDLEFTEXTEND:=2309,SCI_WORDRIGHT:=2310
,SCI_WORDRIGHTEXTEND:=2311,SCI_WORDLEFTEND:=2439,SCI_WORDLEFTENDEXTEND:=2440,SCI_WORDRIGHTEND:=2441,SCI_WORDRIGHTENDEXTEND:=2442
,SCI_WORDPARTLEFT:=2390,SCI_WORDPARTLEFTEXTEND:=2391,SCI_WORDPARTRIGHT:=2392,SCI_WORDPARTRIGHTEXTEND:=2393,SCI_HOME:=2312
,SCI_HOMEEXTEND:=2313,SCI_HOMERECTEXTEND:=2430,SCI_HOMEDISPLAY:=2345,SCI_HOMEDISPLAYEXTEND:=2346,SCI_HOMEWRAP:=2349
,SCI_HOMEWRAPEXTEND:=2450,SCI_VCHOME:=2331,SCI_VCHOMEEXTEND:=2332,SCI_VCHOMERECTEXTEND:=2431,SCI_VCHOMEWRAP:=2453,SCI_VCHOMEWRAPEXTEND:=2454
,SCI_LINEEND:=2314,SCI_LINEENDEXTEND:=2315,SCI_LINEENDRECTEXTEND:=2432,SCI_LINEENDDISPLAY:=2347,SCI_LINEENDDISPLAYEXTEND:=2348
,SCI_LINEENDWRAP:=2451,SCI_LINEENDWRAPEXTEND:=2452,SCI_DOCUMENTSTART:=2316,SCI_DOCUMENTSTARTEXTEND:=2317,SCI_DOCUMENTEND:=2318
,SCI_DOCUMENTENDEXTEND:=2319,SCI_PAGEUP:=2320,SCI_PAGEUPEXTEND:=2321,SCI_PAGEUPRECTEXTEND:=2433,SCI_PAGEDOWN:=2322,SCI_PAGEDOWNEXTEND:=2323
,SCI_PAGEDOWNRECTEXTEND:=2434,SCI_STUTTEREDPAGEUP:=2435,SCI_STUTTEREDPAGEUPEXTEND:=2436,SCI_STUTTEREDPAGEDOWN:=2437
,SCI_STUTTEREDPAGEDOWNEXTEND:=2438,SCI_DELETEBACK:=2326,SCI_DELETEBACKNOTLINE:=2344,SCI_DELWORDLEFT:=2335,SCI_DELWORDRIGHT:=2336
,SCI_DELLINELEFT:=2395,SCI_DELLINERIGHT:=2396,SCI_LINEDELETE:=2338,SCI_LINECUT:=2337,SCI_LINECOPY:=2455,SCI_LINETRANSPOSE:=2339
,SCI_LINEDUPLICATE:=2404,SCI_LOWERCASE:=2340,SCI_UPPERCASE:=2341,SCI_CANCEL:=2325,SCI_EDITTOGGLEOVERTYPE:=2324,SCI_NEWLINE:=2329
,SCI_FORMFEED:=2330,SCI_TAB:=2327,SCI_BACKTAB:=2328,SCI_SELECTIONDUPLICATE:=2469,SCI_SCROLLTOSTART:=2628,SCI_SCROLLTOEND:=2629
,SCI_DELWORDRIGHTEND:=2518,SCI_VERTICALCENTRECARET:=2619,SCI_MOVESELECTEDLINESUP:=2620,SCI_MOVESELECTEDLINESDOWN:=2621
,SC_TIME_FOREVER:=10000000,SC_WRAP_NONE:=0,SC_WRAP_WORD:=1,SC_WRAP_CHAR:=2,SC_WRAPVISUALFLAG_NONE:=0x0000,SC_WRAPVISUALFLAG_END:=0x0001
,SC_WRAPVISUALFLAG_START:=0x0002,SC_WRAPVISUALFLAG_MARGIN:=0x0004, SC_WRAPVISUALFLAGLOC_DEFAULT:=0x0000,SC_WRAPVISUALFLAGLOC_END_BY_TEXT:=0x0001
,SC_WRAPVISUALFLAGLOC_START_BY_TEXT:=0x0002,SC_CACHE_NONE:=0,SC_CACHE_CARET:=1,SC_CACHE_PAGE:=2,SC_CACHE_DOCUMENT:=3,EDGE_NONE:=0,EDGE_LINE:=1
,EDGE_BACKGROUND:=2,SC_CURSORNORMAL:=-1,SC_CURSORWAIT:=4,VISIBLE_SLOP:=0x01,VISIBLE_STRICT:=0x04,CARET_SLOP:=0x01,CARET_STRICT:=0x04
,CARET_JUMPS:=0x10,CARET_EVEN:=0x08,SC_SEL_STREAM:=0,SC_SEL_RECTANGLE:=1,SC_SEL_LINES:=2,SC_ALPHA_TRANSPARENT:=0,SC_ALPHA_OPAQUE:=255
,SC_ALPHA_NOALPHA:=256,KEYWORDSET_MAX:=8,SC_MOD_INSERTTEXT:=0x1,SC_MOD_DELETETEXT:=0x2,SC_MOD_CHANGESTYLE:=0x4,SC_MOD_CHANGEFOLD:=0x8
,SC_PERFORMED_USER:=0x10,SC_PERFORMED_UNDO:=0x20,SC_PERFORMED_REDO:=0x40,SC_MULTISTEPUNDOREDO:=0x80,SC_LASTSTEPINUNDOREDO:=0x100
,SC_MOD_CHANGEMARKER:=0x200,SC_MOD_BEFOREINSERT:=0x400,SC_MOD_BEFOREDELETE:=0x800,SC_MULTILINEUNDOREDO:=0x1000,SC_MODEVENTMASKALL:=0x1FFF
,SC_WEIGHT_NORMAL:=400, SC_WEIGHT_SEMIBOLD:=600, SC_WEIGHT_BOLD:=700
}
}
Code: Select all
SetScintilla(n) {
Sci[n].SetLexer(200) ; SCLEX_AHKL
Sci[n].SetCodePage(65001)
Sci[n].SetWrapMode(WordWrap)
; Indentation
Sci[n].SetIndent(TabSize)
Sci[n].SetTabWidth(TabSize)
Sci[n].SetUseTabs(True) ; Indent with spaces
Sci[n].SetIndentationGuides(g_IndentGuides ? 3 : 0)
Sci[n].MarginLen := 0
SciSetStyle(n, Sci.FontName, Sci.FontSize)
Sci[n].Notify := "OnWM_NOTIFY"
Sci[n].SetExtraAscent(2) ; Increase space between lines
; Autocomplete settings
Sci[n].AutoCSetIgnoreCase(True)
Sci[n].AutoCSetMaxHeight(g_AutoCMaxItems)
Sci[n].AutoCSetOrder(1) ; SC_ORDER_PERFORMSORT
; Calltip settings
Sci[n].CalltipSetFore(CvtClr(0x000000))
Sci[n].CalltipSetBack(CvtClr(0xFFFFDD))
Sci[n].SetMouseDwellTime(1000) ; Hover time
Sci[n].AssignCmdKey(SCK_END, SCI_LINEENDWRAP)
Sci[n].AssignCmdKey(SCK_HOME, SCI_HOMEWRAP)
If (g_ShowSymbols) {
g_ShowSymbols := False
GoSub ToggleSymbols
}
}
IsBrace(n) {
; Return true for the (,),[,],{,},<,> character codes
if n in 40,41,91,93,123,125,60,62
return true
else
return false
}
SciSetStyle(n, FontName := "Lucida Console", FontSize := 10) {
Sci[n].StyleSetFont(STYLE_DEFAULT, FontName, 2)
Sci[n].StyleSetSize(STYLE_DEFAULT, FontSize)
Sci[n].StyleSetBack(STYLE_DEFAULT, CvtClr(0xFAFAFA))
Sci[n].StyleClearAll() ; This message sets all styles to have the same attributes as STYLE_DEFAULT.
; Active line background color
Sci[n].SetCaretLineBack(CvtClr(g_HighlightActiveLine ? 0xD8F3FF : 0xFFFFFF))
Sci[n].SetCaretLineVisible(True)
Sci[n].SetCaretLineVisibleAlways(1)
; Margin settings
Sci[n].SetMarginTypeN(0, 1)
SetLineNumberWidth(n)
Sci[n].SetMarginLeft(0, 2) ; Left padding
Sci[n].SetMarginWidthN(1, 2) ; Line number right margin
Sci[n].StyleSetFore(33, CvtClr(0xCFD2CA)) ; Margin foreground color
Sci[n].StyleSetBack(33, CvtClr(0xFFFFFF)) ; Margin background color
; Matching braces
Sci[n].StyleSetFore(STYLE_BRACELIGHT, CvtClr(0x000000))
Sci[n].StyleSetBack(STYLE_BRACELIGHT, CvtClr(0xFFFF00))
Sci[n].StyleSetBold(STYLE_BRACELIGHT, True)
Sci[n].StyleSetFore(STYLE_BRACEBAD, CvtClr(0xFF0000))
; Selection
Sci[n].SetSelFore(1, CvtClr(0xFFFFFF))
Sci[n].SetSelBack(1, CvtClr(0x3399FF))
If (SyntaxHighlighting) {
; AHK syntax elements
Sci[n].StyleSetFore(SCE_AHKL_IDENTIFIER , CvtClr(0x000000))
Sci[n].StyleSetFore(SCE_AHKL_COMMENTDOC , CvtClr(0x008888))
Sci[n].StyleSetFore(SCE_AHKL_COMMENTLINE , CvtClr(0x969896))
Sci[n].StyleSetFore(SCE_AHKL_COMMENTBLOCK , CvtClr(0x969896))
Sci[n].StyleSetFore(SCE_AHKL_COMMENTKEYWORD , CvtClr(0xA50000))
Sci[n].StyleSetFore(SCE_AHKL_STRING , CvtClr(0x183691))
Sci[n].StyleSetFore(SCE_AHKL_STRINGOPTS , CvtClr(0x0000EE))
Sci[n].StyleSetFore(SCE_AHKL_STRINGBLOCK , CvtClr(0x183691))
Sci[n].StyleSetFore(SCE_AHKL_STRINGCOMMENT , CvtClr(0xFF0000))
Sci[n].StyleSetFore(SCE_AHKL_LABEL , CvtClr(0x0000DD))
Sci[n].StyleSetFore(SCE_AHKL_HOTKEY , CvtClr(0x00AADD))
Sci[n].StyleSetFore(SCE_AHKL_HOTSTRING , CvtClr(0x00BBBB))
Sci[n].StyleSetFore(SCE_AHKL_HOTSTRINGOPT , CvtClr(0x990099))
Sci[n].StyleSetFore(SCE_AHKL_HEXNUMBER , CvtClr(0x880088))
Sci[n].StyleSetFore(SCE_AHKL_DECNUMBER , CvtClr(0x606870))
Sci[n].StyleSetFore(SCE_AHKL_VAR , CvtClr(0x9F1F6F))
Sci[n].StyleSetFore(SCE_AHKL_VARREF , CvtClr(0x990055))
Sci[n].StyleSetFore(SCE_AHKL_OBJECT , CvtClr(0x008888))
Sci[n].StyleSetFore(SCE_AHKL_USERFUNCTION , CvtClr(0x0000DD))
Sci[n].StyleSetFore(SCE_AHKL_DIRECTIVE , CvtClr(0x0000CF))
Sci[n].StyleSetFore(SCE_AHKL_COMMAND , CvtClr(0x0080C0))
Sci[n].StyleSetFore(SCE_AHKL_PARAM , CvtClr(0x0080C0))
Sci[n].StyleSetFore(SCE_AHKL_CONTROLFLOW , CvtClr(0x0000DD))
Sci[n].StyleSetFore(SCE_AHKL_BUILTINFUNCTION, CvtClr(0x0F707F))
Sci[n].StyleSetFore(SCE_AHKL_BUILTINVAR , CvtClr(0x9F1F6F))
Sci[n].StyleSetFore(SCE_AHKL_KEY , CvtClr(0xA2A2A2))
;Sci[n].StyleSetFore(SCE_AHKL_USERDEFINED1 , CvtClr(0x000000))
;Sci[n].StyleSetFore(SCE_AHKL_USERDEFINED2 , CvtClr(0x000000))
Sci[n].StyleSetFore(SCE_AHKL_ESCAPESEQ , CvtClr(0x660000))
;Sci[n].StyleSetFore(SCE_AHKL_ERROR , 0xFF0000)
; Keywords
Sci[n].SetKeywords(0, Keywords.Directives, 2)
Sci[n].SetKeywords(1, Keywords.Commands, 2)
Sci[n].SetKeywords(2, Keywords.Parameters, 2)
Sci[n].SetKeywords(3, Keywords.ControlFlow, 2)
Sci[n].SetKeywords(4, Keywords.Functions, 2)
Sci[n].SetKeywords(5, Keywords.BuiltinVariables, 2)
Sci[n].SetKeywords(6, Keywords.Keys, 2)
;Sci[n].SetKeywords(7, Keywords.UserDefined1, 2)
;Sci[n].SetKeywords(8, Keywords.UserDefined2, 2)
}
}
NewTab:
NewTab()
Return
NewTab() {
Static TabCounter := 1
TabCounter++
TabIndex := TabEx.GetCount() + 1
Sci[TabIndex] := New Scintilla
x := (DesignMode) ? 169 : 7
Sci[TabIndex].Add(hAutoWnd, x, 60, 1576, 1420, SciLexer, 0x50010000, 0)
SetScintilla(TabIndex)
TabEx.SetIcon(TabEx.Add("Untitled " . TabCounter), 1)
TabEx.SetSel(TabIndex)
GoSub AutoSize
Sci[TabIndex].Number := TabCounter ; Untitled number
Return TabIndex
}
NewFromTemplate:
n := TabEx.GetSel()
If (n == g_GuiTab || Sci[n].GetModify() || Sci[n].FileName != "") {
n := NewTab()
}
Template := A_WinDir . "\ShellNew\Template.ahk"
If (FileExist(Template) && !GetKeyState("Shift", "P")) {
FileRead Template, %Template%
} Else {
Template :=
(LTrim
"#NoEnv
#Warn
#SingleInstance Force
SetWorkingDir %A_ScriptDir%
SendMode Input
SetBatchLines -1"
)
Template .= CRLF
}
Sci[n].SetText("", Template . CRLF, 2)
Sci[n].GoToPos(10000)
Return
DuplicateTab:
n := TabEx.GetSel()
nLen := Sci[n].GetText(Sci[n].GetLength() + 1, SciText)
Sci[n].GetText(nLen + 1, SciText)
Sci[NewTab()].SetText("", SciText, 2)
Return
CloseTab:
CloseTab(TabEx.GetSel())
Return
CloseTabN:
CloseTab(g_TabIndex)
Return
CloseTab(TabIndex) {
If (Sci[TabIndex].GetModify()) {
TabEx.SetSel(TabIndex)
TabCaption := TabEx.GetText(TabIndex)
Gui Auto: +OwnDialogs
MsgBox 0x33, %TabCaption%, The file was modified. Do you want to save it?
IfMsgBox Yes, {
If (!Save()) {
Return
}
} Else IfMsgBox Cancel, {
Return
}
}
If (TabIndex == g_GuiTab) {
Gui %Child%: Destroy
g_GuiTab := 0
g_GuiSB := False
SetStatusBar()
}
If (TabEx.GetCount() > 1) {
SendMessage 0x1308, % TabIndex - 1, 0,, ahk_id %hTab% ; TCM_DELETEITEM
DestroyWindow(Sci[TabIndex].hWnd)
Sci.Remove(TabIndex)
If (TabIndex > 1) {
TabIndex -= 1
}
} Else {
ClearFile(1)
}
TabEx.SetSel(TabIndex)
}
ClearFile(n) {
Sci[n].FullFileName := ""
Sci[n].FileName := ""
Sci[n].Modified := ""
Sci[n].ClearAll()
Sci[n].SetSavePoint()
TabEx.SetIcon(n, 1)
}
ToggleReadOnly() {
ToggleReadOnly:
n := TabEx.GetSel()
ReadOnly := !Sci[n].GetReadOnly()
sci[n].SetReadOnly(ReadOnly)
Menu AutoOptionsMenu, ToggleCheck, &Read Only
SendMessage TB_CHECKBUTTON, 2170, ReadOnly,, ahk_id %hEditorTB%
If (WinActive("ahk_id" . hAutoWnd)) {
If (ReadOnly) {
SB_SetText("Read only", 3)
} Else {
If (Sci[n].GetModify()) {
SB_SetText("Modified", 3)
} Else {
SB_SetText("", 3)
}
}
}
Return
}
ToggleWordWrap() {
n := TabEx.GetSel()
WordWrap := !Sci[n].GetWrapMode()
Sci[n].SetWrapMode(WordWrap)
Menu AutoOptionsMenu, ToggleCheck, &Wrap Long Lines ; &Word Wrap
SendMessage TB_CHECKBUTTON, 2160, WrapMode,, ahk_id %hEditorTB%
}
ToggleLineNumbers:
LineNumbers := !LineNumbers
Loop % Sci.MaxIndex() {
SetLineNumberWidth(A_Index)
}
Menu AutoOptionsMenu, ToggleCheck, &Line Numbering
Return
ToggleSyntaxHighlighting:
SyntaxHighlighting := !SyntaxHighlighting
If (SyntaxHighlighting) {
Loop % Sci.Length() {
SciSetStyle(A_Index, Sci.FontName, Sci.FontSize)
}
} Else {
Loop % Sci.Length() {
Sci[A_Index].StyleClearAll()
Sci[A_Index].StyleSetFore(33, CvtClr(0xCFD2CA)) ; Margin foreground color
Sci[A_Index].StyleSetBack(33, CvtClr(0xFFFFFF)) ; Margin background color
}
}
Menu AutoOptionsMenu, ToggleCheck, Syntax &Highlighting
SendMessage TB_CHECKBUTTON, 2180, %SyntaxHighlighting%,, ahk_id %hEditorTB%
Return
ToggleAutoComplete:
g_AutoCEnabled := !g_AutoCEnabled
Menu AutoOptionsMenu, ToggleCheck, &Code Completion ; &Autocompletion
Return
ToggleCalltips:
g_Calltips := !g_Calltips
Menu AutoOptionsMenu, ToggleCheck, Code &ToolTips ; &Calltips
Return
ToggleAutoBrackets:
AutoBrackets := !AutoBrackets
Menu AutoOptionsMenu, ToggleCheck, Autoclose &Brackets
Return
Undo:
Sci[TabEx.GetSel()].Undo()
Return
Redo:
Sci[TabEx.GetSel()].Redo()
Return
Cut:
Sci[TabEx.GetSel()].Cut()
Return
Copy:
Sci[TabEx.GetSel()].Copy()
Return
Paste:
Sci[TabEx.GetSel()].Paste()
Return
Clear:
Sci[TabEx.GetSel()].Clear()
Return
SelectAll:
Sci[TabEx.GetSel()].SelectAll()
Return
Lowercase:
Sci[TabEx.GetSel()].LowerCase()
Return
Uppercase:
Sci[TabEx.GetSel()].UpperCase()
Return
TitleCase:
n := TabEx.GetSel()
Start := Sci[n].GetSelectionStart()
End := Sci[n].GetSelectionEnd()
Sci[n].GetTextRange([Start, End], Selection)
StringUpper Selection, Selection, T
Sci[n].ReplaceSel("", Selection, 2)
Sci[n].SetSel(Start, End)
Return
OnWM_NOTIFY(wParam, lParam, msg, hWnd, obj) {
n := TabEx.GetSel()
caretPos := Sci[n].GetCurrentPos()
If (obj.SCNCode == SCN_UPDATEUI) {
; The updated field is set to the bit set of things changed since the previous notification.
; SC_UPDATE_CONTENT 0x01 Contents, styling or markers have been changed.
; SC_UPDATE_SELECTION 0x02 Selection has been changed.
; SC_UPDATE_V_SCROLL 0x04 Scrolled vertically.
; SC_UPDATE_H_SCROLL 0x08 Scrolled horizontally.
If (obj.updated < 4 && g_HighlightIdenticalText) {
Sci[n].SetIndicatorCurrent(2)
Sci[n].IndicatorClearRange(0, Sci[n].GetLength())
WordStartPos := Sci[n].WordStartPosition(caretPos, True)
WordEndPos := Sci[n].WordEndPosition(caretPos, True)
SelStart := Sci[n].GetSelectionStart()
SelEnd := Sci[n].GetSelectionEnd()
If (SelStart != SelEnd && WordStartPos == SelStart && WordEndPos == SelEnd) {
HighlightIdenticalText(GetSelectedText())
}
}
; Brace Matching
; Has the caret changed position?
If (lastCaretPos != caretPos) {
lastCaretPos := caretPos
bracePos1 := -1
bracePos2 := -1
}
; Is there a brace to the left or right?
If (caretPos > 0 && IsBrace(Sci[n].GetCharAt(caretPos - 1)))
{
bracePos1 := (caretPos -1)
}
Else If (IsBrace(Sci[n].GetCharAt(caretPos)))
bracePos1 := caretPos
If (bracePos1 >= 0) {
; Find the matching brace
bracePos2 := Sci[n].BraceMatch(bracePos1)
If (bracePos2 = Invalid_Position) {
Sci[n].BraceBadLight(bracePos1)
Sci[n].SetHighlightGuide(0)
}
Else {
Sci[n].BraceHighlight(bracePos1, bracePos2)
Sci[n].SetHighlightGuide(Sci[n].GetColumn(bracePos1))
}
}
Else {
; Turn off brace matching
Sci[n].BraceHighlight(Invalid_Position, Invalid_Position)
Sci[n].SetHighlightGuide(0)
}
; bm := Sci[n].BraceMatch(caretPos - 1, 0)
; If (bm != -1) {
; Sci[n].BraceHighlight(caretPos - 1, bm)
; } Else {
; Sci[n].BraceHighlight(-1, Sci[n].GetLength())
; }
UpdateStatusBar()
} Else If (obj.SCNCode == SCN_MODIFIED) {
UpdateStatusBar()
SetLineNumberWidth(n)
} Else If (obj.SCNCode == SCN_SAVEPOINTREACHED) {
SetDocumentStatus(n)
} Else If (obj.SCNCode == SCN_SAVEPOINTLEFT) {
SetDocumentStatus(n)
} Else If (obj.SCNCode == SCN_CHARADDED) {
If (g_AutoCEnabled) {
AutoComplete(g_AutoCMinLength)
}
If (g_Calltips && (obj.ch == 40 || obj.ch == 44 || obj.ch == 32)) {
WordPos := GetCurrentWord(Word, caretPos - 1)
Calltip := GetCalltip(Word)
If (Word != "If") {
ShowCalltip(n, Calltip, WordPos[1])
}
}
If (!AutoBrackets) {
Return
}
PrevChar := Sci[n].GetCharAt(caretPos - 2)
NextChar := Sci[n].GetCharAt(caretPos)
; Autoclose brackets ([{""}])
If (obj.ch == 40 && NextChar != 41) { ; Parenthesis
Sci[n].InsertText(caretPos, ")", 2)
} Else If (obj.ch == 91 && NextChar != 93) { ; Brackets
Sci[n].InsertText(caretPos, "]", 2)
} Else If (obj.ch == 123 && NextChar != 125) { ; Braces
Sci[n].GetTextRange([caretPos - 5, caretPos], PrevChars)
If (RegExMatch(PrevChars, "\(\)\s?\n?")) {
Sci[n].InsertText(caretPos, CRLF . Indent . CRLF . "}", 2)
Sci[n].GoToPos(caretPos + 2 + TabSize)
} Else {
Sci[n].InsertText(caretPos, "}", 2)
}
} Else If (obj.ch == 34 ; Quotes
&& (NextChar == 0
|| NextChar == 9 ; Tab
|| NextChar == 32 ; Space
|| NextChar == 33 ; Exclamation mark
|| NextChar == 41 ; Close parenthesis
|| NextChar == 44 ; Comma
|| NextChar == 46 ; Period
|| NextChar == 58 ; Colon
|| NextChar == 59 ; Semicolon
|| NextChar == 63 ; Question mark
|| NextChar == 93 ; Right bracket
|| NextChar == 125) ; Right brace
&& (PrevChar == 0
|| PrevChar == 9
|| PrevChar == 10 ; New line
|| PrevChar == 32
|| PrevChar == 40 ; Open parenthesis
|| PrevChar == 91 ; Left bracket
|| PrevChar == 123)) ; Left brace
{
Sci[n].InsertText(caretPos, """", 2)
}
} Else If (obj.SCNCode == SCN_AUTOCCOMPLETED) {
Keyword := StrGet(obj.Text,, "UTF-8")
If (g_AutoCWin32Const) {
ConstValue := LookupConstant(Keyword)
Sci[n].InsertText(caretPos, " := " . ConstValue, 2)
Sci[n].GoToPos(caretPos + StrLen(" := " . ConstValue))
g_AutoCWin32Const := False
} Else {
If (g_Calltips && Keyword != "GuiClose") {
CallTip := GetCallTip(Keyword, True)
ShowCalltip(n, CallTip, GetWordPos()[1])
}
}
} Else If (obj.SCNCode == SCN_AUTOCCANCELLED) {
g_AutoCWin32Const := False
} Else If (obj.SCNCode == SCN_DWELLSTART) {
If (g_Calltips) {
If (obj.position != -1) {
WordPos := GetCurrentWord(Word, obj.position)
ShowCalltip(n, GetCalltip(Word, False), WordPos[1])
}
}
} Else If (obj.SCNCode == SCN_DWELLEND) {
Sci[n].CalltipCancel()
} Else If (obj.SCNCode == SCN_CALLTIPCLICK) {
; The position field is set to 1 if the click is in an up arrow, 2 if in a down arrow, and 0 if elsewhere.
If (obj.position == 0) {
InsertCalltip()
Return
} Else If (obj.position == 1) {
g_CalltipParamsIndex--
} Else {
g_CalltipParamsIndex++
}
If ((obj.position == 1 && g_CalltipParamsIndex > 1)
|| (g_CalltipParams.Length() == g_CalltipParamsIndex)) {
Arrow := 1 ; Up arrow
} Else {
Arrow := 2 ; Down arrow
}
WordStartPos := Sci[n].WordStartPosition(caretPos - 1, True)
Sci[n].CalltipShow(WordStartPos, Chr(Arrow) . g_CalltipParams[g_CalltipParamsIndex], 2)
} Else If (obj.SCNCode == SCN_ZOOM) {
Sci[n].MarginLen := 0
SetLineNumberWidth(n)
}
Return
}
ShowGoToLineDialog:
Line := InputBoxEx("Line Number:", "", "Go to Line", "", "", "x94 w80 Number", 270,,, hAutoWnd, "", "") - 1
If (!ErrorLevel) {
ShowChildWindow(0)
n := TabEx.GetSel()
Sci[n].GrabFocus()
Sci[n].GoToLine(Line) ; 0-based index
LineCount := Sci[n].GetLineCount()
VisCenterLine := Sci[n].LinesOnScreen() // 2
If (VisCenterLine < (LineCount - Line)) {
Sci[n].VerticalCentreCaret()
} Else {
Sci[n].ScrolltoEnd()
}
}
Return
ChangeEditorFont:
FontName := Sci.FontName
FontSize := Sci.FontSize
If (ChooseFont(FontName, FontSize, "", "0x000000", 0, hAutoWnd)) {
Loop % Sci.MaxIndex() {
Sci[A_Index].MarginLen := 0
SciSetStyle(A_Index, FontName, FontSize)
;Sci[A_Index].StyleSetFont(STYLE_DEFAULT, FontName, 2)
;Sci[A_Index].StyleSetSize(STYLE_DEFAULT, FontSize)
}
Sci.FontName := FontName
Sci.FontSize := FontSize
}
Return
ZoomIn:
Sci[TabEx.GetSel()].ZoomIn()
Return
ZoomOut:
Sci[TabEx.GetSel()].ZoomOut()
Return
ResetFontSize:
Sci[TabEx.GetSel()].SetZoom(0)
Return
; Called from SCN_UPDATEUI, SCN_MODIFIED, TabHandler and SetStatusBar
UpdateStatusBar() {
If (!g_GuiSB) {
n := TabEx.GetSel()
caretPos := Sci[n].GetCurrentPos()
Line := Sci[n].LineFromPosition(caretPos) + 1
Column := Sci[n].GetColumn(caretPos) + 1
Gui Auto: Default
SB_SetText(Line . ":" . Column, 2)
If (Sci[n].GetReadOnly()) {
SB_SetText("Read only", 3)
} Else If (Sci[n].GetModify()) {
SB_SetText("Modified", 3)
} Else {
SB_SetText("", 3)
}
}
}
; Called from SCN_SAVEPOINTREACHED, SCN_SAVEPOINTLEFT and NewWindow
SetDocumentStatus(n) {
Gui Auto: Default
n := TabEx.GetSel()
If (Sci[n].GetReadOnly()) {
If (!g_GuiSB) {
SB_SetText("Read only", 3)
}
} Else If (Sci[n].GetModify()) {
GuiControl -Redraw, %hTab%
GuiControl Disable, %hTab%
TabCaption := (Sci[n].FileName != "") ? Sci[n].FileName . " *" : "Untitled " . Sci[n].Number . " *"
TabEx.SetText(n, TabCaption)
GuiControl +Redraw, %hTab%
GuiControl Enable, %hTab%
If (!g_GuiSB) {
SB_SetText("Modified", 3)
}
} Else {
GuiControl -Redraw, %hTab%
GuiControl Disable, %hTab%
TabCaption := (Sci[n].FileName != "") ? Sci[n].FileName : "Untitled " . Sci[n].Number
TabEx.SetText(n, TabCaption)
GuiControl +Redraw, %hTab%
GuiControl Enable, %hTab%
If (!g_GuiSB) {
SB_SetText("", 3)
}
}
}
InsertDateTime:
n := TabEx.GetSel()
CurrentPos := Sci[n].GetCurrentPos()
FormatTime TimeString, D1
Sci[n].InsertText(CurrentPos, "" . TimeString, 2)
Sci[n].GoToPos(CurrentPos + StrPut(TimeString, "UTF-8") - 1)
Return
; Show spaces, tabs and line breaks
ToggleSymbols:
g_ShowSymbols := !g_ShowSymbols
Loop % Sci.MaxIndex() {
Sci[A_Index].2086(g_ShowSymbols ? 2 : 0) ; SCI_SETWHITESPACESIZE
Sci[A_Index].SetViewWS(g_ShowSymbols)
Sci[A_Index].SetViewEOL(g_ShowSymbols)
}
Menu AutoOptionsMenu, % g_ShowSymbols ? "Check" : "Uncheck", &Show Whitespaces
Return
ToggleComment:
n := TabEx.GetSel()
SelText := GetSelectedText()
If (SelText == "") {
SelText := GetCurrentLine()
CurrPos := Sci[n].GetCurrentPos()
LineNum := Sci[n].LineFromPosition(CurrPos)
StartPos := Sci[n].PositionFromLine(LineNum) ; Start of the line
EndPos := Sci[n].GetLineEndPosition(LineNum)
Sci[n].SetSel(StartPos, EndPos) ; Select current line
RestorePos := True ; Restore caret position
} Else {
RestorePos := False
}
Lines := ""
Loop Parse, SelText, `n, `r
{
If (RegExMatch(A_LoopField, "^\s*\;")) {
Line := RegExReplace(A_LoopField, "\;", "", "", 1)
} Else If (A_LoopField == "") {
Line := ""
} Else {
Line := ";" . A_LoopField
}
Lines .= Line . CRLF
}
Lines := RegExReplace(Lines, "`r`n$", "", "", 1)
SetSelectedText(Lines)
If (RestorePos) {
Sci[n].GoToPos(CurrPos)
}
Return
GetCurrentLine() {
n := TabEx.GetSel()
LineNum := Sci[n].LineFromPosition(Sci[n].GetCurrentPos())
LineLen := Sci[n].LineLength(LineNum)
VarSetCapacity(LineText, LineLen, 0)
Sci[n].GetCurLine(LineLen + 1, LineText)
Sci[n].GetCurLine(LineLen + 1, LineText)
Return RTrim(LineText, CRLF)
}
DuplicateLine:
Sci[TabEx.GetSel()].LineDuplicate()
Return
TransposeLine:
Sci[TabEx.GetSel()].LineTranspose()
Return
LoadXML(FileName) {
Static x
x := ComObjCreate("MSXML2.DOMDocument.6.0")
x.async := False
x.load(FileName)
Return x
}
LoadAutoComplete(FileName) {
Static XMLLoaded := False
If (!XMLLoaded) {
g_AutoCXMLObj := LoadXML(FileName)
Keys := g_AutoCXMLObj.getElementsByTagName("key")
For Key in Keys {
g_AutoCList .= key.getAttribute("name") . " "
}
g_AutoCList := RTrim(g_AutoCList, " ")
XMLLoaded := True
}
}
AutoComplete(MinLength := 3, Filter := "") {
n := TabEx.GetSel()
caretPos := Sci[n].GetCurrentPos()
WordStartPos := Sci[n].WordStartPosition(caretPos, True)
LengthEntered := caretPos - WordStartPos
WordFirstChar := Sci[n].GetCharAt(WordStartPos - 1)
If (WordFirstChar == 35 || WordFirstChar == 46) { ; # .
LengthEntered++
}
If ((LengthEntered >= MinLength) && !Sci[n].AutoCActive()) {
Sci[n].AutoCShow(LengthEntered, "" . g_AutoCList, 2)
}
}
AutoCompleteWin32() {
Static Items
If (!IsObject(g_AutoCWin32XMLObj)) {
g_AutoCWin32XMLObj := LoadXML(A_ScriptDir . "\Tools\Windows.xml")
Items := g_AutoCWin32XMLObj.getElementsByTagName("item")
}
n := TabEx.GetSel()
caretPos := Sci[n].GetCurrentPos()
WordStartPos := Sci[n].WordStartPosition(caretPos, True)
LengthEntered := caretPos - WordStartPos
Sci[n].GetTextRange([WordStartPos, caretPos], TempText)
ConstList := ""
For Item in Items {
Const := Item.getAttribute("const")
If (InStr(Const, TempText) == 1) {
ConstList .= Const . " "
}
}
If ((LengthEntered >= 0) && !Sci[n].AutoCActive()) {
Sci[n].AutoCShow(LengthEntered, RTrim(ConstList), 2)
}
If (Sci[n].AutoCActive()) {
g_AutoCWin32Const := True
}
}
GetCallTip(Keyword, Overload := True) {
RegExMatch(" " . g_AutoCList . " ", "i) " . Keyword . " ", Keyword)
Keyword := Trim(Keyword)
Node := g_AutoCXMLObj.selectSingleNode("//key[@name=""" . Keyword . """]")
/*
If (Keyword == "Hotkey" || Keyword == "Progress") {
VarSetCapacity(LineText, 100)
Sci[TabEx.GetSel()].GetCurLine(100, LineText)
If (RegExMatch(LineText, "i)\s*Gui")) {
Return
}
}
*/
Params := Node.selectNodes("params")
g_CalltipParams := []
Loop % Params.length {
Calltip := Params.item(A_Index - 1).text
Separator := (SubStr(Calltip, 1, 1) != "(") ? " " : ""
g_CalltipParams.Push(Keyword . Separator . Calltip)
}
If (Params.item(0).text != "") {
Return (Overload && Params.length > 1) ? Chr(2) . g_CalltipParams[1] : g_CalltipParams[1]
}
}
ShowCalltip(n, Calltip, StartPos) {
If (CallTip != "") {
Sci[n].CalltipShow(StartPos, CallTip, 2)
Return g_CalltipParamsIndex := 1
}
}
InsertCalltip() {
n := TabEx.GetSel()
If (Sci[n].AutoCActive()) {
Sci[n].AutoCComplete()
}
EndPos := GetCurrentWord(Word)[2]
GetCalltip(Word, False)
Calltip := StrReplace(g_CalltipParams[g_CalltipParamsIndex], Word,,, 1)
NextChar := Chr(Sci[n].GetCharAt(EndPos))
If (NextChar == " " || NextChar == ",") {
Sci[n].2645(EndPos, 1) ; SCI_DELETERANGE
}
Sci[n].InsertText(EndPos, Calltip, 2)
Sci[n].WordRight()
Sci[n].CalltipCancel()
}
GetCurrentWord(ByRef Word, Pos := -1) {
n := TabEx.GetSel()
CurrentPos := Sci[n].GetCurrentPos()
PrevChar := Chr(Sci[n].GetCharAt(CurrentPos - 1))
If (PrevChar == " " || PrevChar == ",") {
CurrentPos--
}
CurrentPos := (Pos == -1) ? CurrentPos : Pos
WordStartPos := Sci[n].WordStartPosition(CurrentPos, True)
PrevChar := Chr(Sci[n].GetCharAt(WordStartPos - 1))
If (PrevChar == "#" || PrevChar == ".") {
WordStartPos--
}
WordEndPos := Sci[n].WordEndPosition(CurrentPos, True)
Sci[n].GetTextRange([WordStartPos, WordEndPos], Word)
Return [WordStartPos, WordEndPos]
}
GetSelectedText() {
n := TabEx.GetSel()
Start := Sci[n].GetSelectionStart()
End := Sci[n].GetSelectionEnd()
Sci[n].GetTextRange([Start, End], SelText)
Return SelText
}
SetSelectedText(Text) {
Sci[TabEx.GetSel()].ReplaceSel("", Text, 2)
}
; SCI_WORDSTARTPOSITION(int pos, bool onlyWordCharacters) → int
GetWordPos() {
n := TabEx.GetSel()
Pos := Sci[n].GetCurrentPos()
WordStartPos := Sci[n].WordStartPosition(Pos, True)
PrevChar := Chr(Sci[n].GetCharAt(WordStartPos - 1))
If (PrevChar == "#" || PrevChar == ".") {
WordStartPos--
}
WordEndPos := Sci[n].WordEndPosition(Pos, True)
Return [WordStartPos, WordEndPos]
}
MarkSelectedText:
n := TabEx.GetSel()
Sci[n].SetIndicatorCurrent(1)
SelStart := Sci[n].GetSelectionStart()
SelEnd := Sci[n].GetSelectionEnd()
; Unmark if marked
If ((Sci[n].IndicatorAllOnFor(SelStart) & 2) == 2) {
Sci[n].IndicatorClearRange(SelStart, SelEnd - SelStart)
Return
}
Sci[n].IndicSetStyle(1, INDIC_ROUNDBOX)
Sci[n].IndicSetFore(1, CvtClr(0x3FBBE3))
Sci[n].IndicSetOutlineAlpha(1, 255) ; Opaque border
Sci[n].IndicSetAlpha(1, 80)
Sci[n].IndicatorFillRange(SelStart, SelEnd - SelStart)
Sci[n].SetSel(-1, Sci[n].GetCurrentPos())
Return
ClearAllMarks:
n := TabEx.GetSel()
Sci[n].SetIndicatorCurrent(1)
Sci[n].IndicatorClearRange(0, Sci[n].GetLength())
Return
GoToNextMark:
n := TabEx.GetSel()
CurrentPos := Sci[n].GetCurrentPos()
Marks := GetMarks()
LineCount := Sci[n].GetLineCount()
VisCenterLine := Sci[n].LinesOnScreen() // 2
Loop % Marks.Length() {
If (Marks[A_Index] > CurrentPos) {
Sci[n].GoToPos(Marks[A_Index])
MarkLine := Sci[n].LineFromPosition(Marks[A_Index])
If (VisCenterLine < (LineCount - MarkLine)) {
Sci[n].VerticalCentreCaret()
} Else {
Sci[n].ScrolltoEnd()
}
Break
}
}
Return
GoToPreviousMark:
n := TabEx.GetSel()
CurrentPos := Sci[n].GetCurrentPos()
Marks := GetMarks()
Max := Marks.Length()
Loop %Max% {
Index := Max - A_Index + 1
If (Marks[Index] < CurrentPos) {
Sci[n].GoToPos(Marks[Index])
Sci[n].VerticalCentreCaret()
Break
}
}
Return
; SCI_INDICATORALLONFOR: Retrieve a bitmap value representing which indicators are non-zero at a position.
GetMarks() {
n := TabEx.GetSel()
StartPos := 0
EndPos := 0
Max := Sci[n].GetLength()
Marks := []
Loop {
StartPos := Sci[n].IndicatorStart(1, EndPos)
EndPos := Sci[n].IndicatorEnd(1, StartPos)
If ((Sci[n].IndicatorAllOnFor(StartPos) & 2) == 2) {
Marks.Push(EndPos)
}
} Until !(EndPos != 0 && EndPos < Max)
Return Marks
}
ToggleHighlightActiveLine:
g_HighlightActiveLine := !g_HighlightActiveLine
ActiveLineColor := g_HighlightActiveLine ? 0xD8F3FF : 0xFFFFFF
Loop % Sci.MaxIndex() {
Sci[A_Index].SetCaretLineBack(CvtClr(ActiveLineColor))
}
Menu AutoOptionsMenu, % g_HighlightActiveLine ? "Check" : "Uncheck", Highlight &Active Line
Return
ToggleIndentGuides:
g_IndentGuides := !g_IndentGuides
IndentView := g_IndentGuides ? 3 : 0 ; 3 = SC_IV_LOOKBOTH
Loop % Sci.MaxIndex() {
Sci[A_Index].SetIndentationGuides(IndentView)
}
Menu AutoOptionsMenu, ToggleCheck, &Indentation Guides
Return
SetLineNumberWidth(n) {
If (LineNumbers) {
LineCount := Sci[n].GetLineCount()
LineCountLen := StrLen(LineCount)
If (LineCountLen < 2) {
LineCountLen := 2
}
If (LineCountLen != Sci[n].MarginLen) {
Sci[n].MarginLen := LineCountLen
If (LineCount < 100) {
String := "99"
} Else {
String := ""
LineCountLen := StrLen(LineCount)
Loop %LineCountLen% {
String .= "9"
}
}
PixelWidth := Sci[n].TextWidth(STYLE_LINENUMBER, "" . String, 2) + 6
Sci[n].SetMarginWidthN(0, PixelWidth)
}
} Else {
Sci[n].SetMarginWidthN(0, 0)
Sci[n].MarginLen := 0
}
}
HighlightIdenticalText(String) {
n := TabEx.GetSel()
SelEnd := Sci[n].GetSelectionEnd()
Sci[n].SetIndicatorCurrent(2)
Sci[n].IndicSetStyle(2, 8) ; INDIC_STRAIGHTBOX
Sci[n].IndicSetFore(2, CvtClr(0x3FBBE3))
Sci[n].IndicSetOutlineAlpha(2, 80) ; Opaque border
Sci[n].IndicSetAlpha(2, 80)
TextLength := Sci[n].GetLength()
Sci[n].SetTargetStart(0)
Sci[n].SetTargetEnd(TextLength)
StringLength := StrPut(String, "UTF-8") - 1
While (Sci[n].SearchInTarget(StringLength, "" . String, 2) != -1) {
TargetStart := Sci[n].GetTargetStart()
TargetEnd := Sci[n].GetTargetEnd()
If (TargetEnd != SelEnd) {
Sci[n].IndicatorFillRange(TargetStart, TargetEnd - TargetStart)
}
Sci[n].SetTargetStart(TargetEnd)
Sci[n].SetTargetEnd(TextLength)
}
}
ToggleHighlightIdenticalText:
g_HighlightIdenticalText := !g_HighlightIdenticalText
Sci[n].SetIndicatorCurrent(2)
Sci[n].IndicatorClearRange(0, Sci[n].GetLength())
Menu AutoOptionsMenu, ToggleCheck, Highlight Identical Te&xt
Return