FoxPro/Visual FoxPro - CALENDARIO EN FORMULARIO

#DEFINE MonthView_Ole_FontName           'Courier'

#DEFINE MonthView_Ole_FontSize           10

#DEFINE MonthView_Ole_TitleBackColor	   8410624

#DEFINE MonthView_Ole_TitleForeColor	   16777215

#DEFINE MonthView_Ole_MonthBackColor	   8421440

#DEFINE MonthView_Ole_ForeColor          16777215

#DEFINE MonthView_Ole_TrailingForeColor	 4227327

* Para instanciar objetos OLE Control es obligatorio el uso de DEFINE CLASS.

DEFINE CLASS clu_OleMonthView AS OleControl

	iCal=1  && nro de instancia

	icCal='1'

	* Se le asignan los valores de constantes de definición de formato

        .Object.MonthBackColor=MonthView_Ole_MonthBackColor

	.Object.TitleBackColor=MonthView_Ole_TitleBackColor

	.Object.TitleForeColor=MonthView_Ole_TitleForeColor

	.Object.TrailingForeColor=MonthView_Ole_TrailingForeColor

	.Object.ForeColor=MonthView_Ole_ForeColor

	PROCEDURE SelChange

		LPARAMETERS startdate, enddate, cancel

		* Aquí van propiedades que se deben definir en el formulario, a las cuales se les puede asignar algún valor proveniente del control monthview.

		THISFORM.Fecha[THIS.iCal]=TTOD(THIS.SelStart)

		THISFORM.Refresh

	ENDPROC

	PROCEDURE Refresh

		IF THISFORM.Fecha[THIS.iCal]<{^1753-01-01}

			MESSAGEBOX('El Calendario sólo puede representar meses'+CRLF+;

			           'entre las fechas 01-01-1753 y 31-12-9999.')

			THIS.SelChange

			RETURN

		ENDI

		THIS.Day=1  && Evita errores por fechas inválidas

		THIS.Year=YEAR(THISFORM.Fecha[THIS.iCal])

		THIS.Month=MONTH(THISFORM.Fecha[THIS.iCal])

		THIS.Day=DAY(THISFORM.Fecha[THIS.iCal])

	ENDPROC

ENDDEFINE

m.Frm_MonthView=THISFORM

* Nro de instancia. La define el programador. Puede ser un contador de instancias de MonthView.

* Se puede utilizar como sufijo en el nombre de cada nueva instancia del control monthview

m.icCal=LTRI(STR(m.iCal))

m.OleMonthView='Ole_MonthView'+m.icCal

PUBLIC &OleMonthView. && Es obligatorio el uso del comando PUBLIC

m.Frm_MonthView.AddObject(m.OleMonthView, 'clu_OleMonthView', 'MSComCtl2.MonthView.2')

m.&OleMonthView.=m.Frm_MonthView.&OleMonthView.

m.&OleMonthView..iCal=m.iCal  && Nro de instancia. La define el programador. Puede ser un contador de instancias.

m.&OleMonthView..icCal=LTRI(STR(m.iCal))  && Se puede utilizar como sufijo en el nombre de las instancias del control monthview

m.&OleMonthView..Font.Name=MonthView_Ole_FontName  && Algunas propiedades no se pueden cargar dentro de la definición realizada con DEFINE CLASS

m.&OleMonthView..Font.Size=MonthView_Ole_FontSize

m.&OleMonthView..Top=3

m.&OleMonthView..Width=217  && Debe estar antes de Left

m.&OleMonthView..Left=m.&OleMonthView..Width*(m.iCal-1)+3

m.&OleMonthView..Enabled=True

m.&OleMonthView..Visible=True

m.Frm_MonthView.UltLeft=m.&OleMonthView..Left  && Se pueden utilizar para coordinar las posiciones de varias instancias dentro del mismo formulario.

m.Frm_MonthView.UltWidth=m.&OleMonthView..Width