PRF Posted December 17, 2011 Share Posted December 17, 2011 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 . Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now