source: cprs/trunk/CPRS-Chart/Consults/fConsultAct.dfm@ 1312

Last change on this file since 1312 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27
File size: 10.5 KB
Line 
1inherited frmConsultAction: TfrmConsultAction
2 Left = 277
3 Top = 217
4 BorderIcons = []
5 Caption = 'frmConsultAction'
6 ClientHeight = 379
7 ClientWidth = 592
8 Constraints.MinHeight = 406
9 Constraints.MinWidth = 600
10 OldCreateOrder = True
11 Position = poScreenCenter
12 PixelsPerInch = 96
13 TextHeight = 13
14 object pnlBase: TPanel [0]
15 Left = 0
16 Top = 0
17 Width = 592
18 Height = 379
19 Align = alClient
20 BevelOuter = bvNone
21 TabOrder = 0
22 object pnlForward: TPanel
23 Left = 0
24 Top = 0
25 Width = 224
26 Height = 379
27 Align = alLeft
28 BevelOuter = bvNone
29 TabOrder = 0
30 object lblToService: TOROffsetLabel
31 Left = 2
32 Top = 0
33 Width = 120
34 Height = 19
35 Caption = 'To service'
36 HorzOffset = 2
37 Transparent = False
38 VertOffset = 6
39 WordWrap = False
40 end
41 object lblAttentionOf: TOROffsetLabel
42 Left = 2
43 Top = 325
44 Width = 44
45 Height = 19
46 Caption = 'Attention'
47 HorzOffset = 2
48 Transparent = False
49 VertOffset = 6
50 WordWrap = False
51 end
52 object lblUrgency: TOROffsetLabel
53 Left = 2
54 Top = 277
55 Width = 42
56 Height = 19
57 Caption = 'Urgency'
58 HorzOffset = 2
59 Transparent = False
60 VertOffset = 6
61 WordWrap = False
62 end
63 object Label1: TMemo
64 Left = 18
65 Top = 123
66 Width = 185
67 Height = 65
68 TabStop = False
69 Alignment = taCenter
70 BorderStyle = bsNone
71 Color = clBtnFace
72 Lines.Strings = (
73 'A procedure can only be forwarded to '
74 'other services defined as being able to '
75 'perform that procedure. Valid '
76 'selections for this procedure are listed '
77 'in the drop-down box above.')
78 ReadOnly = True
79 TabOrder = 4
80 end
81 object cboAttentionOf: TORComboBox
82 Left = 2
83 Top = 344
84 Width = 212
85 Height = 21
86 Style = orcsDropDown
87 AutoSelect = True
88 Caption = 'Attention'
89 Color = clWindow
90 DropDownCount = 8
91 ItemHeight = 13
92 ItemTipColor = clWindow
93 ItemTipEnable = True
94 ListItemsOnly = True
95 LongList = True
96 LookupPiece = 2
97 MaxLength = 0
98 Pieces = '2,3'
99 Sorted = False
100 SynonymChars = '<>'
101 TabOrder = 3
102 OnNeedData = NewPersonNeedData
103 CharsNeedMatch = 1
104 end
105 object cboUrgency: TORComboBox
106 Left = 2
107 Top = 297
108 Width = 212
109 Height = 21
110 Style = orcsDropDown
111 AutoSelect = True
112 Caption = 'Urgency'
113 Color = clWindow
114 DropDownCount = 8
115 ItemHeight = 13
116 ItemTipColor = clWindow
117 ItemTipEnable = True
118 ListItemsOnly = True
119 LongList = False
120 LookupPiece = 0
121 MaxLength = 0
122 Pieces = '2'
123 Sorted = False
124 SynonymChars = '<>'
125 TabOrder = 2
126 CharsNeedMatch = 1
127 end
128 object treService: TORTreeView
129 Left = 2
130 Top = 100
131 Width = 212
132 Height = 182
133 HideSelection = False
134 Indent = 19
135 ReadOnly = True
136 TabOrder = 1
137 OnChange = treServiceChange
138 OnExit = treServiceExit
139 Caption = 'To service'
140 NodePiece = 0
141 end
142 object cboService: TORComboBox
143 Left = 2
144 Top = 23
145 Width = 212
146 Height = 75
147 Style = orcsSimple
148 AutoSelect = True
149 Caption = 'To service'
150 Color = clWindow
151 DropDownCount = 8
152 ItemHeight = 13
153 ItemTipColor = clWindow
154 ItemTipEnable = True
155 ListItemsOnly = True
156 LongList = False
157 LookupPiece = 0
158 MaxLength = 0
159 Pieces = '2'
160 Sorted = True
161 SynonymChars = '<>'
162 TabOrder = 0
163 OnKeyPause = cboServiceSelect
164 OnMouseClick = cboServiceSelect
165 CharsNeedMatch = 1
166 end
167 end
168 object pnlOther: TPanel
169 Left = 224
170 Top = 0
171 Width = 368
172 Height = 379
173 Align = alClient
174 BevelOuter = bvNone
175 TabOrder = 1
176 object pnlSigFind: TPanel
177 Left = 0
178 Top = 0
179 Width = 368
180 Height = 57
181 Align = alTop
182 BevelOuter = bvNone
183 TabOrder = 0
184 object grpSigFindings: TRadioGroup
185 Left = 9
186 Top = 7
187 Width = 350
188 Height = 41
189 Caption = 'Significant Findings - Current status: '
190 Columns = 3
191 Ctl3D = True
192 Items.Strings = (
193 '&Yes'
194 '&No'
195 '&Unknown')
196 ParentCtl3D = False
197 TabOrder = 0
198 end
199 end
200 object pnlComments: TPanel
201 Left = 0
202 Top = 57
203 Width = 368
204 Height = 224
205 Align = alClient
206 Alignment = taLeftJustify
207 BevelOuter = bvNone
208 TabOrder = 1
209 object lblComments: TOROffsetLabel
210 Left = 0
211 Top = 0
212 Width = 368
213 Height = 19
214 Align = alTop
215 Caption = 'Comments'
216 HorzOffset = 2
217 Transparent = False
218 VertOffset = 6
219 WordWrap = False
220 end
221 object memComments: TCaptionMemo
222 Left = 0
223 Top = 19
224 Width = 368
225 Height = 170
226 Align = alClient
227 Font.Charset = ANSI_CHARSET
228 Font.Color = clWindowText
229 Font.Height = -11
230 Font.Name = 'Courier New'
231 Font.Style = []
232 ParentFont = False
233 ScrollBars = ssVertical
234 TabOrder = 0
235 Caption = 'Comments'
236 end
237 object pnlAlert: TPanel
238 Left = 0
239 Top = 189
240 Width = 368
241 Height = 35
242 Align = alBottom
243 BevelOuter = bvNone
244 TabOrder = 1
245 object lblAutoAlerts: TStaticText
246 Left = 6
247 Top = 1
248 Width = 4
249 Height = 4
250 TabOrder = 1
251 end
252 object ckAlert: TCheckBox
253 Left = 6
254 Top = 17
255 Width = 129
256 Height = 17
257 Caption = 'Send additional alerts'
258 TabOrder = 0
259 OnClick = ckAlertClick
260 end
261 end
262 end
263 object pnlAllActions: TPanel
264 Left = 0
265 Top = 281
266 Width = 368
267 Height = 98
268 Align = alBottom
269 BevelOuter = bvNone
270 TabOrder = 2
271 DesignSize = (
272 368
273 98)
274 object lblActionBy: TOROffsetLabel
275 Left = 138
276 Top = -4
277 Width = 215
278 Height = 19
279 Caption = 'Action by'
280 HorzOffset = 2
281 Transparent = False
282 VertOffset = 6
283 WordWrap = False
284 end
285 object lblDateofAction: TOROffsetLabel
286 Left = 5
287 Top = -4
288 Width = 112
289 Height = 19
290 Caption = 'Date/time of this action'
291 HorzOffset = 2
292 Transparent = False
293 VertOffset = 6
294 WordWrap = False
295 end
296 object calDateofAction: TORDateBox
297 Left = 5
298 Top = 15
299 Width = 116
300 Height = 21
301 TabOrder = 0
302 Text = 'Now'
303 DateOnly = False
304 RequireTime = False
305 Caption = 'Date/time of this action'
306 end
307 object cmdOK: TORAlignButton
308 Left = 201
309 Top = 62
310 Width = 75
311 Height = 22
312 Anchors = [akRight, akBottom]
313 Caption = 'OK'
314 TabOrder = 2
315 OnClick = cmdOKClick
316 end
317 object cmdCancel: TORAlignButton
318 Left = 286
319 Top = 62
320 Width = 75
321 Height = 22
322 Anchors = [akRight, akBottom]
323 Cancel = True
324 Caption = 'Cancel'
325 TabOrder = 3
326 OnClick = cmdCancelClick
327 end
328 object cboPerson: TORComboBox
329 Left = 137
330 Top = 15
331 Width = 220
332 Height = 21
333 Style = orcsDropDown
334 AutoSelect = True
335 Caption = 'Action by'
336 Color = clWindow
337 DropDownCount = 8
338 ItemHeight = 13
339 ItemTipColor = clWindow
340 ItemTipEnable = True
341 ListItemsOnly = True
342 LongList = True
343 LookupPiece = 2
344 MaxLength = 0
345 Pieces = '2,3'
346 Sorted = False
347 SynonymChars = '<>'
348 TabOrder = 1
349 TabStop = True
350 OnNeedData = NewPersonNeedData
351 CharsNeedMatch = 1
352 end
353 end
354 end
355 end
356 inherited amgrMain: TVA508AccessibilityManager
357 Data = (
358 (
359 'Component = pnlBase'
360 'Status = stsDefault')
361 (
362 'Component = pnlForward'
363 'Status = stsDefault')
364 (
365 'Component = Label1'
366 'Status = stsDefault')
367 (
368 'Component = cboAttentionOf'
369 'Status = stsDefault')
370 (
371 'Component = cboUrgency'
372 'Status = stsDefault')
373 (
374 'Component = treService'
375 'Status = stsDefault')
376 (
377 'Component = cboService'
378 'Status = stsDefault')
379 (
380 'Component = pnlOther'
381 'Status = stsDefault')
382 (
383 'Component = pnlSigFind'
384 'Status = stsDefault')
385 (
386 'Component = grpSigFindings'
387 'Status = stsDefault')
388 (
389 'Component = pnlComments'
390 'Status = stsDefault')
391 (
392 'Component = memComments'
393 'Status = stsDefault')
394 (
395 'Component = pnlAlert'
396 'Status = stsDefault')
397 (
398 'Component = lblAutoAlerts'
399 'Status = stsDefault')
400 (
401 'Component = ckAlert'
402 'Status = stsDefault')
403 (
404 'Component = pnlAllActions'
405 'Status = stsDefault')
406 (
407 'Component = calDateofAction'
408 'Status = stsDefault')
409 (
410 'Component = cmdOK'
411 'Status = stsDefault')
412 (
413 'Component = cmdCancel'
414 'Status = stsDefault')
415 (
416 'Component = cboPerson'
417 'Status = stsDefault')
418 (
419 'Component = frmConsultAction'
420 'Status = stsDefault'))
421 end
422end
Note: See TracBrowser for help on using the repository browser.