*--Courtesy Mike Gagnon and Mark Murphree UT 08/16/2006
PUBLIC oform1

oform1=NEWOBJECT("form1")
BINDEVENT(oform1.OLECONTROL1,"SelectionChange",oform1,"DisplaySelectedDate")

oform1.Show
RETURN
DEFINE CLASS form1 AS form
	Top = 0
	Left = 0
	Height = 506
	Width = 840
	DoCreate = .T.
	Caption = "Calendar Example Form"
	Name = "ouform"
	ADD OBJECT label1 AS label WITH ;
	    TOP = 3, ;
	    LEFT = 200, ;
	    HEIGHT = 30, ;
	    WIDTH = 260, ;
	    NAME = 'label1',;
	    FONTSIZE = 9, ;
	    CAPTION = "Today's Date: "+DTOC(DATE())
	ADD OBJECT label2 AS label WITH ;
	    TOP = 25, ;
	    LEFT = 160, ;
	    HEIGHT = 30, ;
	    WIDTH = 260, ;
	    NAME = 'label2',;
	    FONTSIZE = 9, ;
	    CAPTION = 'Selected Calendar Date: '+DTOC(DATE())
	ADD OBJECT olecontrol1 AS olecontrol WITH ;
		Top = 62, ;
		Left = 5, ;
		Height = 420, ;
		Width = 550, ;
		Name = "Olecontrol1", ;
		OleClass = "OVCtl.OVCtl.1"
	ADD OBJECT command1 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 254, ;
		Left = 568, ;
		Height = 27, ;
		Width = 115, ;
		Caption = "New Appointment", ;
		Name = "Command1"
	ADD OBJECT command2 AS commandbutton WITH ;
		AutoSize = .T., ;
		Top = 302, ;
		Left = 568, ;
		Height = 27, ;
		Width = 95, ;
		Caption = "Address Book", ;
		Name = "Command2"
	ADD OBJECT cmdbutton AS commandbutton WITH ;
		Top = 350, ;
		LEFT = 568,;
		WIDTH = 75,;
		HEIGHT = 27,;
		NAME = 'cmdbutton',;
		caption = 'GOTO Date'
	ADD OBJECT optiongroup1 AS optiongroup WITH ;
		AutoSize = .F., ;
		ButtonCount = 7, ;
		Value = 1, ;
		Height = 141, ;
		Left = 568, ;
		Top = 74, ;
		Width = 240, ;
		Name = "Optiongroup1", ;
		Option1.Caption = "Day/Week/Month", ;
		Option1.Value = 1, ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Style = 0, ;
		Option1.Top = 5, ;
		Option1.Width = 204, ;
		Option1.AutoSize = .F., ;
		Option1.Name = "Option1", ;
		Option2.Caption = "Day/Week/Month View With AutoPreview", ;
		Option2.Height = 17, ;
		Option2.Left = 5, ;
		Option2.Style = 0, ;
		Option2.Top = 24, ;
		Option2.Width = 235, ;
		Option2.AutoSize = .T., ;
		Option2.Name = "Option2", ;
		Option3.Caption = "Active Appointments", ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Style = 0, ;
		Option3.Top = 43, ;
		Option3.Width = 204, ;
		Option3.AutoSize = .F., ;
		Option3.Name = "Option3", ;
		Option4.Caption = "Events", ;
		Option4.Height = 17, ;
		Option4.Left = 5, ;
		Option4.Style = 0, ;
		Option4.Top = 62, ;
		Option4.Width = 204, ;
		Option4.AutoSize = .F., ;
		Option4.Name = "Option4", ;
		Option5.Caption = "Annual Events", ;
		Option5.Height = 17, ;
		Option5.Left = 5, ;
		Option5.Style = 0, ;
		Option5.Top = 81, ;
		Option5.Width = 204, ;
		Option5.AutoSize = .F., ;
		Option5.Name = "Option5", ;
		Option6.Caption = "Recurring Appointments", ;
		Option6.Height = 17, ;
		Option6.Left = 5, ;
		Option6.Style = 0, ;
		Option6.Top = 100, ;
		Option6.Width = 204, ;
		Option6.AutoSize = .F., ;
		Option6.Name = "Option6", ;
		Option7.Caption = "By Category", ;
		Option7.Height = 17, ;
		Option7.Left = 5, ;
		Option7.Style = 0, ;
		Option7.Top = 119, ;
		Option7.Width = 204, ;
		Option7.AutoSize = .F., ;
		Option7.Name = "Option7"
	PROCEDURE Init
		thisform.oLECONTROL1.Folder="Calendar"
		thisform.oLECONTROL1.gotoDate(DTOC(DATE()))
	ENDPROC
	PROCEDURE command1.Click
		thisform.OLECONTROL1.newAppointment()
	ENDPROC
	PROCEDURE command2.Click
		thisform.OLECONTROL1.addressbook()
	ENDPROC
        PROCEDURE optiongroup1.Option1.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option2.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option3.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option4.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option5.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option6.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE optiongroup1.Option7.Click
		thisform.OLECONTROL1.view = this.Caption 
	ENDPROC
	PROCEDURE cmdbutton.click
		mydate = DTOC(DATE())
		mydate = INPUTBOX('Enter date: ','GOTO date',mydate)
		IF TYPE('mydate') = "C" .and. CTOD(mydate) > {}
			thisform.OLECONTROL1.gotoDate(mydate)
		ELSE
			MESSAGEBOX('Invalid Date Returned.')
		ENDIF
		thisform.OLECONTROL1.setfocus()
		THISFORM.DisplaySelectedDate()
	ENDPROC
	* new form1 procedure courtesy Mark Murphree UT 08/17/2006
	PROCEDURE DisplaySelectedDate
  		IF TYPE("this.olecontrol1.selecteddate")#"U"
  			IF TYPE('this.olecontrol1.selecteddate') = "T"
				thisform.label2.caption = 'Selected Calendar Date: '+TTOC(this.olecontrol1.selecteddate)
  			ELSE
	  			IF TYPE('this.olecontrol1.selecteddate') = "C"
		  			THISFORM.label2.caption = 'Selected Calendar Date: '+this.olecontrol1.selecteddate
		  		ELSE
		  			IF TYPE('this.olecontrol1.selecteddate') = 'D'
		  				thisform.label2.caption = 'Selected Calendar Date: '+DTOC(this.olecontrol1.selecteddate)
		  			ENDIF
		  		ENDIF
		  	ENDIF
  		ENDIF
	ENDPROC
ENDDEFINE