source: cprs/branches/foia-cprs/CPRS-Lib/mGMV_InputOne2.dfm@ 632

Last change on this file since 632 was 460, checked in by Kevin Toppenberg, 17 years ago

Uploading from OR_30_258
File size: 8.1 KB
RevLine 
[460]1object fraGMV_InputOne2: TfraGMV_InputOne2
2 Left = 0
3 Top = 0
4 Width = 854
5 Height = 25
6 TabOrder = 0
7 object pnlMain: TPanel
8 Left = 0
9 Top = 0
10 Width = 854
11 Height = 25
12 Align = alClient
13 BevelOuter = bvNone
14 TabOrder = 0
15 object pnlValues: TPanel
16 Left = 205
17 Top = 0
18 Width = 187
19 Height = 25
20 Align = alLeft
21 BevelOuter = bvNone
22 ParentColor = True
23 TabOrder = 1
24 object lblUnit: TLabel
25 Left = 119
26 Top = 8
27 Width = 29
28 Height = 13
29 Caption = 'lblUnit'
30 end
31 object bvMetric: TBevel
32 Left = 162
33 Top = 4
34 Width = 21
35 Height = 21
36 Shape = bsFrame
37 Visible = False
38 end
39 object cbxInput: TComboBox
40 Left = 1
41 Top = 1
42 Width = 112
43 Height = 21
44 Hint = 'Enter the appropriate vitals measurement'
45 Style = csDropDownList
46 DropDownCount = 12
47 Font.Charset = DEFAULT_CHARSET
48 Font.Color = clBlack
49 Font.Height = -11
50 Font.Name = 'MS Sans Serif'
51 Font.Style = []
52 ItemHeight = 13
53 ParentFont = False
54 ParentShowHint = False
55 ShowHint = True
56 TabOrder = 0
57 OnChange = cbxInputChange
58 OnClick = cbxInputClick
59 OnExit = cbxInputExit
60 OnKeyDown = cbxInputKeyDown
61 end
62 object ckbMetric: TCheckBox
63 Left = 166
64 Top = 6
65 Width = 15
66 Height = 17
67 Hint =
68 'Check to switch display values between English and Metric equiva' +
69 'lents'
70 ParentShowHint = False
71 ShowHint = True
72 TabOrder = 1
73 OnClick = ckbMetricClick
74 OnEnter = ckbMetricEnter
75 OnExit = ckbMetricExit
76 end
77 object cbxUnits: TComboBox
78 Left = 116
79 Top = 1
80 Width = 69
81 Height = 21
82 Hint = 'Press to select metric'
83 Style = csDropDownList
84 ItemHeight = 13
85 ParentShowHint = False
86 ShowHint = True
87 TabOrder = 2
88 Visible = False
89 OnChange = acMetricChangedExecute
90 end
91 end
92 object pnlRefusedUnavailable: TPanel
93 Left = 0
94 Top = 0
95 Width = 75
96 Height = 25
97 Align = alLeft
98 BevelOuter = bvNone
99 ParentColor = True
100 TabOrder = 0
101 object lblNum: TLabel
102 Left = 0
103 Top = 0
104 Width = 24
105 Height = 25
106 Align = alLeft
107 Alignment = taRightJustify
108 AutoSize = False
109 Caption = '#. '
110 Layout = tlCenter
111 end
112 object bvU: TBevel
113 Left = 28
114 Top = 3
115 Width = 21
116 Height = 21
117 Shape = bsFrame
118 Visible = False
119 end
120 object bvR: TBevel
121 Left = 53
122 Top = 3
123 Width = 21
124 Height = 21
125 Shape = bsFrame
126 Visible = False
127 end
128 object cbxRefused: TCheckBox
129 Left = 54
130 Top = 5
131 Width = 16
132 Height = 17
133 Hint = 'Mark as Refused'
134 Alignment = taLeftJustify
135 ParentShowHint = False
136 ShowHint = True
137 TabOrder = 1
138 OnClick = cbxRefusedClick
139 OnEnter = cbxRefusedEnter
140 OnExit = cbxRefusedExit
141 OnMouseUp = cbxRefusedMouseUp
142 end
143 object cbxUnavailable: TCheckBox
144 Left = 32
145 Top = 5
146 Width = 13
147 Height = 17
148 Hint = 'Mark as Unavailable'
149 Alignment = taLeftJustify
150 ParentShowHint = False
151 ShowHint = True
152 TabOrder = 0
153 OnClick = cbxUnavailableClick
154 OnEnter = cbxUnavailableEnter
155 OnExit = cbxUnavailableExit
156 OnMouseUp = cbxUnavailableMouseUp
157 end
158 end
159 object pnlQualifiers: TPanel
160 Left = 392
161 Top = 0
162 Width = 462
163 Height = 25
164 Align = alClient
165 BevelOuter = bvNone
166 ParentColor = True
167 TabOrder = 2
168 object lblQualifiers: TLabel
169 Left = 28
170 Top = 5
171 Width = 53
172 Height = 13
173 Hint = 'Current qualifiers to be filed with this vital measurement'
174 Caption = 'lblQualifiers'
175 ParentShowHint = False
176 ShowHint = True
177 end
178 object bvQual: TBevel
179 Left = 2
180 Top = 3
181 Width = 23
182 Height = 21
183 Shape = bsFrame
184 Visible = False
185 end
186 object bbtnQualifiers: TBitBtn
187 Left = 5
188 Top = 5
189 Width = 17
190 Height = 16
191 Hint = 'Press to display the qualifier selection screen'
192 ParentShowHint = False
193 ShowHint = True
194 TabOrder = 0
195 OnClick = bbtnQualifiersClick
196 OnEnter = bbtnQualifiersEnter
197 OnExit = bbtnQualifiersExit
198 Glyph.Data = {
199 7E040000424D7E0400000000000036040000280000000B000000060000000100
200 08000000000048000000C40E0000C40E00000001000000000000000000000000
201 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
202 A6000020400000206000002080000020A0000020C0000020E000004000000040
203 20000040400000406000004080000040A0000040C0000040E000006000000060
204 20000060400000606000006080000060A0000060C0000060E000008000000080
205 20000080400000806000008080000080A0000080C0000080E00000A0000000A0
206 200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
207 200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
208 200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
209 20004000400040006000400080004000A0004000C0004000E000402000004020
210 20004020400040206000402080004020A0004020C0004020E000404000004040
211 20004040400040406000404080004040A0004040C0004040E000406000004060
212 20004060400040606000406080004060A0004060C0004060E000408000004080
213 20004080400040806000408080004080A0004080C0004080E00040A0000040A0
214 200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
215 200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
216 200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
217 20008000400080006000800080008000A0008000C0008000E000802000008020
218 20008020400080206000802080008020A0008020C0008020E000804000008040
219 20008040400080406000804080008040A0008040C0008040E000806000008060
220 20008060400080606000806080008060A0008060C0008060E000808000008080
221 20008080400080806000808080008080A0008080C0008080E00080A0000080A0
222 200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
223 200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
224 200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
225 2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
226 2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
227 2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
228 2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
229 2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
230 2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
231 2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
232 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FAFAFAFAFA00
233 FAFAFAFAFA00FAFAFAFA000000FAFAFAFA00FAFAFA0000000000FAFAFA00FAFA
234 00000000000000FAFA00FA000000000000000000FA0000000000000000000000
235 0000}
236 end
237 end
238 object pnlName: TPanel
239 Left = 75
240 Top = 0
241 Width = 130
242 Height = 25
243 Align = alLeft
244 BevelOuter = bvNone
245 ParentColor = True
246 TabOrder = 3
247 object lblVital: TLabel
248 Left = 0
249 Top = 0
250 Width = 113
251 Height = 25
252 Hint = 'Display name of the vitals measurement'
253 Align = alLeft
254 AutoSize = False
255 Caption = 'lblVital'
256 ParentShowHint = False
257 ShowHint = True
258 Layout = tlCenter
259 end
260 end
261 end
262end
Note: See TracBrowser for help on using the repository browser.