source: cprs/branches/foia-cprs/CPRS-Chart/fLabTestGroups.dfm@ 717

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

Adding foia-cprs branch

File size: 7.4 KB
Line 
1object 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
329end
Note: See TracBrowser for help on using the repository browser.