Module SigCJMonthCalendarDemo.vw
1Use Windows.pkg
2Use DFClient.pkg
3Use Sysfile1.DD
4Use DFEntry.pkg
5Use SigCJMonthCalendar.sl
6Use dfSpnFrm.pkg
7Use cSigCJdbForm.pkg
8
9Deferred_View Activate_oSigCJMonthCalendarDemo_View for ;
10Object oSigCJMonthCalendarDemo_View is a dbView
11 Set Border_Style to Border_Thick
12 Set Size to 144 288
13 Set Location to 22 11
14 Set Icon to "SIG.ico"
15 Set Label to "Codejock Demo - Month Calendar"
16
17 Set Verify_Data_Loss_Msg to 0
18 Set Verify_Exit_Msg to 0
19 Set piMinSize to 144 288
20
21 Object oSysfile1_DD is a Sysfile1_DataDictionary
22 Set Auto_Fill_State to True
23 Set In_Use_State to True
24 End_Object
25
26 Set Main_DD to oSysfile1_DD
27 Set Server to oSysfile1_DD
28
29 Object oDate_Form is a cSigCjdbForm
30 Entry_Item Sysfile1.System_Date
31 Set Location to 57 39
32 Set Size to 13 66
33 Set Label to "Date"
34 Set Label_Col_Offset to 5
35 Set Label_Justification_Mode to JMode_Right
36
37 Procedure Prompt
38 Send ApplySettings
39 Forward Send Prompt
40 End_Procedure
41 End_Object
42
43 Object oGroup1 is a Group
44 Set Size to 136 155
45 Set Location to 4 129
46 Set Label to "Calendar Settings"
47 Set peAnchors to anTopBottomRight
48
49 Object oMonthColumns is a SpinForm
50 Set Size to 13 63
51 Set Location to 14 59
52 Set Label to "Month Columns"
53 Set Label_Col_Offset to 3
54 Set Label_Justification_Mode to JMode_Right
55 Set Maximum_Position to 12
56 Set Minimum_Position to 1
57 Set Value to "1"
58 End_Object
59
60 Object oMonthRows is a SpinForm
61 Set Size to 13 63
62 Set Location to 30 59
63 Set Label_Justification_Mode to JMode_Right
64 Set Label_Col_Offset to 3
65 Set Label to "Month Rows"
66 Set Minimum_Position to 1
67 Set Maximum_Position to 12
68 Set Value to "1"
69 End_Object
70
71 Object oShowToday is a CheckBox
72 Set Size to 10 50
73 Set Location to 50 59
74 Set Label to "Show Today"
75 Set Checked_State to True
76 End_Object
77
78 Object oShowWeekNumbers is a CheckBox
79 Set Size to 10 81
80 Set Location to 66 59
81 Set Label to "Show Week Numbers"
82 Set Checked_State to True
83 End_Object
84
85 Object oShowButtons is a CheckBox
86 Set Size to 10 81
87 Set Location to 82 59
88 Set Label to "Show Buttons"
89 Set Checked_State to True
90 End_Object
91
92 Object oHideBorder is a CheckBox
93 Set Size to 10 81
94 Set Location to 98 59
95 Set Label to "Hide Border"
96 Set Checked_State to True
97 End_Object
98
99 Object oStartOfWeek is a ComboForm
100 Set Size to 13 59
101 Set Location to 114 59
102 Set Label to "Start Of Week"
103 Set Label_Justification_Mode to JMode_Right
104 Set Label_Col_Offset to 3
105 Set Combo_Sort_State to False
106
107 Procedure Combo_Fill_List
108 Send Combo_Add_Item "Sunday"
109 Send Combo_Add_Item "Monday"
110 Send Combo_Add_Item "Tuesday"
111 Send Combo_Add_Item "Wednesday"
112 Send Combo_Add_Item "Thursday"
113 Send Combo_Add_Item "Friday"
114 Send Combo_Add_Item "Saturday"
115 End_Procedure
116
117 End_Object
118 End_Object
119
120 Procedure ApplySettings
121 Handle hoCalendar
122 String sDay
123 Integer iMonthColumns iMonthRows iStartOfWeek
124 Boolean bShowWeekNumbers bShowToday bShowButtons bHideBorder
125
126 Get phoMonthCalendar of oSigCJMonthCalendar_Lookup to hoCalendar
127 If (hoCalendar <> 0) Begin
128 Get value of oStartOfWeek to sDay
129 Move 6 to iStartOfWeek
130 If (sDay = "Sunday") Begin
131 Move 6 to iStartOfWeek
132 End
133 Else If (sDay = "Monday") Begin
134 Move 7 to iStartOfWeek
135 End
136 Else If (sDay = "Tuesday") Begin
137 Move 1 to iStartOfWeek
138 End
139 Else If (sDay = "Wednesday") Begin
140 Move 2 to iStartOfWeek
141 End
142 Else If (sDay = "Thursday") Begin
143 Move 3 to iStartOfWeek
144 End
145 Else If (sDay = "Friday") Begin
146 Move 4 to iStartOfWeek
147 End
148 Else If (sDay = "Saturday") Begin
149 Move 5 to iStartOfWeek
150 End
151 Get Checked_State of oShowToday to bShowToday
152 Get Checked_State of oShowWeekNumbers to bShowWeekNumbers
153 Get Checked_State of oShowButtons to bShowButtons
154 Get Checked_State of oHideBorder to bHideBorder
155 Get value of oMonthColumns to iMonthColumns
156 Get Value of oMonthRows to iMonthRows
157
158 Set pbShowWeekNumbers of hoCalendar to bShowWeekNumbers
159 Set pbShowToday of hoCalendar to bShowToday
160 Set pbShowButtons of hoCalendar to bShowButtons
161 Set pbHideBorder of hoCalendar to bHideBorder
162 Set piStartOfWeek of hoCalendar to iStartOfWeek
163 Set piMonthColumns of hoCalendar to iMonthColumns
164 Set piMonthRows of hoCalendar to iMonthRows
165 End
166 End_Procedure
167
168Cd_End_Object
169