Что нового
Автор:
Фильтры

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

Автор
К

Коршун

Новичок
Сообщения
58
Репутация
1
Нет, что-то тут не так...
Код: 
#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)
GUICtrlCreatePic('1.jpg', 0, 0, 180, 400) ;добавляем картинку высотой 400 в окно = 300

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, 400/(300+1) ) ; соотношение сторон?

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


Мне надо рассчитать "Максимальный размер вертикальной полосы прокрутки" и "Размер страницы" в зависимости от высоты картинки (в примере = 400).
 
firex

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Коршун
Размер видимой области в моем примере=396, шаг прокрутки=17, общая высота=( 17 * ( 300 + 1 ) ) + 14.

Если картинка 400 и шаг оставляем 17, то iVertMax:
Код: 
Floor( ( 400 - 17 - 14 ) / 17 )
 
firex

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Коршун
Да хоть 1488, установите какой вам угодно.
Код: 
_GUIScrollBars_SetScrollInfoPage


17 - смещение на один щелчок колесиком / кнопкой, зачем вам больше? Будет слишком резко.
 
firex

firex

AutoIT Гуру
Сообщения
943
Репутация
208
Коршун
Каких проблем? Если вам что то не понятно - укажите что именно, ваше условие давно выполнено.

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


Const $iStep = 17 ;Шаг в пикселях (смещение на один прокрут колесиком в пикселях)
Const $iScroll_VisibleHeight = 310 ;Высота видимой части
Const $iImageHeight = 640 ;Высота твоего изображения=общая высота возможной прокрутки

Const $iScrollbar_VMax = Int( ( $iImageHeight- $iStep ) / $iStep ) ;Рассчитываем необходимую высоту
;=============

$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, $iScroll_VisibleHeight, 0, 0, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGUI)
GUICtrlCreateLabel("Пример вашего изображения", 10, 0, 180, $iImageHeight )
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, $iScrollbar_VMax )
_GUIScrollBars_SetScrollInfoPage( $h_cGUI, $SB_VERT, $iStep )

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
 
  • Like
Реакции: Norm
Автор
К

Коршун

Новичок
Сообщения
58
Репутация
1
firex
Я уже 2 страницы на объяснял)
При чем тут:
Код: 
GUICtrlCreateLabel("Пример вашего изображения", 10, 0, 180, $iImageHeight )


Я же картинку хочу добавить... Когда меняю эту строку на
Код: 
GUICtrlCreatePic('1.jpg', 0, 0, 180, $iImageHeight)

Скролл чуть-чуть больше, чем нужно. А если изменить
Код: 
Const $iStep = 15 ;Шаг в пикселях (смещение на один прокрут колесиком в пикселях)

То смещение сильно заметно...
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
W Элементы управления в GUI Общие вопросы по AutoIt 1
A Элементы GUI функции и элементы GUI Общие вопросы по AutoIt 1
Y [Элементы GUI] Показ содержимого буфера обмена на экране GUI - Графический интерфейс пользователя 1
F [Элементы GUI] Оптимизировать опрос ячеек GUI GUI - Графический интерфейс пользователя 8
K [Элементы GUI] Вертикальный slider - максимальное значение сверху GUI - Графический интерфейс пользователя 4
Похожие темы
Элементы управления в GUI
Элементы GUI функции и элементы GUI
[Элементы GUI] Показ содержимого буфера обмена на экране
[Элементы GUI] Оптимизировать опрос ячеек GUI
[Элементы GUI] Вертикальный slider - максимальное значение сверху
Верх