source: cprs/trunk/CPRS-Chart/Orders/fODAllgy.dfm@ 1551

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

Upgrade to version 27
File size: 9.3 KB
RevLine 
[456]1inherited frmODAllergy: TfrmODAllergy
2 Tag = 105
3 Left = 13
4 Top = 106
5 Height = 339
6 HorzScrollBar.Range = 520
7 VertScrollBar.Range = 312
8 Caption = 'Enter Allergy Information'
[829]9 ExplicitHeight = 339
[456]10 PixelsPerInch = 96
11 TextHeight = 13
12 object btnAgent: TSpeedButton [0]
13 Left = 175
14 Top = 61
15 Width = 19
16 Height = 19
17 Caption = '...'
18 Font.Charset = DEFAULT_CHARSET
19 Font.Color = clWindowText
20 Font.Height = -11
21 Font.Name = 'MS Sans Serif'
22 Font.Style = [fsBold]
23 ParentFont = False
24 OnClick = btnAgentClick
25 end
26 object lblReactionType: TOROffsetLabel [1]
27 Left = 7
28 Top = 81
29 Width = 188
30 Height = 15
31 Caption = 'Type of Reaction:'
32 HorzOffset = 2
33 Transparent = False
34 VertOffset = 2
35 WordWrap = False
36 end
37 object lblAgent: TOROffsetLabel [2]
38 Left = 7
39 Top = 44
40 Width = 188
41 Height = 15
42 Caption = 'Causative agent:'
43 HorzOffset = 2
44 Transparent = False
45 VertOffset = 2
46 WordWrap = False
47 end
48 object lblSymptoms: TOROffsetLabel [3]
49 Left = 7
50 Top = 125
51 Width = 134
52 Height = 15
53 Caption = 'Signs/Symptoms'
54 HorzOffset = 2
55 Transparent = False
56 VertOffset = 2
57 WordWrap = False
58 end
59 object lblSelectedSymptoms: TOROffsetLabel [4]
60 Left = 147
61 Top = 125
62 Width = 119
63 Height = 15
64 Caption = 'Selected Symptoms'
65 HorzOffset = 2
66 Transparent = False
67 VertOffset = 2
68 WordWrap = False
69 end
70 object lblComments: TOROffsetLabel [5]
71 Left = 281
72 Top = 125
73 Width = 226
74 Height = 15
75 Caption = 'Comments'
76 HorzOffset = 2
77 Transparent = False
78 VertOffset = 2
79 WordWrap = False
80 end
81 object lblOriginator: TOROffsetLabel [6]
82 Left = 209
83 Top = 6
84 Width = 45
85 Height = 15
86 Caption = 'Observer'
87 HorzOffset = 2
88 Transparent = False
89 VertOffset = 2
90 WordWrap = False
91 end
92 object Bevel1: TBevel [7]
93 Left = 2
94 Top = 125
95 Width = 273
96 Height = 125
97 end
98 object lblObservedDate: TOROffsetLabel [8]
99 Left = 366
100 Top = 46
101 Width = 140
102 Height = 15
103 Caption = 'Reaction Date/Time'
104 HorzOffset = 2
105 Transparent = False
106 VertOffset = 2
107 WordWrap = False
108 end
109 object lblSeverity: TOROffsetLabel [9]
110 Left = 365
111 Top = 82
112 Width = 141
113 Height = 15
114 Caption = 'Severity'
115 HorzOffset = 2
116 Transparent = False
117 VertOffset = 2
118 WordWrap = False
119 end
120 object lstAllergy: TORListBox [10]
121 Left = 8
122 Top = 61
123 Width = 166
124 Height = 21
125 Color = clBtnFace
126 ExtendedSelect = False
127 ItemHeight = 13
128 ParentShowHint = False
129 ShowHint = True
130 TabOrder = 2
131 OnClick = lstAllergyClick
132 Caption = 'Causative agent'
133 ItemTipColor = clWindow
134 LongList = False
135 Pieces = '2'
136 OnChange = ControlChange
137 end
138 inherited memOrder: TCaptionMemo
139 Left = 5
140 Top = 256
141 TabOrder = 16
[829]142 ExplicitLeft = 5
143 ExplicitTop = 256
[456]144 end
145 inherited cmdAccept: TButton
146 Left = 441
147 Top = 256
148 Caption = 'Accept'
149 TabOrder = 13
[829]150 ExplicitLeft = 441
151 ExplicitTop = 256
[456]152 end
153 inherited cmdQuit: TButton
154 Left = 441
155 Top = 283
156 TabOrder = 14
[829]157 ExplicitLeft = 441
158 ExplicitTop = 283
[456]159 end
160 inherited pnlMessage: TPanel
161 Left = 20
162 Top = 253
163 TabOrder = 15
[829]164 ExplicitLeft = 20
165 ExplicitTop = 253
[456]166 inherited memMessage: TRichEdit
167 Left = 41
[829]168 ExplicitLeft = 41
[456]169 end
170 end
[829]171 object cboReactionType: TORComboBox [15]
[456]172 Left = 7
173 Top = 96
174 Width = 190
175 Height = 21
176 Style = orcsDropDown
177 AutoSelect = True
178 Caption = 'Type of Reaction'
179 Color = clWindow
180 DropDownCount = 8
181 ItemHeight = 13
182 ItemTipColor = clWindow
183 ItemTipEnable = True
184 ListItemsOnly = True
185 LongList = False
186 LookupPiece = 0
187 MaxLength = 0
188 Pieces = '2'
189 Sorted = False
190 SynonymChars = '<>'
191 TabOrder = 3
192 OnChange = ControlChange
193 CharsNeedMatch = 1
194 end
[829]195 object grpObsHist: TRadioGroup [16]
[456]196 Left = 364
197 Top = 11
198 Width = 147
199 Height = 30
200 Columns = 2
201 Ctl3D = True
202 Items.Strings = (
203 '&Observed'
204 '&Historical')
205 ParentCtl3D = False
206 TabOrder = 9
207 OnClick = grpObsHistClick
208 end
[829]209 object memComments: TRichEdit [17]
[456]210 Left = 282
211 Top = 142
212 Width = 229
213 Height = 104
214 TabOrder = 12
215 WantTabs = True
216 OnExit = memCommentsExit
217 OnKeyUp = memCommentsKeyUp
218 end
[829]219 object lstSelectedSymptoms: TORListBox [18]
[456]220 Left = 147
221 Top = 143
222 Width = 122
223 Height = 75
224 ExtendedSelect = False
225 ItemHeight = 13
226 ParentShowHint = False
227 ShowHint = True
228 TabOrder = 5
229 Caption = 'Selected Symptoms'
230 ItemTipColor = clWindow
231 LongList = False
232 Pieces = '2,4'
233 OnChange = ControlChange
234 end
[829]235 object ckNoKnownAllergies: TCheckBox [19]
[456]236 Left = 8
237 Top = 18
238 Width = 119
239 Height = 17
240 Caption = 'No Known Allergies'
241 TabOrder = 0
242 OnClick = ckNoKnownAllergiesClick
243 end
[829]244 object cboOriginator: TORComboBox [20]
[456]245 Left = 210
246 Top = 22
247 Width = 139
248 Height = 96
249 Anchors = [akLeft, akTop, akRight]
250 Style = orcsSimple
251 AutoSelect = True
252 Caption = 'Observer'
253 Color = clWindow
254 DropDownCount = 8
255 ItemHeight = 13
256 ItemTipColor = clWindow
257 ItemTipEnable = True
258 ListItemsOnly = True
259 LongList = True
260 LookupPiece = 2
261 MaxLength = 0
262 ParentShowHint = False
263 Pieces = '2,3'
264 ShowHint = False
265 Sorted = False
266 SynonymChars = '<>'
267 TabOrder = 8
268 OnChange = ControlChange
269 OnNeedData = cboOriginatorNeedData
270 CharsNeedMatch = 1
271 end
[829]272 object cboSymptoms: TORComboBox [21]
[456]273 Left = 7
274 Top = 143
275 Width = 135
276 Height = 103
277 Style = orcsSimple
278 AutoSelect = True
279 Caption = 'Signs/Symptoms'
280 Color = clWindow
281 DropDownCount = 8
282 ItemHeight = 13
283 ItemTipColor = clWindow
284 ItemTipEnable = True
285 ListItemsOnly = True
286 LongList = True
287 LookupPiece = 0
288 MaxLength = 0
289 Pieces = '2'
290 Sorted = False
291 SynonymChars = '<>'
292 TabOrder = 4
293 OnKeyDown = cboSymptomsKeyDown
294 OnMouseClick = cboSymptomsMouseClick
295 OnNeedData = cboSymptomsNeedData
296 CharsNeedMatch = 1
297 end
[829]298 object btnCurrent: TButton [22]
[456]299 Left = 137
300 Top = 14
301 Width = 56
302 Height = 21
303 Caption = 'Current'
304 TabOrder = 1
305 OnClick = btnCurrentClick
306 end
[829]307 object calObservedDate: TORDateBox [23]
[456]308 Left = 365
309 Top = 62
310 Width = 145
311 Height = 21
312 TabOrder = 10
313 OnChange = ControlChange
314 DateOnly = False
315 RequireTime = False
316 Caption = 'Reaction Date/Time'
317 end
[829]318 object cboSeverity: TORComboBox [24]
[456]319 Left = 365
320 Top = 97
321 Width = 144
322 Height = 21
323 Style = orcsDropDown
324 AutoSelect = True
325 Caption = 'Severity'
326 Color = clWindow
327 DropDownCount = 8
328 ItemHeight = 13
329 ItemTipColor = clWindow
330 ItemTipEnable = True
331 ListItemsOnly = True
332 LongList = False
333 LookupPiece = 0
334 MaxLength = 0
335 Pieces = '2'
336 Sorted = False
337 SynonymChars = '<>'
338 TabOrder = 11
339 OnChange = ControlChange
340 CharsNeedMatch = 1
341 end
[829]342 object btnRemove: TButton [25]
[456]343 Left = 210
344 Top = 224
345 Width = 57
346 Height = 21
347 Caption = 'Remove'
348 TabOrder = 7
349 OnClick = btnRemoveClick
350 end
[829]351 object btnDateTime: TButton [26]
[456]352 Left = 147
353 Top = 224
354 Width = 62
355 Height = 21
356 Caption = 'Date/Time'
357 TabOrder = 6
358 OnClick = btnDateTimeClick
359 end
[829]360 inherited amgrMain: TVA508AccessibilityManager
361 Data = (
362 (
363 'Component = lstAllergy'
364 'Status = stsDefault')
365 (
366 'Component = cboReactionType'
367 'Status = stsDefault')
368 (
369 'Component = grpObsHist'
370 'Status = stsDefault')
371 (
372 'Component = memComments'
373 'Status = stsDefault')
374 (
375 'Component = lstSelectedSymptoms'
376 'Status = stsDefault')
377 (
378 'Component = ckNoKnownAllergies'
379 'Status = stsDefault')
380 (
381 'Component = cboOriginator'
382 'Status = stsDefault')
383 (
384 'Component = cboSymptoms'
385 'Status = stsDefault')
386 (
387 'Component = btnCurrent'
388 'Status = stsDefault')
389 (
390 'Component = calObservedDate'
391 'Status = stsDefault')
392 (
393 'Component = cboSeverity'
394 'Status = stsDefault')
395 (
396 'Component = btnRemove'
397 'Status = stsDefault')
398 (
399 'Component = btnDateTime'
400 'Status = stsDefault')
401 (
402 'Component = memOrder'
403 'Status = stsDefault')
404 (
405 'Component = cmdAccept'
406 'Status = stsDefault')
407 (
408 'Component = cmdQuit'
409 'Status = stsDefault')
410 (
411 'Component = pnlMessage'
412 'Status = stsDefault')
413 (
414 'Component = memMessage'
415 'Status = stsDefault')
416 (
417 'Component = frmODAllergy'
418 'Status = stsDefault'))
419 end
[456]420 object dlgReactionDateTime: TORDateTimeDlg
[829]421 FMDateTime = 2981202.000000000000000000
[456]422 DateOnly = False
423 RequireTime = False
424 Left = 242
425 Top = 10
426 end
427end
Note: See TracBrowser for help on using the repository browser.