GUIPager.au3

[Mat]

This control is useful in situations where a window does not have enough area to display a child window. For example, if your application has a toolbar that is not wide enough to show all of its items, you can assign the toolbar to a pager control and users will be able to scroll to the left or right to access all of the items. You can also create pager controls that scroll vertically.

Functions:

  Reveal hidden contents

• _GUICtrlPager_Add
• _GUICtrlPager_Create
• _GUICtrlPager_Destroy
• _GUICtrlPager_ForwardMouse
• _GUICtrlPager_IsHorz
• _GUICtrlPager_IsVert
• _GUICtrlPager_GetBKColor
• _GUICtrlPager_GetBorder
• _GUICtrlPager_GetButtonSize
• _GUICtrlPager_GetButtonState
• _GUICtrlPager_GetDropTarget
• _GUICtrlPager_GetPos
• _GUICtrlPager_ReCalcSize
• _GUICtrlPager_RegisterAutoHandler
• _GUICtrlPager_SetBKColor
• _GUICtrlPager_SetBorder
• _GUICtrlPager_SetButtonSize
• _GUICtrlPager_SetChild
• _GUICtrlPager_SetPos

Download link

Downloads so far is shown on the download page.

The download zip contains:

• GUIPager.au3
• Examples
• Planets Example (As shown in screen shot)

Mat

Edited March 12, 2010 by Mat

[AlmarM]

Looks great, its a bit late for me to test now, so i'll test it tomorrow.

[WeMartiansAreFriendly]

Yes like a very good project, keep it up.

[Shafayat]

Great job. I've always wanted to make something like that. Again, cool work.

[Yashied]

Nice job. But why not written _GUICtrlPager_Destroy() function? Anyways, 5* from me for a really usefull UDF.

Edited March 12, 2010 by Yashied

[Mat]

Thanks Guys

The one thing I did forget is to add an example of handling the PGN_CALCSIZE notification manually. I'll do that today.

[Mat]

  On 3/12/2010 at 8:08 AM, 'Yashied said:

Nice job. But why not written _GUICtrlPager_Destroy() function? Anyways, 5* from me for a really useful UDF.

Completely missed that one out

Another thing is that I have no idea how to make the function work for external applications.

[Fire]

Fantastic Job! Very nice and very usefull for me too.

Thanks so much Mat.

5 stars from me too.

Also Thanks too: George Gedye (GEOSoft), SmOke_N

Edited March 12, 2010 by Sh3llC043r

[Mat]

  On 3/12/2010 at 2:46 PM, 'Sh3llC043r said:

Fantastic Job! Very nice and very usefull for me too.

Thanks so much Mat.

5 stars from me too.

Also Thanks too: George Gedye (GEOSoft), SmOke_N

Yes, I didn't mention that at the top, but GEOSoft was very helpful in making the _GUICtrlPager_Create function, and he also got a lot of help from SmOke_N for the same.

[zackrspv]

  On 3/11/2010 at 9:58 PM, 'Mat said:

This control is useful in situations where a window does not have enough area to display a child window. For example, if your application has a toolbar that is not wide enough to show all of its items, you can assign the toolbar to a pager control and users will be able to scroll to the left or right to access all of the items. You can also create pager controls that scroll vertically.

Is it just for toolbars?

[Mat]

  On 3/12/2010 at 5:42 PM, 'zackrspv said:

Is it just for toolbars?

No... Although I have not done it with other controls yet, it should work with any window.

I will do that as well.

[Mat]

Updated.

Added: _GUICtrlPager_Destroy

Removed: Random Mercury.xcf from the planets example

Edit: Interesting that we already have an attempt at doing something similar with GDI+ here.

Edited March 13, 2010 by Mat

[Shafayat]

Very exciting script.

Does it support automatically resizing? (Forgive me if the question is stupid. I AM STUPID )

[Mat]

  On 3/13/2010 at 5:42 PM, 'Shafayat said:

Very exciting script.

Does it support automatically resizing? (Forgive me if the question is stupid. I AM STUPID )

As in... GUICtrlSetResizing?? No. You will have to process the WM_SIZE message yourself.

[Shafayat]

Thank you. I thought so but was hoping it not to be so.

Edited March 14, 2010 by Shafayat

[Mat]

  On 3/14/2010 at 2:43 AM, 'Shafayat said:

Thank you. I thought so but was hoping it notk to be so.

Its the same for all non-autoit controls.

this is a very simple example:

#include <GuiRichEdit.au3>
#include <WindowsConstants.au3>

Global $hGui, $hRichEdit

Main()

Func Main()
    $hGui = GUICreate("Example WM_SIZE", 320, 350, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX))
    $hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a test.", 10, 10, 300, 330)

    GUIRegisterMsg($WM_SIZE, "WM_SIZE")
    GUISetState()

    While 1
        Switch GUIGetMsg()
            Case -3
                _GUICtrlRichEdit_Destroy($hRichEdit)
                Exit
        EndSwitch
    WEnd
EndFunc   ;==>Main

Func WM_SIZE($hWnd, $iMsg, $wParam, $lParam)
    #forceref $hWnd, $iMsg, $wParam, $lParam
    Local $aPos = WinGetClientSize($hGui)
    ControlMove($hGui, "", $hRichEdit, 10, 10, $aPos[0] - 20, $aPos[1] - 20)
EndFunc

Mat

[Shafayat]

Thank you, Mat.

I had have some problems with WM_NOTIFY (for a listview item) few days ago and wasted almost 2 hours to find what I did wrong. Got it in the end but for a noob like me it wasn't easy. So I started to kinda fear GuiregisterMsg() . Anyway this one seems easy and working.

Regards

Shafayat

[Mat]

  On 3/14/2010 at 10:48 AM, 'Shafayat said:

Thank you, Mat.

I had have some problems with WM_NOTIFY (for a listview item) few days ago and wasted almost 2 hours to find what I did wrong. Got it in the end but for a noob like me it wasn't easy. So I started to kinda fear GuiregisterMsg() . Anyway this one seems easy and working.

Regards

Shafayat

This one is easy because I didn't use any of the parameters, so all its doing is waiting for the message... I did do it the more complex way though, completely overlooking the inbuilt autoit method:

#include <GuiRichEdit.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>

Global $hGui, $hRichEdit

Main()

Func Main()
    $hGui = GUICreate("Example WM_SIZE", 320, 350, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX))
    $hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a test.", 10, 10, 300, 330)

    GUISetState()

    Local $aPos
    While 1
        Switch GUIGetMsg()
            Case -3
                _GUICtrlRichEdit_Destroy($hRichEdit)
                Exit
            Case $GUI_EVENT_RESIZED
                $aPos = WinGetClientSize($hGui)
                ControlMove($hGui, "", $hRichEdit, 10, 10, $aPos[0] - 20, $aPos[1] - 20)
        EndSwitch
    WEnd
EndFunc   ;==>Main

Thats much easier!!!

[Shafayat]

I learned something today. This will certainly help me understand the language better. Thanks.

[mLipok]

Thanks for this UDF.

I change this a litle 

#include <UDFGlobalID.au3>

instead

#include "UDFGlobalID.au3"

and it works with AutoIt 3.3.10.2, but not working with AutoIt 3.3.13.18

this is because __UDF_ValidateClassName was removed from UDFGlobalID.au3

but Why ?