source: cprs/trunk/CPRS-Chart/fLabTestGroups.dfm@ 1762

Last change on this file since 1762 was 1679, checked in by healthsevak, 10 years ago

Updating the working copy to CPRS version 28
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 Alignment = taLeftJustify
87 AutoSize = True
88 Caption = 'Define Test Groups'
89 TabOrder = 10
90 ShowAccelChar = True
91 end
92 object pnlUpButton: TKeyClickPanel
93 Left = 235
94 Top = 299
95 Width = 29
96 Height = 29
97 BevelOuter = bvNone
98 Constraints.MaxHeight = 29
99 Constraints.MaxWidth = 29
100 TabOrder = 5
101 TabStop = True
102 OnClick = cmdUpClick
103 OnEnter = pnlUpButtonEnter
104 OnExit = pnlUpButtonExit
105 OnResize = pnlUpButtonResize
106 object cmdUp: TSpeedButton
107 Left = 1
108 Top = 2
109 Width = 25
110 Height = 25
111 Caption = '^'
112 Enabled = False
113 OnClick = cmdUpClick
114 end
115 end
116 object pnlDownButton: TKeyClickPanel
117 Left = 235
118 Top = 331
119 Width = 29
120 Height = 29
121 BevelOuter = bvNone
122 Constraints.MaxHeight = 29
123 Constraints.MaxWidth = 29
124 TabOrder = 6
125 TabStop = True
126 OnClick = cmdDownClick
127 OnEnter = pnlDownButtonEnter
128 OnExit = pnlDownButtonExit
129 OnResize = pnlDownButtonResize
130 object cmdDown: TSpeedButton
131 Left = 1
132 Top = 2
133 Width = 25
134 Height = 25
135 Caption = 'v'
136 Enabled = False
137 OnClick = cmdDownClick
138 end
139 end
140 object cmdOK: TButton
141 Left = 277
142 Top = 398
143 Width = 72
144 Height = 21
145 Caption = 'OK'
146 TabOrder = 8
147 OnClick = cmdOKClick
148 end
149 object cmdCancel: TButton
150 Left = 368
151 Top = 398
152 Width = 72
153 Height = 21
154 Cancel = True
155 Caption = 'Cancel'
156 ModalResult = 2
157 TabOrder = 9
158 end
159 object cmdClear: TButton
160 Left = 189
161 Top = 244
162 Width = 72
163 Height = 21
164 Caption = 'Remove All'
165 Enabled = False
166 TabOrder = 3
167 OnClick = cmdClearClick
168 end
169 object cmdRemove: TButton
170 Left = 189
171 Top = 268
172 Width = 72
173 Height = 21
174 Caption = 'Remove One'
175 Enabled = False
176 TabOrder = 4
177 OnClick = cmdRemoveClick
178 end
179 object lstList: TORListBox
180 Left = 278
181 Top = 163
182 Width = 160
183 Height = 211
184 ItemHeight = 13
185 ParentShowHint = False
186 ShowHint = True
187 TabOrder = 7
188 OnClick = lstListClick
189 Caption = 'Tests to be displayed'
190 ItemTipColor = clWindow
191 LongList = False
192 Pieces = '2'
193 OnChange = lstListClick
194 end
195 object cboTests: TORComboBox
196 Left = 10
197 Top = 144
198 Width = 160
199 Height = 233
200 Style = orcsSimple
201 AutoSelect = True
202 Caption = 'Laboratory Tests'
203 Color = clWindow
204 DropDownCount = 8
205 ItemHeight = 13
206 ItemTipColor = clWindow
207 ItemTipEnable = True
208 ListItemsOnly = False
209 LongList = True
210 LookupPiece = 0
211 MaxLength = 0
212 ParentShowHint = False
213 Pieces = '2'
214 ShowHint = True
215 Sorted = False
216 SynonymChars = '<>'
217 TabOrder = 0
218 TabStop = True
219 OnChange = cboTestsChange
220 OnDblClick = cmdAddTestClick
221 OnEnter = cboTestsEnter
222 OnExit = cboTestsExit
223 OnNeedData = cboTestsNeedData
224 CharsNeedMatch = 1
225 end
226 object cboUsers: TORComboBox
227 Left = 164
228 Top = 23
229 Width = 165
230 Height = 21
231 Style = orcsDropDown
232 AutoSelect = True
233 Caption = 'Persons with defined Test Groups'
234 Color = clWindow
235 DropDownCount = 8
236 ItemHeight = 13
237 ItemTipColor = clWindow
238 ItemTipEnable = True
239 ListItemsOnly = False
240 LongList = True
241 LookupPiece = 0
242 MaxLength = 0
243 Pieces = '2'
244 Sorted = False
245 SynonymChars = '<>'
246 TabOrder = 11
247 OnClick = cboUsersClick
248 OnNeedData = cboUsersNeedData
249 CharsNeedMatch = 1
250 end
251 object lstTestGroups: TORListBox
252 Left = 10
253 Top = 56
254 Width = 319
255 Height = 57
256 ItemHeight = 13
257 ParentShowHint = False
258 ShowHint = True
259 TabOrder = 12
260 Caption = 'Test Groups'
261 ItemTipColor = clWindow
262 LongList = False
263 Pieces = '2'
264 OnChange = lstTestGroupsChange
265 end
266 object cmdReplace: TButton
267 Left = 368
268 Top = 60
269 Width = 72
270 Height = 21
271 Caption = 'Replace'
272 Enabled = False
273 TabOrder = 14
274 OnClick = cmdReplaceClick
275 end
276 object cboSpecimen: TORComboBox
277 Left = 12
278 Top = 402
279 Width = 160
280 Height = 21
281 Style = orcsDropDown
282 AutoSelect = True
283 Caption = 'Specimen'
284 Color = clWindow
285 DropDownCount = 8
286 ItemHeight = 13
287 ItemTipColor = clWindow
288 ItemTipEnable = True
289 ListItemsOnly = False
290 LongList = True
291 LookupPiece = 0
292 MaxLength = 0
293 ParentShowHint = False
294 Pieces = '2'
295 ShowHint = True
296 Sorted = False
297 SynonymChars = '<>'
298 TabOrder = 1
299 OnNeedData = cboSpecimenNeedData
300 CharsNeedMatch = 1
301 end
302 object cmdDelete: TButton
303 Left = 368
304 Top = 88
305 Width = 72
306 Height = 21
307 Caption = 'Delete'
308 Enabled = False
309 TabOrder = 15
310 OnClick = cmdDeleteClick
311 end
312 object cmdAdd: TButton
313 Left = 368
314 Top = 32
315 Width = 72
316 Height = 21
317 Caption = 'New'
318 Enabled = False
319 ParentShowHint = False
320 ShowHint = False
321 TabOrder = 13
322 OnClick = cmdAddClick
323 end
324 object cmdAddTest: TButton
325 Left = 189
326 Top = 144
327 Width = 72
328 Height = 21
329 Caption = 'Add'
330 Enabled = False
331 TabOrder = 2
332 OnClick = cmdAddTestClick
333 end
334 end
335 inherited amgrMain: TVA508AccessibilityManager
336 Data = (
337 (
338 'Component = pnlLabTestGroups'
339 'Status = stsDefault')
340 (
341 'Component = pnlUpButton'
342 'Text = Display selected test earlier'
343 'Status = stsOK')
344 (
345 'Component = pnlDownButton'
346 'Text = Display selected test later'
347 'Status = stsOK')
348 (
349 'Component = cmdOK'
350 'Status = stsDefault')
351 (
352 'Component = cmdCancel'
353 'Status = stsDefault')
354 (
355 'Component = cmdClear'
356 'Status = stsDefault')
357 (
358 'Component = cmdRemove'
359 'Status = stsDefault')
360 (
361 'Component = lstList'
362 'Status = stsDefault')
363 (
364 'Component = cboTests'
365 'Status = stsDefault')
366 (
367 'Component = cboUsers'
368 'Label = lblUsers'
369 'Status = stsOK')
370 (
371 'Component = lstTestGroups'
372 'Label = lblTestGroups'
373 'Status = stsOK')
374 (
375 'Component = cmdReplace'
376 'Text = Replace Test Group'
377 'Status = stsOK')
378 (
379 'Component = cboSpecimen'
380 'Status = stsDefault')
381 (
382 'Component = cmdDelete'
383 'Text = Delete Test Group'
384 'Status = stsOK')
385 (
386 'Component = cmdAdd'
387 'Text = New Test Group'
388 'Status = stsOK')
389 (
390 'Component = cmdAddTest'
391 'Status = stsDefault')
392 (
393 'Component = frmLabTestGroups'
394 'Status = stsDefault')
395 (
396 'Component = lblDefine'
397 'Status = stsDefault'))
398 end
399end
Note: See TracBrowser for help on using the repository browser.