*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frmcalendar.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS dataenvironment AS dataenvironment 
 	*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />

	*<PropValue>
		DataSource = .NULL.
		Height = 0
		Left = 0
		Name = "Dataenvironment"
		Top = 0
		Width = 0
	*</PropValue>

ENDDEFINE

DEFINE CLASS form1 AS form 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Calendar" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="btnOk" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="btnCancel" UniqueID="" Timestamp="" />

	*<PropValue>
		AutoCenter = .T.
		BorderStyle = 2
		Caption = "Calendario"
		DoCreate = .T.
		Height = 200
		Icon = calendar.ico
		MaxButton = .F.
		MinButton = .F.
		Name = "Form1"
		ShowTips = .T.
		Width = 194
	*</PropValue>

	ADD OBJECT 'btnCancel' AS commandbutton WITH ;
		Cancel = .T., ;
		Caption = "\<Cancelar", ;
		FontName = "MS Sans Serif", ;
		Height = 23, ;
		Left = 124, ;
		Name = "btnCancel", ;
		TabIndex = 3, ;
		Top = 174, ;
		Width = 67
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'btnOk' AS commandbutton WITH ;
		Caption = "\<Aceptar", ;
		FontName = "MS Sans Serif", ;
		Height = 23, ;
		Left = 55, ;
		Name = "btnOk", ;
		TabIndex = 2, ;
		Top = 174, ;
		Width = 67
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Calendar' AS _calendar WITH ;
		date = (Date()), ;
		extradayforecolor = sys:15, ;
		Height = 172, ;
		Left = 1, ;
		Name = "Calendar", ;
		saturdayforecolor = sys:18, ;
		selecteddaybackcolor = sys:13, ;
		selecteddayforecolor = sys:14, ;
		showholidaytips = .T., ;
		Top = -1, ;
		Width = 192, ;
		shpTitleBar.Name = "shpTitleBar", ;
		cusFuncs.Name = "cusFuncs", ;
		btnButton_1.btnButton.Name = "btnButton", ;
		btnButton_1.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_1.Name = "btnButton_1", ;
		btnButton_2.btnButton.Name = "btnButton", ;
		btnButton_2.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_2.Name = "btnButton_2", ;
		btnButton_3.btnButton.Name = "btnButton", ;
		btnButton_3.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_3.Name = "btnButton_3", ;
		btnButton_4.btnButton.Name = "btnButton", ;
		btnButton_4.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_4.Name = "btnButton_4", ;
		btnButton_5.btnButton.Name = "btnButton", ;
		btnButton_5.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_5.Name = "btnButton_5", ;
		btnButton_6.btnButton.Name = "btnButton", ;
		btnButton_6.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_6.Name = "btnButton_6", ;
		btnButton_7.btnButton.Name = "btnButton", ;
		btnButton_7.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_7.Name = "btnButton_7", ;
		btnButton_8.btnButton.Name = "btnButton", ;
		btnButton_8.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_8.Name = "btnButton_8", ;
		btnButton_9.btnButton.Name = "btnButton", ;
		btnButton_9.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_9.Name = "btnButton_9", ;
		btnButton_10.btnButton.Name = "btnButton", ;
		btnButton_10.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_10.Name = "btnButton_10", ;
		btnButton_11.btnButton.Name = "btnButton", ;
		btnButton_11.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_11.Name = "btnButton_11", ;
		btnButton_12.btnButton.Name = "btnButton", ;
		btnButton_12.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_12.Name = "btnButton_12", ;
		btnButton_13.btnButton.Name = "btnButton", ;
		btnButton_13.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_13.Name = "btnButton_13", ;
		btnButton_14.btnButton.Name = "btnButton", ;
		btnButton_14.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_14.Name = "btnButton_14", ;
		btnButton_15.btnButton.Name = "btnButton", ;
		btnButton_15.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_15.Name = "btnButton_15", ;
		btnButton_16.btnButton.Name = "btnButton", ;
		btnButton_16.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_16.Name = "btnButton_16", ;
		btnButton_17.btnButton.Name = "btnButton", ;
		btnButton_17.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_17.Name = "btnButton_17", ;
		btnButton_18.btnButton.Name = "btnButton", ;
		btnButton_18.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_18.Name = "btnButton_18", ;
		btnButton_19.btnButton.Name = "btnButton", ;
		btnButton_19.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_19.Name = "btnButton_19", ;
		btnButton_20.btnButton.Name = "btnButton", ;
		btnButton_20.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_20.Name = "btnButton_20", ;
		btnButton_21.btnButton.Name = "btnButton", ;
		btnButton_21.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_21.Name = "btnButton_21", ;
		btnButton_22.btnButton.Name = "btnButton", ;
		btnButton_22.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_22.Name = "btnButton_22", ;
		btnButton_23.btnButton.Name = "btnButton", ;
		btnButton_23.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_23.Name = "btnButton_23", ;
		btnButton_24.btnButton.Name = "btnButton", ;
		btnButton_24.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_24.Name = "btnButton_24", ;
		btnButton_25.btnButton.Name = "btnButton", ;
		btnButton_25.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_25.Name = "btnButton_25", ;
		btnButton_26.btnButton.Name = "btnButton", ;
		btnButton_26.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_26.Name = "btnButton_26", ;
		btnButton_27.btnButton.Name = "btnButton", ;
		btnButton_27.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_27.Name = "btnButton_27", ;
		btnButton_28.btnButton.Name = "btnButton", ;
		btnButton_28.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_28.Name = "btnButton_28", ;
		btnButton_29.btnButton.Name = "btnButton", ;
		btnButton_29.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_29.Name = "btnButton_29", ;
		btnButton_30.btnButton.Name = "btnButton", ;
		btnButton_30.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_30.Name = "btnButton_30", ;
		btnButton_31.btnButton.Name = "btnButton", ;
		btnButton_31.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_31.Name = "btnButton_31", ;
		btnButton_32.btnButton.Name = "btnButton", ;
		btnButton_32.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_32.Name = "btnButton_32", ;
		btnButton_33.btnButton.Name = "btnButton", ;
		btnButton_33.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_33.Name = "btnButton_33", ;
		btnButton_34.btnButton.Name = "btnButton", ;
		btnButton_34.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_34.Name = "btnButton_34", ;
		btnButton_35.btnButton.Name = "btnButton", ;
		btnButton_35.LBLBUTTON.Name = "LBLBUTTON", ;
		btnButton_35.Name = "btnButton_35", ;
		btnButton_36.btnButton.Name = "btnButton", ;
		btnButton_36.lblButton.Name = "lblButton", ;
		btnButton_36.Name = "btnButton_36", ;
		btnButton_37.btnButton.Name = "btnButton", ;
		btnButton_37.lblButton.Name = "lblButton", ;
		btnButton_37.Name = "btnButton_37", ;
		btnButton_38.btnButton.Name = "btnButton", ;
		btnButton_38.lblButton.Name = "lblButton", ;
		btnButton_38.Name = "btnButton_38", ;
		btnButton_39.btnButton.Name = "btnButton", ;
		btnButton_39.lblButton.Name = "lblButton", ;
		btnButton_39.Name = "btnButton_39", ;
		btnButton_40.btnButton.Name = "btnButton", ;
		btnButton_40.lblButton.Name = "lblButton", ;
		btnButton_40.Name = "btnButton_40", ;
		btnButton_41.btnButton.Name = "btnButton", ;
		btnButton_41.lblButton.Name = "lblButton", ;
		btnButton_41.Name = "btnButton_41", ;
		btnButton_42.btnButton.Name = "btnButton", ;
		btnButton_42.lblButton.Name = "lblButton", ;
		btnButton_42.Name = "btnButton_42", ;
		spnYear.Name = "spnYear", ;
		CBOMONTH.Name = "CBOMONTH", ;
		lblTitleDay1.Name = "lblTitleDay1", ;
		lblTitleDay2.Name = "lblTitleDay2", ;
		lblTitleDay3.Name = "lblTitleDay3", ;
		lblTitleDay4.Name = "lblTitleDay4", ;
		lblTitleDay5.Name = "lblTitleDay5", ;
		lblTitleDay6.Name = "lblTitleDay6", ;
		lblTitleDay7.Name = "lblTitleDay7", ;
		btnNext.Name = "btnNext", ;
		btnPrevious.Name = "btnPrevious", ;
		shpTodaybar.Name = "shpTodaybar", ;
		Label7.Name = "Label7", ;
		lblToday.Name = "lblToday", ;
		btnToday.Name = "btnToday"
		*< END OBJECT: ClassLib="_lproperty.vcx" BaseClass="container" />
	
	PROCEDURE Init
		*This.Calendar.Date = Gomonth(Date(), 5)
	ENDPROC

	PROCEDURE Load
		Set Talk off
		Set Century Off
	ENDPROC

	PROCEDURE btnCancel.Click
		ThisForm.Release()
	ENDPROC

	PROCEDURE btnOk.Click
		sFecha = Dtoc(ThisForm.Calendar.Date)
		MessageBox(sFecha)
	ENDPROC

ENDDEFINE