Jump to content

Calendar Control


PRF
 Share

Recommended Posts

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

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...