1 | object frmLabTestGroups: TfrmLabTestGroups
|
---|
2 | Left = 337
|
---|
3 | Top = 202
|
---|
4 | Width = 465
|
---|
5 | Height = 461
|
---|
6 | Caption = 'Select Lab Tests'
|
---|
7 | Color = clBtnFace
|
---|
8 | Font.Charset = DEFAULT_CHARSET
|
---|
9 | Font.Color = clWindowText
|
---|
10 | Font.Height = -11
|
---|
11 | Font.Name = 'MS Sans Serif'
|
---|
12 | Font.Style = []
|
---|
13 | OldCreateOrder = True
|
---|
14 | Position = poScreenCenter
|
---|
15 | OnCreate = FormCreate
|
---|
16 | PixelsPerInch = 96
|
---|
17 | TextHeight = 13
|
---|
18 | object pnlLabTestGroups: TORAutoPanel
|
---|
19 | Left = 0
|
---|
20 | Top = 0
|
---|
21 | Width = 457
|
---|
22 | Height = 434
|
---|
23 | Align = alClient
|
---|
24 | Caption = 'Specimen'
|
---|
25 | TabOrder = 0
|
---|
26 | object bvlTestGroups: TBevel
|
---|
27 | Left = 1
|
---|
28 | Top = 1
|
---|
29 | Width = 455
|
---|
30 | Height = 120
|
---|
31 | Align = alTop
|
---|
32 | end
|
---|
33 | object lblTests: TLabel
|
---|
34 | Left = 10
|
---|
35 | Top = 124
|
---|
36 | Width = 79
|
---|
37 | Height = 13
|
---|
38 | Caption = 'Laboratory Tests'
|
---|
39 | end
|
---|
40 | object lblList: TLabel
|
---|
41 | Left = 284
|
---|
42 | Top = 144
|
---|
43 | Width = 100
|
---|
44 | Height = 13
|
---|
45 | Caption = 'Tests to be displayed'
|
---|
46 | end
|
---|
47 | object lblSpecimen: TLabel
|
---|
48 | Left = 12
|
---|
49 | Top = 383
|
---|
50 | Width = 47
|
---|
51 | Height = 13
|
---|
52 | Caption = 'Specimen'
|
---|
53 | end
|
---|
54 | object lblTestGroups: TLabel
|
---|
55 | Left = 10
|
---|
56 | Top = 38
|
---|
57 | Width = 58
|
---|
58 | Height = 13
|
---|
59 | Caption = 'Test Groups'
|
---|
60 | end
|
---|
61 | object lblUsers: TLabel
|
---|
62 | Left = 164
|
---|
63 | Top = 4
|
---|
64 | Width = 159
|
---|
65 | Height = 13
|
---|
66 | Caption = 'Persons with defined Test Groups'
|
---|
67 | end
|
---|
68 | object lblOrder: TLabel
|
---|
69 | Left = 182
|
---|
70 | Top = 304
|
---|
71 | Width = 40
|
---|
72 | Height = 52
|
---|
73 | Caption = 'Arrange order of tests for display.'
|
---|
74 | WordWrap = True
|
---|
75 | end
|
---|
76 | object lblDefine: TLabel
|
---|
77 | Left = 356
|
---|
78 | Top = 4
|
---|
79 | Width = 92
|
---|
80 | Height = 13
|
---|
81 | Caption = 'Define Test Groups'
|
---|
82 | end
|
---|
83 | object lblTestGroup: TLabel
|
---|
84 | Left = 181
|
---|
85 | Top = 198
|
---|
86 | Width = 91
|
---|
87 | Height = 39
|
---|
88 | Caption = 'To create a New Test Group, limit selection to 7 tests.'
|
---|
89 | WordWrap = True
|
---|
90 | end
|
---|
91 | object pnlUpButton: TKeyClickPanel
|
---|
92 | Left = 235
|
---|
93 | Top = 299
|
---|
94 | Width = 27
|
---|
95 | Height = 27
|
---|
96 | BevelOuter = bvNone
|
---|
97 | Caption = 'Display selected test earlier'
|
---|
98 | Constraints.MaxHeight = 27
|
---|
99 | Constraints.MaxWidth = 27
|
---|
100 | TabOrder = 5
|
---|
101 | TabStop = True
|
---|
102 | OnClick = cmdUpClick
|
---|
103 | OnEnter = pnlUpButtonEnter
|
---|
104 | OnExit = pnlUpButtonExit
|
---|
105 | OnResize = pnlUpButtonResize
|
---|
106 | object cmdUp: TSpeedButton
|
---|
107 | Left = 0
|
---|
108 | Top = 1
|
---|
109 | Width = 27
|
---|
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 = 27
|
---|
120 | Height = 27
|
---|
121 | BevelOuter = bvNone
|
---|
122 | Caption = 'Display selected test later'
|
---|
123 | Constraints.MaxHeight = 27
|
---|
124 | Constraints.MaxWidth = 27
|
---|
125 | TabOrder = 6
|
---|
126 | TabStop = True
|
---|
127 | OnClick = cmdDownClick
|
---|
128 | OnEnter = pnlDownButtonEnter
|
---|
129 | OnExit = pnlDownButtonExit
|
---|
130 | OnResize = pnlDownButtonResize
|
---|
131 | object cmdDown: TSpeedButton
|
---|
132 | Left = 0
|
---|
133 | Top = 1
|
---|
134 | Width = 27
|
---|
135 | Height = 25
|
---|
136 | Caption = 'v'
|
---|
137 | Enabled = False
|
---|
138 | OnClick = cmdDownClick
|
---|
139 | end
|
---|
140 | end
|
---|
141 | object cmdOK: TButton
|
---|
142 | Left = 277
|
---|
143 | Top = 398
|
---|
144 | Width = 72
|
---|
145 | Height = 21
|
---|
146 | Caption = 'OK'
|
---|
147 | TabOrder = 8
|
---|
148 | OnClick = cmdOKClick
|
---|
149 | end
|
---|
150 | object cmdCancel: TButton
|
---|
151 | Left = 368
|
---|
152 | Top = 398
|
---|
153 | Width = 72
|
---|
154 | Height = 21
|
---|
155 | Cancel = True
|
---|
156 | Caption = 'Cancel'
|
---|
157 | ModalResult = 2
|
---|
158 | TabOrder = 9
|
---|
159 | end
|
---|
160 | object cmdClear: TButton
|
---|
161 | Left = 189
|
---|
162 | Top = 244
|
---|
163 | Width = 72
|
---|
164 | Height = 21
|
---|
165 | Caption = 'Remove All'
|
---|
166 | Enabled = False
|
---|
167 | TabOrder = 3
|
---|
168 | OnClick = cmdClearClick
|
---|
169 | end
|
---|
170 | object cmdRemove: TButton
|
---|
171 | Left = 189
|
---|
172 | Top = 268
|
---|
173 | Width = 72
|
---|
174 | Height = 21
|
---|
175 | Caption = 'Remove One'
|
---|
176 | Enabled = False
|
---|
177 | TabOrder = 4
|
---|
178 | OnClick = cmdRemoveClick
|
---|
179 | end
|
---|
180 | object lstList: TORListBox
|
---|
181 | Left = 280
|
---|
182 | Top = 166
|
---|
183 | Width = 160
|
---|
184 | Height = 211
|
---|
185 | ItemHeight = 13
|
---|
186 | ParentShowHint = False
|
---|
187 | ShowHint = True
|
---|
188 | TabOrder = 7
|
---|
189 | OnClick = lstListClick
|
---|
190 | Caption = 'Tests to be displayed'
|
---|
191 | ItemTipColor = clWindow
|
---|
192 | LongList = False
|
---|
193 | Pieces = '2'
|
---|
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 | 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 | end
|
---|
224 | object cboUsers: TORComboBox
|
---|
225 | Left = 164
|
---|
226 | Top = 26
|
---|
227 | Width = 160
|
---|
228 | Height = 21
|
---|
229 | Style = orcsDropDown
|
---|
230 | AutoSelect = True
|
---|
231 | Caption = 'Persons with defined Test Groups'
|
---|
232 | Color = clWindow
|
---|
233 | DropDownCount = 8
|
---|
234 | ItemHeight = 13
|
---|
235 | ItemTipColor = clWindow
|
---|
236 | ItemTipEnable = True
|
---|
237 | ListItemsOnly = False
|
---|
238 | LongList = True
|
---|
239 | MaxLength = 0
|
---|
240 | Pieces = '2'
|
---|
241 | Sorted = False
|
---|
242 | SynonymChars = '<>'
|
---|
243 | TabOrder = 10
|
---|
244 | OnClick = cboUsersClick
|
---|
245 | OnNeedData = cboUsersNeedData
|
---|
246 | end
|
---|
247 | object lstTestGroups: TORListBox
|
---|
248 | Left = 10
|
---|
249 | Top = 56
|
---|
250 | Width = 319
|
---|
251 | Height = 57
|
---|
252 | ItemHeight = 13
|
---|
253 | ParentShowHint = False
|
---|
254 | ShowHint = True
|
---|
255 | TabOrder = 11
|
---|
256 | OnClick = lstTestGroupsClick
|
---|
257 | Caption = 'Test Groups'
|
---|
258 | ItemTipColor = clWindow
|
---|
259 | LongList = False
|
---|
260 | Pieces = '2'
|
---|
261 | end
|
---|
262 | object cmdReplace: TButton
|
---|
263 | Left = 368
|
---|
264 | Top = 60
|
---|
265 | Width = 72
|
---|
266 | Height = 21
|
---|
267 | Caption = 'Replace'
|
---|
268 | Enabled = False
|
---|
269 | TabOrder = 13
|
---|
270 | OnClick = cmdReplaceClick
|
---|
271 | end
|
---|
272 | object cboSpecimen: TORComboBox
|
---|
273 | Left = 12
|
---|
274 | Top = 402
|
---|
275 | Width = 160
|
---|
276 | Height = 21
|
---|
277 | Style = orcsDropDown
|
---|
278 | AutoSelect = True
|
---|
279 | Caption = 'Specimen'
|
---|
280 | Color = clWindow
|
---|
281 | DropDownCount = 8
|
---|
282 | ItemHeight = 13
|
---|
283 | ItemTipColor = clWindow
|
---|
284 | ItemTipEnable = True
|
---|
285 | ListItemsOnly = False
|
---|
286 | LongList = True
|
---|
287 | MaxLength = 0
|
---|
288 | ParentShowHint = False
|
---|
289 | Pieces = '2'
|
---|
290 | ShowHint = True
|
---|
291 | Sorted = False
|
---|
292 | SynonymChars = '<>'
|
---|
293 | TabOrder = 1
|
---|
294 | OnNeedData = cboSpecimenNeedData
|
---|
295 | end
|
---|
296 | object cmdDelete: TButton
|
---|
297 | Left = 368
|
---|
298 | Top = 88
|
---|
299 | Width = 72
|
---|
300 | Height = 21
|
---|
301 | Caption = 'Delete'
|
---|
302 | Enabled = False
|
---|
303 | TabOrder = 14
|
---|
304 | OnClick = cmdDeleteClick
|
---|
305 | end
|
---|
306 | object cmdAdd: TButton
|
---|
307 | Left = 368
|
---|
308 | Top = 32
|
---|
309 | Width = 72
|
---|
310 | Height = 21
|
---|
311 | Caption = 'New'
|
---|
312 | Enabled = False
|
---|
313 | ParentShowHint = False
|
---|
314 | ShowHint = False
|
---|
315 | TabOrder = 12
|
---|
316 | OnClick = cmdAddClick
|
---|
317 | end
|
---|
318 | object cmdAddTest: TButton
|
---|
319 | Left = 189
|
---|
320 | Top = 144
|
---|
321 | Width = 72
|
---|
322 | Height = 21
|
---|
323 | Caption = 'Add'
|
---|
324 | Enabled = False
|
---|
325 | TabOrder = 2
|
---|
326 | OnClick = cmdAddTestClick
|
---|
327 | end
|
---|
328 | end
|
---|
329 | end
|
---|