Module SigCJCheckBoxDemo.vw
1Use Windows.pkg
2Use DFClient.pkg
3Use cSigCjCheckBox.pkg
4Use cSigCjPushButton.pkg
5Use dfallent.pkg
6Use CheckBox.DD
7Use DFEntry.pkg
8Use DFEnChk.pkg
9
10Deferred_View Activate_oSigCJCheckBoxDemo_View for ;
11Object oSigCJCheckBoxDemo_View is a dbView
12
13 Set Size to 183 238
14 Set Location to 14 30
15 Set Label to "Codejock Demo - Tri-State Checkbox"
16 Set Icon to "SIG.ico"
17
18 Object oCheckbox_DD is a Checkbox_DataDictionary
19 End_Object
20
21 Set Main_DD to oCheckbox_DD
22 Set Server to oCheckbox_DD
23
24 Procedure Request_Clear
25 Forward Send Request_Clear
26
27 Send Reset of oBound
28 End_Procedure
29
30 Procedure Request_Clear_All
31 Forward Send Request_Clear_All
32
33 Send Reset of oBound
34 End_Procedure
35
36 Object oUnbound is a Group
37 Set Size to 77 226
38 Set Location to 3 5
39 Set Label to "Unbond"
40
41 //---------------------------------------------------------------------
42
43 Object oCB_YNG is a cSigCJCheckBox
44 Set Size to 18 80
45 Set Location to 19 20
46 Set psCaption to "No Yes Grayed"
47 Set psFalse to "N"
48 Set psGrayed to "G"
49 Set psTrue to "Y"
50
51 Procedure OnChange
52 Set Value of oCB_YNG_Value to (psValue(Self))
53 End_Procedure
54 End_Object
55
56 Object oCB_YNG_Value is a Form
57 Set Size to 13 33
58 Set Location to 21 176
59 Set Label to "Data Value"
60 Set Label_Col_Offset to 2
61 Set Label_Justification_Mode to JMode_Right
62 End_Object
63
64 //---------------------------------------------------------------------
65
66 Object oCB_TFU is a cSigCJCheckBox
67 Set Size to 17 100
68 Set Location to 40 20
69 Set psCaption to "False True"
70 Set psFalse to "F"
71 Set psTrue to "T"
72 Set pbTriState to False
73
74 Procedure OnChange
75 Set Value of oCB_TFU_Value to (psValue(Self))
76 End_Procedure
77 End_Object
78
79 Object oCB_TFU_Value is a Form
80 Set Size to 13 35
81 Set Location to 42 176
82 Set Label to "Data Value"
83 Set Label_Col_Offset to 2
84 Set Label_Justification_Mode to JMode_Right
85 End_Object
86
87 //---------------------------------------------------------------------
88
89 End_Object
90
91 Object oBound is a dbGroup
92 Set Size to 91 223
93 Set Location to 86 7
94 Set Label to "Data Aware"
95
96 Procedure Reset
97 Set Value of oCB_Check_Box_Field_Value to ""
98 Set Value of oCB_String_Field_Value to ""
99 End_Procedure
100
101 Object oCheckBox_ID is a dbForm
102 Entry_Item CheckBox.ID
103 Set Location to 18 19
104 Set Size to 13 18
105 Set Label to "ID"
106 Set Label_Col_Offset to 2
107 Set Label_Justification_Mode to JMode_Right
108 End_Object
109
110 //---------------------------------------------------------------------
111
112 Object oCB_Check_Box_Field is a cSigCJdbCheckBox
113 Entry_Item CheckBox.Check_Box_Field
114 Set Size to 18 101
115 Set Location to 34 20
116 Set psCaption to "Check Box Field"
117
118 Procedure OnChange
119 Set Value of oCB_Check_Box_Field_Value to (psValue(Self))
120 End_Procedure
121 End_Object
122
123 Object oCB_Check_Box_Field_Value is a Form
124 Set Size to 13 33
125 Set Location to 36 176
126 Set Label to "Control Value"
127 Set Label_Col_Offset to 2
128 Set Label_Justification_Mode to JMode_Right
129 End_Object
130
131 //---------------------------------------------------------------------
132
133 Object oCB_String_Field is a cSigCJdbCheckBox
134 Entry_Item CheckBox.String_Field
135 Set Size to 17 100
136 Set Location to 55 20
137 Set psCaption to "String Field"
138 Set psFalse to "X"
139 Set psGrayed to "Y"
140 Set psTrue to "Z"
141
142 Procedure OnChange
143 Set Value of oCB_String_Field_Value to (psValue(Self))
144 End_Procedure
145 End_Object
146
147 Object oCB_String_Field_Value is a Form
148 Set Size to 13 35
149 Set Location to 57 176
150 Set Label to "Control Value"
151 Set Label_Col_Offset to 2
152 Set Label_Justification_Mode to JMode_Right
153 End_Object
154
155 //---------------------------------------------------------------------
156 End_Object
157
158Cd_End_Object
159