#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPIEx.au3>
#include <GuiTab.au3>
Global $iDblClk_Flag = 0
Global $iDblClk_Timer = 0
Global $iDblClk_Time = RegRead('HKEY_CURRENT_USER\Control Panel\Mouse', 'DoubleClickSpeed')
If $iDblClk_Time = '' Then $iDblClk_Time = 600
Global $aLast_MousePos[2]
Global $__aTabStintilla[1][2] = [[0, 0]]
Global $hModule = _WinAPI_LoadLibraryEx('SciLexer.dll')
$hForm = GUICreate('Scintilla with tabs Demo', 600, 450, -1, -1, BitOR($WS_SIZEBOX, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
$iFile = GUICtrlCreateMenu('Файл')
$iNew = GUICtrlCreateMenuItem('Новый', $iFile)
GUICtrlCreateMenuItem('Открыть', $iFile)
GUICtrlCreateMenuItem('Сохранить', $iFile)
GUICtrlCreateMenuItem('Сохранить как...', $iFile)
GUICtrlCreateMenuItem('', $iFile)
$iExit = GUICtrlCreateMenuItem('Выход', $iFile)
GUICtrlCreateMenu('Правка')
$hTab = _GUICtrlTab_Create($hForm, 0, 0, 600, 450, BitOR($WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
AddSciControl($hTab, 'Без названия')
GUIRegisterMsg($WM_GETMINMAXINFO, 'WM_GETMINMAXINFO')
GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')
GUIRegisterMsg($WM_SIZING, 'WM_SIZING')
GUIRegisterMsg($WM_SIZE, 'WM_SIZE')
GUISetState(@SW_SHOW, $hForm)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $iExit
_GUICtrlTab_Destroy($hTab)
_WinAPI_FreeLibrary($hModule)
Exit
Case $iNew
AddSciControl($hTab, 'Без названия')
Case $GUI_EVENT_PRIMARYDOWN
$aCurrent_MousePos = MouseGetPos()
If $iDblClk_Flag = 0 Then
$iDblClk_Timer = TimerInit()
$iDblClk_Flag = 1
$aLast_MousePos = MouseGetPos()
ElseIf $aCurrent_MousePos[0] = $aLast_MousePos[0] And $aCurrent_MousePos[1] = $aLast_MousePos[1] And TimerDiff($iDblClk_Timer) <= $iDblClk_Time Then
$iDblClk_Flag = 0
$iDblClk_Timer = 0
$iOpt = Opt('MouseCoordMode', 2)
$aMPos = MouseGetPos()
$aHitTest = _GUICtrlTab_HitTest($hTab, $aMPos[0], $aMPos[1])
Opt('MouseCoordMode', $iOpt)
If $aHitTest[0] <> -1 Then
If $__aTabStintilla[0][0] > 1 Then
DeleteSciControl($hTab, _GUICtrlTab_GetCurSel($hTab))
EndIf
Else
$iAdd = 1
$tPoint = _WinAPI_GetMousePos()
$hCtrl = _WinAPI_WindowFromPoint($tPoint)
For $i = 1 To $__aTabStintilla[0][0]
If $hCtrl = $__aTabStintilla[$i][1] Then
$iAdd = 0
ExitLoop
EndIf
Next
If $iAdd Then AddSciControl($hTab, 'Без названия')
EndIf
ElseIf $iDblClk_Flag = 1 Then
$iDblClk_Flag = 0
$iDblClk_Timer = 0
EndIf
EndSwitch
Wend
Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
Local $iCode, $tNMHDR, $hWndTab
Local $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
Local $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
Local $iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hTab
Switch $iCode
Case $NM_CLICK
For $i = 1 To $__aTabStintilla[0][0]
If (_GUICtrlTab_GetCurSel($hTab) == ($i - 1)) Then
ControlShow($hWnd, '', $__aTabStintilla[$i][1])
ControlFocus($hWnd, '', $__aTabStintilla[$i][1])
Else
ControlHide($hWnd, '', $__aTabStintilla[$i][1])
EndIf
Next
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
Func WM_SIZING($hWnd, $iMsg, $wParam, $lParam)
Switch $hWnd
Case $hForm
Local $iPos = _WinAPI_GetPosFromRect(DllStructCreate($tagRECT, $lParam))
WinMove($hTab, '', 0, 0, $iPos[2], $iPos[3])
For $i = 1 To $__aTabStintilla[0][0]
WinMove($__aTabStintilla[$i][1], '', 0, 20, $iPos[2] - 15, $iPos[3] - 73)
Next
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
Func WM_SIZE($hWnd, $iMsg, $wParam, $lParam)
Switch $hWnd
Case $hForm
Local $iPos = WinGetPos($hWnd)
WinMove($hTab, '', 0, 0, $iPos[2], $iPos[3])
For $i = 1 To $__aTabStintilla[0][0]
WinMove($__aTabStintilla[$i][1], '', 0, 20, $iPos[2] - 15, $iPos[3] - 73)
Next
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
Func WM_GETMINMAXINFO($hWnd, $iMsg, $wParam, $lParam)
Switch $hWnd
Case $hForm
Local $tMMI = DllStructCreate('long Reserved[2];long MaxSize[2];long MaxPosition[2];long MinTrackSize[2];long MaxTrackSize[2]', $lParam)
DllStructSetData($tMMI, 'MinTrackSize', 500, 1)
DllStructSetData($tMMI, 'MinTrackSize', 400, 2)
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
Func AddSciControl($hWnd, $sText)
$__aTabStintilla[0][0] += 1
ReDim $__aTabStintilla[$__aTabStintilla[0][0] + 1][Ubound($__aTabStintilla, 2)]
$__aTabStintilla[$__aTabStintilla[0][0]][0] = _GUICtrlTab_InsertItem($hWnd, $__aTabStintilla[0][0], $__aTabStintilla[0][0] & ' ' & $sText)
$__aTabStintilla[$__aTabStintilla[0][0]][1] = SCIControl($hWnd)
_SendMessage( $__aTabStintilla[$__aTabStintilla[0][0]][1], 2268, 1, 0) ;$SCI_SETWRAPMODE = 2268
SciSetBkColor($__aTabStintilla[$__aTabStintilla[0][0]][1], 0xF0F4F9)
SciSetMarginWidth($__aTabStintilla[$__aTabStintilla[0][0]][1], 40, 0x000000, 0xC0C0C0)
SciSetMarkerPanel($__aTabStintilla[$__aTabStintilla[0][0]][1], 15)
SciSetActiveLineColor($__aTabStintilla[$__aTabStintilla[0][0]][1], 0xFFFED8)
Local $iPos = WinGetPos($hWnd)
WinMove($__aTabStintilla[$__aTabStintilla[0][0]][1], '', 0, 20, $iPos[2] - 15, $iPos[3] - 73)
_GUICtrlTab_SetCurSel($hWnd, ($__aTabStintilla[0][0] - 1))
For $i = 1 To $__aTabStintilla[0][0]
If (_GUICtrlTab_GetCurSel($hWnd) == ($i - 1)) Then
ControlShow($hWnd, '', $__aTabStintilla[$i][1])
ControlFocus($hWnd, '', $__aTabStintilla[$i][1])
Else
ControlHide($hWnd, '', $__aTabStintilla[$i][1])
EndIf
Next
EndFunc
Func DeleteSciControl($hWnd, $iIndex)
Local $aTmp[$__aTabStintilla[0][0]+1][Ubound($__aTabStintilla, 2)]
_WinAPI_DestroyWindow($__aTabStintilla[$iIndex+1][1])
_GUICtrlTab_DeleteItem($hWnd, $iIndex)
_GUICtrlTab_ClickTab($hTab, $iIndex-1)
For $i = 1 To $__aTabStintilla[0][0]
If $iIndex <> ($i - 1) Then
$aTmp[0][0] += 1
For $j = 0 To Ubound($__aTabStintilla, 2)-1
$aTmp[$aTmp[0][0]][$j] = $__aTabStintilla[$i][$j]
Next
EndIf
Next
ReDim $aTmp[$aTmp[0][0]+1][Ubound($__aTabStintilla, 2)]
$__aTabStintilla = $aTmp
EndFunc
Func SCIControl($hWnd)
Local $iPos = WinGetPos($hWnd)
Local $hSci = _WinAPI_CreateWindowEx(BitOR($WS_EX_CLIENTEDGE, $WS_EX_TOPMOST), 'Scintilla', 'SciControl', BitOR($WS_CHILD, $WS_VISIBLE, $WS_TABSTOP), _
0, 0, $iPos[2], $iPos[3], $hWnd, 0, _WinAPI_GetModuleHandle(0), 0)
If ((@error) Or (Not IsHWnd($hSci))) Then
Return SetError(1, 0, -1)
EndIf
Return $hSci
EndFunc
Func SciSetBkColor($hWnd, $iColor)
_SendMessage($hWnd, 2052, 32, _WinAPI_SwitchColor($iColor))
_SendMessage($hWnd, 2050, 0, 0)
EndFunc
Func SciSetMarginWidth($hWnd, $iMargin, $iColorNumber, $iColor)
_SendMessage($hWnd, 2242, 0, $iMargin)
_SendMessage($hWnd, 2052, 33, _WinAPI_SwitchColor($iColor))
_SendMessage($hWnd, 2051, 33, _WinAPI_SwitchColor($iColorNumber))
EndFunc
Func SciSetMarkerPanel($hWnd, $iMargin)
_SendMessage($hWnd, 2244, 2, 0xFE000000)
_SendMessage($hWnd, 2242, 2, $iMargin)
_SendMessage($hWnd, 2246, 2, True)
EndFunc
Func SciSetActiveLineColor($hWnd, $iColor)
_SendMessage($hWnd, 2098, _WinAPI_SwitchColor($iColor), 0)
_SendMessage($hWnd, 2096, 1, 0)
EndFunc
