1711 lines
44 KiB
Plaintext
1711 lines
44 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="_calendar.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS _calendar AS control
|
|
*< CLASSDATA: Baseclass="control" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtToday" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtMonth" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtYear" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday1_1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday1_2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday1_3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday1_4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday1_5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday1_6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday1_7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblDayName2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblDayName3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblDayName4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblDayName5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblDayName6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblDayName7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblDayName1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday2_1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday2_2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday2_3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday2_4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday2_5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday2_6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday2_7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday3_1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday3_2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday3_3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday3_4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday3_5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday3_6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday3_7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday4_1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday4_2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday4_3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday4_4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday4_5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday4_6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday4_7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday5_1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday5_2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday5_3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday5_4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday5_5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday5_6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday5_7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday6_1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday6_2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday6_3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday6_4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday6_5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday6_6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_lblday6_7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="imgLeft" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="imgRight" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="imgUp" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="imgDown" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="shpToday" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: dayclick
|
|
*m: firstdayoftheweek_assign
|
|
*m: language_assign
|
|
*m: monthclick
|
|
*m: redraw
|
|
*m: todayclick
|
|
*m: valuechanged
|
|
*m: value_assign
|
|
*m: yearclick
|
|
*p: cdayname1 && Sunday
|
|
*p: cdayname2 && Monday
|
|
*p: cdayname3 && Tuesday
|
|
*p: cdayname4 && Wednesday
|
|
*p: cdayname5 && Thursday
|
|
*p: cdayname6 && Friday
|
|
*p: cdayname7 && Saturday
|
|
*p: day
|
|
*p: firstdayoftheweek && 1 - Sunday, 2 - Monday
|
|
*p: language
|
|
*p: month
|
|
*p: monthnames
|
|
*p: notherscolour && RGB(196,196,255)
|
|
*p: nsunday
|
|
*p: nsundaycolour && RGB(255,128,128)
|
|
*p: old_lbl
|
|
*p: showtips && Specifies if ToolTips are shown for the controls on the specified Form object or the specified ToolBar object.
|
|
*p: todaystring
|
|
*p: value && Specifies the current state of a control.
|
|
*p: year
|
|
*p: _memberdata && XML Metadata for customizable properties
|
|
*</DefinedPropArrayMethod>
|
|
|
|
HIDDEN _memberdata
|
|
PROTECTED old_lbl
|
|
*<PropValue>
|
|
BackColor = 255,255,255
|
|
BorderColor = 0,0,0
|
|
BorderWidth = 2
|
|
cdayname1 =
|
|
cdayname2 =
|
|
cdayname3 =
|
|
cdayname4 =
|
|
cdayname5 =
|
|
cdayname6 =
|
|
cdayname7 =
|
|
day = 0
|
|
firstdayoftheweek =
|
|
Height = 168
|
|
language = EN
|
|
month = 0
|
|
monthnames =
|
|
Name = "_calendar"
|
|
notherscolour = 16762052
|
|
nsunday =
|
|
nsundaycolour = 8421631
|
|
old_lbl = .F.
|
|
showtips = .F.
|
|
todaystring =
|
|
value = {}
|
|
Width = 168
|
|
year = 0
|
|
_memberdata = <VFPData>
|
|
<memberdata name="day" type="property" display="Day"/>
|
|
<memberdata name="month" type="property" display="Month"/>
|
|
<memberdata name="value" type="property" display="Value"/>
|
|
<memberdata name="year" type="property" display="Year"/>
|
|
<memberdata name="redraw" type="method" display="Redraw"/>
|
|
<memberdata name="dayclick" type="method" display="DayClick"/>
|
|
<memberdata name="monthclick" type="method" display="MonthClick"/>
|
|
<memberdata name="todayclick" type="method" display="TodayClick"/>
|
|
<memberdata name="yearclick" type="method" display="YearClick"/>
|
|
<memberdata name="valuechanged" type="method" display="ValueChanged"/>
|
|
<memberdata name="language" type="property" display="Language"/>
|
|
<memberdata name="monthnames" type="property" display="MonthNames"/>
|
|
<memberdata name="todaystring" type="property" display="TodayString"/>
|
|
</VFPData>
|
|
*</PropValue>
|
|
|
|
ADD OBJECT '_lblday1_1' AS _lblday WITH ;
|
|
ForeColor = 255,128,128, ;
|
|
Left = 17, ;
|
|
Name = "_lblday1_1", ;
|
|
Top = 46
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday1_2' AS _lblday WITH ;
|
|
Left = 37, ;
|
|
Name = "_lblday1_2", ;
|
|
Top = 46
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday1_3' AS _lblday WITH ;
|
|
Left = 57, ;
|
|
Name = "_lblday1_3", ;
|
|
Top = 46
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday1_4' AS _lblday WITH ;
|
|
Left = 77, ;
|
|
Name = "_lblday1_4", ;
|
|
Top = 46
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday1_5' AS _lblday WITH ;
|
|
Left = 97, ;
|
|
Name = "_lblday1_5", ;
|
|
Top = 46
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday1_6' AS _lblday WITH ;
|
|
Left = 117, ;
|
|
Name = "_lblday1_6", ;
|
|
Top = 46
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday1_7' AS _lblday WITH ;
|
|
Left = 137, ;
|
|
Name = "_lblday1_7", ;
|
|
Top = 46
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday2_1' AS _lblday WITH ;
|
|
ForeColor = 255,128,128, ;
|
|
Left = 17, ;
|
|
Name = "_lblday2_1", ;
|
|
Top = 61
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday2_2' AS _lblday WITH ;
|
|
Left = 37, ;
|
|
Name = "_lblday2_2", ;
|
|
Top = 61
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday2_3' AS _lblday WITH ;
|
|
Left = 57, ;
|
|
Name = "_lblday2_3", ;
|
|
Top = 61
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday2_4' AS _lblday WITH ;
|
|
Left = 77, ;
|
|
Name = "_lblday2_4", ;
|
|
Top = 61
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday2_5' AS _lblday WITH ;
|
|
Left = 97, ;
|
|
Name = "_lblday2_5", ;
|
|
Top = 61
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday2_6' AS _lblday WITH ;
|
|
Left = 117, ;
|
|
Name = "_lblday2_6", ;
|
|
Top = 61
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday2_7' AS _lblday WITH ;
|
|
Left = 137, ;
|
|
Name = "_lblday2_7", ;
|
|
Top = 61
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday3_1' AS _lblday WITH ;
|
|
ForeColor = 255,128,128, ;
|
|
Left = 17, ;
|
|
Name = "_lblday3_1", ;
|
|
Top = 76
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday3_2' AS _lblday WITH ;
|
|
Left = 37, ;
|
|
Name = "_lblday3_2", ;
|
|
Top = 76
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday3_3' AS _lblday WITH ;
|
|
Left = 57, ;
|
|
Name = "_lblday3_3", ;
|
|
Top = 76
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday3_4' AS _lblday WITH ;
|
|
Left = 77, ;
|
|
Name = "_lblday3_4", ;
|
|
Top = 76
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday3_5' AS _lblday WITH ;
|
|
Left = 97, ;
|
|
Name = "_lblday3_5", ;
|
|
Top = 76
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday3_6' AS _lblday WITH ;
|
|
Left = 117, ;
|
|
Name = "_lblday3_6", ;
|
|
Top = 76
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday3_7' AS _lblday WITH ;
|
|
Left = 137, ;
|
|
Name = "_lblday3_7", ;
|
|
Top = 76
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday4_1' AS _lblday WITH ;
|
|
ForeColor = 255,128,128, ;
|
|
Left = 17, ;
|
|
Name = "_lblday4_1", ;
|
|
Top = 91
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday4_2' AS _lblday WITH ;
|
|
Left = 37, ;
|
|
Name = "_lblday4_2", ;
|
|
Top = 91
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday4_3' AS _lblday WITH ;
|
|
Left = 57, ;
|
|
Name = "_lblday4_3", ;
|
|
Top = 91
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday4_4' AS _lblday WITH ;
|
|
Left = 77, ;
|
|
Name = "_lblday4_4", ;
|
|
Top = 91
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday4_5' AS _lblday WITH ;
|
|
Left = 97, ;
|
|
Name = "_lblday4_5", ;
|
|
Top = 91
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday4_6' AS _lblday WITH ;
|
|
Left = 117, ;
|
|
Name = "_lblday4_6", ;
|
|
Top = 91
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday4_7' AS _lblday WITH ;
|
|
Left = 137, ;
|
|
Name = "_lblday4_7", ;
|
|
Top = 91
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday5_1' AS _lblday WITH ;
|
|
ForeColor = 255,128,128, ;
|
|
Left = 17, ;
|
|
Name = "_lblday5_1", ;
|
|
Top = 106
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday5_2' AS _lblday WITH ;
|
|
Left = 37, ;
|
|
Name = "_lblday5_2", ;
|
|
Top = 106
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday5_3' AS _lblday WITH ;
|
|
Left = 57, ;
|
|
Name = "_lblday5_3", ;
|
|
Top = 106
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday5_4' AS _lblday WITH ;
|
|
Left = 77, ;
|
|
Name = "_lblday5_4", ;
|
|
Top = 106
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday5_5' AS _lblday WITH ;
|
|
Left = 97, ;
|
|
Name = "_lblday5_5", ;
|
|
Top = 106
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday5_6' AS _lblday WITH ;
|
|
Left = 117, ;
|
|
Name = "_lblday5_6", ;
|
|
Top = 106
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday5_7' AS _lblday WITH ;
|
|
Left = 137, ;
|
|
Name = "_lblday5_7", ;
|
|
Top = 106
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday6_1' AS _lblday WITH ;
|
|
ForeColor = 255,128,128, ;
|
|
Left = 17, ;
|
|
Name = "_lblday6_1", ;
|
|
Top = 121
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday6_2' AS _lblday WITH ;
|
|
Left = 37, ;
|
|
Name = "_lblday6_2", ;
|
|
Top = 121
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday6_3' AS _lblday WITH ;
|
|
Left = 57, ;
|
|
Name = "_lblday6_3", ;
|
|
Top = 121
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday6_4' AS _lblday WITH ;
|
|
Left = 77, ;
|
|
Name = "_lblday6_4", ;
|
|
Top = 121
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday6_5' AS _lblday WITH ;
|
|
Left = 97, ;
|
|
Name = "_lblday6_5", ;
|
|
Top = 121
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday6_6' AS _lblday WITH ;
|
|
Left = 117, ;
|
|
Name = "_lblday6_6", ;
|
|
Top = 121
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_lblday6_7' AS _lblday WITH ;
|
|
Left = 137, ;
|
|
Name = "_lblday6_7", ;
|
|
Top = 121
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'imgDown' AS image WITH ;
|
|
Height = 7, ;
|
|
Left = 153, ;
|
|
MousePointer = 15, ;
|
|
Name = "imgDown", ;
|
|
Picture = cal_arrow_down.png, ;
|
|
Stretch = 0, ;
|
|
Top = 16, ;
|
|
Width = 11
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'imgLeft' AS image WITH ;
|
|
Height = 16, ;
|
|
Left = 4, ;
|
|
MousePointer = 15, ;
|
|
Name = "imgLeft", ;
|
|
Picture = cal_arrow_left.png, ;
|
|
Top = 7, ;
|
|
Width = 16
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'imgRight' AS image WITH ;
|
|
Height = 16, ;
|
|
Left = 93, ;
|
|
MousePointer = 15, ;
|
|
Name = "imgRight", ;
|
|
Picture = cal_arrow_right.png, ;
|
|
Top = 7, ;
|
|
Width = 16
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'imgUp' AS image WITH ;
|
|
Height = 7, ;
|
|
Left = 153, ;
|
|
MousePointer = 15, ;
|
|
Name = "imgUp", ;
|
|
Picture = cal_arrow_up.png, ;
|
|
Stretch = 0, ;
|
|
Top = 7, ;
|
|
Width = 11
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'lblDayName1' AS label WITH ;
|
|
Alignment = 2, ;
|
|
BackStyle = 0, ;
|
|
Caption = "M", ;
|
|
FontBold = .T., ;
|
|
FontName = "Tahoma", ;
|
|
FontSize = 8, ;
|
|
ForeColor = 255,128,128, ;
|
|
Height = 15, ;
|
|
Left = 18, ;
|
|
Name = "lblDayName1", ;
|
|
Top = 31, ;
|
|
Width = 14
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblDayName2' AS label WITH ;
|
|
Alignment = 2, ;
|
|
BackStyle = 0, ;
|
|
Caption = "S", ;
|
|
FontBold = .T., ;
|
|
FontName = "Tahoma", ;
|
|
FontSize = 8, ;
|
|
ForeColor = 196,196,255, ;
|
|
Height = 15, ;
|
|
Left = 38, ;
|
|
Name = "lblDayName2", ;
|
|
Top = 31, ;
|
|
Width = 14
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblDayName3' AS label WITH ;
|
|
Alignment = 2, ;
|
|
BackStyle = 0, ;
|
|
Caption = "S", ;
|
|
FontBold = .T., ;
|
|
FontName = "Tahoma", ;
|
|
FontSize = 8, ;
|
|
ForeColor = 196,196,255, ;
|
|
Height = 15, ;
|
|
Left = 58, ;
|
|
Name = "lblDayName3", ;
|
|
Top = 31, ;
|
|
Width = 14
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblDayName4' AS label WITH ;
|
|
Alignment = 2, ;
|
|
BackStyle = 0, ;
|
|
Caption = "R", ;
|
|
FontBold = .T., ;
|
|
FontName = "Tahoma", ;
|
|
FontSize = 8, ;
|
|
ForeColor = 196,196,255, ;
|
|
Height = 15, ;
|
|
Left = 78, ;
|
|
Name = "lblDayName4", ;
|
|
Top = 31, ;
|
|
Width = 14
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblDayName5' AS label WITH ;
|
|
Alignment = 2, ;
|
|
BackStyle = 0, ;
|
|
Caption = "K", ;
|
|
FontBold = .T., ;
|
|
FontName = "Tahoma", ;
|
|
FontSize = 8, ;
|
|
ForeColor = 196,196,255, ;
|
|
Height = 15, ;
|
|
Left = 98, ;
|
|
Name = "lblDayName5", ;
|
|
Top = 31, ;
|
|
Width = 14
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblDayName6' AS label WITH ;
|
|
Alignment = 2, ;
|
|
BackStyle = 0, ;
|
|
Caption = "J", ;
|
|
FontBold = .T., ;
|
|
FontName = "Tahoma", ;
|
|
FontSize = 8, ;
|
|
ForeColor = 196,196,255, ;
|
|
Height = 15, ;
|
|
Left = 118, ;
|
|
Name = "lblDayName6", ;
|
|
Top = 31, ;
|
|
Width = 14
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblDayName7' AS label WITH ;
|
|
Alignment = 2, ;
|
|
BackStyle = 0, ;
|
|
Caption = "S", ;
|
|
FontBold = .T., ;
|
|
FontName = "Tahoma", ;
|
|
FontSize = 8, ;
|
|
ForeColor = 196,196,255, ;
|
|
Height = 15, ;
|
|
Left = 138, ;
|
|
Name = "lblDayName7", ;
|
|
Top = 31, ;
|
|
Width = 14
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
|
BackColor = 196,196,255, ;
|
|
Height = 28, ;
|
|
Left = 1, ;
|
|
Name = "Shape1", ;
|
|
Top = 1, ;
|
|
Width = 166
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
|
BackColor = 196,196,255, ;
|
|
Height = 28, ;
|
|
Left = 1, ;
|
|
Name = "Shape2", ;
|
|
Top = 139, ;
|
|
Width = 166
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'shpToday' AS shape WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
Height = 28, ;
|
|
Left = 2, ;
|
|
MousePointer = 15, ;
|
|
Name = "shpToday", ;
|
|
Top = 140, ;
|
|
Width = 164
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'txtMonth' AS textbox WITH ;
|
|
Alignment = 2, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
FontBold = .T., ;
|
|
FontName = "Tahoma", ;
|
|
FontSize = 8, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 23, ;
|
|
Left = 2, ;
|
|
MousePointer = 1, ;
|
|
Name = "txtMonth", ;
|
|
SpecialEffect = 1, ;
|
|
Themes = .F., ;
|
|
Top = 5, ;
|
|
Value = , ;
|
|
Width = 112
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtToday' AS textbox WITH ;
|
|
Alignment = 2, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
FontBold = .T., ;
|
|
FontName = "Tahoma", ;
|
|
FontSize = 8, ;
|
|
ForeColor = 62,62,255, ;
|
|
Height = 23, ;
|
|
Left = 4, ;
|
|
MousePointer = 1, ;
|
|
Name = "txtToday", ;
|
|
SpecialEffect = 1, ;
|
|
Themes = .F., ;
|
|
Top = 143, ;
|
|
Value = , ;
|
|
Width = 160
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtYear' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
FontBold = .T., ;
|
|
FontName = "Tahoma", ;
|
|
FontSize = 8, ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 23, ;
|
|
Left = 111, ;
|
|
MousePointer = 1, ;
|
|
Name = "txtYear", ;
|
|
SpecialEffect = 1, ;
|
|
Themes = .F., ;
|
|
Top = 5, ;
|
|
Value = , ;
|
|
Width = 42
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE dayclick
|
|
ENDPROC
|
|
|
|
PROCEDURE firstdayoftheweek_assign
|
|
Lparameters vNewVal
|
|
*To do: Modify this routine for the Assign method
|
|
With This
|
|
.FirstDayOfTheWeek = m.vNewVal
|
|
.lblDayName1.ForeColor = .notherscolour
|
|
.lblDayName2.ForeColor = .notherscolour
|
|
.lblDayName3.ForeColor = .notherscolour
|
|
.lblDayName4.ForeColor = .notherscolour
|
|
.lblDayName5.ForeColor = .notherscolour
|
|
.lblDayName6.ForeColor = .notherscolour
|
|
.lblDayName7.ForeColor = .notherscolour
|
|
Do Case
|
|
Case .FirstDayOfTheWeek = 1 && Sunday
|
|
.lblDayName1.ForeColor = .nsundaycolour
|
|
.nsunday = 1
|
|
.lblDayName1.Caption = .cdayname1
|
|
.lblDayName2.Caption = .cdayname2
|
|
.lblDayName3.Caption = .cdayname3
|
|
.lblDayName4.Caption = .cdayname4
|
|
.lblDayName5.Caption = .cdayname5
|
|
.lblDayName6.Caption = .cdayname6
|
|
.lblDayName7.Caption = .cdayname7
|
|
Case .FirstDayOfTheWeek = 2 && Monday
|
|
.lblDayName7.ForeColor = .nsundaycolour
|
|
.nsunday = 7
|
|
.lblDayName1.Caption = .cdayname2
|
|
.lblDayName2.Caption = .cdayname3
|
|
.lblDayName3.Caption = .cdayname4
|
|
.lblDayName4.Caption = .cdayname5
|
|
.lblDayName5.Caption = .cdayname6
|
|
.lblDayName6.Caption = .cdayname7
|
|
.lblDayName7.Caption = .cdayname1
|
|
Case .FirstDayOfTheWeek = 3 && Tuesday
|
|
.lblDayName6.ForeColor = .nsundaycolour
|
|
.nsunday = 6
|
|
.lblDayName1.Caption = .cdayname3
|
|
.lblDayName2.Caption = .cdayname4
|
|
.lblDayName3.Caption = .cdayname5
|
|
.lblDayName4.Caption = .cdayname6
|
|
.lblDayName5.Caption = .cdayname7
|
|
.lblDayName6.Caption = .cdayname1
|
|
.lblDayName7.Caption = .cdayname2
|
|
Case .FirstDayOfTheWeek = 4 && Wednesday
|
|
.lblDayName5.ForeColor = .nsundaycolour
|
|
.nsunday = 5
|
|
.lblDayName1.Caption = .cdayname4
|
|
.lblDayName2.Caption = .cdayname5
|
|
.lblDayName3.Caption = .cdayname6
|
|
.lblDayName4.Caption = .cdayname7
|
|
.lblDayName5.Caption = .cdayname1
|
|
.lblDayName6.Caption = .cdayname2
|
|
.lblDayName7.Caption = .cdayname3
|
|
Case .FirstDayOfTheWeek = 5 && Thursday
|
|
.lblDayName4.ForeColor = .nsundaycolour
|
|
.nsunday = 4
|
|
.lblDayName1.Caption = .cdayname5
|
|
.lblDayName2.Caption = .cdayname6
|
|
.lblDayName3.Caption = .cdayname7
|
|
.lblDayName4.Caption = .cdayname1
|
|
.lblDayName5.Caption = .cdayname2
|
|
.lblDayName6.Caption = .cdayname3
|
|
.lblDayName7.Caption = .cdayname4
|
|
Case .FirstDayOfTheWeek = 6 && Friday
|
|
.lblDayName3.ForeColor = .nsundaycolour
|
|
.nsunday = 3
|
|
.lblDayName1.Caption = .cdayname6
|
|
.lblDayName2.Caption = .cdayname7
|
|
.lblDayName3.Caption = .cdayname1
|
|
.lblDayName4.Caption = .cdayname2
|
|
.lblDayName5.Caption = .cdayname3
|
|
.lblDayName6.Caption = .cdayname4
|
|
.lblDayName7.Caption = .cdayname5
|
|
Otherwise && Saturday
|
|
.lblDayName2.ForeColor = .nsundaycolour
|
|
.nsunday = 2
|
|
.lblDayName1.Caption = .cdayname7
|
|
.lblDayName2.Caption = .cdayname1
|
|
.lblDayName3.Caption = .cdayname2
|
|
.lblDayName4.Caption = .cdayname3
|
|
.lblDayName5.Caption = .cdayname4
|
|
.lblDayName6.Caption = .cdayname5
|
|
.lblDayName7.Caption = .cdayname6
|
|
Endcase
|
|
Endwith
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
LPARAMETERS tdValue
|
|
|
|
WITH this
|
|
.nsundaycolour = RGB(255,128,128)
|
|
.notherscolour = RGB(196,196,255)
|
|
IF VARTYPE(m.tdValue) == 'D'
|
|
.Value = m.tdValue
|
|
ELSE
|
|
.Value = DATE()
|
|
ENDIF
|
|
.Language = .Language
|
|
.Redraw()
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROTECTED PROCEDURE language_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
WITH this
|
|
.Language = m.vNewVal
|
|
IF .Language == 'RO'
|
|
.cDayName1 = 'D'
|
|
.cDayName2 = 'L'
|
|
.cDayName3 = 'M'
|
|
.cDayName4 = 'M'
|
|
.cDayName5 = 'J'
|
|
.cDayName6 = 'V'
|
|
.cDayName7 = 'S'
|
|
.MonthNames = "Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie"
|
|
.TodayString = "Azi"
|
|
.FirstDayOfTheWeek = 2
|
|
ELSE
|
|
.cDayName1 = 'S'
|
|
.cDayName2 = 'M'
|
|
.cDayName3 = 'T'
|
|
.cDayName4 = 'W'
|
|
.cDayName5 = 'T'
|
|
.cDayName6 = 'F'
|
|
.cDayName7 = 'S'
|
|
.MonthNames = "January February March April May June July August September October November December"
|
|
.TodayString = "Today"
|
|
.FirstDayOfTheWeek = 1
|
|
ENDIF
|
|
.Redraw()
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE monthclick
|
|
ENDPROC
|
|
|
|
PROCEDURE MouseEnter
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF this.Enabled
|
|
this.ShowTips = thisform.ShowTips
|
|
thisform.ShowTips = .T.
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE MouseLeave
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF this.Enabled
|
|
thisform.ShowTips = this.ShowTips
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE redraw
|
|
WITH this
|
|
FOR EACH m.loCtl IN .Controls
|
|
IF UPPER(m.loCtl.Class) == '_LBLDAY'
|
|
m.loCtl.ToolTipText = ''
|
|
m.loCtl.Visible = .F.
|
|
ENDIF
|
|
ENDFOR
|
|
|
|
*!* IF !USED('holiday')
|
|
*!* USE holiday IN 0
|
|
*!* ENDIF
|
|
|
|
*!* m.lcSelect = SELECT()
|
|
*!* SELECT holiday
|
|
*!* SET ORDER TO TAG hdate
|
|
|
|
m.lnMonth = MONTH(.Value)
|
|
m.lnYear = YEAR(.Value)
|
|
m.lnDay = DAY(.Value)
|
|
m.lnLastDay = GOMONTH(.Value, 1) - .Value
|
|
m.ldToday = DATE()
|
|
m.lnToday = DAY(m.ldToday)
|
|
.txtMonth.Value = GETWORDNUM(.MonthNames, m.lnMonth)
|
|
.txtYear.Value = TRANSFORM(m.lnYear)
|
|
m.lcDates = DTOS(m.ldToday)
|
|
IF .Language == 'EN'
|
|
.txtToday.Value = .TodayString + ": " + SUBSTR(m.lcDates,5,2)+'/'+RIGHT(m.lcDates,2)+'/'+LEFT(m.lcDates,4)
|
|
ELSE
|
|
.txtToday.Value = .TodayString + ": " + RIGHT(m.lcDates,2)+'-'+SUBSTR(m.lcDates,5,2)+'-'+LEFT(m.lcDates,4)
|
|
ENDIF
|
|
m.lnWeek = 1
|
|
m.ldDate = EVALUATE("{^"+TRANSFORM(LEFT(DTOS(.Value),6)+"01", "@R 9999-99-99")+"}")
|
|
FOR m.lnDays = 1 TO m.lnLastDay
|
|
m.ldCurDate = m.ldDate + (m.lnDays-1)
|
|
m.lnDow = DOW(m.ldCurDate,.firstdayoftheweek)
|
|
m.loLbl = EVALUATE("this._lblday" + TRANSFORM(m.lnWeek) + "_" + TRANSFORM(m.lnDow))
|
|
m.loLbl.Visible = .T.
|
|
m.loLbl.Caption = TRANSFORM(m.lnDays)
|
|
IF m.lnDays == m.lnDay
|
|
m.loLbl.BackColor = This.notherscolour
|
|
m.loLbl.ForeColor = RGB(255, 255, 255)
|
|
ELSE
|
|
m.loLbl.BackColor = RGB(255, 255, 255)
|
|
*!* IF SEEK (m.ldCurDate)
|
|
*!* m.loLbl.ForeColor = RGB(255, 128, 128)
|
|
*!* IF .Language == 'EN'
|
|
*!* m.loLbl.ToolTipText = ALLTRIM(holiday.hdescen)
|
|
*!* ELSE
|
|
*!* m.loLbl.ToolTipText = ALLTRIM(holiday.hdesc)
|
|
*!* ENDIF
|
|
*!* ELSE
|
|
IF m.lnDow = This.nSunday
|
|
m.loLbl.ForeColor = This.nsundaycolour
|
|
ELSE
|
|
m.loLbl.ForeColor = RGB(0, 0, 0)
|
|
ENDIF
|
|
*!* ENDIF
|
|
ENDIF
|
|
IF m.ldCurDate == m.ldToday
|
|
m.loLbl.BackColor = This.nsundaycolour
|
|
m.loLbl.ForeColor = RGB(255, 255, 255)
|
|
ENDIF
|
|
IF m.lnDow == 7
|
|
m.lnWeek = m.lnWeek + 1
|
|
ENDIF
|
|
ENDFOR
|
|
|
|
*!* IF !EMPTY(m.lcSelect)
|
|
*!* SELECT (lcSelect)
|
|
*!* ENDIF
|
|
|
|
*!* IF USED('holiday')
|
|
*!* USE IN holiday
|
|
*!* ENDIF
|
|
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE todayclick
|
|
ENDPROC
|
|
|
|
PROCEDURE valuechanged
|
|
ENDPROC
|
|
|
|
HIDDEN PROCEDURE value_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
WITH this
|
|
.Value = m.vNewVal
|
|
.Day = DAY(m.vNewVal)
|
|
.Month = MONTH(m.vNewVal)
|
|
.Year = YEAR(m.vNewVal)
|
|
.ValueChanged()
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE yearclick
|
|
ENDPROC
|
|
|
|
PROCEDURE imgDown.MouseDown
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF m.nButton == 1
|
|
WITH this.Parent
|
|
IF .Year > 1900
|
|
.Value = GOMONTH(.Value, -12)
|
|
.Redraw()
|
|
.YearClick()
|
|
ENDIF
|
|
ENDWITH
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE imgDown.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE imgLeft.MouseDown
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF m.nButton == 1
|
|
WITH this.Parent
|
|
IF .Enabled
|
|
.Value = GOMONTH(.Value, -1)
|
|
.Redraw()
|
|
.MonthClick()
|
|
ENDIF
|
|
ENDWITH
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE imgLeft.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF this.Parent.Enabled
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE imgRight.MouseDown
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF m.nButton == 1
|
|
WITH this.Parent
|
|
IF .Enabled
|
|
.Value = GOMONTH(.Value, 1)
|
|
.Redraw()
|
|
.MonthClick()
|
|
ENDIF
|
|
ENDWITH
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE imgRight.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF this.Parent.Enabled
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE imgUp.MouseDown
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF m.nButton == 1
|
|
WITH this.Parent
|
|
IF .Year < 2099
|
|
.Value = GOMONTH(.Value, 12)
|
|
.Redraw()
|
|
.YearClick()
|
|
ENDIF
|
|
ENDWITH
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE imgUp.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE lblDayName1.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE lblDayName2.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE lblDayName3.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE lblDayName4.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE lblDayName5.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE lblDayName6.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE lblDayName7.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Shape1.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF this.Parent.Enabled
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Shape2.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF this.Parent.Enabled
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE shpToday.MouseDown
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF m.nButton == 1
|
|
WITH this.Parent
|
|
IF .Enabled
|
|
.Value = DATE()
|
|
.Redraw()
|
|
.TodayClick()
|
|
ENDIF
|
|
ENDWITH
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE shpToday.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF this.Parent.Enabled
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtMonth.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF this.Parent.Enabled
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtMonth.When
|
|
RETURN .F.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtToday.When
|
|
RETURN .F.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtYear.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF this.Parent.Enabled
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtYear.When
|
|
RETURN .F.
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS _calpopup AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Timer1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Calendar" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: form_deactivate
|
|
*m: form_moved
|
|
*m: form_resize
|
|
*m: hideform
|
|
*m: language_assign
|
|
*m: showform
|
|
*p: idletime
|
|
*p: is_formshow
|
|
*p: language
|
|
*p: lastactivity
|
|
*p: odatepicker
|
|
*p: oform
|
|
*p: shadowed
|
|
*p: _memberdata && XML Metadata for customizable properties
|
|
*p: _originalvalue
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 0
|
|
Caption = ""
|
|
Closable = .F.
|
|
ControlBox = .F.
|
|
DoCreate = .T.
|
|
Height = 168
|
|
idletime = 50
|
|
is_formshow = .F.
|
|
KeyPreview = .T.
|
|
language = RO
|
|
lastactivity = .F.
|
|
Left = 0
|
|
MaxButton = .F.
|
|
MinButton = .F.
|
|
Name = "_calpopup"
|
|
odatepicker = .F.
|
|
oform = .F.
|
|
shadowed = .T.
|
|
ShowInTaskBar = .F.
|
|
TitleBar = 0
|
|
Top = 0
|
|
Width = 168
|
|
_memberdata = <VFPData>
|
|
<memberdata name="shadowed" type="property" display="Shadowed"/>
|
|
<memberdata name="language" type="property" display="Language"/>
|
|
<memberdata name="idletime" type="property" display="IdleTime"/>
|
|
</VFPData>
|
|
_originalvalue = {}
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Calendar' AS _calendar WITH ;
|
|
Left = 0, ;
|
|
Name = "Calendar", ;
|
|
Top = 0, ;
|
|
Shape2.Name = "Shape2", ;
|
|
Shape1.Name = "Shape1", ;
|
|
txtToday.Name = "txtToday", ;
|
|
txtMonth.Name = "txtMonth", ;
|
|
txtYear.Name = "txtYear", ;
|
|
_lblday1_1.Name = "_lblday1_1", ;
|
|
_lblday1_2.Name = "_lblday1_2", ;
|
|
_lblday1_3.Name = "_lblday1_3", ;
|
|
_lblday1_4.Name = "_lblday1_4", ;
|
|
_lblday1_5.Name = "_lblday1_5", ;
|
|
_lblday1_6.Name = "_lblday1_6", ;
|
|
_lblday1_7.Name = "_lblday1_7", ;
|
|
lblDayName2.Name = "lblDayName2", ;
|
|
lblDayName3.Name = "lblDayName3", ;
|
|
lblDayName4.Name = "lblDayName4", ;
|
|
lblDayName5.Name = "lblDayName5", ;
|
|
lblDayName6.Name = "lblDayName6", ;
|
|
lblDayName7.Name = "lblDayName7", ;
|
|
lblDayName1.Name = "lblDayName1", ;
|
|
_lblday2_1.Name = "_lblday2_1", ;
|
|
_lblday2_2.Name = "_lblday2_2", ;
|
|
_lblday2_3.Name = "_lblday2_3", ;
|
|
_lblday2_4.Name = "_lblday2_4", ;
|
|
_lblday2_5.Name = "_lblday2_5", ;
|
|
_lblday2_6.Name = "_lblday2_6", ;
|
|
_lblday2_7.Name = "_lblday2_7", ;
|
|
_lblday3_1.Name = "_lblday3_1", ;
|
|
_lblday3_2.Name = "_lblday3_2", ;
|
|
_lblday3_3.Name = "_lblday3_3", ;
|
|
_lblday3_4.Name = "_lblday3_4", ;
|
|
_lblday3_5.Name = "_lblday3_5", ;
|
|
_lblday3_6.Name = "_lblday3_6", ;
|
|
_lblday3_7.Name = "_lblday3_7", ;
|
|
_lblday4_1.Name = "_lblday4_1", ;
|
|
_lblday4_2.Name = "_lblday4_2", ;
|
|
_lblday4_3.Name = "_lblday4_3", ;
|
|
_lblday4_4.Name = "_lblday4_4", ;
|
|
_lblday4_5.Name = "_lblday4_5", ;
|
|
_lblday4_6.Name = "_lblday4_6", ;
|
|
_lblday4_7.Name = "_lblday4_7", ;
|
|
_lblday5_1.Name = "_lblday5_1", ;
|
|
_lblday5_2.Name = "_lblday5_2", ;
|
|
_lblday5_3.Name = "_lblday5_3", ;
|
|
_lblday5_4.Name = "_lblday5_4", ;
|
|
_lblday5_5.Name = "_lblday5_5", ;
|
|
_lblday5_6.Name = "_lblday5_6", ;
|
|
_lblday5_7.Name = "_lblday5_7", ;
|
|
_lblday6_1.Name = "_lblday6_1", ;
|
|
_lblday6_2.Name = "_lblday6_2", ;
|
|
_lblday6_3.Name = "_lblday6_3", ;
|
|
_lblday6_4.Name = "_lblday6_4", ;
|
|
_lblday6_5.Name = "_lblday6_5", ;
|
|
_lblday6_6.Name = "_lblday6_6", ;
|
|
_lblday6_7.Name = "_lblday6_7", ;
|
|
imgLeft.Height = 16, ;
|
|
imgLeft.Name = "imgLeft", ;
|
|
imgLeft.Width = 16, ;
|
|
imgRight.Height = 16, ;
|
|
imgRight.Name = "imgRight", ;
|
|
imgRight.Width = 16, ;
|
|
imgUp.Height = 7, ;
|
|
imgUp.Name = "imgUp", ;
|
|
imgUp.Width = 11, ;
|
|
imgDown.Height = 7, ;
|
|
imgDown.Name = "imgDown", ;
|
|
imgDown.Width = 11, ;
|
|
shpToday.Name = "shpToday"
|
|
*< END OBJECT: ClassLib="_calendar.vcx" BaseClass="control" />
|
|
|
|
ADD OBJECT 'Timer1' AS timer WITH ;
|
|
Enabled = .F., ;
|
|
Height = 23, ;
|
|
Interval = 50, ;
|
|
Left = 154, ;
|
|
Name = "Timer1", ;
|
|
Top = 154, ;
|
|
Width = 23
|
|
*< END OBJECT: BaseClass="timer" />
|
|
|
|
PROCEDURE Deactivate
|
|
thisform.HideForm()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE form_deactivate
|
|
ENDPROC
|
|
|
|
PROCEDURE form_moved
|
|
ENDPROC
|
|
|
|
PROCEDURE form_resize
|
|
ENDPROC
|
|
|
|
PROCEDURE hideform
|
|
#define GCL_STYLE (-26)
|
|
#define CS_DROPSHADOW 0x00020000
|
|
|
|
WITH this
|
|
IF .is_formshow
|
|
.Timer1.Enabled = .F.
|
|
.is_formshow = .F.
|
|
UNBINDEVENTS(.oForm, "Resize", this, "HideForm")
|
|
|
|
DECLARE LONG ReleaseCapture IN WIN32API AS API_ReleaseCapture
|
|
API_ReleaseCapture()
|
|
|
|
.Visible = .F.
|
|
|
|
IF .Shadowed
|
|
DECLARE LONG GetClassLong IN WIN32API AS API_GetClassLong LONG, LONG
|
|
DECLARE LONG SetClassLong IN WIN32API AS API_SetClassLong LONG, LONG, LONG
|
|
m.lnStyle = API_GetClassLong(.HWnd, GCL_STYLE)
|
|
API_SetClassLong(.HWnd, GCL_STYLE, BITAND(m.lnStyle, BITNOT(CS_DROPSHADOW)))
|
|
ENDIF
|
|
|
|
.oDatePicker.SetFocus()
|
|
.Release()
|
|
ENDIF
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
LPARAMETERS toObject, toForm
|
|
|
|
WITH this
|
|
.Name = SYS(2015)
|
|
.oDatePicker = m.toObject
|
|
.oForm = m.toForm
|
|
.Calendar.Value = IIF(EMPTY(m.toObject.Value), DATE(), m.toObject.Value)
|
|
._OriginalValue = m.toObject.Value
|
|
.Language = .Language
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE KeyPress
|
|
LPARAMETERS nKeyCode, nShiftAltCtrl
|
|
|
|
m.llRelease = .F.
|
|
|
|
WITH thisform
|
|
DO CASE
|
|
CASE m.nKeyCode == 27
|
|
m.llRelease = .T.
|
|
.oDatePicker.Value = ._OriginalValue
|
|
CASE m.nKeyCode == 13
|
|
m.llRelease = .T.
|
|
ENDCASE
|
|
IF m.llRelease
|
|
.HideForm()
|
|
ENDIF
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
HIDDEN PROCEDURE language_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
WITH this
|
|
.Language = m.vNewVal
|
|
.Calendar.Language = m.vNewVal
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE showform
|
|
LPARAMETERS x, y
|
|
|
|
DECLARE LONG SetWindowPos IN WIN32API AS API_SetWindowPos LONG, LONG, LONG, LONG, LONG, LONG, LONG
|
|
DECLARE LONG ClientToScreen IN WIN32API AS API_ClientToScreen LONG, STRING @
|
|
DECLARE LONG SetWindowLongA IN WIN32API AS API_SetWindowLong LONG, LONG, LONG
|
|
DECLARE LONG GetWindowLongA IN WIN32API AS API_GetWindowLong LONG, LONG
|
|
DECLARE LONG SetParent IN WIN32API AS API_SetParent LONG, LONG
|
|
DECLARE LONG SetFocus IN WIN32API AS API_SetFocus LONG
|
|
DECLARE LONG SetCapture IN WIN32API AS API_SetCapture LONG
|
|
|
|
#define SWP_SHOWWINDOW 0x0040
|
|
#define GWL_EXSTYLE (-20)
|
|
#define WS_EX_TOOLWINDOW 0x00000080
|
|
#define WS_EX_APPWINDOW 0x00040000
|
|
#define WS_EX_TOPMOST 0x8
|
|
#define GCL_STYLE (-26)
|
|
#define CS_DROPSHADOW 0x00020000
|
|
|
|
WITH thisform
|
|
ACTIVATE WINDOW (.Name) IN WINDOW (.oForm.Name) NOSHOW
|
|
|
|
m.lhWnd = .hWnd
|
|
|
|
m.lStyle = API_GetWindowLong(m.lhWnd, GWL_EXSTYLE)
|
|
m.lStyle = BITAND(BITOR(m.lStyle, WS_EX_TOOLWINDOW), BITNOT(WS_EX_APPWINDOW))
|
|
API_SetWindowLong(m.lhWnd, GWL_EXSTYLE, m.lStyle)
|
|
|
|
m.lParentHWnd = .oForm.hWnd
|
|
|
|
m.lqPt = BINTOC(x, '4RS')+BINTOC(y, '4RS')
|
|
API_ClientToScreen(m.lParentHWnd, @lqPt)
|
|
x = CTOBIN(SUBSTR(m.lqPt, 1, 4), '4RS')
|
|
y = CTOBIN(SUBSTR(m.lqPt, 5, 4), '4RS')
|
|
|
|
IF ((x + .Width) > SYSMETRIC(1))
|
|
x = SYSMETRIC(1) - .Width - 2
|
|
ENDIF
|
|
|
|
IF ((y + .Height) > SYSMETRIC(2))
|
|
y = y - .Height - this.oDatePicker.Height + 2
|
|
ENDIF
|
|
|
|
IF .Shadowed
|
|
DECLARE LONG GetClassLong IN WIN32API AS API_GetClassLong LONG, LONG
|
|
DECLARE LONG SetClassLong IN WIN32API AS API_SetClassLong LONG, LONG, LONG
|
|
m.lnStyle = API_GetClassLong(m.lhWnd, GCL_STYLE)
|
|
API_SetClassLong(m.lhWnd, GCL_STYLE, BITOR(m.lnStyle, CS_DROPSHADOW))
|
|
ENDIF
|
|
|
|
API_SetParent(m.lhWnd, 0)
|
|
API_SetWindowPos(m.lhWnd, 0, x, y, .Width, .Height, SWP_SHOWWINDOW)
|
|
|
|
.Visible = .T.
|
|
.ZOrder(0)
|
|
.AlwaysOnTop = .T.
|
|
|
|
API_SetFocus(m.lhWnd)
|
|
API_SetCapture(m.lhWnd)
|
|
|
|
.is_formshow = .T.
|
|
|
|
BINDEVENT(.oForm, "Resize", this, "HideForm")
|
|
|
|
.LastActivity = SECONDS()
|
|
|
|
.Timer1.Enabled = .T.
|
|
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Calendar.Click
|
|
thisform.LastActivity = SECONDS()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Calendar.dayclick
|
|
WITH thisform
|
|
.oDatePicker.Value = this.Value
|
|
.oDatePicker.SetFocus()
|
|
.HideForm()
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Calendar.monthclick
|
|
WITH thisform
|
|
.oDatePicker.Value = this.Value
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Calendar.MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
thisform.LastActivity = SECONDS()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Calendar.todayclick
|
|
WITH thisform
|
|
.oDatePicker.Value = this.Value
|
|
.HideForm()
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Calendar.valuechanged
|
|
thisform.LastActivity = SECONDS()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Calendar.yearclick
|
|
WITH thisform
|
|
.oDatePicker.Value = this.Value
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Timer1.Timer
|
|
#define VK_LBUTTON 0x01
|
|
#define VK_RBUTTON 0x02
|
|
#define VK_MBUTTON 0x04
|
|
|
|
DECLARE LONG GetAsyncKeyState IN WIN32API AS API_GetAsyncKeyState LONG
|
|
|
|
IF BITAND(API_GetAsyncKeyState(VK_LBUTTON), 0x8000) != 0 OR ;
|
|
BITAND(API_GetAsyncKeyState(VK_RBUTTON), 0x8000) != 0 OR ;
|
|
BITAND(API_GetAsyncKeyState(VK_MBUTTON), 0x8000) != 0
|
|
|
|
DECLARE LONG GetCursorPos IN WIN32API AS API_GetCursorPos STRING @
|
|
DECLARE LONG GetWindowRect IN WIN32API AS API_GetWindowRect LONG, STRING @
|
|
|
|
m.lqPos = REPLICATE(0h00, 8)
|
|
API_GetCursorPos(@lqPos)
|
|
m.lnX = CTOBIN(LEFT(m.lqPos, 4), '4RS')
|
|
m.lnY = CTOBIN(RIGHT(m.lqPos, 4), '4RS')
|
|
|
|
m.lqRect = REPLICATE(0h00, 16)
|
|
API_GetWindowRect(thisform.HWnd, @lqRect)
|
|
m.lnLeft = CTOBIN(SUBSTR(m.lqRect, 1, 4), '4RS')
|
|
m.lnTop = CTOBIN(SUBSTR(m.lqRect, 5, 4), '4RS')
|
|
m.lnRight = CTOBIN(SUBSTR(m.lqRect, 9, 4), '4RS')
|
|
m.lnBottom = CTOBIN(SUBSTR(m.lqRect, 13, 4), '4RS')
|
|
|
|
IF !BETWEEN(m.lnX, m.lnLeft, m.lnRight) OR !BETWEEN(m.lnY, m.lnTop, m.lnBottom)
|
|
this.Enabled = .F.
|
|
thisform.HideForm()
|
|
ENDIF
|
|
|
|
ELSE
|
|
IF thisform.IdleTime > 0
|
|
m.lnSeconds = SECONDS() - thisform.LastActivity
|
|
IF m.lnSeconds >= thisform.IdleTime
|
|
this.Enabled = .F.
|
|
thisform.HideForm()
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS _datepicker AS control
|
|
*< CLASSDATA: Baseclass="control" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtDate" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cmdPick" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: controlsource_assign
|
|
*m: loadcalendar
|
|
*m: value_access
|
|
*m: value_assign
|
|
*p: controlsource && Specifies the source of data to which an object is bound.
|
|
*p: idletime
|
|
*p: language
|
|
*p: opopup
|
|
*p: value && Specifies the current state of a control.
|
|
*p: _memberdata && XML Metadata for customizable properties
|
|
*</DefinedPropArrayMethod>
|
|
|
|
HIDDEN _memberdata
|
|
PROTECTED opopup
|
|
*<PropValue>
|
|
BorderWidth = 0
|
|
controlsource =
|
|
Height = 23
|
|
idletime = 50
|
|
language = EN
|
|
Name = "_datepicker"
|
|
opopup = .F.
|
|
value = {}
|
|
Width = 98
|
|
_memberdata = <VFPData>
|
|
<memberdata name="controlsource" type="property" display="ControlSource"/>
|
|
<memberdata name="value" type="property" display="Value"/>
|
|
<memberdata name="language" type="property" display="Language"/>
|
|
<memberdata name="idletime" type="property" display="IdleTime"/>
|
|
</VFPData>
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'cmdPick' AS commandbutton WITH ;
|
|
BackColor = 255,255,255, ;
|
|
Caption = "", ;
|
|
Height = 21, ;
|
|
Left = 76, ;
|
|
Name = "cmdPick", ;
|
|
Picture = caldropdown.bmp, ;
|
|
SpecialEffect = 2, ;
|
|
TabStop = .F., ;
|
|
Top = 1, ;
|
|
Width = 21
|
|
*< END OBJECT: BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
Height = 23, ;
|
|
Left = 0, ;
|
|
Name = "Text1", ;
|
|
TabStop = .F., ;
|
|
Top = 0, ;
|
|
Width = 98
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtDate' AS textbox WITH ;
|
|
Alignment = 3, ;
|
|
Format = "K", ;
|
|
Height = 23, ;
|
|
Left = 0, ;
|
|
Name = "txtDate", ;
|
|
Top = 0, ;
|
|
Value = {}, ;
|
|
Width = 76
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
HIDDEN PROCEDURE controlsource_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
WITH this
|
|
.ControlSource = m.vNewVal
|
|
.txtDate.ControlSource = m.vNewVal
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
WITH this
|
|
.txtDate.ControlSource = .ControlSource
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE loadcalendar
|
|
this.oPopup = CREATEOBJECT("_calpopup", this, thisform)
|
|
IF !ISNULL(this.oPopup)
|
|
this.oPopup.IdleTime = this.IdleTime
|
|
this.oPopup.Language = this.Language
|
|
* this.oPopup.ShowForm(this.Left, this.Top + this.Height - 1)
|
|
this.oPopup.ShowForm(OBJTOCLIENT(this, 2), OBJTOCLIENT(this,1) + this.Height - 1)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
HIDDEN PROCEDURE value_access
|
|
WITH this
|
|
RETURN .txtDate.Value
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
HIDDEN PROCEDURE value_assign
|
|
LPARAMETERS vNewVal
|
|
|
|
WITH this
|
|
.txtDate.Value = m.vNewVal
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cmdPick.Click
|
|
this.Parent.LoadCalendar()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text1.When
|
|
RETURN .F.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtDate.Init
|
|
WITH this
|
|
IF EMPTY(.Value)
|
|
.Value = DATE()
|
|
ENDIF
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS _lblday AS label
|
|
*< CLASSDATA: Baseclass="label" Timestamp="" Scale="Pixels" Uniqueid="" />
|
|
|
|
*<PropValue>
|
|
Alignment = 2
|
|
BackColor = 255,255,255
|
|
Caption = "00"
|
|
FontName = "Tahoma"
|
|
FontSize = 8
|
|
Height = 15
|
|
Name = "_lblday"
|
|
Width = 15
|
|
*</PropValue>
|
|
|
|
PROCEDURE Click
|
|
WITH this.Parent
|
|
IF .Enabled
|
|
.Value = EVALUATE("{^"+TRANSFORM(LEFT(DTOS(.Value),6)+ALLTRIM(this.Caption), "@R 9999-99-99")+"}")
|
|
.Redraw()
|
|
.DayClick()
|
|
ENDIF
|
|
ENDWITH
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE MouseDown
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF m.nButton == 1
|
|
IF this.Parent.Enabled
|
|
this.BorderStyle = 1
|
|
ENDIF
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE MouseMove
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF this.Parent.Enabled
|
|
this.Parent.MouseMove(nButton, nShift, nXCoord, nYCoord)
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE MouseUp
|
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
|
|
|
IF m.nButton == 1
|
|
IF this.Parent.Enabled
|
|
this.BorderStyle = 0
|
|
ENDIF
|
|
ENDIF
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|