JumpToString

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_OutFile=JumpToString.exe
#AutoIt3Wrapper_icon=JumpToString.ico
#AutoIt3Wrapper_Compression=n
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Comment=-
#AutoIt3Wrapper_Res_Description=JumpToString.exe
#AutoIt3Wrapper_Res_Fileversion=0.2.0.0
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=n
#AutoIt3Wrapper_Res_LegalCopyright=AZJIO
#AutoIt3Wrapper_Res_Language=1049
#AutoIt3Wrapper_Run_AU3Check=n
#AutoIt3Wrapper_Res_Field=Version|0.2
#AutoIt3Wrapper_Res_Field=Build|2011.10.9
#AutoIt3Wrapper_Res_Field=Coded by|AZJIO
#AutoIt3Wrapper_Res_Field=Compile date|%longdate% %time%
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
#AutoIt3Wrapper_Res_Icon_Add=1.ico
#AutoIt3Wrapper_Res_Icon_Add=2.ico
#AutoIt3Wrapper_Res_Icon_Add=3.ico
#AutoIt3Wrapper_Res_Icon_Add=4.ico
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/sf /sv /om /cs=0 /cn=0
#AutoIt3Wrapper_Run_After=%autoitdir%\SciTE\upx\upx.exe -7 --compress-icons=0 "%out%"
#AutoIt3Wrapper_Run_After=del /f /q "%scriptdir%\%scriptfile%_Obfuscated.au3"
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

;  @AZJIO 9.10.2011 (AutoIt3_v3.3.6.1)
#NoTrayIcon
#include <nppUDF.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <Misc.au3>

Opt("GUIResizeMode", 802)
Opt("GUIOnEventMode", 1)
;==========================================================
; En
$LngTitle='Jump to string'
$LngAbout='About'
$LngVer='Version'
$LngSite='Site'
$LngCopy='Copy'
$LngLVFN='Function name'
$LngMB1='Message'
$LngMB2='The program requires to run Notepad++ editor'
$LngMB3='Error'
$LngMB4='The label is not found, so removed'
$LngIB1='Add'
$LngIB2='Item name'
$LngDel='Delete selected'
$LngUsr='1 User'
$LngRgn='2 Regions'
$LngFnc='3 Functions'
$LngCmm='4 Comments'

$Lang_dll = DllOpen("kernel32.dll")
$UserIntLang=DllCall ( $Lang_dll, "int", "GetUserDefaultUILanguage" )
If Not @error Then $UserIntLang=Hex($UserIntLang[0],4)
DllClose($Lang_dll)

; Ru
; если русская локализация, то русский язык
If $UserIntLang = 0419 Then
    ; $LngTitle='Перейти к строке'
    $LngAbout='О программе'
    $LngVer='Версия'
    $LngSite='Сайт'
    $LngCopy='Копировать'
    $LngLVFN='Имя функции'
    $LngMB1='Сообщение'
    $LngMB2='Для работы программы требуется запустить редактор Notepad++'
    $LngMB3='Ошибка'
    $LngMB4='Метка не найдена, поэтому удалена'
    $LngIB1='Добавить'
    $LngIB2='Название пункта'
    $LngDel='Удалить пункт'
    $LngUsr='1 Пользовательские'
    $LngRgn='2 Регион'
    $LngFnc='3 Функции'
    $LngCmm='4 Комментарии'
EndIf
;==========================================================

If Not WinExists('[CLASS:Notepad++]') Then
    MsgBox(262144, $LngMB1, $LngMB2)
    Exit
EndIf

Global $TabNameNP, $TabNameNP2, $aTabNameNP[1][2], $UserItem, $Funcitem, $Regionitem, $Commentsitem, $aFunc[1][4], $aRegion[1][4], $aComments[1][4], $aUser[1][4], $geUser, $geFunc, $geRegion, $geComments, $aFont[1]=[0]
Global $FileData=@ScriptDir&'\JumpToStringData.txt', $DelIItemI=-1, $DelIItemH=-1, $Tr7=0, $XYPos[4]
Global $Gui1, $TrSort=1, $OnTop=0, $Ini=@ScriptDir&'\JumpToString.ini'
Global $RedExp1='(?mi)^\h*(Func\h+)(\w+\W)', $RedExp2='(?mi)^\h*(\#Region\h*)([^\r\n]*)', $RedExp3='(?mi)^\h*(?:.*?''.*?''.*?|.*?".*?".*?|[^''"]*?)*(;|#cs)([^\r\n]*)'
; Global $RedExp1='(?mi)^\h*(Func\h+)(\w+\W)', $RedExp2='(?mi)^\h*(\#Region\h*)([^\r\n]*)', $RedExp3='(?mi)^\h*[^''"]*?(?:''.*?''.*?|".*?".*?)*(;|#cs)([^\r\n]*)'

Switch @OSVersion
    Case 'WIN_VISTA', 'WIN_7'
        $Tr7=1
EndSwitch

If DriveStatus(StringLeft(@ScriptDir, 1))<>'NOTREADY' Then
    $DriveRead=1
Else
    $DriveRead=0
EndIf

If Not FileExists($Ini) And $DriveRead=1 Then
$file = FileOpen($Ini,2)
FileWrite($file, '[Set]' & @CRLF & _
'Sort=1' & @CRLF & _
'OnTop=0' & @CRLF & _
'RedExp1='&$RedExp1 & @CRLF & _
'RedExp2='&$RedExp2 & @CRLF & _
'HotKey=^{F11}' &@CRLF& _
'NameUser='&$LngUsr &@CRLF& _
'NameRegions='&$LngRgn &@CRLF& _
'NameFunctions='&$LngFnc &@CRLF& _
'NameComments='&$LngCmm &@CRLF& _
'geUser=1' &@CRLF& _
'geFunc=1' &@CRLF& _
'geRegion=1' &@CRLF& _
'geComments=1' &@CRLF& _
'W=230' &@CRLF& _
'H=420' &@CRLF& _
'X=' &@CRLF& _
'Y=')
FileClose($file)
EndIf
; 'Font=0,Arial,10,400' &@CRLF& _

$LngUsr=IniRead($Ini, 'Set', 'NameUser', $LngUsr)
$LngRgn=IniRead($Ini, 'Set', 'NameRegions', $LngRgn)
$LngFnc=IniRead($Ini, 'Set', 'NameFunctions', $LngFnc)
$LngCmm=IniRead($Ini, 'Set', 'NameComments', $LngCmm)

$TrOnTop=Number(IniRead($Ini, 'Set', 'OnTop', 0))
$TrSort=Number(IniRead($Ini, 'Set', 'Sort', 1))
$RedExp1=IniRead($Ini, 'Set', 'RedExp1', $RedExp1)
$RedExp2=IniRead($Ini, 'Set', 'RedExp2', $RedExp2)
$HotKey=IniRead($Ini, 'Set', 'HotKey', '^{F11}')


$iniFont=IniRead($Ini, 'Set', 'Font', '')

$geUser=Number(IniRead($Ini, 'Set', 'geUser', 1))
$geFunc=Number(IniRead($Ini, 'Set', 'geFunc', 1))
$geRegion=Number(IniRead($Ini, 'Set', 'geRegion', 1))
$geComments=Number(IniRead($Ini, 'Set', 'geComments', 1))

$XYPos[0]=Number(IniRead($Ini, 'Set', 'W', '230'))
$XYPos[1]=Number(IniRead($Ini, 'Set', 'H', '420'))
$XYPos[2]=IniRead($Ini, 'Set', 'X', '')
$XYPos[3]=IniRead($Ini, 'Set', 'Y', '')

If BitAnd(WinGetState('[CLASS:Notepad++]'), 16) Then WinSetState('[CLASS:Notepad++]','',@SW_RESTORE)
$tmp = ControlGetPos('[CLASS:Notepad++]', "", "[CLASSNN:Scintilla1]")
If $XYPos[0]<230 Then $XYPos[0]=230
If $tmp[3]<150 Then
    $XYPos[1]=150
Else
    $XYPos[1]=$tmp[3]
EndIf
_SetCoor($XYPos)

_ReadData()

HotKeySet($HotKey, "_AddUserItem")
; HotKeySet("^1", "_FuncName")
$Gui = GUICreate($LngTitle, $XYPos[0], $XYPos[1], $XYPos[2], $XYPos[3], $WS_OVERLAPPEDWINDOW)
If @compiled Then
    $AutoItExe=@AutoItExe
Else
    $AutoItExe=@ScriptDir&'\JumpToString.dll'
    GUISetIcon($AutoItExe, 99)
EndIf
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
If $iniFont<>'' Then
    $aFont=StringSplit($iniFont, ',')
    If $aFont[0]=4 Then GUISetFont($aFont[3], $aFont[4], $aFont[1], $aFont[2])
EndIf

GUICtrlCreateButton("@", 4, 1, 20, 20)
GUICtrlSetResizing(-1, 2+32 + 256 + 512)
GUICtrlSetOnEvent(-1, "_About")

GUICtrlCreateButton("font", $XYPos[0]-65, 1, 35, 20)
GUICtrlSetResizing(-1, 4+32 + 256 + 512)
GUICtrlSetOnEvent(-1, "_SelFont")

GUICtrlCreateButton("+", $XYPos[0]-24, 1, 20, 20)
GUICtrlSetResizing(-1, 4+32 + 256 + 512)
GUICtrlSetOnEvent(-1, "_AddUserItem")

$ChSort=GUICtrlCreateCheckbox('Sort', 40, 2, 50, 17)
GUICtrlSetOnEvent(-1, "_Sort")
If $TrSort=1 Then GUICtrlSetState(-1, 1)

$ChOnTop=GUICtrlCreateCheckbox('on top', 90, 2, 70, 17)
GUICtrlSetOnEvent(-1, "_On_top")

$TreeView = GUICtrlCreateTreeView(5, 22, $XYPos[0]-10, $XYPos[1]-25)
GUICtrlSetResizing(-1, 2 + 4 + 32 + 64)
$hTreeView = GUICtrlGetHandle($TreeView)

$hImage = _GUIImageList_Create (16, 16, 5)
_GUIImageList_AddIcon ( $hImage, $AutoItExe, -201 )
_GUIImageList_AddIcon ( $hImage, $AutoItExe, -202 )
_GUIImageList_AddIcon ( $hImage, $AutoItExe, -203 )
_GUIImageList_AddIcon ( $hImage, $AutoItExe, -204 )
_GUICtrlTreeView_SetNormalImageList ($hTreeView, $hImage)

Global $ContMenu = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
GUICtrlCreateMenuItem($LngDel, $ContMenu)
GUICtrlSetOnEvent(-1, "_DelUserItem")

_FillingList()
GUISetState()
GUISetState(@SW_RESTORE)
Sleep(200)
WinSetOnTop($GUI, '', 1)
WinSetOnTop($GUI, '', 0)

If Not @error And $TrOnTop=1 Then
    WinSetOnTop($GUI, '', 1)
    GUICtrlSetState($ChOnTop, 1)
EndIf

GUIRegisterMsg(0x0024, "WM_GETMINMAXINFO")
GUIRegisterMsg(0x004E, 'WM_NOTIFY')
GUIRegisterMsg(0x0046 , "WM_WINDOWPOSCHANGING")
AdlibRegister("_NPPGetTitle", 400)
OnAutoItExitRegister("_Save_Exit")

While 1
    Sleep(100000)
WEnd

Func _SelFont()
    If $aFont[0]=4 Then
        $a_font = _ChooseFont($aFont[2], $aFont[3], 0, $aFont[4], False, False, False, $Gui)
    Else
        $a_font = _ChooseFont('Arial', 10, 0, 0, False, False, False, $Gui)
    EndIf
    If Not @error Then
        IniWrite($Ini, 'Set', 'Font', _ArrayToString($a_font, ',', 1, 4))
        If MsgBox (4, 'Сообщение', 'Для применения параметров необходим перезапуск утилиты. '&@CRLF&'Выполнить перезапуск?', 0, $Gui)=6 Then _restart()
    EndIf
EndFunc

Func _restart()
    Local $sAutoIt_File = @TempDir & "\~Au3_ScriptRestart_TempFile.au3"
    Local $sRunLine, $sScript_Content, $hFile

    $sRunLine = @ScriptFullPath
    If Not @Compiled Then $sRunLine = @AutoItExe & ' /AutoIt3ExecuteScript ""' & $sRunLine & '""'
    If $CmdLine[0] > 0 Then $sRunLine &= ' ' & $CmdLineRaw

    $sScript_Content &= '#NoTrayIcon' & @CRLF & _
            'While ProcessExists(' & @AutoItPID & ')' & @CRLF & _
            '   Sleep(10)' & @CRLF & _
            'WEnd' & @CRLF & _
            'Run("' & $sRunLine & '")' & @CRLF & _
            'FileDelete(@ScriptFullPath)' & @CRLF

    $hFile = FileOpen($sAutoIt_File, 2)
    FileWrite($hFile, $sScript_Content)
    FileClose($hFile)

    Run(@AutoItExe & ' /AutoIt3ExecuteScript "' & $sAutoIt_File & '"', @ScriptDir, @SW_HIDE)
    Sleep(1000)
    Exit
EndFunc

; добавление пункта пользователя
Func _AddUserItem()
    Local $AllText, $CurLine, $gp, $i, $n, $sempl, $tmp, $word
    $word=_npp_GetText(0)
    If $word = '' Then
        $word=_npp_GetText(1)
        If $word = '' Then Return
    EndIf
    $gp=WinGetPos($Gui)
    $GP=_ChildCoor($Gui, 170, 150, 1) ; центрирование диалога в окне
    $sempl=InputBox($LngIB1, $LngIB2, StringLeft(StringStripWS ($word, 7 ), 19), '', $GP[2], $GP[3], $GP[0], $GP[1], -1, $Gui)
    If Not @error And $sempl<>'' Then
        ; поиск номера совпадения, если образец повторяется многократно по тексту
        $AllText=_npp_GetText()
        $CurLine=_SendMessage(WinGetHandle('[CLASS:Notepad++]'), $NPPM_GETCURRENTLINE, 0, 0)
        $i=0
        Do
            $i+=1
            $tmp=StringInStr($AllText, $word, 1, $i)
            If $tmp = 0 Then Return
            ; $tmp=StringSplit(StringLeft($AllText, $tmp), @LF)
            ; $tmp=$tmp[0]-1
            $tmp=StringRegExp(StringLeft($AllText, $tmp), '(\r\n|\r|\n)', 3)
            $tmp=UBound($tmp)
        Until Abs($tmp-$CurLine)<2 ; выход из цикла если номер строки совпадает с найденным по количеству переносов строк
        ;Добавляем пункт в дерево и атрибуты в массив
        $n=UBound($aUser)
        ReDim $aUser[$n+1][4]
        $aUser[$n][0]=$sempl
        $aUser[$n][1]=$word
        $aUser[$n][2]=_GUICtrlTreeView_GetItemHandle ($TreeView, _GUICtrlTreeView_AddChild ( $TreeView, $UserItem, $sempl, 2, 2 ))
        $aUser[$n][3]=$i
        _GUICtrlTreeView_Expand ($TreeView)
    EndIf
    WinActivate('[CLASS:Notepad++]')
EndFunc

; получить путь из заголовка редактора, проверка каждые 400 милисекунд
Func _NPPGetTitle()
    Local $Title = WinGetTitle('[CLASS:Notepad++]')
    If $Title = '0' Then
        AdlibUnRegister("_NPPGetTitle")
        MsgBox(0, $LngMB3, $LngMB2)
        Exit
    EndIf
    If $TabNameNP == $Title Then Return
    ; индекс 2 ($Title2 и $TabNameNP2) избавляет зависимость от * в загловке
    If StringLeft($Title, 1)='*' Then
        $Title2=StringTrimLeft($Title, 1)
    Else
        $Title2=$Title
    EndIf
    If Not($TabNameNP2 == $Title2) Then
        If UBound($aUser)>1 Then
            $iItem = _ArraySearch($aTabNameNP, $TabNameNP2, 0, 0, 0, 0, 1, 0) ; поиск для сохранения имя+массив
            If @error Then
                $n=UBound($aTabNameNP)
                ReDim $aTabNameNP[$n+1][2]
                $aTabNameNP[$n][0]=$TabNameNP2
                $aTabNameNP[$n][1]=$aUser
            Else
                $aTabNameNP[$iItem][1]=$aUser
            EndIf
        EndIf
        $iItem = _ArraySearch($aTabNameNP, $Title2, 0, 0, 0, 0, 1, 0) ; поиск в сохранениях чтобы использовать
        If @error Then
            $aUser=''
            Dim $aUser[1][4]
        Else
            $aUser=$aTabNameNP[$iItem][1]
        EndIf
    EndIf
    $TabNameNP2 = $Title2
    $TabNameNP = $Title
    _FillingList()
    ; Local $path = StringRegExpReplace($tTitle, '^*?(.*?)([ ]-[ ]Notepad\+\+)','\1')
EndFunc

; пересоздание дерева
Func _FillingList()
    $err=0
    _GUICtrlTreeView_BeginUpdate ( $TreeView )
    If _GUICtrlTreeView_GetChildCount($TreeView, $UserItem)>0 Then $geUser=_GUICtrlTreeView_GetExpanded($TreeView, $UserItem)
    If _GUICtrlTreeView_GetChildCount($TreeView, $Funcitem)>0 Then $geFunc=_GUICtrlTreeView_GetExpanded($TreeView, $Funcitem)
    If _GUICtrlTreeView_GetChildCount($TreeView, $Regionitem)>0 Then $geRegion=_GUICtrlTreeView_GetExpanded($TreeView, $Regionitem)
    If _GUICtrlTreeView_GetChildCount($TreeView, $Commentsitem)>0 Then $geComments=_GUICtrlTreeView_GetExpanded($TreeView, $Commentsitem)
    _GUICtrlTreeView_DeleteAll ( $TreeView )
    $UserItem = _GUICtrlTreeView_Add ( $TreeView, 0, $LngUsr, 2, 2 )
    $Funcitem = _GUICtrlTreeView_Add ( $TreeView, 0, $LngFnc, 0, 0 )
    $Regionitem = _GUICtrlTreeView_Add ( $TreeView, 0, $LngRgn, 1, 1 )
    $Commentsitem = _GUICtrlTreeView_Add ( $TreeView, 0, $LngCmm, 3, 3 )
    ; _GUICtrlTreeView_SetImageIndex ($TreeView, $UserItem, 1)
    $AllText=_npp_GetText()
    $aFunc=StringRegExp($AllText, $RedExp1, 3) ; добавляем функции скрипта
    If Not @error Then _AddItem($aFunc, $Funcitem, 0)
    $aRegion=StringRegExp($AllText, $RedExp2, 3) ; добавляем областей скрипта
    If Not @error Then _AddItem1($aRegion, $Regionitem, 1)
    _AddItem2($AllText)
    $n=UBound($aUser)
    If $n>1 Then
        For $i = 1 to $n-1
            $aUser[$i][2]=_GUICtrlTreeView_GetItemHandle ($TreeView, _GUICtrlTreeView_AddChild ( $TreeView, $UserItem, $aUser[$i][0], 2, 2 ))
        Next
    EndIf
    If $TrSort = 1 Then _GUICtrlTreeView_Sort ($TreeView)
    If $geUser = True Then _GUICtrlTreeView_Expand($TreeView, $UserItem)
    If $geFunc = True Then _GUICtrlTreeView_Expand($TreeView, $Funcitem)
    If $geRegion = True Then _GUICtrlTreeView_Expand($TreeView, $Regionitem)
    If $geComments = True Then _GUICtrlTreeView_Expand($TreeView, $Commentsitem)
    ; _GUICtrlTreeView_Expand ($TreeView)
    _GUICtrlTreeView_EndUpdate ( $TreeView )
EndFunc

; придаток к _FillingList, создаёт полноценный массив
Func _AddItem(ByRef $aFunc, $Parent, $x)
    $tmp=UBound($aFunc)
    Local $aTmp[$tmp/2][4]
    For $i = 0 to $tmp-1 Step 2
        ; If $aFunc[$i]='#Region' And $aFunc[$i+1]='' Then $aFunc[$i+1]='#Region'
        $aTmp[$i/2][0]=StringTrimRight($aFunc[$i+1], 1)
        $aTmp[$i/2][1]=$aFunc[$i]&$aFunc[$i+1]
        $aTmp[$i/2][2]=_GUICtrlTreeView_GetItemHandle ($TreeView, _GUICtrlTreeView_AddChild ( $TreeView, $Parent, $aTmp[$i/2][0], $x, $x ))
        $aTmp[$i/2][3]=1
    Next
    $aFunc=$aTmp
EndFunc

Func _AddItem1(ByRef $aFunc, $Parent, $x)
    $tmp=UBound($aFunc)
    Local $aTmp[$tmp/2][4]
    For $i = 0 to $tmp-1 Step 2
        If $aFunc[$i]='#Region' And $aFunc[$i+1]='' Then $aFunc[$i+1]='#Region'
        $aTmp[$i/2][0]=$aFunc[$i+1]
        $aTmp[$i/2][1]=$aFunc[$i]&$aFunc[$i+1]
        $aTmp[$i/2][2]=_GUICtrlTreeView_GetItemHandle ($TreeView, _GUICtrlTreeView_AddChild ( $TreeView, $Parent, $aTmp[$i/2][0], $x, $x ))
        $aTmp[$i/2][3]=1
    Next
    $aFunc=$aTmp
EndFunc

Func _AddItem2($AllText)
    $TmpAll=StringRegExpReplace($AllText, '(?s)(\h*;.*?\r\n)+', '\1') ; удаляет повторные строки комментариев
    $TmpAll=StringRegExpReplace($TmpAll, '(?ms)^[^;]*?\r\n', '') ; удаляет строки без комментариев
    $aComments=StringRegExp($TmpAll, $RedExp3, 3) ; добавляем комментарии скрипта
    If Not @error Then
        $tmp=UBound($aComments)
        Local $aTmp[$tmp/2][4]
        For $i = 0 to $tmp-1 Step 2
            If $aComments[$i]='#cs' And $aComments[$i+1]='' Then $aComments[$i+1]='#cs'
            If StringLeft($aComments[$i+1], 3)='==>' Then ContinueLoop
            $aTmp[$i/2][0]=$aComments[$i+1]
            $aTmp[$i/2][1]=$aComments[$i]&$aComments[$i+1]
            $aTmp[$i/2][3]=1
        Next
; _ArrayDisplay($aTmp, 'Array')

        Assign('/', 1, 1) ;для исключения пустых строк и не совпадения с локальными переменными
        $k=0
        For $i = 0 To UBound($aTmp)-1
            Assign($aTmp[$i][0]&'/', Eval($aTmp[$i][0]&'/')+1, 1)
            If Eval($aTmp[$i][0]&'/') = 1 Then
                $aTmp[$k][0]=$aTmp[$i][0]
                $aTmp[$k][1]=$aTmp[$i][1]
                ; $aTmp[$k][2]=$aTmp[$i][2]
                $aTmp[$k][2]=_GUICtrlTreeView_GetItemHandle ($TreeView, _GUICtrlTreeView_AddChild ( $TreeView, $Commentsitem, $aTmp[$i][0], 3, 3 ))
                $aTmp[$k][3]=$aTmp[$i][3]
                $k+=1
            EndIf
        Next
        If $k = 0 Then Return SetError(1, 0, 0)
        ReDim $aTmp[$k][4]

        $aComments=$aTmp

    EndIf
EndFunc

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $aTmp, $tmp, $tmp2

    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hTreeView
            Switch $iCode
                Case $NM_CLICK
                    ;http://www.autoitscript.com/forum/topic/64632-checked-all-and-treeview/page__view__findpost__p__481808
                    ; получение хэндла кликнутого пункта и поиск его в массиве
                    Local $tMPos = _WinAPI_GetMousePos(True, $hWndFrom), $tHit = _GUICtrlTreeView_HitTestEx($hWndFrom, DllStructGetData($tMPos, 1), DllStructGetData($tMPos, 2))
                    Local $hItem = DllStructGetData($tHit, "Item")
                    If $hItem <> -1 And $hItem<>0x0 Then
                        $iItem = _ArraySearch($aFunc, $hItem, 0, 0, 0, 0, 1, 2)
                        If $iItem=-1 Then
                            $iItem = _ArraySearch($aRegion, $hItem, 0, 0, 0, 0, 1, 2)
                            If $iItem=-1 Then
                                $iItem = _ArraySearch($aComments, $hItem, 0, 0, 0, 0, 1, 2)
                                If $iItem=-1 Then
                                    $iItem = _ArraySearch($aUser, $hItem, 0, 0, 0, 0, 1, 2)
                                    If $iItem=-1 Then
                                        Return $GUI_RUNDEFMSG
                                    Else
                                        $aTmp=$aUser
                                    EndIf
                                Else
                                    $aTmp=$aComments
                                EndIf
                            Else
                                $aTmp=$aRegion
                            EndIf
                        Else
                            $aTmp=$aFunc
                        EndIf
                    Else
                        Return $GUI_RUNDEFMSG
                    EndIf

                    ; Поиск найденного в тексте кода
                    $AllText=_npp_GetText()
                    $tmp=StringInStr($AllText, $aTmp[$iItem][1], 1 , $aTmp[$iItem][3])
                    If $tmp = 0 Then
                        $DelIItemH=$hItem
                        $DelIItemI=$iItem
                        _DelUserItem()
                        MsgBox(8192+262144, $LngMB3, $LngMB4)
                        WinActivate('[CLASS:Notepad++]')
                        Return $GUI_RUNDEFMSG
                    EndIf
                    $tmp=StringRegExp(StringLeft($AllText, $tmp), '(\r\n|\r|\n)', 3)
                    $tmp=UBound($tmp)
                    ; делаем поправку, чтоб передвинуть строку к центру окна
                    $CurLine=_SendMessage(WinGetHandle('[CLASS:Notepad++]'), $NPPM_GETCURRENTLINE, 0, 0)
                    $pos = ControlGetPos('[CLASS:Notepad++]', "", "[CLASSNN:Scintilla1]")
                    $tmp2=$pos[3]/32
                    If $tmp>$CurLine Then
                        $tmp2=$tmp+$tmp2
                    Else
                        $tmp2=$tmp-$tmp2
                    EndIf
                    _npp_SetCurPos($tmp2)
                    _npp_SetCurPos($tmp)
                    WinActivate('[CLASS:Notepad++]')
                Case $NM_RCLICK
                    Local $tMPos = _WinAPI_GetMousePos(True, $hWndFrom), $tHit = _GUICtrlTreeView_HitTestEx($hWndFrom, DllStructGetData($tMPos, 1), DllStructGetData($tMPos, 2))
                    Local $hItem = DllStructGetData($tHit, "Item")
                    If $hItem <> -1 And $hItem<>0x0 Then
                        $iItem = _ArraySearch($aUser, $hItem, 0, 0, 0, 0, 1, 2)
                        If $iItem<>-1 Then
                            $DelIItemH=$hItem
                            $DelIItemI=$iItem
                            Local $hMenu = GUICtrlGetHandle($ContMenu)
                            $x = MouseGetPos(0)
                            $y = MouseGetPos(1)
                            DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $Gui, "ptr", 0)
                        EndIf
                    Else
                        Return $GUI_RUNDEFMSG
                    EndIf
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc

Func _DelUserItem()
    If $DelIItemI<>-1 Then
        _ArrayDelete($aUser, $DelIItemI)
        _GUICtrlTreeView_Delete($TreeView, $DelIItemH)
        $DelIItemI=-1
        $DelIItemH=-1
    EndIf
EndFunc

; Func _FuncName()
    ; MsgBox(0, 'Message', $test)
; EndFunc

; ограничения размеров окна
Func WM_GETMINMAXINFO($hWnd, $iMsg, $wParam, $lParam)
    #forceref $iMsg, $wParam
    If $hWnd = $GUI Then
        Local $tMINMAXINFO = DllStructCreate("int;int;" & _
                "int MaxSizeX; int MaxSizeY;" & _
                "int MaxPositionX;int MaxPositionY;" & _
                "int MinTrackSizeX; int MinTrackSizeY;" & _
                "int MaxTrackSizeX; int MaxTrackSizeY", _
                $lParam)
        DllStructSetData($tMINMAXINFO, "MaxTrackSizeX", 500)
        DllStructSetData($tMINMAXINFO, "MaxTrackSizeY", @DesktopHeight-60)
        DllStructSetData($tMINMAXINFO, "MinTrackSizeX", 235)
        DllStructSetData($tMINMAXINFO, "MinTrackSizeY", 150)
        DllStructSetData($tMINMAXINFO, "MaxSizeX", $XYPos[0])
        DllStructSetData($tMINMAXINFO, "MaxSizeY", @DesktopHeight-60)
        DllStructSetData($tMINMAXINFO, "MaxPositionX", 0)
        DllStructSetData($tMINMAXINFO, "MaxPositionY", 0)
    EndIf
EndFunc

; вычисление координат дочернего окна
; 1 - дескриптор родительского окна
; 2 - ширина дочернего окна
; 3 - высота дочернего окна
; 4 - тип 0 - по центру, или 0 - к левому верхнему родительского окна
; 5 - отступ от краёв
Func _ChildCoor($Gui, $w, $h, $c=0, $d=0)
    Local $aWA = _WinAPI_GetWorkingArea(), _
    $GP = WinGetPos($Gui), _
    $wgcs=WinGetClientSize($Gui)
    Local $dLeft=($GP[2]-$wgcs[0])/2, _
    $dTor=$GP[3]-$wgcs[1]-$dLeft
    If $c = 0 Then
        $GP[0]=$GP[0]+($GP[2]-$w)/2-$dLeft
        $GP[1]=$GP[1]+($GP[3]-$h-$dLeft-$dTor)/2
    EndIf
    If $d>($aWA[2]-$aWA[0]-$w-$dLeft*2)/2 Or $d>($aWA[3]-$aWA[1]-$h-$dLeft+$dTor)/2 Then $d=0
    If $GP[0]+$w+$dLeft*2+$d>$aWA[2] Then $GP[0]=$aWA[2]-$w-$d-$dLeft*2
    If $GP[1]+$h+$dLeft+$dTor+$d>$aWA[3] Then $GP[1]=$aWA[3]-$h-$dLeft-$dTor-$d
    If $GP[0]<=$aWA[0]+$d Then $GP[0]=$aWA[0]+$d
    If $GP[1]<=$aWA[1]+$d Then $GP[1]=$aWA[1]+$d
    $GP[2]=$w
    $GP[3]=$h
    Return $GP
EndFunc

Func _WinAPI_GetWorkingArea()
    Local Const $SPI_GETWORKAREA = 48
    Local $stRECT = DllStructCreate("long; long; long; long")

    Local $SPIRet = DllCall("User32.dll", "int", "SystemParametersInfo", "uint", $SPI_GETWORKAREA, "uint", 0, "ptr", DllStructGetPtr($stRECT), "uint", 0)
    If @error Then Return 0
    If $SPIRet[0] = 0 Then Return 0

    Local $sLeftArea = DllStructGetData($stRECT, 1)
    Local $sTopArea = DllStructGetData($stRECT, 2)
    Local $sRightArea = DllStructGetData($stRECT, 3)
    Local $sBottomArea = DllStructGetData($stRECT, 4)

    Local $aRet[4] = [$sLeftArea, $sTopArea, $sRightArea, $sBottomArea]
    Return $aRet
EndFunc

Func _Exit()
    Exit
EndFunc

Func _Sort()
    $TrSort=GUICtrlRead($ChSort)
    _FillingList()
EndFunc

Func _On_top()
    $TrOnTop=GUICtrlRead($ChOnTop)
    If $TrOnTop = 1 Then
        WinSetOnTop($GUI, '', 1)
    Else
        WinSetOnTop($GUI, '', 0)
    EndIf
EndFunc

; валидность координат проверяем при запуске
Func _SetCoor(ByRef $XYPos)
    $Xtmp=Number($XYPos[2])
    $Ytmp=Number($XYPos[3])
    If $Xtmp < 0 Then $Xtmp=0
    If $Xtmp > @DesktopWidth-$XYPos[0] Then $Xtmp=@DesktopWidth-$XYPos[0]
    If $XYPos[2]='' Then $Xtmp=0
    If $Ytmp < 0 And $Ytmp <>-1 Then $Ytmp=0
    If $Ytmp > @DesktopHeight-$XYPos[1] Then $Ytmp=@DesktopHeight-$XYPos[1]
    If $XYPos[3]='' Then $Ytmp=-1
    $XYPos[2]=$Xtmp
    $XYPos[3]=$Ytmp
EndFunc

Func WM_WINDOWPOSCHANGING($hWnd, $Msg, $wParam, $lParam)
    Local $sRect = DllStructCreate("Int[6]", $lparam)
    Switch $Tr7
        Case 1
            If DllStructGetData($sRect, 1, 5)<>0 And Not BitAnd(WinGetState($Gui), 16) Then
                $XYPos[2]=DllStructGetData($sRect, 1, 3)
                $XYPos[3]=DllStructGetData($sRect, 1, 4)
                $XYPos[0]=DllStructGetData($sRect, 1, 5)
            EndIf
        Case Else
            If DllStructGetData($sRect, 1, 2) And DllStructGetData($sRect, 1, 5)<>0 And Not BitAnd(WinGetState($Gui), 16) Then
                $XYPos[2]=DllStructGetData($sRect, 1, 3)
                $XYPos[3]=DllStructGetData($sRect, 1, 4)
                $XYPos[0]=DllStructGetData($sRect, 1, 5)
            EndIf
    EndSwitch
    Return 'GUI_RUNDEFMSG'
EndFunc

; сохранение пользовательских меток в файл
Func _Save_Exit()
    If $DriveRead=0 Then Exit
    IniWrite($Ini, 'Set', 'Sort', $TrSort)
    IniWrite($Ini, 'Set', 'OnTop', $TrOnTop)
    ; сохранить координаты окна
    IniWrite($Ini, 'Set', 'X', $XYPos[2])
    IniWrite($Ini, 'Set', 'Y', $XYPos[3])
    IniWrite($Ini, 'Set', 'W', $XYPos[0])
    IniWrite($Ini, 'Set', 'H', $XYPos[1])


    If _GUICtrlTreeView_GetChildCount($TreeView, $UserItem)>0 Then $geUser=_GUICtrlTreeView_GetExpanded($TreeView, $UserItem)
    If _GUICtrlTreeView_GetChildCount($TreeView, $Funcitem)>0 Then $geFunc=_GUICtrlTreeView_GetExpanded($TreeView, $Funcitem)
    If _GUICtrlTreeView_GetChildCount($TreeView, $Regionitem)>0 Then $geRegion=_GUICtrlTreeView_GetExpanded($TreeView, $Regionitem)
    If _GUICtrlTreeView_GetChildCount($TreeView, $Commentsitem)>0 Then $geComments=_GUICtrlTreeView_GetExpanded($TreeView, $Commentsitem)
    IniWrite($Ini, 'Set', 'geUser', Number($geUser))
    IniWrite($Ini, 'Set', 'geFunc', Number($geFunc))
    IniWrite($Ini, 'Set', 'geRegion', Number($geRegion))
    IniWrite($Ini, 'Set', 'geComments', Number($geComments))

    Local $n
    ; обновить последние данные об изменении
        $iItem = _ArraySearch($aTabNameNP, $TabNameNP2, 0, 0, 0, 0, 1, 0) ; поиск для сохранения имя+массив
        If @error Then
            If UBound($aUser)>1 Then
                $n=UBound($aTabNameNP)
                ReDim $aTabNameNP[$n+1][2]
                $aTabNameNP[$n][0]=$TabNameNP2
                $aTabNameNP[$n][1]=$aUser
            EndIf
        Else
            If UBound($aUser)>1 Then
                $aTabNameNP[$iItem][1]=$aUser
            Else
                $n=UBound($aTabNameNP)-1
                For $i = $iItem to $n-1
                    $aTabNameNP[$i][0]=$aTabNameNP[$i+1][0]
                    $aTabNameNP[$i][1]=$aTabNameNP[$i+1][1]
                Next
                ReDim $aTabNameNP[$n][2]
            EndIf
        EndIf
    ; EndIf
    ; сохранить, конвертируя данные в строку
    $n=UBound($aTabNameNP)
    If $n>1 Then
        $TextSaveFile=''
        For $i = 1 to $n-1
            $aTmp=$aTabNameNP[$i][1]
            $mTmp=''
            For $s = 1 to UBound($aTmp)-1
                $mTmp&=$aTmp[$s][0]&'<¤>'&$aTmp[$s][1]&'<¤><¤>'&$aTmp[$s][3]&'<|¤|>'
            Next
            If StringMid($aTabNameNP[$i][0], 2, 1)=':' And Not FileExists(StringRegExpReplace($aTabNameNP[$i][0], '(.*?)(?: - Notepad\+\+)', '\1')) Then ContinueLoop
            $TextSaveFile&=$aTabNameNP[$i][0]&'<|>'&StringTrimRight($mTmp, 5)&@CRLF&'//>>'
        Next
        $file = FileOpen($FileData,2)
        FileWrite($file, '//>>'&StringTrimRight($TextSaveFile, 6))
        FileClose($file)
    Else
        If FileExists($FileData) Then
            FileDelete($FileData)
        EndIf
    EndIf
EndFunc

; чтение пользовательских меток из файла
Func _ReadData()
    Local $tmp, $aTmp, $tmp1
    If FileExists($FileData) Then
        $tmp = FileRead($FileData)
        $tmp = StringTrimLeft($tmp, 4)
        $aTmp = StringSplit($tmp, @CRLF&'//>>', 1)
        If @error And $aTmp[1]='' Then
            MsgBox(0, $LngMB3, $FileData)
            Return
        EndIf
        ReDim $aTabNameNP[$aTmp[0]+1][2]
        Local $tmpUser[1][4]
        $d = 1 ; индекс исключающий сбойные строки в файле
        For $i = 1 to $aTmp[0]
            $tmp = StringRegExp($aTmp[$d], '(?s)^(.*?)<\|>(.*)$', 3)
            $aTabNameNP[$d][0]=$tmp[0]

            $tmp = StringSplit($tmp[1], '<|¤|>', 1)
            If @error And $tmp[1]='' Then ContinueLoop
            ReDim $tmpUser[$tmp[0]+1][4]
            For $j = 1 to $tmp[0]
                $tmp1 = StringSplit($tmp[$j], '<¤>', 1)
                If @error Or $tmp1[0]<>4 Then ContinueLoop 2
                For $s = 0 to 3
                    $tmpUser[$j][$s]=$tmp1[$s+1]
                Next
            Next
            $aTabNameNP[$d][1]=$tmpUser
            $d += 1
        Next
        ReDim $aTabNameNP[$d][2]
    EndIf
EndFunc

Func _About()
    $GP=_ChildCoor($Gui, 270, 180)
    GUIRegisterMsg(0x05 , "")
    GUISetState(@SW_DISABLE, $Gui)
    $font="Arial"
    $Gui1 = GUICreate($LngAbout, $GP[2], $GP[3], $GP[0], $GP[1], 0x00C00000+0x00080000, -1, $Gui) ; WS_CAPTION+WS_SYSMENU
    If Not @compiled Then GUISetIcon($AutoItExe, 99)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit1")
    GUISetBkColor (0xffca48)
    GUICtrlCreateLabel($LngTitle, 0, 0, 270, 63, 0x01+0x0200)
    GUICtrlSetFont (-1,14, 600, -1, $font)
    GUICtrlSetColor(-1,0xa13d00)
    GUICtrlSetBkColor (-1, 0xfbe13f)
    GUICtrlCreateLabel ("-", 2,64,268,1,0x10)

    GUISetFont (9, 600, -1, $font)
    GUICtrlCreateLabel($LngVer&' 0.2  9.10.2011', 55, 100, 210, 17)
    GUICtrlCreateLabel($LngSite&':', 55, 115, 40, 17)
    $url=GUICtrlCreateLabel('http://azjio.ucoz.ru', 92, 115, 170, 17)
    GUICtrlSetOnEvent(-1, "_url")
    GUICtrlSetCursor(-1, 0)
    GUICtrlSetColor(-1, 0x0000ff)
    GUICtrlCreateLabel('WebMoney:', 55, 130, 85, 17)
    $WbMn=GUICtrlCreateLabel('R939163939152', 130, 130, 125, 17)
    GUICtrlSetOnEvent(-1, "_WbMn")
    GUICtrlSetColor(-1,0xa21a10)
    GUICtrlSetTip(-1, $LngCopy)
    GUICtrlSetCursor(-1, 0)
    GUICtrlCreateLabel('Copyright AZJIO © 2009-2011', 55, 145, 210, 17)
    GUISetState(@SW_SHOW, $Gui1)
EndFunc

Func _url()
    ShellExecute ('http://azjio.ucoz.ru')
EndFunc

Func _WbMn()
    ClipPut('R939163939152')
EndFunc

Func _Exit1()
    GUISetState(@SW_ENABLE, $Gui)
    GUIDelete($Gui1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    ; GUIRegisterMsg(0x05 , "WM_SIZE")
EndFunc