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

Last change on this file since 1727 was 1679, checked in by healthsevak, 9 years ago

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