Sign in to follow this  
Followers 0
PRF

Calendar Control

1 post in this topic

:) I'm trying to write a popup month calendar to replace the VB version I wrote long ago. My question is; how do I get Autoit to draw a circle around the date, as VB does, rather than a rectangle?

#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <GuiMonthCal.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Calendar", 380, 340, 346, 265)
$MonthCal1 = GUICtrlCreateMonthCal("", 0, 0, 380,340,$WS_BORDER, 0x00000000)
GUICtrlSetFont ($MonthCal1, 18,400,0,"MS Sans Serif")
_GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_BACKGROUND, 0xFF007D)
_GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_TEXT, 0xFFFFB0 )
_GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_TITLEBK, 0x0000ff)
_GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_TITLETEXT, 0xffffff)
_GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_MONTHBK, 0xFF007D)
_GUICtrlMonthCal_SetColor($MonthCal1, $MCSC_TRAILINGTEXT, 0x9D989A)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
EndSwitch
WEnd

.

post-68093-0-41814600-1324143397_thumb.p

post-68093-0-84112400-1324143397_thumb.p

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