source: cprs/branches/tmg-cprs/CPRS-Lib/fGMV_InputTemp.dfm@ 736

Last change on this file since 736 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69
File size: 7.6 KB
RevLine 
[453]1object frmGMV_InputTemp: TfrmGMV_InputTemp
2 Left = 322
3 Top = 254
4 BorderStyle = bsNone
5 Caption = 'frmGMV_InputTemp'
6 ClientHeight = 447
7 ClientWidth = 728
8 Color = clBtnFace
9 Font.Charset = DEFAULT_CHARSET
10 Font.Color = clWindowText
11 Font.Height = -11
12 Font.Name = 'MS Sans Serif'
13 Font.Style = []
14 OldCreateOrder = False
15 OnClose = FormClose
16 OnCloseQuery = FormCloseQuery
17 OnCreate = FormCreate
18 OnResize = FormResize
19 PixelsPerInch = 96
20 TextHeight = 13
21 object pnlInputTemplate: TPanel
22 Left = 0
23 Top = 41
24 Width = 728
25 Height = 406
26 Align = alClient
27 BevelOuter = bvNone
28 Caption = 'pnlInputTemplate'
29 TabOrder = 0
30 object Bevel1: TBevel
31 Left = 0
32 Top = 50
33 Width = 728
34 Height = 2
35 Align = alTop
36 Shape = bsBottomLine
37 end
38 object pnlInputTemplateHeader: TPanel
39 Left = 0
40 Top = 0
41 Width = 728
42 Height = 24
43 Align = alTop
44 Alignment = taLeftJustify
45 Caption = ' Input Template'
46 TabOrder = 1
47 end
48 object hc: THeaderControl
49 Left = 0
50 Top = 52
51 Width = 728
52 Height = 17
53 DragReorder = False
54 Enabled = False
55 Sections = <
56 item
57 Alignment = taCenter
58 ImageIndex = -1
59 Text = '#'
60 Width = 29
61 end
62 item
63 ImageIndex = -1
64 Text = 'Unavailable'
65 Width = 0
66 end
67 item
68 ImageIndex = -1
69 Text = 'U... R...'
70 Width = 60
71 end
72 item
73 ImageIndex = -1
74 Text = 'Vital'
75 Width = 111
76 end
77 item
78 ImageIndex = -1
79 Text = 'Value'
80 Width = 90
81 end
82 item
83 ImageIndex = -1
84 Text = 'Units'
85 Width = 75
86 end
87 item
88 ImageIndex = -1
89 Text = 'Qualifiers'
90 Width = 50
91 end>
92 Style = hsFlat
93 end
94 object pnlScrollBox: TPanel
95 Left = 0
96 Top = 69
97 Width = 728
98 Height = 337
99 Align = alClient
100 BevelOuter = bvNone
101 BorderWidth = 4
102 TabOrder = 3
103 object sbxMain: TScrollBox
104 Left = 4
105 Top = 4
106 Width = 707
107 Height = 261
108 BorderStyle = bsNone
109 TabOrder = 0
110 end
111 end
112 object pnlOptions: TPanel
113 Left = 0
114 Top = 24
115 Width = 728
116 Height = 26
117 Align = alTop
118 BevelOuter = bvNone
119 Color = 12698049
120 TabOrder = 0
121 object bvU: TBevel
122 Left = 8
123 Top = 3
124 Width = 20
125 Height = 21
126 Shape = bsFrame
127 Visible = False
128 end
129 object bvUnavailable: TBevel
130 Left = 135
131 Top = 3
132 Width = 21
133 Height = 21
134 Shape = bsFrame
135 Visible = False
136 end
137 object lblUnavailable: TLabel
138 Left = 160
139 Top = 6
140 Width = 56
141 Height = 13
142 Caption = 'Un&available'
143 FocusControl = ckbUnavailable
144 Visible = False
145 WordWrap = True
146 end
147 object Label3: TLabel
148 Left = 34
149 Top = 6
150 Width = 73
151 Height = 13
152 Caption = '&Patient on pass'
153 FocusControl = ckbOnPass
154 end
155 object ckbOnPass: TCheckBox
156 Left = 12
157 Top = 5
158 Width = 12
159 Height = 17
160 Hint = 'Mark all vitals in the template as "Patient On Pass"'
161 Alignment = taLeftJustify
162 ParentShowHint = False
163 ShowHint = True
164 TabOrder = 0
165 OnClick = ckbOnPassClick
166 OnEnter = ckbOnPassEnter
167 OnExit = ckbOnPassExit
168 end
169 object pnlCPRSMetricStyle: TPanel
170 Left = 584
171 Top = 0
172 Width = 144
173 Height = 26
174 Align = alRight
175 BevelOuter = bvNone
176 ParentColor = True
177 TabOrder = 2
178 object chkCPRSSTyle: TCheckBox
179 Left = 1
180 Top = 5
181 Width = 136
182 Height = 17
183 Hint = 'Switch between dropdown and check box presentation of metric'
184 TabStop = False
185 Alignment = taLeftJustify
186 Caption = '&Units as Drop Down List'
187 TabOrder = 0
188 OnClick = acMetricStyleChangedExecute
189 end
190 end
191 object ckbUnavailable: TCheckBox
192 Left = 140
193 Top = 5
194 Width = 11
195 Height = 17
196 Hint = 'Mark all vitals in the template as "Patient Unavailable" '
197 Alignment = taLeftJustify
198 Caption = 'Patient on Pass'
199 ParentShowHint = False
200 ShowHint = True
201 TabOrder = 1
202 Visible = False
203 end
204 end
205 end
206 object pnlTools: TPanel
207 Left = 0
208 Top = 0
209 Width = 728
210 Height = 41
211 Align = alTop
212 BevelOuter = bvNone
213 TabOrder = 1
214 Visible = False
215 object pnlPatient: TPanel
216 Left = 0
217 Top = 0
218 Width = 208
219 Height = 41
220 Align = alLeft
221 Color = clInfoBk
222 Constraints.MinWidth = 165
223 TabOrder = 0
224 object lblPatientName: TLabel
225 Left = 7
226 Top = 5
227 Width = 73
228 Height = 13
229 Caption = 'PatientName'
230 Font.Charset = DEFAULT_CHARSET
231 Font.Color = clWindowText
232 Font.Height = -12
233 Font.Name = 'MS Sans Serif'
234 Font.Style = [fsBold]
235 ParentFont = False
236 end
237 object lblPatientInfo: TLabel
238 Left = 7
239 Top = 21
240 Width = 85
241 Height = 13
242 Caption = 'PatientInformation'
243 end
244 end
245 object pnlSettings: TPanel
246 Left = 208
247 Top = 0
248 Width = 520
249 Height = 41
250 Align = alClient
251 TabOrder = 1
252 object lblHospital: TLabel
253 Left = 115
254 Top = 5
255 Width = 3
256 Height = 13
257 end
258 object lblDateTime: TLabel
259 Left = 115
260 Top = 21
261 Width = 3
262 Height = 13
263 end
264 object lblHospitalCap: TLabel
265 Left = 7
266 Top = 5
267 Width = 100
268 Height = 13
269 Caption = 'Hospital Location'
270 Font.Charset = DEFAULT_CHARSET
271 Font.Color = clWindowText
272 Font.Height = -12
273 Font.Name = 'MS Sans Serif'
274 Font.Style = [fsBold]
275 ParentFont = False
276 end
277 object Label2: TLabel
278 Left = 7
279 Top = 21
280 Width = 61
281 Height = 13
282 Caption = 'Date/Time'
283 Font.Charset = DEFAULT_CHARSET
284 Font.Color = clWindowText
285 Font.Height = -12
286 Font.Name = 'MS Sans Serif'
287 Font.Style = [fsBold]
288 ParentFont = False
289 end
290 object Panel1: TPanel
291 Left = 445
292 Top = 1
293 Width = 74
294 Height = 39
295 Align = alRight
296 BevelOuter = bvNone
297 TabOrder = 0
298 object SpeedButton1: TSpeedButton
299 Left = 8
300 Top = 8
301 Width = 57
302 Height = 25
303 Flat = True
304 OnClick = SpeedButton1Click
305 end
306 end
307 end
308 end
309 object ActionList1: TActionList
310 Left = 336
311 Top = 8
312 object acMetricStyleChanged: TAction
313 Caption = 'acMetricStyleChanged'
314 OnExecute = acMetricStyleChangedExecute
315 end
316 object acSaveInput: TAction
317 Caption = 'acSaveInput'
318 OnExecute = acSaveInputExecute
319 end
320 object acSetOnPass: TAction
321 Caption = 'acSetOnPass'
322 OnExecute = acSetOnPassExecute
323 end
324 object acUnavailableBoxStatus: TAction
325 Caption = 'acUnavailableBoxStatus'
326 end
327 end
328end
Note: See TracBrowser for help on using the repository browser.