source: cprs/branches/tmg-cprs/CPRS-Chart/Orders/fODAllgy.~dfm@ 484

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

Initial upload of TMG-CPRS 1.0.26.69
File size: 9.7 KB
RevLine 
[453]1inherited frmODAllergy: TfrmODAllergy
2 Tag = 105
3 Left = 13
4 Top = 106
5 Width = 542
6 Height = 357
7 HorzScrollBar.Range = 520
8 VertScrollBar.Range = 312
9 Caption = 'Enter Allergy Information'
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
142 end
143 object cboReactionType: TORComboBox [12]
144 Left = 7
145 Top = 96
146 Width = 190
147 Height = 21
148 Style = orcsDropDown
149 AutoSelect = True
150 Caption = 'Type of Reaction'
151 Color = clWindow
152 DropDownCount = 8
153 ItemHeight = 13
154 ItemTipColor = clWindow
155 ItemTipEnable = True
156 ListItemsOnly = True
157 LongList = False
158 LookupPiece = 0
159 MaxLength = 0
160 Pieces = '2'
161 Sorted = False
162 SynonymChars = '<>'
163 TabOrder = 3
164 OnChange = ControlChange
165 CharsNeedMatch = 1
166 end
167 object grpObsHist: TRadioGroup [13]
168 Left = 364
169 Top = 11
170 Width = 147
171 Height = 30
172 Columns = 2
173 Ctl3D = True
174 Items.Strings = (
175 '&Observed'
176 '&Historical')
177 ParentCtl3D = False
178 TabOrder = 9
179 OnClick = grpObsHistClick
180 end
181 object memComments: TRichEdit [14]
182 Left = 282
183 Top = 142
184 Width = 229
185 Height = 104
186 TabOrder = 12
187 WantTabs = True
188 OnExit = memCommentsExit
189 OnKeyUp = memCommentsKeyUp
190 end
191 object lstSelectedSymptoms: TORListBox [15]
192 Left = 147
193 Top = 143
194 Width = 122
195 Height = 75
196 ExtendedSelect = False
197 ItemHeight = 13
198 ParentShowHint = False
199 ShowHint = True
200 TabOrder = 5
201 Caption = 'Selected Symptoms'
202 ItemTipColor = clWindow
203 LongList = False
204 Pieces = '2,4'
205 OnChange = ControlChange
206 end
207 object ckNoKnownAllergies: TCheckBox [16]
208 Left = 8
209 Top = 18
210 Width = 119
211 Height = 17
212 Caption = 'No Known Allergies'
213 TabOrder = 0
214 OnClick = ckNoKnownAllergiesClick
215 end
216 object cboOriginator: TORComboBox [17]
217 Left = 210
218 Top = 22
219 Width = 170
220 Height = 96
221 Anchors = [akLeft, akTop, akRight]
222 Style = orcsSimple
223 AutoSelect = True
224 Caption = 'Observer'
225 Color = clWindow
226 DropDownCount = 8
227 ItemHeight = 13
228 ItemTipColor = clWindow
229 ItemTipEnable = True
230 ListItemsOnly = True
231 LongList = True
232 LookupPiece = 2
233 MaxLength = 0
234 ParentShowHint = False
235 Pieces = '2,3'
236 ShowHint = False
237 Sorted = False
238 SynonymChars = '<>'
239 TabOrder = 8
240 OnChange = ControlChange
241 OnNeedData = cboOriginatorNeedData
242 CharsNeedMatch = 1
243 end
244 object cboSymptoms: TORComboBox [18]
245 Left = 7
246 Top = 143
247 Width = 135
248 Height = 103
249 Style = orcsSimple
250 AutoSelect = True
251 Caption = 'Signs/Symptoms'
252 Color = clWindow
253 DropDownCount = 8
254 ItemHeight = 13
255 ItemTipColor = clWindow
256 ItemTipEnable = True
257 ListItemsOnly = True
258 LongList = True
259 LookupPiece = 0
260 MaxLength = 0
261 Pieces = '2'
262 Sorted = False
263 SynonymChars = '<>'
264 TabOrder = 4
265 OnKeyDown = cboSymptomsKeyDown
266 OnMouseClick = cboSymptomsMouseClick
267 OnNeedData = cboSymptomsNeedData
268 CharsNeedMatch = 1
269 end
270 object btnCurrent: TButton [19]
271 Left = 137
272 Top = 14
273 Width = 56
274 Height = 21
275 Caption = 'Current'
276 TabOrder = 1
277 OnClick = btnCurrentClick
278 end
279 object calObservedDate: TORDateBox [20]
280 Left = 365
281 Top = 62
282 Width = 145
283 Height = 21
284 TabOrder = 10
285 OnChange = ControlChange
286 DateOnly = False
287 RequireTime = False
288 Caption = 'Reaction Date/Time'
289 end
290 object cboSeverity: TORComboBox [21]
291 Left = 365
292 Top = 97
293 Width = 144
294 Height = 21
295 Style = orcsDropDown
296 AutoSelect = True
297 Caption = 'Severity'
298 Color = clWindow
299 DropDownCount = 8
300 ItemHeight = 13
301 ItemTipColor = clWindow
302 ItemTipEnable = True
303 ListItemsOnly = True
304 LongList = False
305 LookupPiece = 0
306 MaxLength = 0
307 Pieces = '2'
308 Sorted = False
309 SynonymChars = '<>'
310 TabOrder = 11
311 OnChange = ControlChange
312 CharsNeedMatch = 1
313 end
314 object btnRemove: TButton [22]
315 Left = 210
316 Top = 224
317 Width = 57
318 Height = 21
319 Caption = 'Remove'
320 TabOrder = 7
321 OnClick = btnRemoveClick
322 end
323 object btnDateTime: TButton [23]
324 Left = 147
325 Top = 224
326 Width = 62
327 Height = 21
328 Caption = 'Date/Time'
329 TabOrder = 6
330 OnClick = btnDateTimeClick
331 end
332 inherited cmdAccept: TButton
333 Left = 441
334 Top = 256
335 Caption = 'Accept'
336 TabOrder = 13
337 end
338 inherited cmdQuit: TButton
339 Left = 441
340 Top = 283
341 TabOrder = 14
342 end
343 inherited pnlMessage: TPanel
344 Left = 20
345 Top = 253
346 TabOrder = 15
347 inherited memMessage: TRichEdit
348 Left = 41
349 end
350 end
351 inherited DKLanguageController1: TDKLanguageController
352 LangData = {
353 0C0066726D4F44416C6C65726779010100000005000000070043617074696F6E
354 011E00000008006D656D4F72646572010100000002000000070043617074696F
355 6E000900636D64416363657074010100000003000000070043617074696F6E00
356 0700636D6451756974010100000004000000070043617074696F6E000A00706E
357 6C4D65737361676500000A00696D674D65737361676500000A006D656D4D6573
358 736167650000080062746E4167656E7400000F006C626C5265616374696F6E54
359 797065010100000006000000070043617074696F6E0008006C626C4167656E74
360 010100000007000000070043617074696F6E000B006C626C53796D70746F6D73
361 010100000008000000070043617074696F6E0013006C626C53656C6563746564
362 53796D70746F6D73010100000009000000070043617074696F6E000B006C626C
363 436F6D6D656E747301010000000A000000070043617074696F6E000D006C626C
364 4F726967696E61746F7201010000000B000000070043617074696F6E00060042
365 6576656C3100000F006C626C4F627365727665644461746501010000000C0000
366 00070043617074696F6E000B006C626C536576657269747901010000000D0000
367 00070043617074696F6E000A006C7374416C6C6572677901010000000E000000
368 070043617074696F6E000F0063626F5265616374696F6E547970650101000000
369 0F000000070043617074696F6E000A006772704F627348697374010100000010
370 00000005004974656D73000B006D656D436F6D6D656E7473000013006C737453
371 656C656374656453796D70746F6D73010100000011000000070043617074696F
372 6E001200636B4E6F4B6E6F776E416C6C65726769657301010000001200000007
373 0043617074696F6E000D0063626F4F726967696E61746F720101000000130000
374 00070043617074696F6E000B0063626F53796D70746F6D730101000000140000
375 00070043617074696F6E000A0062746E43757272656E74010100000015000000
376 070043617074696F6E000F0063616C4F62736572766564446174650101000000
377 16000000070043617074696F6E000B0063626F53657665726974790101000000
378 17000000070043617074696F6E00090062746E52656D6F766501010000001800
379 0000070043617074696F6E000B0062746E4461746554696D6501010000001900
380 0000070043617074696F6E001300646C675265616374696F6E4461746554696D
381 650000}
382 end
383 object dlgReactionDateTime: TORDateTimeDlg
384 FMDateTime = 2981202.000000000000000000
385 DateOnly = False
386 RequireTime = False
387 Left = 242
388 Top = 10
389 end
390end
Note: See TracBrowser for help on using the repository browser.