Почему окно из скролом не отображается в элементе GuiCtrlCreateTab ?

agikon · 20 Июл 2013

Вот исходный вариант с окном из скролом но без элемента GuiCtrlCreateTab.
Здесь всё нормально.
[box title=TitleBox]

Код:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>



Global $sFile
Global $i = 0

$GUI = GUICreate("", 300, 300)
$button = GUICtrlCreateButton('button', 50, 270, 90, 20)
GUISetState(@SW_SHOW, $GUI)



;---------------
    $h_cGUI = GUICreate("Child GUI", 130, 100, 10, 30, $WS_CHILD, $WS_EX_CLIENTEDGE, $GUI)
    GUICtrlCreateButton("button1", 10, 25, 90, 20)
	GUICtrlCreateButton("button2", 10, 50, 90, 20)
	GUICtrlCreateButton("button3", 10, 90, 90, 20)
	GUICtrlCreateButton("button4", 10, 130, 90, 20)
	GUISetBkColor(0Xffffff)
    GUISetState()
    GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)

    GUISwitch($GUI)


    GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
    GUIRegisterMsg($WM_HSCROLL, "WM_HSCROLL")

	_GUIScrollBars_Init($h_cGUI)
;---------------


While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $button

    EndSwitch
WEnd










;---------------
Func WM_HSCROLL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $lParam
    Local $nScrollCode = BitAND($wParam, 0x0000FFFF)

    Local $index = -1, $xChar, $xPos
    Local $Min, $Max, $Page, $Pos, $TrackPos

    For $x = 0 To UBound($aSB_WindowInfo) - 1
        If $aSB_WindowInfo[$x][0] = $hWnd Then
            $index = $x
            $xChar = $aSB_WindowInfo[$index][2]
            ExitLoop
        EndIf
    Next
    If $index = -1 Then Return 0

;~  ; Get all the horizontal scroll bar information
    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_HORZ)
    $Min = DllStructGetData($tSCROLLINFO, "nMin")
    $Max = DllStructGetData($tSCROLLINFO, "nMax")
    $Page = DllStructGetData($tSCROLLINFO, "nPage")
    ; Save the position for comparison later on
    $xPos = DllStructGetData($tSCROLLINFO, "nPos")
    $Pos = $xPos
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
    #forceref $Min, $Max
    Switch $nScrollCode

        Case $SB_LINELEFT ; user clicked left arrow
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)

        Case $SB_LINERIGHT ; user clicked right arrow
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)

        Case $SB_PAGELEFT ; user clicked the scroll bar shaft left of the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)

        Case $SB_PAGERIGHT ; user clicked the scroll bar shaft right of the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)

        Case $SB_THUMBTRACK ; user dragged the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
    EndSwitch

;~    // Set the position and then retrieve it.  Due to adjustments
;~    //   by Windows it may not be the same as the value set.

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
    ;// If the position has changed, scroll the window and update it
    $Pos = DllStructGetData($tSCROLLINFO, "nPos")
    If ($Pos <> $xPos) Then _GUIScrollBars_ScrollWindow($hWnd, $xChar * ($xPos - $Pos), 0)
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_HSCROLL

Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $wParam, $lParam
    Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
    Local $index = -1, $yChar, $yPos
    Local $Min, $Max, $Page, $Pos, $TrackPos

    For $x = 0 To UBound($aSB_WindowInfo) - 1
        If $aSB_WindowInfo[$x][0] = $hWnd Then
            $index = $x
            $yChar = $aSB_WindowInfo[$index][3]
            ExitLoop
        EndIf
    Next
    If $index = -1 Then Return 0


    ; Get all the vertial scroll bar information
    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
    $Min = DllStructGetData($tSCROLLINFO, "nMin")
    $Max = DllStructGetData($tSCROLLINFO, "nMax")
    $Page = DllStructGetData($tSCROLLINFO, "nPage")
    ; Save the position for comparison later on
    $yPos = DllStructGetData($tSCROLLINFO, "nPos")
    $Pos = $yPos
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

    Switch $nScrollCode
        Case $SB_TOP ; user clicked the HOME keyboard key
            DllStructSetData($tSCROLLINFO, "nPos", $Min)

        Case $SB_BOTTOM ; user clicked the END keyboard key
            DllStructSetData($tSCROLLINFO, "nPos", $Max)

        Case $SB_LINEUP ; user clicked the top arrow
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)

        Case $SB_LINEDOWN ; user clicked the bottom arrow
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)

        Case $SB_PAGEUP ; user clicked the scroll bar shaft above the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)

        Case $SB_PAGEDOWN ; user clicked the scroll bar shaft below the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)

        Case $SB_THUMBTRACK ; user dragged the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
    EndSwitch

;~    // Set the position and then retrieve it.  Due to adjustments
;~    //   by Windows it may not be the same as the value set.

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    ;// If the position has changed, scroll the window and update it
    $Pos = DllStructGetData($tSCROLLINFO, "nPos")

    If ($Pos <> $yPos) Then
        _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))
        $yPos = $Pos
    EndIf

    Return $GUI_RUNDEFMSG

EndFunc   ;==>WM_VSCROLL

;---------------

[/box]

А вот в этом есть элемент GuiCtrlCreateTab но окно из скролом почему то в tab1 не отображается.
[box title=TitleBox]

Код:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>



Global $sFile
Global $i = 0

$GUI = GUICreate("", 300, 300)
$button = GUICtrlCreateButton('button', 50, 270, 90, 20)
GUISetState(@SW_SHOW, $GUI)




;-------------
$tab0 = GuiCtrlCreateTab(0, 0, 300, 200)

$tab1 = GuiCtrlCreateTabItem("tab1")
;#cs
;--------------- СКРОЛ
    $h_cGUI = GUICreate("Child GUI", 130, 100, 10, 30, $WS_CHILD, $WS_EX_CLIENTEDGE, $GUI)
    GUICtrlCreateButton("button1", 10, 10, 90, 20)
	GUICtrlCreateButton("button2", 10, 50, 90, 20)
	GUICtrlCreateButton("button3", 10, 90, 90, 20)
	GUICtrlCreateButton("button4", 10, 130, 90, 20)
	GUISetBkColor(0Xffffff)
    GUISetState()
    GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)

    GUISwitch($GUI)

    GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
    GUIRegisterMsg($WM_HSCROLL, "WM_HSCROLL")

	_GUIScrollBars_Init($h_cGUI)
;---------------
;#ce

$tab2 = GuiCtrlCreateTabItem("tab2")







While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $button

    EndSwitch
WEnd










;---------------
Func WM_HSCROLL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $lParam
    Local $nScrollCode = BitAND($wParam, 0x0000FFFF)

    Local $index = -1, $xChar, $xPos
    Local $Min, $Max, $Page, $Pos, $TrackPos

    For $x = 0 To UBound($aSB_WindowInfo) - 1
        If $aSB_WindowInfo[$x][0] = $hWnd Then
            $index = $x
            $xChar = $aSB_WindowInfo[$index][2]
            ExitLoop
        EndIf
    Next
    If $index = -1 Then Return 0

;~  ; Get all the horizontal scroll bar information
    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_HORZ)
    $Min = DllStructGetData($tSCROLLINFO, "nMin")
    $Max = DllStructGetData($tSCROLLINFO, "nMax")
    $Page = DllStructGetData($tSCROLLINFO, "nPage")
    ; Save the position for comparison later on
    $xPos = DllStructGetData($tSCROLLINFO, "nPos")
    $Pos = $xPos
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
    #forceref $Min, $Max
    Switch $nScrollCode

        Case $SB_LINELEFT ; user clicked left arrow
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)

        Case $SB_LINERIGHT ; user clicked right arrow
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)

        Case $SB_PAGELEFT ; user clicked the scroll bar shaft left of the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)

        Case $SB_PAGERIGHT ; user clicked the scroll bar shaft right of the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)

        Case $SB_THUMBTRACK ; user dragged the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
    EndSwitch

;~    // Set the position and then retrieve it.  Due to adjustments
;~    //   by Windows it may not be the same as the value set.

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
    ;// If the position has changed, scroll the window and update it
    $Pos = DllStructGetData($tSCROLLINFO, "nPos")
    If ($Pos <> $xPos) Then _GUIScrollBars_ScrollWindow($hWnd, $xChar * ($xPos - $Pos), 0)
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_HSCROLL

Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $wParam, $lParam
    Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
    Local $index = -1, $yChar, $yPos
    Local $Min, $Max, $Page, $Pos, $TrackPos

    For $x = 0 To UBound($aSB_WindowInfo) - 1
        If $aSB_WindowInfo[$x][0] = $hWnd Then
            $index = $x
            $yChar = $aSB_WindowInfo[$index][3]
            ExitLoop
        EndIf
    Next
    If $index = -1 Then Return 0


    ; Get all the vertial scroll bar information
    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
    $Min = DllStructGetData($tSCROLLINFO, "nMin")
    $Max = DllStructGetData($tSCROLLINFO, "nMax")
    $Page = DllStructGetData($tSCROLLINFO, "nPage")
    ; Save the position for comparison later on
    $yPos = DllStructGetData($tSCROLLINFO, "nPos")
    $Pos = $yPos
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

    Switch $nScrollCode
        Case $SB_TOP ; user clicked the HOME keyboard key
            DllStructSetData($tSCROLLINFO, "nPos", $Min)

        Case $SB_BOTTOM ; user clicked the END keyboard key
            DllStructSetData($tSCROLLINFO, "nPos", $Max)

        Case $SB_LINEUP ; user clicked the top arrow
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)

        Case $SB_LINEDOWN ; user clicked the bottom arrow
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)

        Case $SB_PAGEUP ; user clicked the scroll bar shaft above the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)

        Case $SB_PAGEDOWN ; user clicked the scroll bar shaft below the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)

        Case $SB_THUMBTRACK ; user dragged the scroll box
            DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
    EndSwitch

;~    // Set the position and then retrieve it.  Due to adjustments
;~    //   by Windows it may not be the same as the value set.

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    ;// If the position has changed, scroll the window and update it
    $Pos = DllStructGetData($tSCROLLINFO, "nPos")

    If ($Pos <> $yPos) Then
        _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))
        $yPos = $Pos
    EndIf

    Return $GUI_RUNDEFMSG

EndFunc   ;==>WM_VSCROLL

;---------------

[/box]

Подскажите пожалуйста что не так?

MnM · 20 Июл 2013

Элемент вкладок "перекрывает\топит" дочернее окно.(Это можно проследить с помощью Au3WinInfo).
Добавлено:
Сообщение автоматически объединено: 20 Июл 2013

Если закоментировать окно и вместо него вставить другой любой элемент он тоже потонет. ==> Элементы создаются не в Tab'е

agikon · 20 Июл 2013

Так в том то и вопрос что я не пойму как сделать чтобы не перекрывало.

sims · 20 Июл 2013

А чего вы ожидали, если родительским окном назначаете не вкладку панели, а основное окно проги?
Разместите дочернее окно на вкладке панели и должно все получиться.

MnM · 20 Июл 2013

sims сказал(а):
Разместите дочернее окно на вкладке панели и должно все получиться.

Из предыдущего предложения вы говорили о назначении вкладки род. окном:

Код:

GUICreate("Child GUI", 130, 100, 10, 30, $WS_CHILD, $WS_EX_CLIENTEDGE, $tab1)

В принципе окно все же затирается, кроме кнопок(они появляются при наведении :smile:

)

sims · 20 Июл 2013

MnM [?]

Из предыдущего предложения вы говорили о назначении вкладки род. окном:

Правильно.
Вкладка панели должна быть родительским окном для (дочернего) окна со скролом.

agikon · 20 Июл 2013

sims [?]

Вкладка панели должна быть родительским окном для (дочернего) окна со скролом.

Ну так тоже не работает

Код:

$h_cGUI = GUICreate("Child GUI", 130, 100, 10, 30, $WS_CHILD, $WS_EX_CLIENTEDGE, $tab1)

sims · 20 Июл 2013

Используйте SetParent.
Добавлено:
Сообщение автоматически объединено: 20 Июл 2013

GuiCtrlCreateTabItem возвращает не хендл окна, а controlID и не удивительно что не получается назначить вкладку родительским окном.

agikon · 20 Июл 2013

sims [?]

Используйте SetParent.

вот так тоже не хочет

Код:

DllCall("user32.dll", "int", "SetParent", "hwnd", $h_cGUI, "hwnd", $tab1)

sims · 20 Июл 2013

agikon [?]

вот так тоже не хочет

Выше написал почему.

sims [?]

GuiCtrlCreateTabItem возвращает не хендл окна, а controlID и не удивительно что не получается назначить вкладку родительским окном.

Нужно что-то подобное GUICtrlGetHandle. Эта функция работает с контролами, но не со вкладкой панели.
Добавлено:
Сообщение автоматически объединено: 20 Июл 2013

Если нет возможности получить хендл вкладки, то на нее можем поместить контрол и узнать его хенл. Вот что получилось.

Код:

;-------------
$tab0 = GuiCtrlCreateTab(0, 0, 300, 200)

$tab1 = GuiCtrlCreateTabItem("tab1")

;#cs
;--------------- СКРОЛ
    $Label = GUICtrlCreateLabel ( "", 0, 0 , 300 , 200)
    $h_cGUI = GUICreate("Child GUI", 130, 100, 10, 30, $WS_CHILD, $WS_EX_CLIENTEDGE, GUICtrlGetHandle($Label))
	_winapi_SetParent(GUICtrlGetHandle($h_cGUI), GUICtrlGetHandle($Label))
    GUICtrlCreateButton("button1", 10, 10, 90, 20)
    GUICtrlCreateButton("button2", 10, 50, 90, 20)
    GUICtrlCreateButton("button3", 10, 90, 90, 20)
    GUICtrlCreateButton("button4", 10, 130, 90, 20)
    GUISetBkColor(0Xffffff)
    GUISetState()
    GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)

    GUISwitch($GUI)

    GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
    GUIRegisterMsg($WM_HSCROLL, "WM_HSCROLL")

    _GUIScrollBars_Init($h_cGUI)
;---------------
;#ce

$tab2 = GuiCtrlCreateTabItem("tab2")

agikon · 20 Июл 2013

Спасибо работает.

Автор темы	Похожие темы	Форум	Ответы	Дата
C	Чтение из массива вставка в окно программы	Стол заказов	13	13 Окт 2023
B	Controlsend в неактивное окно l2 scryde	Покупка/продажа, поиск услуг	1	12 Окт 2023
V	Скрипт на замену слов через блокнот notepad2	Стол заказов	19	27 Июл 2023
J	Как сделать чтобы при запуске скрипта из другого скрипта не выскакивало окно с ошибкой	Общие вопросы по AutoIt	25	18 Июн 2023
A	Окна, Диалоги Как сделать окно поверх всего?	Общие вопросы по AutoIt	1	21 Апр 2023

Поиск

Поиск

Почему окно из скролом не отображается в элементе GuiCtrlCreateTab ?

agikon

Знающий

MnM

Post-Hardcore

agikon

Знающий

sims

Осваивающий

MnM

Post-Hardcore

sims

Осваивающий

agikon

Знающий

sims

Осваивающий

agikon

Знающий

sims

Осваивающий

agikon

Знающий