Module SigCJStandardCalendarDemo.vw
1Use Windows.pkg
2Use DFClient.pkg
3Use cSigCjCalendarControl.pkg
4Use Cal_Date.DD
5Use Cal_Cats.dd
6Use Cal_Sys.dd
7Use Calr_Pat.dd
8Use Calevent.dd
9
10
11Deferred_View Activate_oSigCJCalendarDemo_Standard_View for ;
12Object oSigCJCalendarDemo_Standard_View is a dbView
13 Set Border_Style to Border_Thick
14 Set Size to 300 450
15 Set Location to 8 3
16 Set Maximize_Icon to True
17 Set piMinSize to 200 300
18 Set Label to "Codejock Demo - Standard Calendar"
19 Set Icon to "SIG.ico"
20
21 Object oCalevent_DD is a CalEvent_DataDictionary
22 End_Object
23
24 Object oCalr_Pat_DD is a Calr_Pat_DataDictionary
25 End_Object
26
27 Object oCal_Sys_DD is a Cal_Sys_DataDictionary
28 End_Object
29
30 Object oCal_Cats_DD is a Cal_Cats_DataDictionary
31 End_Object
32
33 Object oCal_Date_DD is a Cal_Date_DataDictionary
34 End_Object
35
36 Set Main_DD to oCalevent_DD
37 Set Server to oCalevent_DD
38
39 Object oSigCJCalendarControl1 is a cSigCJCalendarControl
40 Set Size to 292 292
41 Set Location to 4 4
42 Set peAnchors to anAll
43 Set peTimeScale to eCal_TimeScale_15
44 Set ptmLunchEndTime to "13:15"
45 Set ptmLunchStartTime to "12:30"
46 Set pbUseScaleTimes to True
47 Set ptmWorkDayStartTime to "08:30"
48 End_Object
49
50 Object oSigCJDatePicker1 is a cSigCJCalendarDatePicker
51 Set Size to 100 135
52 Set Location to 2 306
53 Set peAnchors to anTopRight
54 End_Object
55
56 Object oContainer3d1 is a Container3d
57 Set Size to 170 151
58 Set Location to 105 297
59 Set peAnchors to anTopBottomRight
60 Set Border_Style to Border_Normal
61
62 Use oCalendar_Properties.pkg
63 End_Object
64
65 Object oPreview_Bn is a cSigCJPushButton
66 Set Size to 26 26
67 Set Location to 278 348
68 Set peAnchors to anBottomRight
69 Set psImage to "Cal_Preview32.ico"
70
71 Procedure OnClick
72 Send ComPrintPreview of oSigCJCalendarControl1 True
73 End_Procedure
74 End_Object
75
76 Object oPrint_Bn is a cSigCJPushButton
77 Set Size to 26 26
78 Set Location to 278 378
79 Set peAnchors to anBottomRight
80 Set psImage to "Cal_Print32.ico"
81
82 Procedure OnClick
83 Send ComPrintCalendar2 of oSigCJCalendarControl1 True
84 End_Procedure
85 End_Object
86
87 Object oPrintSetup_bn is a cSigCJPushButton
88 Set Size to 26 26
89 Set Location to 278 408
90 Set peAnchors to anBottomRight
91 Set psImage to "Cal_PrintSetUp32.ico"
92
93 Procedure OnClick
94 Boolean bRetval
95 Get ComShowPrintPageSetup of oSigCJCalendarControl1 to bRetval
96 End_Procedure
97 End_Object
98
99
100Cd_End_Object
101