242 lines
8.9 KiB
Plaintext
242 lines
8.9 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|