source: cprs/branches/HealthSevak-CPRS/CPRS-Chart/fLabTestGroups.dfm@ 1677

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

Upgrading to version 27
File size: 9.2 KB
Line 
1inherited frmLabTestGroups: TfrmLabTestGroups
2 Left = 337
3 Top = 202
4 Caption = 'Select Lab Tests'
5 ClientHeight = 434
6 ClientWidth = 457
7 OldCreateOrder = True
8 Position = poScreenCenter
9 OnCreate = FormCreate
10 ExplicitWidth = 465
11 ExplicitHeight = 461
12 PixelsPerInch = 96
13 TextHeight = 13
14 object pnlLabTestGroups: TORAutoPanel [0]
15 Left = 0
16 Top = 0
17 Width = 457
18 Height = 434
19 Align = alClient
20 Caption = 'Specimen'
21 TabOrder = 0
22 object bvlTestGroups: TBevel
23 Left = 1
24 Top = 1
25 Width = 455
26 Height = 120
27 Align = alTop
28 end
29 object lblTests: TLabel
30 Left = 10
31 Top = 124
32 Width = 79
33 Height = 13
34 Caption = 'Laboratory Tests'
35 end
36 object lblList: TLabel
37 Left = 284
38 Top = 144
39 Width = 100
40 Height = 13
41 Caption = 'Tests to be displayed'
42 end
43 object lblSpecimen: TLabel
44 Left = 12
45 Top = 383
46 Width = 47
47 Height = 13
48 Caption = 'Specimen'
49 end
50 object lblTestGroups: TLabel
51 Left = 10
52 Top = 38
53 Width = 58
54 Height = 13
55 Caption = 'Test Groups'
56 end
57 object lblUsers: TLabel
58 Left = 164
59 Top = 4
60 Width = 159
61 Height = 13
62 Caption = 'Persons with defined Test Groups'
63 end
64 object lblOrder: TLabel
65 Left = 182
66 Top = 304
67 Width = 40
68 Height = 52
69 Caption = 'Arrange order of tests for display.'
70 WordWrap = True
71 end
72 object lblTestGroup: TLabel
73 Left = 181
74 Top = 198
75 Width = 91
76 Height = 39
77 Caption = 'To create a New Test Group, limit selection to 7 tests.'
78 WordWrap = True
79 end
80 object lblDefine: TVA508StaticText
81 Name = 'lblDefine'
82 Left = 352
83 Top = 8
84 Width = 94
85 Height = 15
86 AutoSize = True
87 Caption = 'Define Test Groups'
88 TabOrder = 10
89 ShowAccelChar = True
90 end
91 object pnlUpButton: TKeyClickPanel
92 Left = 235
93 Top = 299
94 Width = 29
95 Height = 29
96 BevelOuter = bvNone
97 Constraints.MaxHeight = 29
98 Constraints.MaxWidth = 29
99 TabOrder = 5
100 TabStop = True
101 OnClick = cmdUpClick
102 OnEnter = pnlUpButtonEnter
103 OnExit = pnlUpButtonExit
104 OnResize = pnlUpButtonResize
105 object cmdUp: TSpeedButton
106 Left = 2
107 Top = 2
108 Width = 25
109 Height = 25
110 Caption = '^'
111 Enabled = False
112 OnClick = cmdUpClick
113 end
114 end
115 object pnlDownButton: TKeyClickPanel
116 Left = 235
117 Top = 331
118 Width = 29
119 Height = 29
120 BevelOuter = bvNone
121 Constraints.MaxHeight = 29
122 Constraints.MaxWidth = 29
123 TabOrder = 6
124 TabStop = True
125 OnClick = cmdDownClick
126 OnEnter = pnlDownButtonEnter
127 OnExit = pnlDownButtonExit
128 OnResize = pnlDownButtonResize
129 object cmdDown: TSpeedButton
130 Left = 2
131 Top = 2
132 Width = 25
133 Height = 25
134 Caption = 'v'
135 Enabled = False
136 OnClick = cmdDownClick
137 end
138 end
139 object cmdOK: TButton
140 Left = 277
141 Top = 398
142 Width = 72
143 Height = 21
144 Caption = 'OK'
145 TabOrder = 8
146 OnClick = cmdOKClick
147 end
148 object cmdCancel: TButton
149 Left = 368
150 Top = 398
151 Width = 72
152 Height = 21
153 Cancel = True
154 Caption = 'Cancel'
155 ModalResult = 2
156 TabOrder = 9
157 end
158 object cmdClear: TButton
159 Left = 189
160 Top = 244
161 Width = 72
162 Height = 21
163 Caption = 'Remove All'
164 Enabled = False
165 TabOrder = 3
166 OnClick = cmdClearClick
167 end
168 object cmdRemove: TButton
169 Left = 189
170 Top = 268
171 Width = 72
172 Height = 21
173 Caption = 'Remove One'
174 Enabled = False
175 TabOrder = 4
176 OnClick = cmdRemoveClick
177 end
178 object lstList: TORListBox
179 Left = 278
180 Top = 163
181 Width = 160
182 Height = 211
183 ItemHeight = 13
184 ParentShowHint = False
185 ShowHint = True
186 TabOrder = 7
187 OnClick = lstListClick
188 Caption = 'Tests to be displayed'
189 ItemTipColor = clWindow
190 LongList = False
191 Pieces = '2'
192 OnChange = lstListClick
193 end
194 object cboTests: TORComboBox
195 Left = 10
196 Top = 144
197 Width = 160
198 Height = 233
199 Style = orcsSimple
200 AutoSelect = True
201 Caption = 'Laboratory Tests'
202 Color = clWindow
203 DropDownCount = 8
204 ItemHeight = 13
205 ItemTipColor = clWindow
206 ItemTipEnable = True
207 ListItemsOnly = False
208 LongList = True
209 LookupPiece = 0
210 MaxLength = 0
211 ParentShowHint = False
212 Pieces = '2'
213 ShowHint = True
214 Sorted = False
215 SynonymChars = '<>'
216 TabOrder = 0
217 TabStop = True
218 OnChange = cboTestsChange
219 OnDblClick = cmdAddTestClick
220 OnEnter = cboTestsEnter
221 OnExit = cboTestsExit
222 OnNeedData = cboTestsNeedData
223 CharsNeedMatch = 1
224 end
225 object cboUsers: TORComboBox
226 Left = 164
227 Top = 23
228 Width = 165
229 Height = 21
230 Style = orcsDropDown
231 AutoSelect = True
232 Caption = 'Persons with defined Test Groups'
233 Color = clWindow
234 DropDownCount = 8
235 ItemHeight = 13
236 ItemTipColor = clWindow
237 ItemTipEnable = True
238 ListItemsOnly = False
239 LongList = True
240 LookupPiece = 0
241 MaxLength = 0
242 Pieces = '2'
243 Sorted = False
244 SynonymChars = '<>'
245 TabOrder = 11
246 OnClick = cboUsersClick
247 OnNeedData = cboUsersNeedData
248 CharsNeedMatch = 1
249 end
250 object lstTestGroups: TORListBox
251 Left = 10
252 Top = 56
253 Width = 319
254 Height = 57
255 ItemHeight = 13
256 ParentShowHint = False
257 ShowHint = True
258 TabOrder = 12
259 Caption = 'Test Groups'
260 ItemTipColor = clWindow
261 LongList = False
262 Pieces = '2'
263 OnChange = lstTestGroupsChange
264 end
265 object cmdReplace: TButton
266 Left = 368
267 Top = 60
268 Width = 72
269 Height = 21
270 Caption = 'Replace'
271 Enabled = False
272 TabOrder = 14
273 OnClick = cmdReplaceClick
274 end
275 object cboSpecimen: TORComboBox
276 Left = 12
277 Top = 402
278 Width = 160
279 Height = 21
280 Style = orcsDropDown
281 AutoSelect = True
282 Caption = 'Specimen'
283 Color = clWindow
284 DropDownCount = 8
285 ItemHeight = 13
286 ItemTipColor = clWindow
287 ItemTipEnable = True
288 ListItemsOnly = False
289 LongList = True
290 LookupPiece = 0
291 MaxLength = 0
292 ParentShowHint = False
293 Pieces = '2'
294 ShowHint = True
295 Sorted = False
296 SynonymChars = '<>'
297 TabOrder = 1
298 OnNeedData = cboSpecimenNeedData
299 CharsNeedMatch = 1
300 end
301 object cmdDelete: TButton
302 Left = 368
303 Top = 88
304 Width = 72
305 Height = 21
306 Caption = 'Delete'
307 Enabled = False
308 TabOrder = 15
309 OnClick = cmdDeleteClick
310 end
311 object cmdAdd: TButton
312 Left = 368
313 Top = 32
314 Width = 72
315 Height = 21
316 Caption = 'New'
317 Enabled = False
318 ParentShowHint = False
319 ShowHint = False
320 TabOrder = 13
321 OnClick = cmdAddClick
322 end
323 object cmdAddTest: TButton
324 Left = 189
325 Top = 144
326 Width = 72
327 Height = 21
328 Caption = 'Add'
329 Enabled = False
330 TabOrder = 2
331 OnClick = cmdAddTestClick
332 end
333 end
334 inherited amgrMain: TVA508AccessibilityManager
335 Data = (
336 (
337 'Component = pnlLabTestGroups'
338 'Status = stsDefault')
339 (
340 'Component = pnlUpButton'
341 'Text = Display selected test earlier'
342 'Status = stsOK')
343 (
344 'Component = pnlDownButton'
345 'Text = Display selected test later'
346 'Status = stsOK')
347 (
348 'Component = cmdOK'
349 'Status = stsDefault')
350 (
351 'Component = cmdCancel'
352 'Status = stsDefault')
353 (
354 'Component = cmdClear'
355 'Status = stsDefault')
356 (
357 'Component = cmdRemove'
358 'Status = stsDefault')
359 (
360 'Component = lstList'
361 'Status = stsDefault')
362 (
363 'Component = cboTests'
364 'Status = stsDefault')
365 (
366 'Component = cboUsers'
367 'Label = lblUsers'
368 'Status = stsOK')
369 (
370 'Component = lstTestGroups'
371 'Label = lblTestGroups'
372 'Status = stsOK')
373 (
374 'Component = cmdReplace'
375 'Text = Replace Test Group'
376 'Status = stsOK')
377 (
378 'Component = cboSpecimen'
379 'Status = stsDefault')
380 (
381 'Component = cmdDelete'
382 'Text = Delete Test Group'
383 'Status = stsOK')
384 (
385 'Component = cmdAdd'
386 'Text = New Test Group'
387 'Status = stsOK')
388 (
389 'Component = cmdAddTest'
390 'Status = stsDefault')
391 (
392 'Component = frmLabTestGroups'
393 'Status = stsDefault')
394 (
395 'Component = lblDefine'
396 'Status = stsDefault'))
397 end
398end
Note: See TracBrowser for help on using the repository browser.