Jump to content
Sign in to follow this  
Followers 0
Pierre40a

Use of the MonthCalendar control from auto3lib

By Pierre40a, in AutoIt GUI Help and Support

Recommended Posts

Pierre40a    0

Pierre40a
Posted

Hello,

I have two basic questions on this control :

  • How can I change the position of the MonthCalendar on a window/dialog ?
  • How can I detect when a user clicked ont it ?
When I change the horizontal and vertical position, this control grows ...

I already tried to use the simple code below to trap the $MCN_SELECT message , but it won't work ...

#include <A3LMonthCal.au3>

Global $hGUI, $hCal

; Create GUI
$hGUI = GUICreate("Month Calendar", 400, 300)
$hCal = _MonthCal_Create($hGUI, 4, 4, $WS_BORDER)

GUISetState()

; Loop until user exits
while 1
$nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        
        case $hCal
        msgbox(0,"Info","Clicked")
        
    EndSwitch
WEnd

What am I missing ?

Help would be appreciated.

Pierre

Share this post

Link to post
Share on other sites

martin    68

martin
Posted

Hello,

I have two basic questions on this control :

  • How can I change the position of the MonthCalendar on a window/dialog ?
  • How can I detect when a user clicked ont it ?
When I change the horizontal and vertical position, this control grows ...

I already tried to use the simple code below to trap the $MCN_SELECT message , but it won't work ...

#include <A3LMonthCal.au3>

Global $hGUI, $hCal

; Create GUI
$hGUI = GUICreate("Month Calendar", 400, 300)
$hCal = _MonthCal_Create($hGUI, 4, 4, $WS_BORDER)

GUISetState()

; Loop until user exits
while 1
$nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        
        case $hCal
        msgbox(0,"Info","Clicked")
        
    EndSwitch
WEnd

What am I missing ?

Help would be appreciated.

Pierre

Maybe this shows what you want

#include <A3LMonthCal.au3>
#include <GUIConstants.au3>

Global $hGUI, $hCal

; Create GUI
$hGUI = GUICreate("Month Calendar", 400, 300)
$hCal = _MonthCal_Create($hGUI, 4, 50, $WS_BORDER)
$lab = GUICtrlCreateLabel("no clicks on cal",10,5,120,28)
$but1 = GUICtrlCreateButton("move cal",160,5,100,28)
GUISetState()
$cw = WinGetClientSize("Month Calendar","")

$ww = WinGetPos("Month Calendar")
$borderw = ($ww[2] - $cw[0])/2
ConsoleWrite($borderw & @CRLF)
$titleht= $ww[3] - $cw[1] - $borderw
$clicks = 0
while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        case $hCal
            msgbox(0,"Info","Clicked")
        Case $GUI_EVENT_PRIMARYDOWN
            If  HWNDUnderMouse() = $hCal Then
                $clicks += 1
                GUICtrlSetData($lab,$clicks & " clicks on cal")
            EndIf
        Case $but1
            _MonthCal_move($hCal, 1, 1)
            

    EndSwitch

WEnd


Func _MonthCal_move($hWnd, $iX=0, $iY=0)
    Local $iH, $iW, $iN, $rRect

    $rRect = _GetWindowRect($hWnd)
    $iI    = DllStructGetData($rRect, $RECT_LEFT)
    $iJ = DllStructGetData($rRect, $RECT_TOP)
    $iw = DllStructGetData($rRect, $RECT_RIGHT) - $iI
    $ih   = DllStructGetData($rRect, $RECT_BOTTOM) - $iJ
    $wpos = WinGetPos($hGUI)
    _SetWindowPos($hWnd, 0, $iI + $ix-$wpos[0]-$borderw, $iJ + $iY-$wpos[1]-$titleht,  $iW, $iH, $SWP_NOZORDER);
EndFunc


Func HWNDUnderMouse()
    Local $point, $hwnd

    $point = MouseGetPos()
    If @error Then Return SetError(1,0,0)

    $hwnd = DLLCall("user32.dll", "hwnd", "WindowFromPoint", "int", $point[0], "int", $point[1])
    If Not @error Or $hwnd[0] <> 0 Then Return $hwnd[0]

    Return SetError(2,0,0)
EndFunc
Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post

Link to post
Share on other sites

Pierre40a    0

Pierre40a
Posted

Maybe this shows what you want

#include <A3LMonthCal.au3>
#include <GUIConstants.au3>

Global $hGUI, $hCal

; Create GUI
$hGUI = GUICreate("Month Calendar", 400, 300)
$hCal = _MonthCal_Create($hGUI, 4, 50, $WS_BORDER)
$lab = GUICtrlCreateLabel("no clicks on cal",10,5,120,28)
$but1 = GUICtrlCreateButton("move cal",160,5,100,28)
GUISetState()
$cw = WinGetClientSize("Month Calendar","")

$ww = WinGetPos("Month Calendar")
$borderw = ($ww[2] - $cw[0])/2
ConsoleWrite($borderw & @CRLF)
$titleht= $ww[3] - $cw[1] - $borderw
$clicks = 0
while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        case $hCal
            msgbox(0,"Info","Clicked")
        Case $GUI_EVENT_PRIMARYDOWN
            If  HWNDUnderMouse() = $hCal Then
                $clicks += 1
                GUICtrlSetData($lab,$clicks & " clicks on cal")
            EndIf
        Case $but1
            _MonthCal_move($hCal, 1, 1)
            

    EndSwitch

WEnd
Func _MonthCal_move($hWnd, $iX=0, $iY=0)
    Local $iH, $iW, $iN, $rRect

    $rRect = _GetWindowRect($hWnd)
    $iI    = DllStructGetData($rRect, $RECT_LEFT)
    $iJ = DllStructGetData($rRect, $RECT_TOP)
    $iw = DllStructGetData($rRect, $RECT_RIGHT) - $iI
    $ih   = DllStructGetData($rRect, $RECT_BOTTOM) - $iJ
    $wpos = WinGetPos($hGUI)
    _SetWindowPos($hWnd, 0, $iI + $ix-$wpos[0]-$borderw, $iJ + $iY-$wpos[1]-$titleht,  $iW, $iH, $SWP_NOZORDER);
EndFunc
Func HWNDUnderMouse()
    Local $point, $hwnd

    $point = MouseGetPos()
    If @error Then Return SetError(1,0,0)

    $hwnd = DLLCall("user32.dll", "hwnd", "WindowFromPoint", "int", $point[0], "int", $point[1])
    If Not @error Or $hwnd[0] <> 0 Then Return $hwnd[0]

    Return SetError(2,0,0)
EndFunc
Thanks for your help, but this piece of code does'nt work for me.

Here's the error message I get when executing it :

C:\Projets perso\Micros 9700\test.au3(45,49) : WARNING: $RECT_LEFT: possibly used before declaration.

$iI = DllStructGetData($rRect, $RECT_LEFT)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Projets perso\Micros 9700\test.au3(46,45) : WARNING: $RECT_TOP: possibly used before declaration.

$iJ = DllStructGetData($rRect, $RECT_TOP)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Projets perso\Micros 9700\test.au3(47,47) : WARNING: $RECT_RIGHT: possibly used before declaration.

$iw = DllStructGetData($rRect, $RECT_RIGHT)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Projets perso\Micros 9700\test.au3(48,50) : WARNING: $RECT_BOTTOM: possibly used before declaration.

$ih = DllStructGetData($rRect, $RECT_BOTTOM)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Projets perso\Micros 9700\test.au3(45,49) : ERROR: $RECT_LEFT: undeclared global variable.

$iI = DllStructGetData($rRect, $RECT_LEFT)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Projets perso\Micros 9700\test.au3(44,34) : ERROR: _GetWindowRect(): undefined function.

$rRect = _GetWindowRect($hWnd)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

C:\Projets perso\Micros 9700\test.au3(50,111) : ERROR: _SetWindowPos(): undefined function.

_SetWindowPos($hWnd, 0, $iI + $ix-$wpos[0]-$borderw, $iJ + $iY-$wpos[1]-$titleht, $iW, $iH, $SWP_NOZORDER)

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

~~~~~~~~~~^

C:\Projets perso\Micros 9700\test.au3 - 3 error(s), 4 warning(s)

There should missing an additional "include" command on top of it.

Thinking of it, does this come from the autoitversion I'm using ? (v3.2.4.9).

Cheers,

Pierre

Share this post

Link to post
Share on other sites

martin    68

martin
Posted

@Pierre40a

I don't really know what the difference is between the installation on the PC I wrote the code on and your PC and, come to that, the PC I'm using now which has the same problem you had.

So try this, but you have to run it in the non-Beta version. (On the PC I used first the versions of A3LMonthCal.au3 and A3LConstants.au3 are in the Beta/includes as well but different to the standard includes.)

#include <A3LMonthCal.au3>
#include <GUIConstants.au3>
#include <A3Lconstants.au3>

Global $hGUI, $hCal
Global Const $RECT_LEFT = 1
Global Const $RECT_TOP = 2
Global Const $RECT_RIGHT = 3
Global Const $RECT_BOTTOM = 4

; Create GUI
$hGUI = GUICreate("Month Calendar", 400, 300)
$hCal = _MonthCal_Create($hGUI, 4, 50, $WS_BORDER)
$lab = GUICtrlCreateLabel("no clicks on cal",10,5,120,28)
$but1 = GUICtrlCreateButton("move cal",160,5,100,28)
GUISetState()
$cw = WinGetClientSize("Month Calendar","")

$ww = WinGetPos("Month Calendar")
$borderw = ($ww[2] - $cw[0])/2
ConsoleWrite($borderw & @CRLF)
$titleht= $ww[3] - $cw[1] - $borderw
$clicks = 0
while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        case $hCal
            msgbox(0,"Info","Clicked")
        Case $GUI_EVENT_PRIMARYDOWN
            If  HWNDUnderMouse() = $hCal Then
                $clicks += 1
                GUICtrlSetData($lab,$clicks & " clicks on cal")
            EndIf
        Case $but1
            _MonthCal_move($hCal, 1, 1)
           

    EndSwitch

WEnd
Func _MonthCal_move($hWnd, $iX=0, $iY=0)
    Local $iH, $iW, $iN, $rRect

    $rRect = _API_GetWindowRect($hWnd)
    $iI = DllStructGetData($rRect, $RECT_LEFT)
    $iJ = DllStructGetData($rRect, $RECT_TOP)
    $iw = DllStructGetData($rRect, $RECT_RIGHT) - $iI
    $ih   = DllStructGetData($rRect, $RECT_BOTTOM) - $iJ
    $wpos = WinGetPos($hGUI)
    _API_SetWindowPos($hWnd, 0, $iI + $ix-$wpos[0]-$borderw, $iJ + $iY-$wpos[1]-$titleht,  $iW, $iH, $SWP_NOZORDER);
EndFunc
Func HWNDUnderMouse()
    Local $point, $hwnd

    $point = MouseGetPos()
    If @error Then Return SetError(1,0,0)

    $hwnd = DLLCall("user32.dll", "hwnd", "WindowFromPoint", "int", $point[0], "int", $point[1])
    If Not @error Or $hwnd[0] <> 0 Then Return $hwnd[0]

    Return SetError(2,0,0)
EndFunc
Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post

Link to post
Share on other sites

Pierre40a    0

Pierre40a
Posted

Thanks so much Martin ! :-)))

Have a good night (her, it's 11:45 PM) ...

Cheers,

Pierre

@Pierre40a

I don't really know what the difference is between the installation on the PC I wrote the code on and your PC and, come to that, the PC I'm using now which has the same problem you had.

So try this, but you have to run it in the non-Beta version. (On the PC I used first the versions of A3LMonthCal.au3 and A3LConstants.au3 are in the Beta/includes as well but different to the standard includes.)

#include <A3LMonthCal.au3>
#include <GUIConstants.au3>
#include <A3Lconstants.au3>

Global $hGUI, $hCal
Global Const $RECT_LEFT = 1
Global Const $RECT_TOP = 2
Global Const $RECT_RIGHT = 3
Global Const $RECT_BOTTOM = 4

; Create GUI
$hGUI = GUICreate("Month Calendar", 400, 300)
$hCal = _MonthCal_Create($hGUI, 4, 50, $WS_BORDER)
$lab = GUICtrlCreateLabel("no clicks on cal",10,5,120,28)
$but1 = GUICtrlCreateButton("move cal",160,5,100,28)
GUISetState()
$cw = WinGetClientSize("Month Calendar","")

$ww = WinGetPos("Month Calendar")
$borderw = ($ww[2] - $cw[0])/2
ConsoleWrite($borderw & @CRLF)
$titleht= $ww[3] - $cw[1] - $borderw
$clicks = 0
while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        case $hCal
            msgbox(0,"Info","Clicked")
        Case $GUI_EVENT_PRIMARYDOWN
            If  HWNDUnderMouse() = $hCal Then
                $clicks += 1
                GUICtrlSetData($lab,$clicks & " clicks on cal")
            EndIf
        Case $but1
            _MonthCal_move($hCal, 1, 1)
           

    EndSwitch

WEnd
Func _MonthCal_move($hWnd, $iX=0, $iY=0)
    Local $iH, $iW, $iN, $rRect

    $rRect = _API_GetWindowRect($hWnd)
    $iI = DllStructGetData($rRect, $RECT_LEFT)
    $iJ = DllStructGetData($rRect, $RECT_TOP)
    $iw = DllStructGetData($rRect, $RECT_RIGHT) - $iI
    $ih   = DllStructGetData($rRect, $RECT_BOTTOM) - $iJ
    $wpos = WinGetPos($hGUI)
    _API_SetWindowPos($hWnd, 0, $iI + $ix-$wpos[0]-$borderw, $iJ + $iY-$wpos[1]-$titleht,  $iW, $iH, $SWP_NOZORDER);
EndFunc
Func HWNDUnderMouse()
    Local $point, $hwnd

    $point = MouseGetPos()
    If @error Then Return SetError(1,0,0)

    $hwnd = DLLCall("user32.dll", "hwnd", "WindowFromPoint", "int", $point[0], "int", $point[1])
    If Not @error Or $hwnd[0] <> 0 Then Return $hwnd[0]

    Return SetError(2,0,0)
EndFunc

Share this post

Link to post
Share on other sites

martin    68

martin
Posted

Thanks so much Martin ! :-)))

Have a good night (her, it's 11:45 PM) ...

Cheers,

Pierre

No problem, glad you got it to work. Good night , it's only 11:05pm here so I'm still fresh!

Serial port communications UDF Includes functions for binary transmission and reception.printing UDF Useful for graphs, forms, labels, reports etc.Add User Call Tips to SciTE for functions in UDFs not included with AutoIt and for your own scripts.Functions with parameters in OnEvent mode and for Hot Keys One function replaces GuiSetOnEvent, GuiCtrlSetOnEvent and HotKeySet.UDF IsConnected2 for notification of status of connected state of many urls or IPs, without slowing the script.

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  
Followers 0
Go To Topic Listing AutoIt GUI Help and Support
×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.

  I accept