Scrollbars Made Easy - New version 27 Jan 22

ScriptJunky · June 13, 2018

I found a pretty fatal bug in this UDF. It is present in the examples provided in the .zip and is present anytime I use this UDF in my own scripts.
To show you how to re-create this bug, just follow these steps exactly, using one of the examples provided with the UDF:

1) run the script "GUIScrollbars_Size_Example_2.au3"
2) scroll to the bottom
3) maximize the window
4) scroll up

At this point the scrollbars re-generate as if I was scrolled all the way up, but the vertical scroll bar is still at the bottom, so now, the bottom part of the previously scrollable area is cutoff, and when you scroll up, there is an equally sized area of blank space at the top. (in the screenshot I added more labels than the default to show the extent of the issue)

Melba23 · June 13, 2018

ScriptJunky,

Add a MAXIMIZE event to call the _GUIScrollbars_Restore function - that should solve the problem:

Case $GUI_EVENT_RESTORE, $GUI_EVENT_MAXIMIZE
    _GUIScrollbars_Restore($hGUI, True, False)

M23

Edited June 13, 2018 by Melba23
Fixed code tags

ScriptJunky · June 13, 2018

2 hours ago, Melba23 said:
ScriptJunky,

Add a MAXIMIZE event to call the _GUIScrollbars_Restore function - that should solve the problem:
Case $GUI_EVENT_RESTORE, $GUI_EVENT_MAXIMIZE
    _GUIScrollbars_Restore($hGUI, True, False)
M23

I tried this but I didn't notice the optional parameters, I was just using the winhandle. What exactly do the second and third parameters define? (sorry im not at my desk, otherwise I would figure it out myself 🤗)

Melba23 · June 13, 2018

ScriptJunky,

Neither was I - which is why I can not properly test my suggestion. The parameters are:

; 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

M23

ScriptJunky · June 13, 2018

6 hours ago, Melba23 said:
ScriptJunky,

Add a MAXIMIZE event to call the _GUIScrollbars_Restore function - that should solve the problem:
Case $GUI_EVENT_RESTORE, $GUI_EVENT_MAXIMIZE
    _GUIScrollbars_Restore($hGUI, True, False)
M23

Unfortunately, this solution, just changes the problem. It corrects the extra space at the top, but the bottom is still cutoff substantially. In the following screenshot I added 99 labels, and after scrolling down then maximizing, the area is cutoff at the 33rd label, so 2/3rd's are missing somewhere.

Melba23 · June 13, 2018

ScriptJunky,

Just got back onto my machine and I see the same thing - it is because the MAXIMIZE resets all the control sizes and the size of the aperture to scroll. So we need to do a bit of calculation - this seems to work:

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

#include "GUIScrollbars_Size.au3"

Global $ahLabels[100] = [0], $iCount = 10

$hGUI = GUICreate("Test", 300, 300, -1, -1, $WS_OVERLAPPEDWINDOW)

GUISetState()

$aRet = _GUIScrollbars_Size(0, 550, 300, 300)

GUIRegisterMsg($WM_VSCROLL, "_Scrollbars_WM_VSCROLL")

_GUIScrollBars_Init($hGUI)
_GUIScrollBars_ShowScrollBar($hGUI, $SB_VERT, True)
_GUIScrollBars_ShowScrollBar($hGUI, $SB_HORZ, False)
_GUIScrollBars_SetScrollInfoPage($hGUI, $SB_VERT, $aRet[2])
_GUIScrollBars_SetScrollInfoMax($hGUI, $SB_VERT, $aRet[3])

$hButton = GUICtrlCreateButton("Change number of labels", 10, 10, 265, 30)

_Draw_Labels(10)

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_RESTORE
            _GUIScrollbars_Restore($hGUI, True, False)
        Case $GUI_EVENT_MAXIMIZE
            $aCtrlPos_1 = ControlGetPos($hGUI, "", $ahLabels[1])
            $aCtrlPos_2 = ControlGetPos($hGUI, "", $ahLabels[2])
            $aClientSize = WinGetClientSize($hGUI)
            $aRet = _GUIScrollbars_Size(0, ($iCount + 1) * ($aCtrlPos_2[1] - $aCtrlPos_1[1]), $aClientSize[0], $aClientSize[1])
            _GUIScrollBars_SetScrollInfoPage($hGUI, $SB_VERT, $aRet[2])
            _GUIScrollBars_SetScrollInfoMax($hGUI, $SB_VERT, $aRet[3])
        Case $hButton
            Do
                $iCount = Number(InputBox("Resize scroll area", "Select number of labels to display (min 6)", "", "", 240, 130))
            Until $iCount > 5

             _Draw_labels($iCount)
            $aRet = _GUIScrollbars_Size(0, ($iCount + 1) * 50, 300, 300)
            _GUIScrollBars_SetScrollInfoPage($hGUI, $SB_VERT, $aRet[2])
            _GUIScrollBars_SetScrollInfoMax($hGUI, $SB_VERT, $aRet[3])
    EndSwitch

WEnd

Func _Draw_labels($iCount)

    GUISwitch($hGUI)

    If $iCount > $ahLabels[0] Then
        For $i = $ahLabels[0] + 1 To $iCount
            $ahLabels[$i] = GUICtrlCreateLabel($i, 10, $i * 50, 265, 40)
            GUICtrlSetBkColor(-1, 0xFF8080)
            GUICtrlSetFont(-1, 18)
        Next
    Else
        For $i = $iCount + 1 To $ahLabels[0]
            GUICtrlDelete($ahLabels[$i])
        Next
    EndIf
    $ahLabels[0] = $iCount

EndFunc

Func _Scrollbars_WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)

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

    For $x = 0 To UBound($__g_aSB_WindowInfo) - 1
        If $__g_aSB_WindowInfo[$x][0] = $hWnd Then
            $iIndex = $x
            $yChar = $__g_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

That works for me - over to you to break it again!

M23

ScriptJunky · June 13, 2018

It will be my pleasure Ill give it a go and see if it works for me. Thank you so much for your assistance. Sadly, I have been scripting in autoit since about 2003-ish (was one of the first languages that I ever learned) and I've never taken the time to properly learn scrollbars. I never even used them until this UDF was release way back when, and even now in 2018 its still my go to for scroll bars . Thanks again!

ScriptJunky · June 13, 2018

20 minutes ago, Melba23 said:

That works for me - over to you to break it again!

Mission Accomplished! I have succeeded in breaking it again.

Ok so this time, in the screenshot, i added 99 labels, scrolled down to the bottom, maximized, and this was the result:

(I would also like to note that, after it glitched like this, I minimized it then restored it back to its maximized state and it fixed itself. Furthermore I would like to note that I am a magnet for bugs :sweating: )

ScriptJunky · June 13, 2018

Oh I forgot to mention, in this trial, after the maximizing part, I was only able to scroll to the 76th label, and there was a bunch of empty space above where the screenshot was taken.

ScriptJunky · June 13, 2018

Sorry I keep posting so much, but in addition to the last 2 post, I re-created the error, then un-maximized it after maximizing then the aperture increases in size like 3-fold. Hope that helps somehow in figuring out the problem

ScriptJunky · June 14, 2018

I would like to suggest an addition to this UDF. I noticed an issue where if you specify there to not be any horizontal width to the aperture, or have a smaller width aperture than the gui, then when you create the scrollbars, it does not show a horizontal bar, but after minimizing using _GUIScrollbars_Minimize() and then restoring with _GUIScrollbars_Restore() it, by default, adds in the horizontal scrollbar (with no scroll range) unless you specify the third parameter of _GUIScrollbars_Restore() as False (and the same goes for vertical scrolling) but maybe perhaps adding in an internal check to see if there is a horizontal/vertical scroll to begin with, maybe something like this:

Func _GUIScrollbars_Restore($hWnd, $fVert = True , $fHorz = True)

; Get client area dimensions $hWnd
Local $a = DllStructCreate("struct;long;long;long;long;endstruct")
Local $b=DllCall("user32.dll","bool","GetClientRect","hwnd",$hWnd,"struct*",$a) 
Local $c[2]=[DllStructGetData($b,3)-DllStructGetData($b,1),DllStructGetData($b,4)-DllStructGetData($b,2)] 

; If the aperture dimensions are smaller than the client dimensions, disable the corresponding dimension's scrollbar
Local $aAperture[2] = [$iH_Scroll, $iV_Scroll] ; replace this with values from _GUIScrollbars_Generate() or wherever they're stored
If $aAperture[0] <= $c[0] then $fHorz = False ; possibly subtract the width of the vertical scroll bar using the value from GetSystemMetrics ??
If $aAperture[1] <= $c[1] then $fVert = False ; possibly subtract the height of the horizontal scroll bar using the value from GetSystemMetrics ??

As for now, without editing the UDF, I made a workaround for this issue:

Local $aV=DllCall("user32.dll","bool","GetScrollRange","hwnd",$hwnd,"int",1,"int*",0,"int*",0),$v=1
Local $aH=DllCall("user32.dll","bool","GetScrollRange","hwnd",$hwnd,"int",0,"int*",0,"int*",0),$h=1
If $aV[4]=100 Then $v=0
If $aH[4]=100 Then $h=0
_GUIScrollbars_Restore($hwnd,$v,$h)

Anyways, regarding the last 3 posts, I have decided just to remove the ability to maximize from my script until I can figure out whats going on :blink:

Edited June 14, 2018 by ScriptJunky

TJF · June 30, 2018

I am generating a GUI (Scroll-Area) and while reading in a music-biblio the scroll-area fills itself with many thumbnails of the music-albums. While this filling of the scroll-area the scroll-area must be disabled. Otherwise, while srolling, there would be empty white areas ... At the start of the procedure I want to disable the scroll-area (until it is finished) with

GUISetState(@SW_DISABLE, $hGUI)

That disables only the scrollbar, but not the mouse-scroll behaviour inside the sroll-area. What would you suggest?

Here a modified file:

#include <GUIConstantsEx.au3>
#include "GUIScrollbars_Ex.au3"

; Create GUI with red background
$hGUI = GUICreate("Test", 500, 500)
GUISetBkColor(0xFF0000, $hGUI)
; To get cursor keys to scroll GUI, create controls AFTER GUISetState
GUISetState()

; Create labels to show scrolling
GUICtrlCreateLabel("", 0, 0, 500, 500)
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlCreateLabel("", 500, 500, 500, 500)
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlCreateLabel("", 0, 500, 500, 500)
GUICtrlSetBkColor(-1, 0x0000FF)
GUICtrlCreateLabel("", 500, 0, 500, 500)
GUICtrlSetBkColor(-1, 0x0000FF)

GUICtrlCreateLabel("", 990, 990, 10, 10)
GUICtrlSetBkColor(-1, 0)

; Generate scrollbars - Yes, this is all you need to do!!!!!!!
_GUIScrollbars_Generate($hGUI, 1000, 1000)
GUISetState(@SW_DISABLE, $hGUI)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_RESTORE
            _GUIScrollbars_Restore($hGUI)
        Case $GUI_EVENT_MINIMIZE
            _GUIScrollbars_Minimize($hGUI)
    EndSwitch
WEnd

TJF · June 30, 2018

Ok. Better way than ...?

GUIRegisterMsg($WM_MOUSEWHEEL, "")

and

GUIRegisterMsg($WM_MOUSEWHEEL, "_Scrollbars_WM_MOUSEWHEEL")

Hernanizero · July 19, 2018

Awsome UDF!!! Congratulations Melba. Can you tell me if there is a Help with all the commands?

Im trying to scroll with a mouse whell after create another contol but i did not works. Even if i put "_GUIScrollbars_Generate($GUI, 1, 1000)" after creates a control like a label

Thankyou!!

Edited July 19, 2018 by Hernanizero

Melba23 · July 21, 2018

Hernanizero,

Please post a script which demonstrates the problem - otherwise I cannot help!

M23

tatane · May 14, 2019

Hi Melba23,

I'm playing with your nice UDF and I don't understand the behaviour of _Gui_ScrollBar_Ex_Example_5.

When the GUI is at full size, the scrollbars are hidden (normal behaviour) but I can still scroll down or scroll to the right. Am I missing something ?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <GUIScrollbars_Ex.au3>

Global $iGUI_1_MinX = 300, $iGUI_1_MinY = 200
Global $iGUI_1_MaxX, $iGUI_1_MaxY
;~ Global $diviseur = 1

Local $iMax_Scroll = 600

Local $hGUI = GUICreate("Resizeable Test ", 400, 400, Default, Default, $WS_SIZEBOX)
GUISetBkColor(0xCCFFCC)

Local $cStart = GUICtrlCreateDummy()
;~ GUICtrlCreateLabel("", 0, 0, 500, 500)
;~ GUICtrlSetBkColor(-1, 0xFFCCCC)
GUICtrlCreateLabel("Use me to check that the scrolled position" & @CRLF & "is maintained if possible during resizing", 50, 50, 300, 50)
GUICtrlSetBkColor(-1, 0xCCCCFF)
GUICtrlCreateLabel("", 0, 0, 10, 10)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlCreateLabel("", 0, 590, 10, 10)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlCreateLabel("", 590, 0, 10, 10)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlCreateLabel("", 590, 590, 10, 10)
GUICtrlSetBkColor(-1, 0xFF0000)
Local $cEnd = GUICtrlCreateDummy()
For $i = $cStart To $cEnd
    GUICtrlSetResizing($i, $GUI_DOCKALL)
Next
;~ $b_testminus = GUICtrlCreateButton("zoom -", 5, 5)
;~ $b_testplus = GUICtrlCreateButton("zoom +", 55, 5)

; Generate initial scrollbars - required scrollbar handlers registered
_GUIScrollbars_Generate($hGUI, $iMax_Scroll, $iMax_Scroll)
; Intialise for resizing
Local $aMaxSize = _GUIScrollbars_ReSizer($hGUI, $iMax_Scroll, $iMax_Scroll, False)

GUISetState(@SW_SHOW)

$iGUI_1_MaxX = $aMaxSize[0]
$iGUI_1_MaxY = $aMaxSize[1]
GUIRegisterMsg($WM_GETMINMAXINFO, "_WM_GETMINMAXINFO")


While 1
    $nmsg = GUIGetMsg()
    Switch $nmsg
;~      Case $b_testplus
;~          $diviseur = $diviseur * 2
;~          ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $diviseur = ' & $diviseur & @CRLF) ;### Debug Console
;~          $a_scroll = _GUIScrollbars_Generate($hGUI, $iMax_Scroll*$diviseur, $iMax_Scroll*$diviseur)
;~          ConsoleWrite("Aperture width="&$a_scroll[0]&@CRLF)
;~          ConsoleWrite("Aperture height="&$a_scroll[1]&@CRLF)
;~          ConsoleWrite("Width correction factor="&$a_scroll[2]&@CRLF)
;~          ConsoleWrite("Height correction factor="&$a_scroll[3]&@CRLF)

;~      Case $b_testminus
;~          If $diviseur > 1 Then
;~              $diviseur = $diviseur / 2
;~              ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $diviseur = ' & $diviseur & @CRLF) ;### Debug Console
;~              _GUIScrollbars_Generate($hGUI, $iMax_Scroll/$diviseur, $iMax_Scroll/$diviseur)
;~              ConsoleWrite("Aperture width="&$a_scroll[0]&@CRLF)
;~              ConsoleWrite("Aperture height="&$a_scroll[1]&@CRLF)
;~              ConsoleWrite("Width correction factor="&$a_scroll[2]&@CRLF)
;~              ConsoleWrite("Height correction factor="&$a_scroll[3]&@CRLF)
;~          EndIf

        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    Sleep(10)
WEnd

GUIRegisterMsg($WM_GETMINMAXINFO, "")
GUIDelete($hGUI)


Func _WM_GETMINMAXINFO($hWnd, $iMsg, $wParam, $lParam)
    Local $tagMaxinfo = DllStructCreate("int;int;int;int;int;int;int;int;int;int", $lParam)
    DllStructSetData($tagMaxinfo, 7, $iGUI_1_MinX)  ; min X
    DllStructSetData($tagMaxinfo, 8, $iGUI_1_MinY)   ; min Y
    DllStructSetData($tagMaxinfo, 9, $iGUI_1_MaxX) ; max X
    DllStructSetData($tagMaxinfo, 10, $iGUI_1_MaxY) ; max Y
    Return 0
EndFunc   ;==>_WM_GETMINMAXINFO

Thanks for your time

Melba23 · May 14, 2019

tatane,

I see what you mean - I will look into it.

M23

Edit: I can see what is happening - Windows is doing its usual trick of resetting all the internal scrollbar size values when a GUI is resized. So although the UDF checks if scrollbars are required and hides them if necessary, Windows still allows the mousewheel to scroll to the Windows calculated new aperture size. Scrollbars for resizeable GUIs are by far the most complicated things I have ever tried to program in AutoIt - they make ListViews look easy by comparison - as Windows does so much "behind the scenes" when the GUI size alters. If you partly resize the GUI in your example script you can see that the mousewheel already allows you to "over-scroll" - so it is not just a maximum size issue. I will investigate further, but I fear it might well be beyond me to fix this.

Edited May 14, 2019 by Melba23

tatane · May 14, 2019

Ok. Do your best

Maybe I will find a trick to achieve what I'm looking for.

Thank you.

Melba23 · May 14, 2019

tatane,

Try this Beta code which prevents the mouse from scrolling when the resizable GUI is at its maximum size:

M23

Edited June 14, 2020 by Melba23
Beta code removed

tatane · May 14, 2019

Good job, It's working ! Thanks a lot

I've found another strange behaviour if I add $WS_MAXIMIZEBOX style to the GUI. If you just Run the example and maximized the GUI, it takes the max width and height defined in _WM_GETMINMAXINFO() but the scrollbars are still shown and we can still scroll.

EDIT : I've added this case and it seems to solve the problem. I don't know if this is the right way to do this

Case $GUI_EVENT_MAXIMIZE
            _GUIScrollbars_Restore($hGUI, False, False)

EDIT 2 : Could you have a look at the commented stuff please. I'm trying to make a zoom in/out but I can't get it to work properly

Edited May 14, 2019 by tatane

Sign In

Scrollbars Made Easy - New version 27 Jan 22

Recommended Posts

ScriptJunky

Top Posters In This Topic

Top Posters In This Topic

Popular Posts

Melba23

Melba23

Melba23

Posted Images

Melba23

ScriptJunky

Melba23

ScriptJunky

Melba23

ScriptJunky

ScriptJunky

ScriptJunky

ScriptJunky

ScriptJunky

TJF

TJF

Hernanizero

Melba23

tatane

Melba23

tatane

Melba23

tatane

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta