18 replies to this topic

[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:

Spoiler

• _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 by Mat, 12 March 2010 - 11:18 PM.

[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 by Yashied, 12 March 2010 - 03:01 PM.

[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]

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 by Sh3llC043r, 12 March 2010 - 02:49 PM.

[Mat]

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]

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]

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 by Mat, 13 March 2010 - 09:11 AM.

[Shafayat]

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

[Mat]

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 by Shafayat, 14 March 2010 - 10:48 AM.

[Mat]

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:

AutoIt        expandcollapse  popup

#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]

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:

AutoIt        expandcollapse  popup

#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.