Что нового

[Элементы GUI] Вертикальный скролл

Коршун

Новичок
Сообщения
58
Репутация
1
Прошу помощи - нужно добавить вертикальный скролл на часть окна, что бы картинки прокручивались колесом мыши. Скролл необходимо разместить до линии.
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$GUI = GUICreate("Form2", 400, 400, -1, -1,BitOR($GUI_SS_DEFAULT_GUI,$WS_VSCROLL))
GUICtrlCreatePic('1.jpg', 0, 0, 300, 300)
GUICtrlCreatePic('2.jpg', 0, 310, 300, 300)
GUICtrlCreateLabel("",0, 340, 400, 1)
GUICtrlSetBkColor(-1,0xACACAC)
GUICtrlCreateButton('Ок', 280, 350, 100, 40, $BS_FLAT)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd
 

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Код:
_GUIScrollBars_Init

Посмотрите пример к этой функции.
 
Автор
К

Коршун

Новичок
Сообщения
58
Репутация
1
Прочитал - не помогает. Только лишний горизонтальный скролл появляется
 

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Коршун [?]
Прочитал - не помогает. Только лишний горизонтальный скролл появляется

Ну как это не помогает, а аргументы функции посмотреть? Замените в примере:
Код:
_GUIScrollBars_Init($hGUI)
_GUIScrollBars_Init($h_cGUI)


На:
Код:
_GUIScrollBars_Init($hGUI, 0)
_GUIScrollBars_Init($h_cGUI, 0)


Не зря же вам дали ссылку на документацию, если требуется чтобы за вас все сделали - в стол заказов.
 
Автор
К

Коршун

Новичок
Сообщения
58
Репутация
1
нужно добавить вертикальный скролл на часть окна, что бы картинки прокручивались колесом мыши. Скролл необходимо разместить до линии.
В примере я не увидел необходимого. Я этот пример 3 дня уже мучаю.
 

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Коршун
Вы вообще пример запускали?

7DKDj.png

Вместо кнопки может находиться любой контрол (включая и ваши изображения). На счет прокручивания мышью: нужно будет сделать обработчик событий колеса и в соответствии с ними прокручивать.

Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>

Opt("MustDeclareVars", 1)

_Main()

Func _Main()
    Local $GUIMsg, $hGUI, $h_cGUI

    $hGUI = GUICreate("ScrollBar Example", 400, 340, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))
    GUISetBkColor(0x88AABB)

    $h_cGUI = GUICreate("Child GUI", 396, 200, 0, 0, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGUI)
    GUICtrlCreateLabel("Пример вашего изображения", 10, 80, 180, 20)
	GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)
    GUISetBkColor(0X006400)
    GUISetState()

    GUISwitch($hGUI)
    GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")

    GUISetState()

    _GUIScrollBars_Init($h_cGUI,0)
    While 1
        $GUIMsg = GUIGetMsg()
        Switch $GUIMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd

    Exit
EndFunc   ;==>_Main

Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $wParam, $lParam
    Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
    Local $Idx = -1, $yChar, $yPos, $nPos, $TrackPos
    For $x = 0 To UBound($aSB_WindowInfo) - 1
        If $aSB_WindowInfo[$x][0] = $hWnd Then
            $Idx = $x
            $yChar = $aSB_WindowInfo[$Idx][3]
            ExitLoop
        EndIf
    Next
    If $Idx = -1 Then Return 0

    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
    $yPos = DllStructGetData($tSCROLLINFO, "nPos")
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

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

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)

    $nPos = DllStructGetData($tSCROLLINFO, "nPos")
    If ($nPos <> $yPos) Then _
        _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $nPos))

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_VSCROLL
 
Автор
К

Коршун

Новичок
Сообщения
58
Репутация
1
Нет мышки и нет части окна(
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>

Opt("MustDeclareVars", 1)

_Main()

Func _Main()
    Local $nFileMenu, $nExititem, $GUIMsg, $hGUI, $h_cGUI, $h_cGUI2
    Local $listview, $button
    $hGUI = GUICreate("ScrollBar Example", 400, 400, -1, -1)
   GUICtrlCreatePic('1.jpg', 0, 0, 300, 300)
   GUICtrlCreatePic('2.jpg', 0, 310, 300, 300)
    GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
    GUISetState()

   _GUIScrollBars_Init($hGUI, 0)

    While 1
        $GUIMsg = GUIGetMsg()

        Switch $GUIMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd

    Exit
EndFunc   ;==>_Main

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



Добавлено:
Сообщение автоматически объединено:

Вот добился все, кроме мышки...
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiScrollBars.au3>
#include <ButtonConstants.au3>
_Main()

Func _Main()
    Local $nFileMenu, $nExititem, $GUIMsg, $hGUI, $h_cGUI, $h_cGUI2
    Local $listview, $button

    $hGUI = GUICreate("", 400, 400, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
	GUICtrlCreateButton('Ок', 280, 350, 100, 40, $BS_FLAT)
    $h_cGUI = GUICreate("", 400, 300, 0, 0, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGUI)
	GUICtrlCreatePic('1.jpg', 0, 0, 300, 300)
	GUICtrlCreatePic('2.jpg', 0, 310, 300, 300)
    GUISetState()
    GUISwitch($hGUI)
    GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
    GUISetState()
    _GUIScrollBars_Init($h_cGUI, 0)

    While 1
        $GUIMsg = GUIGetMsg()

        Switch $GUIMsg
            Case $GUI_EVENT_CLOSE
                ExitLoop
        EndSwitch
    WEnd

    Exit
EndFunc   ;==>_Main

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
 

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Код:
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>

Opt("MustDeclareVars", 1)


Global $GUIMsg, $hGUI, $h_cGUI, $iDummyUP, $iDummyDOWN

$hGUI = GUICreate("ScrollBar Example", 400, 340, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))
$iDummyUP = GUICtrlCreateDummy()
$iDummyDOWN = GUICtrlCreateDummy()

GUISetBkColor(0x88AABB)

$h_cGUI = GUICreate("Child GUI", 396, 200, 0, 0, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGUI)
GUICtrlCreateLabel("Пример вашего изображения", 10, 80, 180, 20)
GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)
GUISetBkColor(0X006400)
GUISetState()

GUISwitch($hGUI)
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_MOUSEWHEEL, "WM_MOUSEWHEEL")

GUISetState()

_GUIScrollBars_Init($h_cGUI,0)
While 1
	$GUIMsg = GUIGetMsg()
	Switch $GUIMsg
		Case $GUI_EVENT_CLOSE
			ExitLoop

		Case $iDummyUP
			WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 0, 1 )

		Case $iDummyDOWN
			WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 1, 1 )
	EndSwitch
WEnd

Func WM_MOUSEWHEEL($hWnd, $Msg, $wParam, $lParam)
	#forceref $Msg, $wParam, $lParam
	Local $nCode, $tSCROLLINFO, $yPos, $nScroll, $iStep = 1

	If $hWnd = $hGUI Then
		$nCode = BitShift($wParam, 16)
		$tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($h_cGUI, $SB_VERT)
			$yPos = DllStructGetData($tSCROLLINFO, "nPos")
		Switch $nCode
			Case 120
				$nScroll = $iStep
				GUICtrlSendToDummy( $iDummyUP )
			Case -120
				$nScroll = -$iStep
				GUICtrlSendToDummy( $iDummyDOWN )
		EndSwitch

		DllStructSetData($tSCROLLINFO, "nPos", $yPos - $nScroll)
		_GUIScrollBars_SetScrollInfo($h_cGUI, $SB_VERT, $tSCROLLINFO)
	EndIf
	Return $GUI_RUNDEFMSG
EndFunc

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

    Local $Idx = -1, $yChar, $yPos, $nPos, $TrackPos, $Page
    For $x = 0 To UBound($aSB_WindowInfo) - 1
        If $aSB_WindowInfo[$x][0] = $hWnd Then
            $Idx = $x
            $yChar = $aSB_WindowInfo[$Idx][3]
            ExitLoop
        EndIf
    Next
    If $Idx = -1 Then Return 0

    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
    $yPos = DllStructGetData($tSCROLLINFO, "nPos")
    $Page = DllStructGetData($tSCROLLINFO, "nPage")
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

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

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

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

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

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

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)

    $nPos = DllStructGetData($tSCROLLINFO, "nPos")
    If ($nPos <> $yPos) Then _
        _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $nPos))

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_VSCROLL


Если правильно понял о чем вы, так же сделал обработку колесика мышки.
 
Автор
К

Коршун

Новичок
Сообщения
58
Репутация
1
Да! Спасибо большое) Вы все правильно поняли!


Добавлено:
Сообщение автоматически объединено:

Прошу пояснить почему скролл добавляется не в соответствии размеров 2-х картинок (610) и прокрутка мышью и колесом мыши рассинхронизированы?

Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>
#include <ButtonConstants.au3>
#include <GUIScrollBars.au3>
#include <StructureConstants.au3>

Global $GUIMsg, $hGUI, $h_cGUI, $iDummyUP, $iDummyDOWN

$hGUI = GUICreate("ScrollBar Example", 400, 400, -1, -1)
$iDummyUP = GUICtrlCreateDummy()
$iDummyDOWN = GUICtrlCreateDummy()
GUICtrlCreateButton('Ок', 280, 350, 100, 40, $BS_FLAT)

$h_cGUI = GUICreate("Child GUI", 400, 330, 0, 0, $WS_CHILD, $WS_EX_DLGMODALFRAME, $hGUI)
GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)
GUICtrlCreatePic('1.jpg', 0, 0, 300, 300)
GUICtrlCreatePic('2.jpg', 0, 310, 300, 300)
GUISetState()

GUISwitch($hGUI)
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_MOUSEWHEEL, "WM_MOUSEWHEEL")

GUISetState()
_GUIScrollBars_Init($h_cGUI,0)
While 1
    $GUIMsg = GUIGetMsg()
    Switch $GUIMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop

        Case $iDummyUP
            WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 0, 1 )

        Case $iDummyDOWN
            WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 1, 1 )
    EndSwitch
WEnd

Func WM_MOUSEWHEEL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $wParam, $lParam
    Local $nCode, $tSCROLLINFO, $yPos, $nScroll, $iStep = 1

    If $hWnd = $hGUI Then
        $nCode = BitShift($wParam, 16)
        $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($h_cGUI, $SB_VERT)
            $yPos = DllStructGetData($tSCROLLINFO, "nPos")
        Switch $nCode
            Case 120
                $nScroll = $iStep
                GUICtrlSendToDummy( $iDummyUP )
            Case -120
                $nScroll = -$iStep
                GUICtrlSendToDummy( $iDummyDOWN )
        EndSwitch

        DllStructSetData($tSCROLLINFO, "nPos", $yPos - $nScroll)
        _GUIScrollBars_SetScrollInfo($h_cGUI, $SB_VERT, $tSCROLLINFO)
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

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

    Local $Idx = -1, $yChar, $yPos, $nPos, $TrackPos, $Page
    For $x = 0 To UBound($aSB_WindowInfo) - 1
        If $aSB_WindowInfo[$x][0] = $hWnd Then
            $Idx = $x
            $yChar = $aSB_WindowInfo[$Idx][3]
            ExitLoop
        EndIf
    Next
    If $Idx = -1 Then Return 0

    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
    $yPos = DllStructGetData($tSCROLLINFO, "nPos")
    $Page = DllStructGetData($tSCROLLINFO, "nPage")
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

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

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

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

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

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

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)

    $nPos = DllStructGetData($tSCROLLINFO, "nPos")
    If ($nPos <> $yPos) Then _
        _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $nPos))

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_VSCROLL
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Коршун
Это из-за того что щелчок по элементу scroll устанавливает свое значение, а в примере котором вам дали с колесиком мыши значение если не ошибаюсь = 1
 

MnM

Post-Hardcore
Сообщения
679
Репутация
90
Коршун
А вы отловите изменение сначала кликом мышкой по маленькой стрелочке(или с чем вы ), а потом попробуйте "крутануть" колесико мышки :smile:
Пример выше из вашего сообщения показывает мне что колесико мышки делает х2 сдвиг в отличие от маленькой стрелки
 
Автор
К

Коршун

Новичок
Сообщения
58
Репутация
1
MnM
А почему скролл добавляется не в соответствии размеров 2-х картинок (610) ?
 

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Код:
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>

Opt("MustDeclareVars", 1)


Global $GUIMsg, $hGUI, $h_cGUI, $iDummyUP, $iDummyDOWN

$hGUI = GUICreate("ScrollBar Example", 400, 340, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))
$iDummyUP = GUICtrlCreateDummy()
$iDummyDOWN = GUICtrlCreateDummy()

GUISetBkColor(0x88AABB)

$h_cGUI = GUICreate("Child GUI", 396, 200, 0, 0, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGUI)
GUICtrlCreateLabel("Пример вашего изображения", 10, 80, 180, 20)
GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)
GUISetBkColor(0X006400)
GUISetState()

GUISwitch($hGUI)
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_MOUSEWHEEL, "WM_MOUSEWHEEL")

GUISetState()

_GUIScrollBars_Init($h_cGUI,0)
While 1
    $GUIMsg = GUIGetMsg()
    Switch $GUIMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop

        Case $iDummyUP
            WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 0, 0 )

        Case $iDummyDOWN
            WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 1, 0 )
    EndSwitch
WEnd

Func WM_MOUSEWHEEL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $wParam, $lParam
    If $hWnd = $hGUI Then
        Switch BitShift($wParam, 16)
            Case 120
                GUICtrlSendToDummy( $iDummyUP )
            Case -120
                GUICtrlSendToDummy( $iDummyDOWN )
        EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

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

    Local $Idx = -1, $yChar, $yPos, $nPos, $TrackPos, $Page
    For $x = 0 To UBound($aSB_WindowInfo) - 1
        If $aSB_WindowInfo[$x][0] = $hWnd Then
            $Idx = $x
            $yChar = $aSB_WindowInfo[$Idx][3]
            ExitLoop
        EndIf
    Next
    If $Idx = -1 Then Return 0

    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
    $yPos = DllStructGetData($tSCROLLINFO, "nPos")
    $Page = DllStructGetData($tSCROLLINFO, "nPage")
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

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

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

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

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

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

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)

    $nPos = DllStructGetData($tSCROLLINFO, "nPos")
    If ($nPos <> $yPos) Then _
        _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $nPos))

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_VSCROLL
 
Автор
К

Коршун

Новичок
Сообщения
58
Репутация
1
firex
Хороший пример, но это не объясняет - как управлять размером прокрутки. Почему ее размер в примере = 472 ?
 

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Коршун
Код:
_GUIScrollBars_SetScrollRange($h_cGUI, $SB_VERT, 3, 300)


Код:
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>

Opt("MustDeclareVars", 1)


Global $GUIMsg, $hGUI, $h_cGUI, $iDummyUP, $iDummyDOWN

$hGUI = GUICreate("ScrollBar Example", 400, 340, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))
$iDummyUP = GUICtrlCreateDummy()
$iDummyDOWN = GUICtrlCreateDummy()

GUISetBkColor(0x88AABB)

$h_cGUI = GUICreate("Child GUI", 396, 200, 0, 0, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGUI)
GUICtrlCreateLabel("Пример вашего изображения", 10, 80, 180, 20)
GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)
GUISetBkColor(0X006400)
GUISetState()

GUISwitch($hGUI)
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_MOUSEWHEEL, "WM_MOUSEWHEEL")

GUISetState()

_GUIScrollBars_Init($h_cGUI,0)
_GUIScrollBars_SetScrollRange($h_cGUI, $SB_VERT, 3, 300)

While 1
    $GUIMsg = GUIGetMsg()
    Switch $GUIMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop

        Case $iDummyUP
            WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 0, 0 )

        Case $iDummyDOWN
            WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 1, 0 )
    EndSwitch
WEnd

Func WM_MOUSEWHEEL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $wParam, $lParam
    If $hWnd = $hGUI Then
        Switch BitShift($wParam, 16)
            Case 120
                GUICtrlSendToDummy( $iDummyUP )
            Case -120
                GUICtrlSendToDummy( $iDummyDOWN )
        EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

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

    Local $Idx = -1, $yChar, $yPos, $nPos, $TrackPos, $Page
    For $x = 0 To UBound($aSB_WindowInfo) - 1
        If $aSB_WindowInfo[$x][0] = $hWnd Then
            $Idx = $x
            $yChar = $aSB_WindowInfo[$Idx][3]
            ExitLoop
        EndIf
    Next
    If $Idx = -1 Then Return 0

    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
    $yPos = DllStructGetData($tSCROLLINFO, "nPos")
    $Page = DllStructGetData($tSCROLLINFO, "nPage")
    $TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

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

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

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

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

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

    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
    _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)

    $nPos = DllStructGetData($tSCROLLINFO, "nPos")
    If ($nPos <> $yPos) Then _
        _GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $nPos))

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_VSCROLL


Или изначально задавайте максимум для вертикальной прокрутки (третий аргумент):
Код:
_GUIScrollBars_Init($h_cGUI,0,iVertMax)
 
Автор
К

Коршун

Новичок
Сообщения
58
Репутация
1
firex
Откуда эти границы "3, 300" ?? Как их просчитать??
Насколько я понимаю они ничего общего с высотой элементов окна не имеют.
Методом тыка подбирать границы скролла не поможет.

Может есть какой-то способ?
 
Автор
К

Коршун

Новичок
Сообщения
58
Репутация
1
firex
при $ScrollMax = 40 и $iPageSize = 11 определяется высота = 341, но наглядно это не так.

Так проще получать размер:
Код:
$iPageSize = _GUIScrollBars_GetScrollInfoPage($h_cGUI, $SB_VERT)
 

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Коршун
Разобрался, проблема в примере (тот что предложен справкой, он написан не верно).
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>

Global $GUIMsg, $hGUI, $h_cGUI, $iDummyUP, $iDummyDOWN

$hGUI = GUICreate("ScrollBar Example", 400, 340, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU))
$iDummyUP = GUICtrlCreateDummy()
$iDummyDOWN = GUICtrlCreateDummy()
GUISetBkColor(0x88AABB)

$h_cGUI = GUICreate("Child GUI", 396, 300, 0, 0, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGUI)
GUICtrlCreateLabel("Пример вашего изображения", 10, 0, 180, ( 17 * 300 ) + 17 )
GUICtrlSetBkColor( -1, 0xff0000 )

GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)
GUISetBkColor(0X006400)
GUISetState()

GUISwitch($hGUI)
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_MOUSEWHEEL, "WM_MOUSEWHEEL")

GUISetState()
_GUIScrollBars_Init( $h_cGUI,0, 300 )
_GUIScrollBars_SetScrollInfoPage( $h_cGUI, $SB_VERT, 17 )

While 1
    $GUIMsg = GUIGetMsg()
    Switch $GUIMsg
        Case $GUI_EVENT_CLOSE
            ExitLoop

        Case $iDummyUP
            WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 0, 0 )

        Case $iDummyDOWN
            WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 1, 0 )
    EndSwitch
WEnd

Func WM_MOUSEWHEEL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $wParam, $lParam
    If $hWnd = $hGUI Then
        Switch BitShift($wParam, 16)
            Case 120
                GUICtrlSendToDummy( $iDummyUP )
            Case -120
                GUICtrlSendToDummy( $iDummyDOWN )
        EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc

Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
    #forceref $Msg, $wParam, $lParam
	Local $nPos, $yPos, $iTrackPos, $Page
    Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
    Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
	; ---
    $yPos = DllStructGetData($tSCROLLINFO, "nPos")
    $iPage = DllStructGetData($tSCROLLINFO, "nPage")
    $iTrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

    Switch $nScrollCode
        Case $SB_LINELEFT
            DllStructSetData($tSCROLLINFO, "nPos", $yPos - 1)

        Case $SB_LINERIGHT
            DllStructSetData($tSCROLLINFO, "nPos", $yPos + 1)

        Case $SB_PAGELEFT
            DllStructSetData($tSCROLLINFO, "nPos", $yPos - $iPage)

        Case $SB_PAGERIGHT
            DllStructSetData($tSCROLLINFO, "nPos", $yPos + $iPage)

        Case $SB_THUMBTRACK
            DllStructSetData($tSCROLLINFO, "nPos", $iTrackPos)
    EndSwitch
    DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)

    _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    _GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)

    $nPos = DllStructGetData($tSCROLLINFO, "nPos")
    If ($nPos <> $yPos) Then _
        _GUIScrollBars_ScrollWindow($hWnd, 0, $iPage * ($yPos - $nPos))

    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_VSCROLL
 
Верх