Scroll GUI mit MouseDrag

#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <Array.au3>
#include "GUIScrollbars_Ex.au3"
Opt("GUIOnEventMode", 1)
Global $fParimaryDown = False, $iXMouse = 0, $iCurrentScrollPos = 0
$hGUI = GUICreate("Test", 1920, 700, 0, 0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_PrimaryDown")
GUISetOnEvent($GUI_EVENT_PRIMARYUP, "_PrimaryUp")
GUISetOnEvent($GUI_EVENT_MOUSEMOVE, "_Move")
GUISetBkColor(0xFF0000, $hGUI)
GUICtrlCreateLabel("", 0, 0, 1920, 700)
GUICtrlSetBkColor(-1, 0x00FF00)
Global $hbutton = GUICtrlCreateButton("test", 100, 100, 50, 50)
GUICtrlSetOnEvent(-1, "_Button")
GUISetState()
_GUIScrollbars_Generate($hGUI, 5000, 0)

While 1
Sleep(100)
WEnd
Func _Button()
ConsoleWrite("Button" & @CRLF)
EndFunc
Func _PrimaryDown()
$fParimaryDown = True
$iXMouse = MouseGetPos(0)
Local $tagSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hGUI, $SB_HORZ)
$iCurrentScrollPos = DllStructGetData($tagSCROLLINFO, 7)
Local $Cursor = GUIGetCursorInfo()
If $Cursor[4] = $hbutton Then _Button()
EndFunc
Func _PrimaryUp()
$fParimaryDown = False
EndFunc
Func _Move()
If $fParimaryDown Then
Local $iDeltaMove = MouseGetPos(0) - $iXMouse
Local $iNewPos = $iCurrentScrollPos - ($iDeltaMove /
Local $tagSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hGUI, $SB_HORZ)
If $iNewPos < DllStructGetData($tagSCROLLINFO, 3) Then $iNewPos = DllStructGetData($tagSCROLLINFO, 3) + 1
If $iNewPos > DllStructGetData($tagSCROLLINFO, 4) Then $iNewPos = DllStructGetData($tagSCROLLINFO, 4) - 1
_GUIScrollbars_Scroll_Pos($hGUI, $iNewPos, 0)
EndIf
EndFunc
Func _Exit()
Exit
EndFunc

#include-once
; #INDEX# ============================================================================================================
; Title .........: GUIScrollBars_Ex
; AutoIt Version : v3.3.6.0
; Language ......: English
; Description ...: Generates scrollbars for user defined sizes of GUI and aperture and sets proportional thumb sizes
; Remarks .......:
; Note ..........:
; Author(s) .....: Melba23 - with some code based on the WinAPI and GUIScrollBars includes
; and contributions from rover, czardas, MrCreatoR and Malkey
; ====================================================================================================================
;#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
; #INCLUDES# =========================================================================================================
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiScrollBars.au3>
#include <ScrollBarConstants.au3>
#include <SendMessage.au3>
; #GLOBAL VARIABLES# =================================================================================================
Global $aSB_WindowInfo[1][10]
; [0] = Handle to window
; [1] = Not used
; [2] = Average horizontal pixels per char
; [3] = Vertical pixels per char
; [4] = Client area width
; [5] = Client area height
; [6] = Horizontal max setting
; [7] = Vertical max setting
; [8] = Vertical scrollbar position for minimize/restore
; [9] = Horizontal scrollbar position for minimize/restore
Global $aSB_WindowInfoEx[1][5]
; [0] = Horizontal scrollable size
; [1] = Vertical scrollable size
; [2] = Width correction factor
; [3] = Height correction factor
; [4] = Before/After flag
; #CURRENT# ==========================================================================================================
; _GUIScrollbars_Generate: Generates scrollbars for a GUI with a defined aperture with proportional thumb sizes
; _GUIScrollbars_Locate_Ctrl: Calculates coordinates to use to position controls after scrollbar creation
; _GUIScrollbars_Scroll_Page: Scrolls to min, max or page number
; _GUIScrollbars_Minimize: Stores scrollbar positions on GUI minimize
; _GUIScrollbars_Restore: Restores scrollbar positions on GUI restore
; ====================================================================================================================
; #INTERNAL_USE_ONLY#=================================================================================================
; _Scrollbars_WM_VSCROLL: GUIRegisterMsg procedure for vertical scrollbar
; _Scrollbars_WM_HSCROLL: GUIRegisterMsg procedure for horizontal scrollbar
; _Scrollbars_WM_MOUSEWHEEL : GUIRegisterMsg procedure for vertical mouse wheel scroll
; _Scrollbars_WM_MOUSEHWHEEL : GUIRegisterMsg procedure for horizontal mouse wheel scroll
;=====================================================================================================================
; #FUNCTION# =========================================================================================================
; Name...........: _GUIScrollbars_Generate
; Description ...: Generates scrollbars for a GUI with a defined aperture with proportional thumb sizes
; Syntax.........: _GUIScrollbars_Generate ($hWnd, $iH_Scroll = 0, [$iV_Scroll = 0, [$iH_Tight = 0, [$iV_Tight = 0, [$fBefore = False]]]])
; Parameters ....: $hWnd -> GUI to contain scrollbars
; $iH_Scroll -> Width in pixels of area to be scrolled
; $iV_Scroll -> Height in pixels of area to be scrolled (default = 0)
; $iH_Tight -> 1 = Adjust mean position of right edge of scrolled area to right (default = 0)
; $iV_Tight -> 1 = Adjust mean position of bottom edge of scrolled area down (default = 0)
; $fBefore -> True = Scrollbars are being generated BEFORE controls
; False = Scrollbars are being generated AFTER controls (default)
; Requirement(s).: v3.3.6.0 or higher
; Return values .: Success - Returns a 4-element array (see remarks for details):
; [0] = Actual aperture width ; [1] = Actual aperture height]
; [2] = Width correction factor ; [3] = Height correction factor]
; Failure - Returns either 0 (UDF error) or negative integer (API error)
; If UDF error then @error set as follows:
; 1 - hWnd not a valid handle
; 2 - No scroll size parameters
; 3 - Scrollbar creation or parameter setting failure
; If API error then @error and @extended as set by API error. Return values:
; -1 - GetDC failure
; -2 - GetTextMetricsW failure
; -3 - GetClientRect failure
; Remarks .......; The $fBefore parameter is needed because of the way Windows deals with scrollbars. When the
; scrollbars are generated, the visible part of the scrollable GUI resizes to fit the in the
; remaining (smaller) client area.
; - If the scrollbars are to be generated BEFORE any controls, the UDF shoudl be called with the
; $fBefore parameter set. The new client size of the aperture window is returned so that
; controls can then be created using these values.
; - If controls have been created before the scrollbars are generated then the UDF should be
; called without the $fBefore parameter. The correction factors returned can then be applied to
; any subsequent control positioning and sizing. This is necessary because of the positions and
; sizes of existing controls will be slightly altered as the scrollbars are generated and the GUI
; resized. Any controls created subsequently would therefore be slightly misplaced in relation
; to the existing ones unless the correction factors are used when positoning and sizing them.
; - If existing controls were fixed in place using GUICtrlResizing($GUI_DOCKALL) there is no need
; to apply the correction factors as the controls will not have moved with the GUI resizing.
; Author ........: Melba23 - with some code based on the WinAPI and GUIScrollBars includes
; Example........; Yes
;=====================================================================================================================
Func _GUIScrollbars_Generate($hWnd, $iH_Scroll = 0, $iV_Scroll = 0, $iH_Tight = 0, $iV_Tight = 0, $fBefore = False)
; Check if valid window handle
If Not IsHWnd($hWnd) Then Return SetError(1, 0, 0)
If $aSB_WindowInfo[0][0] <> "" Then
ReDim $aSB_WindowInfo[UBound($aSB_WindowInfo) + 1][10]
ReDim $aSB_WindowInfoEx[UBound($aSB_WindowInfo) + 1][5]
EndIf
; If no scroll sizes set, return error
If $iH_Scroll = 0 And $iV_Scroll = 0 Then Return SetError(2, 0, 0)
; Confirm Tight values
If $iH_Tight <> 0 Then $iH_Tight = 1
If $iV_Tight <> 0 Then $iV_Tight = 1
; Create structs
Local $tTEXTMETRIC = DllStructCreate($tagTEXTMETRIC)
Local $tSCROLLINFO = DllStructCreate($tagSCROLLINFO)
DllStructSetData($tSCROLLINFO, "cbSize", DllStructGetSize($tSCROLLINFO))
Local $tRect = DllStructCreate($tagRECT)
; Declare local variables
Local $iIndex = UBound($aSB_WindowInfo) - 1
Local $iError, $iExtended
; Save window handle
$aSB_WindowInfo[$iIndex][0] = $hWnd
; Determine text size
Local $hDC = DllCall("user32.dll", "handle", "GetDC", "hwnd", $hWnd)
If Not @error Then
$hDC = $hDC[0]
DllCall("gdi32.dll", "bool", "GetTextMetricsW", "handle", $hDC, "ptr", DllStructGetPtr($tTEXTMETRIC))
If @error Then
$iError = @error
$iExtended = @extended
DllCall("user32.dll", "int", "ReleaseDC", "hwnd", $hWnd, "handle", $hDC)
Return SetError($iError, $iExtended, -2)
EndIf
DllCall("user32.dll", "int", "ReleaseDC", "hwnd", $hWnd, "handle", $hDC)
Else
Return SetError(@error, @extended, -1)
EndIf
$aSB_WindowInfo[$iIndex][2] = DllStructGetData($tTEXTMETRIC, "tmAveCharWidth")
$aSB_WindowInfo[$iIndex][3] = DllStructGetData($tTEXTMETRIC, "tmHeight") + DllStructGetData($tTEXTMETRIC, "tmExternalLeading")
; Size aperture window without bars
DllCall("user32.dll", "bool", "GetClientRect", "hwnd", $hWnd, "ptr", DllStructGetPtr($tRect))
If @error Then Return SetError(@error, @extended, -3)
Local $iX_Client_Full = DllStructGetData($tRect, "Right") - DllStructGetData($tRect, "Left")
Local $iY_Client_Full = DllStructGetData($tRect, "Bottom") - DllStructGetData($tRect, "Top")
$aSB_WindowInfo[$iIndex][4] = $iX_Client_Full
$aSB_WindowInfo[$iIndex][5] = $iY_Client_Full
; Hide both scrollbars
_GUIScrollBars_ShowScrollBar($hWnd, $SB_BOTH, False)
; Show scrollbars and register scrollbar and mousewheel messages if required
If $iH_Scroll Then
_GUIScrollBars_ShowScrollBar($hWnd, $SB_HORZ)
GUIRegisterMsg($WM_HSCROLL, "_Scrollbars_WM_HSCROLL")
GUIRegisterMsg($WM_MOUSEHWHEEL, '_Scrollbars_WM_MOUSEHWHEEL')
EndIf
If $iV_Scroll Then
_GUIScrollBars_ShowScrollBar($hWnd, $SB_VERT)
GUIRegisterMsg($WM_VSCROLL, "_Scrollbars_WM_VSCROLL")
GUIRegisterMsg($WM_MOUSEWHEEL, "_Scrollbars_WM_MOUSEWHEEL")
EndIf
; Size aperture window with bars
DllCall("user32.dll", "bool", "GetClientRect", "hwnd", $hWnd, "ptr", DllStructGetPtr($tRect))
If @error Then Return SetError(@error, @extended, -3)
Local $iX_Client_Bar = DllStructGetData($tRect, "Right") - DllStructGetData($tRect, "Left")
Local $iY_Client_Bar = DllStructGetData($tRect, "Bottom") - DllStructGetData($tRect, "Top")
; If horizontal scrollbar is required
Local $iH_FullPage
If $iH_Scroll Then
If $fBefore Then
; Use actual aperture width
$aSB_WindowInfo[$iIndex][4] = $iX_Client_Bar
; Determine page size (aperture width / text width)
$iH_FullPage = Floor($aSB_WindowInfo[$iIndex][4] / $aSB_WindowInfo[$iIndex][2])
; Determine max size (scroll width / text width - tight)
$aSB_WindowInfo[$iIndex][6] = Floor($iH_Scroll / $aSB_WindowInfo[$iIndex][2]) - $iH_Tight
Else
; Use reduced aperture width only if other scrollbar exists
If $iV_Scroll Then $aSB_WindowInfo[$iIndex][4] = $iX_Client_Bar
; Determine page size (aperture width / text width)
$iH_FullPage = Floor($aSB_WindowInfo[$iIndex][4] / $aSB_WindowInfo[$iIndex][2])
; Determine max size (scroll width / text width * correction factor for V scrollbar if required - tight)
$aSB_WindowInfo[$iIndex][6] = Floor($iH_Scroll / $aSB_WindowInfo[$iIndex][2] * $aSB_WindowInfo[$iIndex][4] / $iX_Client_Full) - $iH_Tight
EndIf
Else
$aSB_WindowInfo[$iIndex][6] = 0
EndIf
; If vertical scrollbar required
Local $iV_FullPage
If $iV_Scroll Then
If $fBefore Then
; Use actual aperture height
$aSB_WindowInfo[$iIndex][5] = $iY_Client_Bar
; Determine page size (aperture width / text width)
$iV_FullPage = Floor($aSB_WindowInfo[$iIndex][5] / $aSB_WindowInfo[$iIndex][3])
; Determine max size (scroll width / text width - tight)
$aSB_WindowInfo[$iIndex][7] = Floor($iV_Scroll / $aSB_WindowInfo[$iIndex][3]) - $iV_Tight
Else
; Use reduced aperture width only if other scrollbar exists
If $iH_Scroll Then $aSB_WindowInfo[$iIndex][5] = $iY_Client_Bar
; Determine page size (aperture width / text width)
$iV_FullPage = Floor($aSB_WindowInfo[$iIndex][5] / $aSB_WindowInfo[$iIndex][3])
; Determine max size (scroll width / text width * correction factor for H scrollbar if required - tight)
$aSB_WindowInfo[$iIndex][7] = Floor($iV_Scroll / $aSB_WindowInfo[$iIndex][3] * $aSB_WindowInfo[$iIndex][5] / $iY_Client_Full) - $iV_Tight
EndIf
Else
$aSB_WindowInfo[$iIndex][7] = 0
EndIf
Local $aRet[4]
If $iV_Scroll Then
$aRet[0] = $iX_Client_Bar
Else
$aRet[0] = $iX_Client_Full
EndIf
If $iH_Scroll Then
$aRet[1] = $iY_Client_Bar
Else
$aRet[1] = $iY_Client_Full
EndIf
$aRet[2] = $iX_Client_Bar / $iX_Client_Full
$aRet[3] = $iY_Client_Bar / $iY_Client_Full
; Save extended window info
$aSB_WindowInfoEx[$iIndex][0] = $iH_Scroll
$aSB_WindowInfoEx[$iIndex][1] = $iV_Scroll
$aSB_WindowInfoEx[$iIndex][2] = $aRet[2]
$aSB_WindowInfoEx[$iIndex][3] = $aRet[3]
$aSB_WindowInfoEx[$iIndex][4] = $fBefore
Local $fSuccess = True
If _GUIScrollBars_ShowScrollBar($hWnd, $SB_BOTH, False) = False Then $fSuccess = False
If $iH_Scroll Then
If _GUIScrollBars_SetScrollInfoMax($hWnd, $SB_HORZ, $aSB_WindowInfo[$iIndex][6]) = False Then $fSuccess = False
_GUIScrollBars_SetScrollInfoPage($hWnd, $SB_HORZ, $iH_FullPage)
If @error Then $fSuccess = False
If _GUIScrollBars_ShowScrollBar($hWnd, $SB_HORZ, True) = False Then $fSuccess = False
Else
If _GUIScrollBars_ShowScrollBar($hWnd, $SB_HORZ, False) = False Then $fSuccess = False
EndIf
If $iV_Scroll Then
If _GUIScrollBars_SetScrollInfoMax($hWnd, $SB_VERT, $aSB_WindowInfo[$iIndex][7]) = False Then $fSuccess = False
_GUIScrollBars_SetScrollInfoPage($hWnd, $SB_VERT, $iV_FullPage)
If @error Then $fSuccess = False
If _GUIScrollBars_ShowScrollBar($hWnd, $SB_VERT, True) = False Then $fSuccess = False
Else
If _GUIScrollBars_ShowScrollBar($hWnd, $SB_VERT, False) = False Then $fSuccess = False
EndIf
If $fSuccess Then Return $aRet
Return SetError(3, 0, 0)
EndFunc ;==>_GUIScrollbars_Generate
; #FUNCTION# =========================================================================================================
; Name...........: _GUIScrollbars_Locate_Ctrl
; Description ...: Calculates coordinates to use to position controls after scrollbar creation
; Syntax.........: _GUIScrollbars_Locate_Ctrl ($hWnd, $iX, $iY)
; Parameters ....: $hWnd -> GUI to contain control
; $iX -> Horizontal coordinate relative to scrollable area
; $iY -> Vertical coordinate relative to scrollable area
; Requirement(s).: v3.3.6.0 or higher
; Return values .: Success - Returns a 2-element array:
; [0] = Horizontal coordinate
; [1] = Vertical coordinate
; Failure - Returns either 0 with @error set as follows:
; 1 - Invalid window handle
; 2 - Parameter error
; 3 - Window not found
; Remarks .......;
; Author ........: Melba23
; Example........; Yes
;=====================================================================================================================
Func _GUIScrollbars_Locate_Ctrl($hWnd, $iX, $iY)
; Check $hWnd
If Not IsHWnd($hWnd) Then Return SetError(1, 0, 0)
; Find window info
Local $iIndex = -1
For $i = 0 To UBound($aSB_WindowInfo) - 1
If $hWnd = $aSB_WindowInfo[$i][0] Then $iIndex = $i
Next
If $iIndex = -1 Then Return SetError(3, 0, 0)
; Check if location is within scrollable area of the window
If $iX < 0 Or $iX > $aSB_WindowInfoEx[$iIndex][0] Then Return SetError(2, 0, 0)
If $iY < 0 Or $iY > $aSB_WindowInfoEx[$iIndex][1] Then Return SetError(2, 0, 0)
; Calculate factored coordinates if needed
If Not $aSB_WindowInfoEx[$iIndex][4] Then
$iX *= $aSB_WindowInfoEx[$iIndex][2]
$iY *= $aSB_WindowInfoEx[$iIndex][3]
EndIf
; Correct for any scrollbar movement
$iX -= _GUIScrollBars_GetScrollInfoPos($hWnd, $SB_HORZ) * $aSB_WindowInfo[$iIndex][2]
$iY -= _GUIScrollBars_GetScrollInfoPos($hWnd, $SB_VERT) * $aSB_WindowInfo[$iIndex][3]
Local $aRet[2] = [$iX, $iY]
Return $aRet
EndFunc ;==>_GUIScrollbars_Locate_Ctrl
; #FUNCTION# =========================================================================================================
; Name...........: _GUIScrollbars_Scroll_Page
; Description ...: Scrolls scrollbars generated by _GUIScrollbars_Generate to min, max or page number
; Syntax.........: _GUIScrollbars_Scroll_Page ($hWnd, [$iH_Scroll_Pos = -1, [$iV_Scroll_Pos = -1]])
; Parameters ....: $hWnd -> GUI to contain scrollbars
; $iH_Scroll_Pos -> Horizontal age number:
; 0 = No change
; 1+ = Scroll to page number
; If page number is over max pages, then scroll to max position
; $iV_Scroll_Pos -> As $iH_Scroll_Pos for vertical pages
; Requirement(s).: v3.3.6.0 or higher
; Return values .: Success: @error = 0
; Failure: @error set as follows:
; 1 - hWnd not a valid handle
; 2 - Scrollbars not generated in that GUI
; 3 - Invalid position parameters
; Remarks .......;
; Author ........: Melba23
; Example........; Yes
;=====================================================================================================================
Func _GUIScrollbars_Scroll_Page($hWnd, $iH_Scroll_Pos = 0, $iV_Scroll_Pos = 0)
Local $iPos
; Check $hWnd
If Not IsHWnd($hWnd) Then Return SetError(1, 0, 0)
; Check $iH/V_Scroll_Pos
If Not (IsInt($iH_Scroll_Pos) And IsInt($iV_Scroll_Pos)) Then Return SetError(3, 0, 0)
; Find window info
Local $iIndex = -1
For $i = 0 To UBound($aSB_WindowInfo) - 1
If $hWnd = $aSB_WindowInfo[$i][0] Then $iIndex = $i
Next
If $iIndex = -1 Then Return SetError(2, 0, 0)
; Get page sizes
Local $iH_Page = Floor($aSB_WindowInfo[$iIndex][4] / $aSB_WindowInfo[$iIndex][2])
Local $iV_Page = Floor($aSB_WindowInfo[$iIndex][5] / $aSB_WindowInfo[$iIndex][3])
If $iH_Scroll_Pos > 0 Then
$iPos = ($iH_Scroll_Pos - 1) * $iH_Page
If $iPos > $aSB_WindowInfo[$iIndex][6] Then $iPos = $aSB_WindowInfo[$iIndex][6]
_GUIScrollBars_SetScrollInfoPos($hWnd, $SB_HORZ, $iPos)
EndIf
If $iV_Scroll_Pos > 0 Then
$iPos = ($iV_Scroll_Pos - 1) * $iV_Page
If $iPos > $aSB_WindowInfo[$iIndex][7] Then $iPos = $aSB_WindowInfo[$iIndex][7]
_GUIScrollBars_SetScrollInfoPos($hWnd, $SB_VERT, $iPos)
EndIf
EndFunc ;==>_GUIScrollbars_Scroll_Page
; #FUNCTION# =========================================================================================================
; Name...........: _GUIScrollbars_Scroll_Pos
; Description ...: Scrolls scrollbars generated by _GUIScrollbars_Generate to pos
; Syntax.........: _GUIScrollbars_Scroll_Page ($hWnd, [$iH_Scroll_Pos = -1, [$iV_Scroll_Pos = -1]])
; Parameters ....: $hWnd -> GUI to contain scrollbars
; $iH_Scroll_Pos -> Horizontal age number:
; 0 = No change
; 1+ = Position
; $iV_Scroll_Pos -> As $iH_Scroll_Pos for vertical pos
; Requirement(s).: v3.3.6.0 or higher
; Return values .: Success: @error = 0
; Failure: @error set as follows:
; 1 - hWnd not a valid handle
; 2 - Scrollbars not generated in that GUI
; 3 - Invalid position parameters
; Remarks .......;
; Author ........: Melba23 / Veronesi
; Example........; Yes
;=====================================================================================================================
Func _GUIScrollbars_Scroll_Pos($hWnd, $iH_Scroll_Pos = 0, $iV_Scroll_Pos = 0)
Local $iPos
; Check $hWnd
If Not IsHWnd($hWnd) Then Return SetError(1, 0, 0)
; Find window info
Local $iIndex = -1
For $i = 0 To UBound($aSB_WindowInfo) - 1
If $hWnd = $aSB_WindowInfo[$i][0] Then $iIndex = $i
Next
If $iIndex = -1 Then Return SetError(2, 0, 0)
If $iH_Scroll_Pos > 0 Then
$iPos = ($iH_Scroll_Pos - 1)
If $iPos > $aSB_WindowInfo[$iIndex][6] Then $iPos = $aSB_WindowInfo[$iIndex][6]
_GUIScrollBars_SetScrollInfoPos($hWnd, $SB_HORZ, $iPos)
EndIf
If $iV_Scroll_Pos > 0 Then
$iPos = ($iV_Scroll_Pos - 1)
If $iPos > $aSB_WindowInfo[$iIndex][7] Then $iPos = $aSB_WindowInfo[$iIndex][7]
_GUIScrollBars_SetScrollInfoPos($hWnd, $SB_VERT, $iPos)
EndIf
EndFunc ;==>_GUIScrollbars_Scroll_Pos
; #FUNCTION# =========================================================================================================
; Name...........: _GUIScrollbars_Minimize
; Description ...: Stores scrollbar positions on GUI minimize
; Syntax.........: _GUIScrollbars_Minimize($hWnd)
; Parameters ....: $hWnd -> GUI containing scrollbars
; Requirement(s).: v3.3.6.0 or higher
; Return values .: Success: @error = 0
; Failure: @error set as follows:
; 1 - hWnd not a valid handle
; 2 - Scrollbars not generated in that GUI
; Remarks .......;
; Author ........: Melba23, based on code from rover and czardas
; Example........; Yes
;=====================================================================================================================
Func _GUIScrollbars_Minimize($hWnd)
; Check $hWnd
If Not IsHWnd($hWnd) Then Return SetError(1, 0, 0)
; Find window info
Local $iIndex = -1
For $i = 0 To UBound($aSB_WindowInfo) - 1
If $hWnd = $aSB_WindowInfo[$i][0] Then $iIndex = $i
Next
If $iIndex = -1 Then Return SetError(1, 0, 0)
; Show both scrollbars
_GUIScrollBars_ShowScrollBar($hWnd, $SB_BOTH, True)
; Get vertical current position and move to top
$aSB_WindowInfo[$iIndex][8] = _GUIScrollBars_GetScrollPos($hWnd, $SB_VERT)
_GUIScrollBars_SetScrollInfoPos($hWnd, $SB_VERT, 0)
; Get horizontal current position and move to left
$aSB_WindowInfo[$iIndex][9] = _GUIScrollBars_GetScrollPos($hWnd, $SB_HORZ)
_GUIScrollBars_SetScrollInfoPos($hWnd, $SB_HORZ, 0)
EndFunc
; #FUNCTION# =========================================================================================================
; Name...........: _GUIScrollbars_Restore
; Description ...: Restores scrollbar positions on GUI restore
; Syntax.........: _GUIScrollbars_Restore($hWnd[, $fVert = True[, $fHorz = True]])
; Parameters ....: $hWnd -> GUI containing scrollbars
; $fVert -> True (default) = vertical scrollbar visible; False = vertical scrollbar not visible
; $fHorz -> True (default) = horizontal scrollbar visible; False = horzontal scrollbar not visible
; Requirement(s).: v3.3.6.0 or higher
; Return values .: Success: @error = 0
; Failure: @error set as follows:
; 1 - hWnd not a valid handle
; 2 - Scrollbars not generated in that GUI
; Remarks .......;
; Author ........: Melba23, based on code from rover and czardas
; Example........; Yes
;=====================================================================================================================
Func _GUIScrollbars_Restore($hWnd, $fVert = True, $fHorz = True)
; Check $hWnd
If Not IsHWnd($hWnd) Then Return SetError(1, 0, 0)
; Find window info
Local $iIndex = -1
For $i = 0 To UBound($aSB_WindowInfo) - 1
If $hWnd = $aSB_WindowInfo[$i][0] Then $iIndex = $i
Next
If $iIndex = -1 Then Return SetError(2, 0, 0)
; Rehide unwanted scrollbars
If Not $fVert Then
_GUIScrollBars_ShowScrollBar($hWnd, $SB_VERT, False)
EndIf
If Not $fHorz Then
_GUIScrollBars_ShowScrollBar($hWnd, $SB_HORZ, False)
EndIf
; Reset visible scrollbars to position on minimize
If $fVert Then
_GUIScrollBars_SetScrollInfoPos($hWnd, $SB_VERT, $aSB_WindowInfo[$iIndex][8])
EndIf
If $fHorz Then
_GUIScrollBars_SetScrollInfoPos($hWnd, $SB_HORZ, $aSB_WindowInfo[$iIndex][9])
EndIf
EndFunc
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _Scrollbars_WM_VSCROLL
; Description ...: GUIRegisterMsg procedure for vertical scrollbar
; Syntax ........: _Scrollbars_WM_VSCROLL($hWnd, $iMsg, $wParam, $lParam)
; Return values .: None
; Author ........: Taken from AutoIt Help file
; Remarks .......: This function is used internally by _Scrollbars_Generate
; ===============================================================================================================================
Func _Scrollbars_WM_VSCROLL($hWnd, $iMsg, $wParam, $lParam)
#forceref $iMsg, $wParam, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $iIndex = -1, $yChar, $yPos
Local $Min, $Max, $Page, $Pos, $TrackPos
For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$iIndex = $x
$yChar = $aSB_WindowInfo[$iIndex][3]
ExitLoop
EndIf
Next
If $iIndex = -1 Then Return 0
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
$Min = DllStructGetData($tSCROLLINFO, "nMin")
$Max = DllStructGetData($tSCROLLINFO, "nMax")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
$yPos = DllStructGetData($tSCROLLINFO, "nPos")
$Pos = $yPos
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
Switch $nScrollCode
Case $SB_TOP
DllStructSetData($tSCROLLINFO, "nPos", $Min)
Case $SB_BOTTOM
DllStructSetData($tSCROLLINFO, "nPos", $Max)
Case $SB_LINEUP
DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)
Case $SB_LINEDOWN
DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)
Case $SB_PAGEUP
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)
Case $SB_PAGEDOWN
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)
Case $SB_THUMBTRACK
DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
EndSwitch
DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
$Pos = DllStructGetData($tSCROLLINFO, "nPos")
If ($Pos <> $yPos) Then
_GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))
$yPos = $Pos
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>_Scrollbars_WM_VSCROLL
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _Scrollbars_WM_HSCROLL
; Description ...: GUIRegisterMsg procedure for horizontal scrollbar
; Syntax ........: _Scrollbars_WM_HSCROLL($hWnd, $Msg, $wParam, $lParam)
; Return values .: None
; Author ........: Taken from AutoIt Help file
; Remarks .......: This function is used internally by _Scrollbars_Generate
; ===============================================================================================================================
Func _Scrollbars_WM_HSCROLL($hWnd, $iMsg, $wParam, $lParam)
#forceref $iMsg, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $iIndex = -1, $xChar, $xPos
Local $Page, $Pos, $TrackPos
For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$iIndex = $x
$xChar = $aSB_WindowInfo[$iIndex][2]
ExitLoop
EndIf
Next
If $iIndex = -1 Then Return 0
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_HORZ)
$Page = DllStructGetData($tSCROLLINFO, "nPage")
$xPos = DllStructGetData($tSCROLLINFO, "nPos")
$Pos = $xPos
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
Switch $nScrollCode
Case $SB_LINELEFT
DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)
Case $SB_LINERIGHT
DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)
Case $SB_PAGELEFT
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)
Case $SB_PAGERIGHT
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)
Case $SB_THUMBTRACK
DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
EndSwitch
DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
$Pos = DllStructGetData($tSCROLLINFO, "nPos")
If ($Pos <> $xPos) Then _GUIScrollBars_ScrollWindow($hWnd, $xChar * ($xPos - $Pos), 0)
Return $GUI_RUNDEFMSG
EndFunc ;==>_Scrollbars_WM_HSCROLL
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _Scrollbars_WM_MOUSEWHEEL
; Description ...: GUIRegisterMsg procedure for vertical mouse wheel scroll
; Syntax ........: _Scrollbars_WM_MOUSEWHEEL($hWnd, $iMsg, $wParam, $lParam)
; Return values .: None
; Author ........: Based on code from MrCreator & Malkey
; Remarks .......: This function is used internally by _Scrollbars_Generate
; ===============================================================================================================================
Func _Scrollbars_WM_MOUSEWHEEL($hWnd, $iMsg, $wParam, $lParam)
#forceref $hWnd, $iMsg, $lParam
Local $iDirn, $iDelta = BitShift($wParam, 16) ; Mouse wheel movement
If BitAND($wParam, 0x0000FFFF) Then ; If Ctrl or Shft pressed move Horz scrollbar
$iDirn = $SB_LINERIGHT
If $iDelta > 0 Then $iDirn = $SB_LINELEFT
For $i = 1 To 7
_SendMessage($hWnd, $WM_HSCROLL, $iDirn)
Next
Else ; Move Vert scrollbar
$iDirn = $SB_LINEDOWN
If $iDelta > 0 Then $iDirn = $SB_LINEUP
_SendMessage($hWnd, $WM_VSCROLL, $iDirn)
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>_Scrollbars_WM_MOUSEWHEEL
; #INTERNAL_USE_ONLY#============================================================================================================
; Name...........: _Scrollbars_WM_MOUSEHWHEEL
; Description ...: GUIRegisterMsg procedure for horizontal mouse wheel scroll
; Syntax ........: _Scrollbars_WM_MOUSEWHEEL($hWnd, $iMsg, $wParam, $lParam)
; Return values .: None
; Author ........: Based on code from MSDN, MrCreator & Malkey
; Remarks .......: This function is used internally by _Scrollbars_Generate
; ===============================================================================================================================
Func _Scrollbars_WM_MOUSEHWHEEL($hWnd, $iMsg, $wParam, $lParam)
#forceref $hWnd, $iMsg, $lParam
Local $iDirn = $SB_LINERIGHT
If BitShift($wParam, 16) > 0 Then $iDirn = $SB_LINELEFT ; Mouse wheel movement
For $i = 1 To 7
_SendMessage($hWnd, $WM_HSCROLL, $iDirn)
Next
Return $GUI_RUNDEFMSG
EndFunc ;==>_Scrollbars_WM_MOUSEHWHEEL

#include <GUIConstantsEx.au3>
#include <WinAPI.au3>
#include <Array.au3>
#include "GUIScrollbars_Ex.au3"
Opt("GUIOnEventMode", 1)
Global $fParimaryDown = False, $iXMouse = 0, $iCurrentScrollPos = 0
Global $hHook
$hGUI = GUICreate("Test", 1920, 700, 0, 0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_PrimaryDown")
GUISetOnEvent($GUI_EVENT_PRIMARYUP, "_PrimaryUp")
GUISetOnEvent($GUI_EVENT_MOUSEMOVE, "_Move")
_SpecialEventMouseClick()
GUISetBkColor(0xFF0000, $hGUI)
GUICtrlCreateLabel("", 0, 0, 1920, 700)
GUICtrlSetBkColor(-1, 0x00FF00)
Global $hbutton = GUICtrlCreateButton("test", 100, 100, 50, 50)

GUISetState()
_GUIScrollbars_Generate($hGUI, 5000, 0)

While 1
Sleep(100)
WEnd
Func _SpecialEventMouseClick()
$hStub_MouseProc = DllCallbackRegister("_MouseProc", "long", "int;wparam;lparam")
$hmod = _WinAPI_GetModuleHandle(0)
$hHook = _WinAPI_SetWindowsHookEx($WH_MOUSE_LL, DllCallbackGetPtr($hStub_MouseProc), $hmod)
EndFunc ;==>_SpecialEventMouseClick
Func _MouseProc($nCode, $wParam, $lParam)
Local $HC_ACTION = 0
Local $event, $info, $iX, $iY, $mouseData = "", $wheelData = "", $wheelCount
$info = DllStructCreate("int X;int Y;dword mouseData;dword flags;dword time;ulong_ptr dwExtraInfo", $lParam)
$iX = DllStructGetData($info, 1)
$iY = DllStructGetData($info, 2)
$mouseData = DllStructGetData($info, 3)
If $nCode < 0 Then Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
If $nCode = $HC_ACTION Then
Switch $wParam
Case $WM_MOUSEMOVE
;Mouse Move
Case $WM_MOUSEWHEEL
;Wheel
If _WinAPI_HiWord($mouseData) > 0 Then
;Forward
Else
;Backward
EndIf
$wheelCount = _WinAPI_HiWord($mouseData) / 120
Case $WM_LBUTTONDOWN
;Left Mouse Down
Local $Cursor = GUIGetCursorInfo()
If $Cursor[4] = $hbutton Then _Button()
;~ Return -1 ; Return -1 würde die Nachricht verwerfen! Wirkt sich auf das System aus, wie wenn gar kein Left down gekommen wäre!
Case $WM_LBUTTONUP
;Left Mouse Up
Case $WM_RBUTTONDOWN
;Right Mouse Down
Case $WM_RBUTTONUP
;Right Mouse Up
Case $WM_MBUTTONDOWN
;Wheel Down
Case $WM_MBUTTONUP
;Wheel Up
EndSwitch
EndIf
;~ ConsoleWrite($iX & ', ' & $iY & ' ' & $event & $wheelData & ' count: ' & $wheelCount & @CRLF)
Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndFunc ;==>_MouseProc
Func _Button()
ConsoleWrite("Button" & @CRLF)
EndFunc
Func _PrimaryDown()
$fParimaryDown = True
$iXMouse = MouseGetPos(0)
Local $tagSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hGUI, $SB_HORZ)
$iCurrentScrollPos = DllStructGetData($tagSCROLLINFO, 7)
EndFunc
Func _PrimaryUp()
$fParimaryDown = False
EndFunc
Func _Move()
If $fParimaryDown Then
Local $iDeltaMove = MouseGetPos(0) - $iXMouse
Local $iNewPos = $iCurrentScrollPos - ($iDeltaMove / 9)
Local $tagSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hGUI, $SB_HORZ)
If $iNewPos < DllStructGetData($tagSCROLLINFO, 3) Then $iNewPos = DllStructGetData($tagSCROLLINFO, 3) + 1
If $iNewPos > DllStructGetData($tagSCROLLINFO, 4) Then $iNewPos = DllStructGetData($tagSCROLLINFO, 4) - 1
_GUIScrollbars_Scroll_Pos($hGUI, $iNewPos, 0)
EndIf
EndFunc
Func _Exit()
Exit
EndFunc