Module oCalendar_Properties.pkg
1Use cSigCJPropertyGrid.pkg
2
3 Object oSigCJCalendar_PropertyGrid is a cSigCJPropertyGrid
4 Set Size to 169 151
5 Set Location to 1 0
6 Set Border_Style to Border_None
7 Set peAnchors to anAll
8
9 Set piHelpHeight to 60
10 Set prSplitterPos to 0.5
11 Set pbVariableSplitterPos to True
12 Set phoMainContainerObjectID to (Parent(Self))
13 Set pbVariableHelpHeight to True
14
15 Object oCtgry_Class is a cSigCJPropertyGridCategory
16 Set psLabel to "Class"
17 Set psHelpText to "Non OCX Properties"
18
19 Object oItem_Use_Icons is a cSigCJPropertyGridItem
20 Set psLabel to "Use Icons"
21 Set psHelpText to "Use custom icons instead of Glyphs. Only applies when theme set to Office 07"
22 Set peItemType to ePGItype_Boolean
23 Set pvInitialValue to (If(pbUseIcons(oSigCJCalendarControl1),"True","False"))
24
25 Procedure OnChange
26 Boolean bValue
27
28 Get pvValue to bValue
29 Set pbUseIcons of oSigCJCalendarControl1 to bValue
30 End_Procedure
31 End_Object
32
33 Object oItem_Use_Icons is a cSigCJPropertyGridItem
34 Set psLabel to "Custom Icons"
35 Set psHelpText to "Allow custom icons to added to events"
36 Set peItemType to ePGItype_Boolean
37 Set pvInitialValue to (If(pbUseCustomIcons(oSigCJCalendarControl1),"True","False"))
38
39 Procedure OnChange
40 Boolean bValue
41
42 Get pvValue to bValue
43 Set pbUseCustomIcons of oSigCJCalendarControl1 to bValue
44 End_Procedure
45 End_Object
46
47 Object oItem_Use_Icons is a cSigCJPropertyGridItem
48 Set psLabel to "Custom Properties"
49 Set psHelpText to "Allow custom properties to added to events"
50 Set peItemType to ePGItype_Boolean
51 Set pvInitialValue to (If(pbUseCustomProperties(oSigCJCalendarControl1),"True","False"))
52
53 Procedure OnChange
54 Boolean bValue
55
56 Get pvValue to bValue
57 Set pbUseCustomProperties of oSigCJCalendarControl1 to bValue
58 End_Procedure
59 End_Object
60
61 End_Object
62
63 Object oCtgry_Main is a cSigCJPropertyGridCategory
64 Set psLabel to "Main"
65 Set psHelpText to "Calendar Properties"
66
67 Object oCtgry_CaptionBar is a cSigCJPropertyGridItem
68 Set psLabel to "Caption Bar"
69 Set psHelpText to "Set options for the caption bar"
70
71 Object oItem_ShowBar is a cSigCJPropertyGridItem
72 Set psLabel to "Show Bar"
73 Set psHelpText to "Display the calendar caption bar."
74 Set peItemType to ePGItype_Boolean
75 Set pvInitialValue to (If(peCaptionBar(oSigCJCalendarControl1) iand eCal_ShowCaptionBar,"True","False"))
76
77 Procedure OnChange
78 Send Update_Caption_bar
79 End_Procedure
80 End_Object
81
82 Object oItem_Show_Date is a cSigCJPropertyGridItem
83 Set psLabel to "Show Date"
84 Set psHelpText to "Display the calendar caption bar date label."
85 Set peItemType to ePGItype_Boolean
86 Set pvInitialValue to (If(peCaptionBar(oSigCJCalendarControl1) iand eCal_CaptionBarDateLabel,"True","False"))
87
88 Procedure OnChange
89 Send Update_Caption_bar
90 End_Procedure
91 End_Object
92
93 Object oItem_Show_Date_Nav is a cSigCJPropertyGridItem
94 Set psLabel to "Show Date Buttons"
95 Set psHelpText to "Display the calendar caption bar scroll date buttons."
96 Set peItemType to ePGItype_Boolean
97 Set pvInitialValue to (If(peCaptionBar(oSigCJCalendarControl1) iand eCal_CaptionBarScrollDateButtons,"True","False"))
98
99 Procedure OnChange
100 Send Update_Caption_bar
101 End_Procedure
102 End_Object
103
104 Object oItem_Show_View_Nav is a cSigCJPropertyGridItem
105 Set psLabel to "Show View Buttons"
106 Set psHelpText to "Displaythe calendar caption bar switch view buttons."
107 Set peItemType to ePGItype_Boolean
108 Set pvInitialValue to (If(peCaptionBar(oSigCJCalendarControl1) iand eCal_CaptionBarSwitchViewButtons,"True","False"))
109
110 Procedure OnChange
111 Send Update_Caption_bar
112 End_Procedure
113 End_Object
114
115 Procedure Update_Caption_bar
116 Boolean bShow bDate bDateNav bViewNav
117
118 Get pvValue of oItem_ShowBar to bShow
119 Get pvValue of oItem_Show_Date to bDate
120 Get pvValue of oItem_Show_Date_Nav to bDateNav
121 Get pvValue of oItem_Show_View_Nav to bViewNav
122
123 Set peCaptionBar of oSigCJCalendarControl1 to (If(bShow ,eCal_ShowCaptionBar ,0) ior ;
124 If(bDate ,eCal_CaptionBarDateLabel ,0) ior ;
125 If(bDateNav,eCal_CaptionBarScrollDateButtons,0) ior ;
126 If(bViewNav,eCal_CaptionBarSwitchViewButtons,0))
127 End_Procedure
128
129 End_Object
130
131 Object oItem_Reminders is a cSigCJPropertyGridItem
132 Set psLabel to "Reminders"
133 Set psHelpText to "Enable reminders."
134 Set peItemType to ePGItype_Boolean
135 Set pvInitialValue to (If(pbEnableReminders(oSigCJCalendarControl1),"True","False"))
136
137 Procedure OnChange
138 //Send Update_Caption_bar
139 End_Procedure
140 End_Object
141
142 Object oItem_Dialogs is a cSigCJPropertyGridItem
143 Set psLabel to "Custom Dialogs"
144 Set psHelpText to "Use custom or the built in dialogs."
145 Set peItemType to ePGItype_Boolean
146 Set pvInitialValue to (If(pbUseCustomDialogs(oSigCJCalendarControl1),"True","False"))
147
148 //Custom dialogs not yet implemented in the calendar
149 Set pbReadOnly to True
150
151 Procedure OnChange
152 //Custom dialogs not yet implemented in the calendar
153 End_Procedure
154 End_Object
155
156 Object oItem_Categories is a cSigCJPropertyGridItem
157 Set psLabel to "Custom Categories"
158 Set psHelpText to "Use custom categories."
159 Set peItemType to ePGItype_Boolean
160 Set pvInitialValue to (If(pbUseCustomCategories(oSigCJCalendarControl1),"True","False"))
161
162 Procedure OnChange
163 Boolean bValue
164
165 Get pvValue to bValue
166 Set pbUseCustomCategories of oSigCJCalendarControl1 to bValue
167 End_Procedure
168 End_Object
169
170 Object oItem_TimeScale is a cSigCJPropertyGridComboFormItem
171 Set psLabel to "Time Scale"
172 Set psHelpText to "Sets the time Scale interval."
173 Set peItemType to ePGItype_Enum
174 Set pvInitialValue to (peTimeScale(oSigCJCalendarControl1))
175
176 Procedure OnAddLookupItems
177 Send AddLookupItem eCal_TimeScale_5 eCal_TimeScale_5 "" ""
178 Send AddLookupItem eCal_TimeScale_10 eCal_TimeScale_10 "" ""
179 Send AddLookupItem eCal_TimeScale_15 eCal_TimeScale_15 "" ""
180 Send AddLookupItem eCal_TimeScale_30 eCal_TimeScale_30 "" ""
181 Send AddLookupItem eCal_TimeScale_60 eCal_TimeScale_60 "" ""
182 End_Procedure
183
184 Procedure OnChange
185 String sValue
186
187 Get pvValue to sValue
188 Set peTimeScale of oSigCJCalendarControl1 to sValue
189 End_Procedure
190 End_Object
191
192 Object oScaleTime_DayStart is a cSigCJPropertyGridItem
193 Set psLabel to "Scale Time Day Start"
194 Set psHelpText to "Set the scale start time for the day. (HH:MM)"
195 Set peItemType to ePGItype_String
196 Set pvInitialValue to (ptmTimeScaleMinTime(oSigCJCalendarControl1))
197
198 Procedure OnChange
199 Time tmValue
200
201 Get pvValue to tmValue
202 Set ptmTimeScaleMinTime of oSigCJCalendarControl1 to tmValue
203 End_Procedure
204 End_Object
205
206 Object oScaleTime_DayEnd is a cSigCJPropertyGridItem
207 Set psLabel to "Scale Time_Day End"
208 Set psHelpText to "Set the scale end time for the day. (HH:MM)"
209 Set peItemType to ePGItype_String
210 Set pvInitialValue to (ptmTimeScaleMaxTime(oSigCJCalendarControl1))
211
212 Procedure OnChange
213 Time tmValue
214
215 Get pvValue to tmValue
216 Set ptmTimeScaleMaxTime of oSigCJCalendarControl1 to tmValue
217 End_Procedure
218 End_Object
219
220 Object oScaleTime_Use is a cSigCJPropertyGridItem
221 Set psLabel to "Use Scale times"
222 Set peItemType to ePGItype_Boolean
223 Set pvInitialValue to (pbUseScaleTimes(oSigCJCalendarControl1))
224
225 Procedure OnChange
226 Boolean bValue
227
228 Get pvValue to bValue
229 Set pbUseScaleTimes of oSigCJCalendarControl1 to bValue
230 End_Procedure
231
232 End_Object
233
234 Object oItem_ViewType is a cSigCJPropertyGridComboFormItem
235 Set psLabel to "View Type"
236 Set psHelpText to "The Calender Control's current view."
237 Set peItemType to ePGItype_Enum
238 Set pvInitialValue to (peViewType(oSigCJCalendarControl1))
239
240 Procedure OnAddLookupItems
241 Send AddLookupItem "Day" eCal_ViewType_Day "" ""
242 Send AddLookupItem "Working" eCal_ViewType_Working "" ""
243 Send AddLookupItem "Week" eCal_ViewType_Week "" ""
244 Send AddLookupItem "Month" eCal_ViewType_Month "" ""
245 Send AddLookupItem "FullWeek" eCal_ViewType_FullWeek "" ""
246 End_Procedure
247
248 Procedure OnChange
249 String sValue
250
251 Get pvValue to sValue
252 Set peViewType of oSigCJCalendarControl1 to sValue
253 End_Procedure
254 End_Object
255
256 End_Object
257
258 Object oCtgry_Options is a cSigCJPropertyGridCategory
259 Set psLabel to "Options"
260 Set psHelpText to "Calendar Option Properties"
261
262 Object oItem_ToolTips is a cSigCJPropertyGridItem
263 Set psLabel to "Tool Tips"
264 Set psHelpText to "Standard tool tips are displayed when the mouse is over an event which is too small to display the entire subject for the event."
265 Set peItemType to ePGItype_Boolean
266 Set pvInitialValue to (If(pbEnableStdToolTips(oSigCJCalendarControl1),"True","False"))
267
268 Procedure OnChange
269 Boolean bValue
270
271 Get pvValue to bValue
272 Set pbEnableStdToolTips of oSigCJCalendarControl1 to bValue
273 End_Procedure
274 End_Object
275
276 Object oItem_ClickToAdd is a cSigCJPropertyGridItem
277 Set psLabel to "Click to Add"
278 Set psHelpText to "Show the 'Click to add appointment' tip window when the mouse is positioned over an open time slot."
279 Set peItemType to ePGItype_Boolean
280 Set pvInitialValue to (If(pbClickToAdd(oSigCJCalendarControl1),"True","False"))
281
282 Procedure OnChange
283 Boolean bValue
284
285 Get pvValue to bValue
286 Set pbClickToAdd of oSigCJCalendarControl1 to bValue
287 End_Procedure
288 End_Object
289
290 Object oItem_ClickToAddText is a cSigCJPropertyGridItem
291 Set psLabel to "Click to Add Text"
292 Set psHelpText to "Text displayed in the 'Click to Add appointment' tip window."
293 Set peItemType to ePGItype_String
294 Set pvInitialValue to (psClickToAddText(oSigCJCalendarControl1))
295
296 Procedure OnChange
297 String sValue
298
299 Get pvValue to sValue
300 Set psClickToAddText of oSigCJCalendarControl1 to sValue
301 End_Procedure
302 End_Object
303
304 Object oItem_TimeMark is a cSigCJPropertyGridComboFormItem
305 Set psLabel to "Time Mark"
306 Set psHelpText to "Specifies when the Time Mark is displayed on the time scale."
307 Set peItemType to ePGItype_Enum
308 Set pvInitialValue to (peDayViewCurrentTimeMarkVisible(oSigCJCalendarControl1))
309
310 Procedure OnAddLookupItems
311 Send AddLookupItem "None" eCal_TM_None "" ""
312 Send AddLookupItem "Today" eCal_TM_VisibleForToday "" ""
313 Send AddLookupItem "Always" eCal_TM_VisibleAlways "" ""
314 Send AddLookupItem "Printed" eCal_TM_Printed "" ""
315 End_Procedure
316
317 Procedure OnChange
318 String sValue
319
320 Get pvValue to sValue
321 Set psClickToAddText of oSigCJCalendarControl1 to sValue
322 End_Procedure
323 End_Object
324
325 Object oItem_Minutes is a cSigCJPropertyGridItem
326 Set psLabel to "Show Minutes"
327 Set psHelpText to "Display minute marks on the time scale."
328 Set peItemType to ePGItype_Boolean
329 Set pvInitialValue to (If(pbDayViewShowMinutes(oSigCJCalendarControl1),"True","False"))
330
331 Procedure OnChange
332 Boolean bValue
333
334 Get pvValue to bValue
335 Set pbDayViewShowMinutes of oSigCJCalendarControl1 to bValue
336 End_Procedure
337 End_Object
338
339 Object oItem_IP_Create is a cSigCJPropertyGridItem
340 Set psLabel to "In Place Create"
341 Set psHelpText to "Create event creation when a character key is pressed when a cell has focus in the Calendar."
342 Set peItemType to ePGItype_Boolean
343 Set pvInitialValue to (If(pbInPlaceCreateEvent(oSigCJCalendarControl1),"True","False"))
344
345 Procedure OnChange
346 Boolean bValue
347
348 Get pvValue to bValue
349 Set pbInPlaceCreateEvent of oSigCJCalendarControl1 to bValue
350 End_Procedure
351 End_Object
352
353 Object oItem_IPE is a cSigCJPropertyGridItem
354 Set psLabel to "In Place Edit"
355 Set psHelpText to "Options to start an In Place Edit."
356
357 Object oItem_IPE_Resize is a cSigCJPropertyGridItem
358 Set psLabel to "On Resize"
359 Set psHelpText to "In-place editing of the event subject after the event is resized."
360 Set peItemType to ePGItype_Boolean
361 Set pvInitialValue to (If(pbInPlaceEdit_AfterEventResize(oSigCJCalendarControl1),"True","False"))
362
363 Procedure OnChange
364 Boolean bValue
365
366 Get pvValue to bValue
367 Set pbInPlaceEdit_AfterEventResize of oSigCJCalendarControl1 to bValue
368 End_Procedure
369 End_Object
370
371 Object oItem_IPE_F2 is a cSigCJPropertyGridItem
372 Set psLabel to "On F2"
373 Set psHelpText to "In-place editing of the event subject when the F2 key is pressed"
374 Set peItemType to ePGItype_Boolean
375 Set pvInitialValue to (If(pbInPlaceEdit_ByF2(oSigCJCalendarControl1),"True","False"))
376
377 Procedure OnChange
378 Boolean bValue
379
380 Get pvValue to bValue
381 Set pbInPlaceEdit_ByF2 of oSigCJCalendarControl1 to bValue
382 End_Procedure
383 End_Object
384
385 Object oItem_IPE_Mouse is a cSigCJPropertyGridItem
386 Set psLabel to "On Mouse Click"
387 Set psHelpText to "In-place editing of the event subject when the event is clicked with the left mouse button."
388 Set peItemType to ePGItype_Boolean
389 Set pvInitialValue to (If(pbInPlaceEdit_ByMouseClick(oSigCJCalendarControl1),"True","False"))
390
391 Procedure OnChange
392 Boolean bValue
393
394 Get pvValue to bValue
395 Set pbInPlaceEdit_ByMouseClick of oSigCJCalendarControl1 to bValue
396 End_Procedure
397 End_Object
398
399 Object oItem_IPE_Tab is a cSigCJPropertyGridItem
400 Set psLabel to "On Tab"
401 Set psHelpText to "In-place editing of the event subject when the Tab key is used to navigate events in the current view."
402 Set peItemType to ePGItype_Boolean
403 Set pvInitialValue to (If(pbInPlaceEdit_ByTab(oSigCJCalendarControl1),"True","False"))
404
405 Procedure OnChange
406 Boolean bValue
407
408 Get pvValue to bValue
409 Set pbInPlaceEdit_ByTab of oSigCJCalendarControl1 to bValue
410 End_Procedure
411 End_Object
412 End_Object
413
414 Object oItem_FirstDay is a cSigCJPropertyGridComboFormItem
415 Set psLabel to "1st Week Day"
416 Set psHelpText to "Specifies the first day of the week."
417 Set peItemType to ePGItype_Enum
418 Set pvInitialValue to (peFirstDayOfTheWeek(oSigCJCalendarControl1))
419
420 Procedure OnAddLookupItems
421 Send AddLookupItem "Sunday" eCal_Sunday "" ""
422 Send AddLookupItem "Monday" eCal_Monday "" ""
423 Send AddLookupItem "Tuesday" eCal_Tuesday "" ""
424 Send AddLookupItem "Wednesday" eCal_Wednesday "" ""
425 Send AddLookupItem "Thursday" eCal_Thursday "" ""
426 Send AddLookupItem "Friday" eCal_Friday "" ""
427 Send AddLookupItem "Saturday" eCal_Saturday "" ""
428 End_Procedure
429
430 Procedure OnChange
431 String sValue
432
433 Get pvValue to sValue
434 Set peFirstDayOfTheWeek of oSigCJCalendarControl1 to sValue
435 End_Procedure
436 End_Object
437
438 Object oItem_Compress is a cSigCJPropertyGridItem
439 Set psLabel to "Compress Weekend"
440 Set psHelpText to "Are Saturday and Sunday 'compressed' while in Month view."
441 Set peItemType to ePGItype_Boolean
442 Set pvInitialValue to (If(pbCompressWeekendDays(oSigCJCalendarControl1),"True","False"))
443
444 Procedure OnChange
445 Boolean bValue
446
447 Get pvValue to bValue
448 Set pbCompressWeekendDays of oSigCJCalendarControl1 to bValue
449 End_Procedure
450 End_Object
451
452 Object oItem_OutlookGlyphs is a cSigCJPropertyGridItem
453 Set psLabel to "Outlook Glyphs"
454 Set psHelpText to "Use 'MS Outlook' font to display Glyphs, or built-in bitmaps."
455 Set peItemType to ePGItype_Boolean
456 Set pvInitialValue to (If(pbUseOutlookGlyphs(oSigCJCalendarControl1),"True","False"))
457
458 Procedure OnChange
459 Boolean bValue
460
461 Get pvValue to bValue
462 Set pbUseOutlookGlyphs of oSigCJCalendarControl1 to bValue
463 End_Procedure
464 End_Object
465
466 Object oItem_EndDate is a cSigCJPropertyGridComboFormItem
467 Set psLabel to "Show End Date"
468 Set psHelpText to "Displays end time of an event in Week / Month view."
469 Set peItemType to ePGItype_Enum
470 Set pvInitialValue to (peShowEndDate(oSigCJCalendarControl1))
471
472 Procedure OnAddLookupItems
473 Send AddLookupItem "None" eCal_MW_None "" ""
474 Send AddLookupItem "Week" eCal_MW_Week "" ""
475 Send AddLookupItem "Month" eCal_MW_Month "" ""
476 Send AddLookupItem "Both" eCal_MW_Both "" ""
477 End_Procedure
478
479 Procedure OnChange
480 String sValue
481
482 Get pvValue to sValue
483 Set peShowEndDate of oSigCJCalendarControl1 to sValue
484 End_Procedure
485 End_Object
486
487 Object oItem_Clocks is a cSigCJPropertyGridComboFormItem
488 Set psLabel to "Show clocks"
489 Set psHelpText to "Display start and end time of events as graphical clock when in Week / Month view."
490 Set peItemType to ePGItype_Enum
491 Set pvInitialValue to (peShowTimeAsClocks(oSigCJCalendarControl1))
492
493 Procedure OnAddLookupItems
494 Send AddLookupItem "None" eCal_MW_None "" ""
495 Send AddLookupItem "Week" eCal_MW_Week "" ""
496 Send AddLookupItem "Month" eCal_MW_Month "" ""
497 Send AddLookupItem "Both" eCal_MW_Both "" ""
498 End_Procedure
499
500 Procedure OnChange
501 String sValue
502
503 Get pvValue to sValue
504 Set peShowTimeAsClocks of oSigCJCalendarControl1 to sValue
505 End_Procedure
506
507 End_Object
508
509 End_Object
510
511 Object oCtgry_Times is a cSigCJPropertyGridCategory
512 Set psLabel to "Times"
513 Set psHelpText to "Calendar Time Settings"
514
515 Object oItem_WorkDayStart is a cSigCJPropertyGridItem
516 Set psLabel to "Working Day Start"
517 Set psHelpText to "Set the start time for the working day. (HH:MM)"
518 Set peItemType to ePGItype_String
519 Set pvInitialValue to (ptmWorkDayStartTime(oSigCJCalendarControl1))
520
521 Procedure OnChange
522 Time tmValue
523
524 Get pvValue to tmValue
525 Set ptmWorkDayStartTime of oSigCJCalendarControl1 to tmValue
526 End_Procedure
527 End_Object
528
529 Object oItem_WorkDayEnd is a cSigCJPropertyGridItem
530 Set psLabel to "Working Day End"
531 Set psHelpText to "Set the end time for the working day. (HH:MM)"
532 Set peItemType to ePGItype_String
533 Set pvInitialValue to (ptmWorkDayEndTime(oSigCJCalendarControl1))
534
535 Procedure OnChange
536 Time tmValue
537
538 Get pvValue to tmValue
539 Set ptmWorkDayEndTime of oSigCJCalendarControl1 to tmValue
540 End_Procedure
541 End_Object
542
543 Object oItem_ShortLastDay is a cSigCJPropertyGridItem
544 Set psLabel to "Shorter Last Day"
545 Set psHelpText to "Specifies if the last working day of the weel is shorter than the rest."
546 Set peItemType to ePGItype_Boolean
547 Set pvInitialValue to (If(pbShorterLastDay(oSigCJCalendarControl1),"True","False"))
548
549 Procedure OnChange
550 Boolean bValue
551
552 Get pvValue to bValue
553 Set pbShorterLastDay of oSigCJCalendarControl1 to bValue
554 End_Procedure
555 End_Object
556
557 Object oItem_LastDayEnd is a cSigCJPropertyGridItem
558 Set psLabel to "Working Day End"
559 Set psHelpText to "Set the end time for the last working day of the week. (HH:MM)"
560 Set peItemType to ePGItype_String
561 Set pvInitialValue to (ptmLastWorkDayEndTime(oSigCJCalendarControl1))
562
563 Procedure OnChange
564 Time tmValue
565
566 Get pvValue to tmValue
567 Set ptmLastWorkDayEndTime of oSigCJCalendarControl1 to tmValue
568 End_Procedure
569 End_Object
570
571 Object oItem_ShadeLunch is a cSigCJPropertyGridItem
572 Set psLabel to "Shade lunch period"
573 Set psHelpText to "Specifies if the luch period should be shaded."
574 Set peItemType to ePGItype_Boolean
575 Set pvInitialValue to (If(pbShadeLunchTime(oSigCJCalendarControl1),"True","False"))
576
577 Procedure OnChange
578 Boolean bValue
579
580 Get pvValue to bValue
581 Set pbShadeLunchTime of oSigCJCalendarControl1 to bValue
582 End_Procedure
583 End_Object
584
585 Object oItem_LunchStart is a cSigCJPropertyGridItem
586 Set psLabel to "Lunch Time Start"
587 Set psHelpText to "Set the start time for the lunch period. (HH:MM)"
588 Set peItemType to ePGItype_String
589 Set pvInitialValue to (ptmLunchStartTime(oSigCJCalendarControl1))
590
591 Procedure OnChange
592 Time tmValue
593
594 Get pvValue to tmValue
595 Set ptmLunchStartTime of oSigCJCalendarControl1 to tmValue
596 End_Procedure
597 End_Object
598
599 Object oItem_LunchEnd is a cSigCJPropertyGridItem
600 Set psLabel to "Lunch Time End"
601 Set psHelpText to "Set the end time for the lunch period. (HH:MM)"
602 Set peItemType to ePGItype_String
603 Set pvInitialValue to (ptmLunchEndTime(oSigCJCalendarControl1))
604
605 Procedure OnChange
606 Time tmValue
607
608 Get pvValue to tmValue
609 Set ptmLunchEndTime of oSigCJCalendarControl1 to tmValue
610 End_Procedure
611 End_Object
612
613 End_Object
614
615 Object oCtgry_Print is a cSigCJPropertyGridCategory
616 Set psLabel to "Print"
617 Set psHelpText to "Calendar print properties"
618 End_Object
619
620 Object oCtgry_Preview is a cSigCJPropertyGridCategory
621 Set psLabel to "Print Preview"
622 Set psHelpText to "Calendar print preview properties"
623
624 Object oItem_Title is a cSigCJPropertyGridItem
625 Set psLabel to "Title"
626 Set psHelpText to "Print preview dialog title"
627 Set peItemType to ePGItype_String
628 Set pvInitialValue to (psPrintPreviewTitle(oSigCJCalendarControl1))
629
630 Procedure OnChange
631 String sValue
632
633 Get pvValue to sValue
634 Set psPrintPreviewTitle of oSigCJCalendarControl1 to sValue
635 End_Procedure
636 End_Object
637 End_Object
638 End_Object
639