1 | inherited frmLabs: TfrmLabs
|
---|
2 | Left = 628
|
---|
3 | Top = 237
|
---|
4 | HelpContext = 8000
|
---|
5 | Caption = 'Laboratory Results Page'
|
---|
6 | ClientHeight = 701
|
---|
7 | HelpFile = 'qnoback'
|
---|
8 | OnDestroy = FormDestroy
|
---|
9 | ExplicitWidth = 648
|
---|
10 | ExplicitHeight = 735
|
---|
11 | PixelsPerInch = 96
|
---|
12 | TextHeight = 13
|
---|
13 | inherited shpPageBottom: TShape
|
---|
14 | Top = 696
|
---|
15 | ExplicitTop = 355
|
---|
16 | end
|
---|
17 | inherited sptHorz: TSplitter
|
---|
18 | Height = 696
|
---|
19 | ExplicitHeight = 355
|
---|
20 | end
|
---|
21 | object Label1: TLabel [2]
|
---|
22 | Left = 144
|
---|
23 | Top = 88
|
---|
24 | Width = 3
|
---|
25 | Height = 13
|
---|
26 | Visible = False
|
---|
27 | end
|
---|
28 | object Label2: TLabel [3]
|
---|
29 | Left = 128
|
---|
30 | Top = 88
|
---|
31 | Width = 3
|
---|
32 | Height = 13
|
---|
33 | Visible = False
|
---|
34 | end
|
---|
35 | inherited pnlLeft: TPanel
|
---|
36 | Height = 696
|
---|
37 | ExplicitHeight = 696
|
---|
38 | object Splitter1: TSplitter
|
---|
39 | Left = 0
|
---|
40 | Top = 436
|
---|
41 | Width = 97
|
---|
42 | Height = 10
|
---|
43 | Cursor = crVSplit
|
---|
44 | Align = alBottom
|
---|
45 | Color = clBtnFace
|
---|
46 | ParentColor = False
|
---|
47 | OnCanResize = Splitter1CanResize
|
---|
48 | ExplicitLeft = -1
|
---|
49 | ExplicitTop = 263
|
---|
50 | end
|
---|
51 | object pnlLefTop: TPanel
|
---|
52 | Left = 0
|
---|
53 | Top = 0
|
---|
54 | Width = 97
|
---|
55 | Height = 436
|
---|
56 | Align = alClient
|
---|
57 | BevelOuter = bvNone
|
---|
58 | Constraints.MinWidth = 30
|
---|
59 | TabOrder = 0
|
---|
60 | object lblReports: TOROffsetLabel
|
---|
61 | Left = 0
|
---|
62 | Top = 0
|
---|
63 | Width = 97
|
---|
64 | Height = 19
|
---|
65 | Align = alTop
|
---|
66 | Caption = 'Lab Results'
|
---|
67 | HorzOffset = 2
|
---|
68 | Transparent = False
|
---|
69 | VertOffset = 6
|
---|
70 | WordWrap = False
|
---|
71 | ExplicitLeft = -41
|
---|
72 | ExplicitTop = 54
|
---|
73 | end
|
---|
74 | object tvReports: TORTreeView
|
---|
75 | Left = 0
|
---|
76 | Top = 19
|
---|
77 | Width = 97
|
---|
78 | Height = 417
|
---|
79 | Align = alClient
|
---|
80 | HideSelection = False
|
---|
81 | Indent = 18
|
---|
82 | ReadOnly = True
|
---|
83 | TabOrder = 0
|
---|
84 | OnClick = tvReportsClick
|
---|
85 | OnCollapsing = tvReportsCollapsing
|
---|
86 | OnExpanding = tvReportsExpanding
|
---|
87 | OnKeyDown = tvReportsKeyDown
|
---|
88 | Caption = 'Available Reports'
|
---|
89 | NodePiece = 0
|
---|
90 | end
|
---|
91 | end
|
---|
92 | object pnlLeftBottom: TPanel
|
---|
93 | Left = 0
|
---|
94 | Top = 446
|
---|
95 | Width = 97
|
---|
96 | Height = 250
|
---|
97 | Align = alBottom
|
---|
98 | TabOrder = 1
|
---|
99 | object lblQualifier: TOROffsetLabel
|
---|
100 | Left = 1
|
---|
101 | Top = 1
|
---|
102 | Width = 95
|
---|
103 | Height = 21
|
---|
104 | Align = alTop
|
---|
105 | HorzOffset = 3
|
---|
106 | Transparent = True
|
---|
107 | VertOffset = 4
|
---|
108 | Visible = False
|
---|
109 | WordWrap = False
|
---|
110 | ExplicitWidth = 98
|
---|
111 | end
|
---|
112 | object lblHeaders: TOROffsetLabel
|
---|
113 | Left = 1
|
---|
114 | Top = 120
|
---|
115 | Width = 95
|
---|
116 | Height = 17
|
---|
117 | Align = alTop
|
---|
118 | HorzOffset = 2
|
---|
119 | Transparent = False
|
---|
120 | VertOffset = 2
|
---|
121 | WordWrap = False
|
---|
122 | ExplicitTop = 185
|
---|
123 | ExplicitWidth = 97
|
---|
124 | end
|
---|
125 | object lblDates: TOROffsetLabel
|
---|
126 | Left = 1
|
---|
127 | Top = 105
|
---|
128 | Width = 95
|
---|
129 | Height = 15
|
---|
130 | Align = alTop
|
---|
131 | Caption = 'Date Range'
|
---|
132 | HorzOffset = 2
|
---|
133 | Transparent = False
|
---|
134 | VertOffset = 2
|
---|
135 | WordWrap = False
|
---|
136 | ExplicitLeft = 0
|
---|
137 | ExplicitTop = 69
|
---|
138 | end
|
---|
139 | object lstQualifier: TORListBox
|
---|
140 | Left = 1
|
---|
141 | Top = 137
|
---|
142 | Width = 95
|
---|
143 | Height = 112
|
---|
144 | Align = alClient
|
---|
145 | ItemHeight = 13
|
---|
146 | ParentShowHint = False
|
---|
147 | ShowHint = True
|
---|
148 | TabOrder = 0
|
---|
149 | Visible = False
|
---|
150 | OnClick = lstQualifierClick
|
---|
151 | ItemTipColor = clWindow
|
---|
152 | LongList = False
|
---|
153 | Pieces = '2,3'
|
---|
154 | TabPositions = '10'
|
---|
155 | end
|
---|
156 | object lstHeaders: TORListBox
|
---|
157 | Left = 1
|
---|
158 | Top = 55
|
---|
159 | Width = 95
|
---|
160 | Height = 50
|
---|
161 | Align = alTop
|
---|
162 | ItemHeight = 13
|
---|
163 | ParentShowHint = False
|
---|
164 | ShowHint = True
|
---|
165 | TabOrder = 1
|
---|
166 | Visible = False
|
---|
167 | OnClick = lstHeadersClick
|
---|
168 | Caption = 'Headings'
|
---|
169 | ItemTipColor = clWindow
|
---|
170 | LongList = False
|
---|
171 | Pieces = '2'
|
---|
172 | end
|
---|
173 | object lstDates: TORListBox
|
---|
174 | Left = 1
|
---|
175 | Top = 137
|
---|
176 | Width = 95
|
---|
177 | Height = 112
|
---|
178 | Align = alClient
|
---|
179 | ItemHeight = 13
|
---|
180 | Items.Strings = (
|
---|
181 | 'S^Date Range...'
|
---|
182 | '1^Today'
|
---|
183 | '8^One Week'
|
---|
184 | '31^One Month'
|
---|
185 | '183^Six Months'
|
---|
186 | '366^One Year'
|
---|
187 | '732^Two Year'
|
---|
188 | '50000^All Results')
|
---|
189 | ParentShowHint = False
|
---|
190 | ShowHint = True
|
---|
191 | TabOrder = 3
|
---|
192 | Visible = False
|
---|
193 | OnClick = lstDatesClick
|
---|
194 | Caption = 'Date Range'
|
---|
195 | ItemTipColor = clWindow
|
---|
196 | LongList = False
|
---|
197 | Pieces = '2'
|
---|
198 | end
|
---|
199 | object pnlOtherTests: TORAutoPanel
|
---|
200 | Left = 1
|
---|
201 | Top = 22
|
---|
202 | Width = 95
|
---|
203 | Height = 33
|
---|
204 | Align = alTop
|
---|
205 | BevelOuter = bvNone
|
---|
206 | TabOrder = 5
|
---|
207 | object bvlOtherTests: TBevel
|
---|
208 | Left = 3
|
---|
209 | Top = 31
|
---|
210 | Width = 90
|
---|
211 | Height = 2
|
---|
212 | end
|
---|
213 | object cmdOtherTests: TButton
|
---|
214 | Left = 11
|
---|
215 | Top = 4
|
---|
216 | Width = 75
|
---|
217 | Height = 25
|
---|
218 | Caption = 'Other Tests'
|
---|
219 | TabOrder = 0
|
---|
220 | OnClick = cmdOtherTestsClick
|
---|
221 | end
|
---|
222 | end
|
---|
223 | end
|
---|
224 | end
|
---|
225 | inherited pnlRight: TPanel
|
---|
226 | Height = 696
|
---|
227 | OnResize = pnlRightResize
|
---|
228 | ExplicitHeight = 696
|
---|
229 | object sptHorzRight: TSplitter
|
---|
230 | Left = 0
|
---|
231 | Top = 296
|
---|
232 | Width = 539
|
---|
233 | Height = 4
|
---|
234 | Cursor = crVSplit
|
---|
235 | Align = alTop
|
---|
236 | Visible = False
|
---|
237 | OnCanResize = sptHorzRightCanResize
|
---|
238 | ExplicitTop = 288
|
---|
239 | end
|
---|
240 | object pnlRightBottom: TPanel
|
---|
241 | Left = 0
|
---|
242 | Top = 300
|
---|
243 | Width = 539
|
---|
244 | Height = 376
|
---|
245 | Align = alClient
|
---|
246 | TabOrder = 0
|
---|
247 | object Memo1: TMemo
|
---|
248 | Left = 1
|
---|
249 | Top = 1
|
---|
250 | Width = 537
|
---|
251 | Height = 19
|
---|
252 | Align = alTop
|
---|
253 | Font.Charset = DEFAULT_CHARSET
|
---|
254 | Font.Color = clWindowText
|
---|
255 | Font.Height = -11
|
---|
256 | Font.Name = 'Courier New'
|
---|
257 | Font.Style = []
|
---|
258 | Lines.Strings = (
|
---|
259 | '')
|
---|
260 | ParentFont = False
|
---|
261 | ScrollBars = ssVertical
|
---|
262 | TabOrder = 0
|
---|
263 | Visible = False
|
---|
264 | WantTabs = True
|
---|
265 | WordWrap = False
|
---|
266 | OnKeyUp = Memo1KeyUp
|
---|
267 | end
|
---|
268 | object memLab: TRichEdit
|
---|
269 | Left = 1
|
---|
270 | Top = 20
|
---|
271 | Width = 537
|
---|
272 | Height = 355
|
---|
273 | Align = alClient
|
---|
274 | Color = clCream
|
---|
275 | Font.Charset = DEFAULT_CHARSET
|
---|
276 | Font.Color = clWindowText
|
---|
277 | Font.Height = -11
|
---|
278 | Font.Name = 'Courier New'
|
---|
279 | Font.Style = []
|
---|
280 | ParentFont = False
|
---|
281 | PopupMenu = PopupMenu3
|
---|
282 | ReadOnly = True
|
---|
283 | ScrollBars = ssBoth
|
---|
284 | TabOrder = 1
|
---|
285 | Visible = False
|
---|
286 | WantReturns = False
|
---|
287 | WordWrap = False
|
---|
288 | end
|
---|
289 | end
|
---|
290 | object pnlRightTop: TPanel
|
---|
291 | Left = 0
|
---|
292 | Top = 45
|
---|
293 | Width = 539
|
---|
294 | Height = 251
|
---|
295 | Align = alTop
|
---|
296 | TabOrder = 1
|
---|
297 | object bvlHeader: TBevel
|
---|
298 | Left = 1
|
---|
299 | Top = 61
|
---|
300 | Width = 537
|
---|
301 | Height = 1
|
---|
302 | Align = alTop
|
---|
303 | ExplicitLeft = -8
|
---|
304 | ExplicitTop = 72
|
---|
305 | ExplicitWidth = 539
|
---|
306 | end
|
---|
307 | object pnlHeader: TORAutoPanel
|
---|
308 | Left = 1
|
---|
309 | Top = 1
|
---|
310 | Width = 537
|
---|
311 | Height = 60
|
---|
312 | Align = alTop
|
---|
313 | BevelOuter = bvNone
|
---|
314 | TabOrder = 0
|
---|
315 | object lblDateFloat: TLabel
|
---|
316 | Left = 396
|
---|
317 | Top = 4
|
---|
318 | Width = 56
|
---|
319 | Height = 13
|
---|
320 | Caption = 'lblDateFloat'
|
---|
321 | Visible = False
|
---|
322 | end
|
---|
323 | object pnlWorksheet: TORAutoPanel
|
---|
324 | Left = 0
|
---|
325 | Top = 0
|
---|
326 | Width = 537
|
---|
327 | Height = 60
|
---|
328 | Align = alClient
|
---|
329 | BevelOuter = bvNone
|
---|
330 | TabOrder = 1
|
---|
331 | object chkValues: TCheckBox
|
---|
332 | Left = 404
|
---|
333 | Top = 39
|
---|
334 | Width = 93
|
---|
335 | Height = 17
|
---|
336 | Caption = 'Values'
|
---|
337 | Enabled = False
|
---|
338 | TabOrder = 5
|
---|
339 | OnClick = chkValuesClick
|
---|
340 | end
|
---|
341 | object chk3D: TCheckBox
|
---|
342 | Left = 329
|
---|
343 | Top = 39
|
---|
344 | Width = 56
|
---|
345 | Height = 17
|
---|
346 | Caption = '3D'
|
---|
347 | Enabled = False
|
---|
348 | TabOrder = 4
|
---|
349 | OnClick = chk3DClick
|
---|
350 | end
|
---|
351 | object ragHorV: TRadioGroup
|
---|
352 | Left = 12
|
---|
353 | Top = 0
|
---|
354 | Width = 213
|
---|
355 | Height = 36
|
---|
356 | Caption = 'Table Format '
|
---|
357 | Columns = 2
|
---|
358 | ItemIndex = 0
|
---|
359 | Items.Strings = (
|
---|
360 | '&Horizontal'
|
---|
361 | '&Vertical')
|
---|
362 | TabOrder = 0
|
---|
363 | OnClick = ragHorVClick
|
---|
364 | end
|
---|
365 | object chkAbnormals: TCheckBox
|
---|
366 | Left = 12
|
---|
367 | Top = 39
|
---|
368 | Width = 221
|
---|
369 | Height = 17
|
---|
370 | Caption = 'Abnormal Results Only'
|
---|
371 | TabOrder = 2
|
---|
372 | OnClick = ragHorVClick
|
---|
373 | end
|
---|
374 | object ragCorG: TRadioGroup
|
---|
375 | Left = 252
|
---|
376 | Top = 0
|
---|
377 | Width = 213
|
---|
378 | Height = 36
|
---|
379 | Caption = 'Other Formats '
|
---|
380 | Columns = 2
|
---|
381 | ItemIndex = 0
|
---|
382 | Items.Strings = (
|
---|
383 | '&Comments'
|
---|
384 | '&Graph')
|
---|
385 | TabOrder = 1
|
---|
386 | OnClick = ragCorGClick
|
---|
387 | end
|
---|
388 | object chkZoom: TCheckBox
|
---|
389 | Left = 253
|
---|
390 | Top = 39
|
---|
391 | Width = 68
|
---|
392 | Height = 17
|
---|
393 | Caption = 'Zoom'
|
---|
394 | Enabled = False
|
---|
395 | TabOrder = 3
|
---|
396 | OnClick = chkZoomClick
|
---|
397 | end
|
---|
398 | end
|
---|
399 | object pnlGraph: TORAutoPanel
|
---|
400 | Left = 0
|
---|
401 | Top = 0
|
---|
402 | Width = 537
|
---|
403 | Height = 60
|
---|
404 | Align = alClient
|
---|
405 | BevelOuter = bvNone
|
---|
406 | TabOrder = 2
|
---|
407 | object lblGraphInfo: TLabel
|
---|
408 | Left = 0
|
---|
409 | Top = 47
|
---|
410 | Width = 537
|
---|
411 | Height = 13
|
---|
412 | Align = alBottom
|
---|
413 | Caption =
|
---|
414 | 'To Zoom, hold down the mouse button while dragging an area to be' +
|
---|
415 | ' enlarged.'
|
---|
416 | ExplicitWidth = 367
|
---|
417 | end
|
---|
418 | object chkGraph3D: TCheckBox
|
---|
419 | Left = 162
|
---|
420 | Top = 13
|
---|
421 | Width = 61
|
---|
422 | Height = 17
|
---|
423 | Caption = '3D'
|
---|
424 | TabOrder = 1
|
---|
425 | OnClick = chkGraph3DClick
|
---|
426 | end
|
---|
427 | object chkGraphValues: TCheckBox
|
---|
428 | Left = 276
|
---|
429 | Top = 13
|
---|
430 | Width = 101
|
---|
431 | Height = 17
|
---|
432 | Caption = 'Values'
|
---|
433 | TabOrder = 2
|
---|
434 | OnClick = chkGraphValuesClick
|
---|
435 | end
|
---|
436 | object chkGraphZoom: TCheckBox
|
---|
437 | Left = 48
|
---|
438 | Top = 13
|
---|
439 | Width = 97
|
---|
440 | Height = 17
|
---|
441 | Caption = 'Zoom'
|
---|
442 | TabOrder = 0
|
---|
443 | OnClick = chkGraphZoomClick
|
---|
444 | end
|
---|
445 | end
|
---|
446 | object pnlButtons: TORAutoPanel
|
---|
447 | Left = 0
|
---|
448 | Top = 0
|
---|
449 | Width = 537
|
---|
450 | Height = 60
|
---|
451 | Align = alClient
|
---|
452 | BevelOuter = bvNone
|
---|
453 | TabOrder = 0
|
---|
454 | object lblMostRecent: TLabel
|
---|
455 | Left = 361
|
---|
456 | Top = 16
|
---|
457 | Width = 129
|
---|
458 | Height = 13
|
---|
459 | Caption = 'Most Recent Lab Data'
|
---|
460 | Font.Charset = DEFAULT_CHARSET
|
---|
461 | Font.Color = clWindowText
|
---|
462 | Font.Height = -11
|
---|
463 | Font.Name = 'MS Sans Serif'
|
---|
464 | Font.Style = [fsBold]
|
---|
465 | ParentFont = False
|
---|
466 | end
|
---|
467 | object lblSample: TLabel
|
---|
468 | Left = 1
|
---|
469 | Top = 42
|
---|
470 | Width = 64
|
---|
471 | Height = 13
|
---|
472 | Caption = 'Specimen: '
|
---|
473 | Color = clWindow
|
---|
474 | Font.Charset = DEFAULT_CHARSET
|
---|
475 | Font.Color = clWindowText
|
---|
476 | Font.Height = -11
|
---|
477 | Font.Name = 'MS Sans Serif'
|
---|
478 | Font.Style = [fsBold]
|
---|
479 | ParentColor = False
|
---|
480 | ParentFont = False
|
---|
481 | end
|
---|
482 | object lblDate: TVA508StaticText
|
---|
483 | Name = 'lblDate'
|
---|
484 | Left = 150
|
---|
485 | Top = 2
|
---|
486 | Width = 7
|
---|
487 | Height = 15
|
---|
488 | Alignment = taCenter
|
---|
489 | AutoSize = True
|
---|
490 | Font.Charset = DEFAULT_CHARSET
|
---|
491 | Font.Color = clWindowText
|
---|
492 | Font.Height = -11
|
---|
493 | Font.Name = 'MS Sans Serif'
|
---|
494 | Font.Style = [fsBold]
|
---|
495 | ParentFont = False
|
---|
496 | TabOrder = 0
|
---|
497 | Visible = False
|
---|
498 | OnEnter = lblDateEnter
|
---|
499 | ShowAccelChar = True
|
---|
500 | end
|
---|
501 | object cmdNext: TButton
|
---|
502 | Left = 191
|
---|
503 | Top = 10
|
---|
504 | Width = 82
|
---|
505 | Height = 25
|
---|
506 | Caption = 'Next >'
|
---|
507 | Font.Charset = DEFAULT_CHARSET
|
---|
508 | Font.Color = clBtnText
|
---|
509 | Font.Height = -11
|
---|
510 | Font.Name = 'MS Sans Serif'
|
---|
511 | Font.Style = [fsBold]
|
---|
512 | ParentFont = False
|
---|
513 | TabOrder = 3
|
---|
514 | OnClick = cmdNextClick
|
---|
515 | end
|
---|
516 | object cmdPrev: TButton
|
---|
517 | Left = 87
|
---|
518 | Top = 10
|
---|
519 | Width = 82
|
---|
520 | Height = 25
|
---|
521 | Caption = '< Previous'
|
---|
522 | Font.Charset = DEFAULT_CHARSET
|
---|
523 | Font.Color = clBtnText
|
---|
524 | Font.Height = -11
|
---|
525 | Font.Name = 'MS Sans Serif'
|
---|
526 | Font.Style = [fsBold]
|
---|
527 | ParentFont = False
|
---|
528 | TabOrder = 2
|
---|
529 | OnClick = cmdPrevClick
|
---|
530 | end
|
---|
531 | object cmdRecent: TButton
|
---|
532 | Left = 279
|
---|
533 | Top = 10
|
---|
534 | Width = 76
|
---|
535 | Height = 25
|
---|
536 | Caption = 'Newest >>'
|
---|
537 | Font.Charset = DEFAULT_CHARSET
|
---|
538 | Font.Color = clBtnText
|
---|
539 | Font.Height = -11
|
---|
540 | Font.Name = 'MS Sans Serif'
|
---|
541 | Font.Style = [fsBold]
|
---|
542 | ParentFont = False
|
---|
543 | TabOrder = 4
|
---|
544 | OnClick = cmdRecentClick
|
---|
545 | end
|
---|
546 | object cmdOld: TButton
|
---|
547 | Left = 5
|
---|
548 | Top = 10
|
---|
549 | Width = 76
|
---|
550 | Height = 25
|
---|
551 | Caption = '<< Oldest'
|
---|
552 | Font.Charset = DEFAULT_CHARSET
|
---|
553 | Font.Color = clBtnText
|
---|
554 | Font.Height = -11
|
---|
555 | Font.Name = 'MS Sans Serif'
|
---|
556 | Font.Style = [fsBold]
|
---|
557 | ParentFont = False
|
---|
558 | TabOrder = 1
|
---|
559 | OnClick = cmdOldClick
|
---|
560 | end
|
---|
561 | end
|
---|
562 | end
|
---|
563 | object grdLab: TCaptionStringGrid
|
---|
564 | Left = 1
|
---|
565 | Top = 62
|
---|
566 | Width = 537
|
---|
567 | Height = 33
|
---|
568 | Align = alTop
|
---|
569 | Color = clCream
|
---|
570 | DefaultRowHeight = 15
|
---|
571 | RowCount = 2
|
---|
572 | Font.Charset = DEFAULT_CHARSET
|
---|
573 | Font.Color = clWindowText
|
---|
574 | Font.Height = -11
|
---|
575 | Font.Name = 'MS Sans Serif'
|
---|
576 | Font.Style = []
|
---|
577 | Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
|
---|
578 | ParentFont = False
|
---|
579 | TabOrder = 1
|
---|
580 | Visible = False
|
---|
581 | OnTopLeftChanged = grdLabTopLeftChanged
|
---|
582 | Caption = 'Laboratory Results'
|
---|
583 | RowHeights = (
|
---|
584 | 15
|
---|
585 | 15)
|
---|
586 | end
|
---|
587 | object pnlChart: TPanel
|
---|
588 | Left = 1
|
---|
589 | Top = 95
|
---|
590 | Width = 537
|
---|
591 | Height = 85
|
---|
592 | Align = alTop
|
---|
593 | BevelOuter = bvNone
|
---|
594 | Caption = 'no results to graph'
|
---|
595 | TabOrder = 2
|
---|
596 | Visible = False
|
---|
597 | object lblGraph: TLabel
|
---|
598 | Left = 0
|
---|
599 | Top = 72
|
---|
600 | Width = 370
|
---|
601 | Height = 13
|
---|
602 | Alignment = taCenter
|
---|
603 | Caption =
|
---|
604 | 'Results may be available, but cannot be graphed. Please try an a' +
|
---|
605 | 'lternate view.'
|
---|
606 | end
|
---|
607 | object lstTestGraph: TORListBox
|
---|
608 | Left = 0
|
---|
609 | Top = 0
|
---|
610 | Width = 97
|
---|
611 | Height = 85
|
---|
612 | Align = alLeft
|
---|
613 | ItemHeight = 13
|
---|
614 | ParentShowHint = False
|
---|
615 | ShowHint = True
|
---|
616 | TabOrder = 0
|
---|
617 | OnClick = lstTestGraphClick
|
---|
618 | Caption = 'Tests Graphed'
|
---|
619 | ItemTipColor = clWindow
|
---|
620 | LongList = False
|
---|
621 | Pieces = '2'
|
---|
622 | end
|
---|
623 | object chtChart: TChart
|
---|
624 | Left = 97
|
---|
625 | Top = 0
|
---|
626 | Width = 440
|
---|
627 | Height = 85
|
---|
628 | AllowPanning = pmNone
|
---|
629 | AllowZoom = False
|
---|
630 | BackWall.Brush.Color = clWhite
|
---|
631 | BackWall.Brush.Style = bsClear
|
---|
632 | Title.Text.Strings = (
|
---|
633 | 'test name')
|
---|
634 | Title.Visible = False
|
---|
635 | OnClickLegend = chtChartClickLegend
|
---|
636 | OnClickSeries = chtChartClickSeries
|
---|
637 | OnUndoZoom = chtChartUndoZoom
|
---|
638 | LeftAxis.Title.Caption = 'units'
|
---|
639 | Legend.Alignment = laTop
|
---|
640 | Legend.Inverted = True
|
---|
641 | Legend.ShadowSize = 2
|
---|
642 | View3D = False
|
---|
643 | Align = alClient
|
---|
644 | BevelOuter = bvNone
|
---|
645 | Color = clSilver
|
---|
646 | PopupMenu = popChart
|
---|
647 | TabOrder = 1
|
---|
648 | OnMouseDown = chtChartMouseDown
|
---|
649 | object serHigh: TLineSeries
|
---|
650 | Marks.ArrowLength = 8
|
---|
651 | Marks.Visible = False
|
---|
652 | SeriesColor = clRed
|
---|
653 | Title = 'Ref High'
|
---|
654 | LinePen.Style = psDash
|
---|
655 | Pointer.InflateMargins = True
|
---|
656 | Pointer.Style = psRectangle
|
---|
657 | Pointer.Visible = False
|
---|
658 | XValues.DateTime = True
|
---|
659 | XValues.Name = 'X'
|
---|
660 | XValues.Multiplier = 1.000000000000000000
|
---|
661 | XValues.Order = loAscending
|
---|
662 | YValues.DateTime = False
|
---|
663 | YValues.Name = 'Y'
|
---|
664 | YValues.Multiplier = 1.000000000000000000
|
---|
665 | YValues.Order = loNone
|
---|
666 | end
|
---|
667 | object serLow: TLineSeries
|
---|
668 | Marks.ArrowLength = 8
|
---|
669 | Marks.Visible = False
|
---|
670 | SeriesColor = clRed
|
---|
671 | Title = 'Ref Low'
|
---|
672 | LinePen.Style = psDash
|
---|
673 | Pointer.InflateMargins = True
|
---|
674 | Pointer.Style = psRectangle
|
---|
675 | Pointer.Visible = False
|
---|
676 | XValues.DateTime = False
|
---|
677 | XValues.Name = 'X'
|
---|
678 | XValues.Multiplier = 1.000000000000000000
|
---|
679 | XValues.Order = loAscending
|
---|
680 | YValues.DateTime = False
|
---|
681 | YValues.Name = 'Y'
|
---|
682 | YValues.Multiplier = 1.000000000000000000
|
---|
683 | YValues.Order = loNone
|
---|
684 | end
|
---|
685 | object serTest: TLineSeries
|
---|
686 | Marks.ArrowLength = 8
|
---|
687 | Marks.Visible = False
|
---|
688 | SeriesColor = clBlue
|
---|
689 | Title = 'Lab Test'
|
---|
690 | Pointer.InflateMargins = True
|
---|
691 | Pointer.Style = psCircle
|
---|
692 | Pointer.Visible = True
|
---|
693 | XValues.DateTime = True
|
---|
694 | XValues.Name = 'X'
|
---|
695 | XValues.Multiplier = 1.000000000000000000
|
---|
696 | XValues.Order = loAscending
|
---|
697 | YValues.DateTime = False
|
---|
698 | YValues.Name = 'Y'
|
---|
699 | YValues.Multiplier = 1.000000000000000000
|
---|
700 | YValues.Order = loNone
|
---|
701 | end
|
---|
702 | end
|
---|
703 | end
|
---|
704 | object lvReports: TCaptionListView
|
---|
705 | Left = 1
|
---|
706 | Top = 180
|
---|
707 | Width = 537
|
---|
708 | Height = 70
|
---|
709 | Hint = 'To sort, click on column headers|'
|
---|
710 | Align = alClient
|
---|
711 | Columns = <>
|
---|
712 | Constraints.MinHeight = 50
|
---|
713 | HideSelection = False
|
---|
714 | MultiSelect = True
|
---|
715 | ReadOnly = True
|
---|
716 | RowSelect = True
|
---|
717 | ParentShowHint = False
|
---|
718 | PopupMenu = PopupMenu2
|
---|
719 | ShowHint = True
|
---|
720 | TabOrder = 3
|
---|
721 | ViewStyle = vsReport
|
---|
722 | OnColumnClick = lvReportsColumnClick
|
---|
723 | OnCompare = lvReportsCompare
|
---|
724 | OnKeyUp = lvReportsKeyUp
|
---|
725 | OnSelectItem = lvReportsSelectItem
|
---|
726 | end
|
---|
727 | end
|
---|
728 | object pnlRightTopHeader: TPanel
|
---|
729 | Left = 0
|
---|
730 | Top = 0
|
---|
731 | Width = 539
|
---|
732 | Height = 45
|
---|
733 | Align = alTop
|
---|
734 | TabOrder = 2
|
---|
735 | object pnlRightTopHeaderTop: TPanel
|
---|
736 | Left = 1
|
---|
737 | Top = 1
|
---|
738 | Width = 537
|
---|
739 | Height = 21
|
---|
740 | Align = alTop
|
---|
741 | TabOrder = 0
|
---|
742 | object lblHeading: TOROffsetLabel
|
---|
743 | Left = 137
|
---|
744 | Top = 1
|
---|
745 | Width = 302
|
---|
746 | Height = 19
|
---|
747 | Align = alClient
|
---|
748 | HorzOffset = 2
|
---|
749 | Transparent = False
|
---|
750 | VertOffset = 6
|
---|
751 | WordWrap = False
|
---|
752 | ExplicitWidth = 304
|
---|
753 | ExplicitHeight = 25
|
---|
754 | end
|
---|
755 | object lblTitle: TOROffsetLabel
|
---|
756 | Left = 1
|
---|
757 | Top = 1
|
---|
758 | Width = 136
|
---|
759 | Height = 19
|
---|
760 | Align = alLeft
|
---|
761 | HorzOffset = 3
|
---|
762 | Transparent = True
|
---|
763 | VertOffset = 6
|
---|
764 | WordWrap = False
|
---|
765 | ExplicitLeft = 12
|
---|
766 | ExplicitTop = 19
|
---|
767 | end
|
---|
768 | object chkMaxFreq: TCheckBox
|
---|
769 | Left = 439
|
---|
770 | Top = 1
|
---|
771 | Width = 97
|
---|
772 | Height = 19
|
---|
773 | Align = alRight
|
---|
774 | Caption = 'Max/Site OFF'
|
---|
775 | TabOrder = 0
|
---|
776 | Visible = False
|
---|
777 | OnClick = chkMaxFreqClick
|
---|
778 | end
|
---|
779 | end
|
---|
780 | object TabControl1: TTabControl
|
---|
781 | Left = 1
|
---|
782 | Top = 22
|
---|
783 | Width = 537
|
---|
784 | Height = 22
|
---|
785 | Align = alClient
|
---|
786 | HotTrack = True
|
---|
787 | Style = tsButtons
|
---|
788 | TabHeight = 16
|
---|
789 | TabOrder = 1
|
---|
790 | Visible = False
|
---|
791 | OnChange = TabControl1Change
|
---|
792 | end
|
---|
793 | end
|
---|
794 | object pnlFooter: TORAutoPanel
|
---|
795 | Left = 0
|
---|
796 | Top = 676
|
---|
797 | Width = 539
|
---|
798 | Height = 20
|
---|
799 | Align = alBottom
|
---|
800 | TabOrder = 3
|
---|
801 | object lblSpecimen: TLabel
|
---|
802 | Left = 4
|
---|
803 | Top = 28
|
---|
804 | Width = 57
|
---|
805 | Height = 13
|
---|
806 | Caption = 'lblSpecimen'
|
---|
807 | Visible = False
|
---|
808 | end
|
---|
809 | object lblSingleTest: TLabel
|
---|
810 | Left = 88
|
---|
811 | Top = 28
|
---|
812 | Width = 60
|
---|
813 | Height = 13
|
---|
814 | Caption = 'lblSingleTest'
|
---|
815 | Visible = False
|
---|
816 | end
|
---|
817 | object lblFooter: TOROffsetLabel
|
---|
818 | Left = 1
|
---|
819 | Top = 1
|
---|
820 | Width = 537
|
---|
821 | Height = 25
|
---|
822 | Align = alTop
|
---|
823 | Caption =
|
---|
824 | ' KEY: "L" = Abnormal Low, "H" = Abnormal High, "*" = Critical V' +
|
---|
825 | 'alue'
|
---|
826 | HorzOffset = 2
|
---|
827 | Transparent = False
|
---|
828 | VertOffset = 2
|
---|
829 | WordWrap = False
|
---|
830 | ExplicitTop = 6
|
---|
831 | ExplicitWidth = 535
|
---|
832 | end
|
---|
833 | object lstTests: TORListBox
|
---|
834 | Left = 1
|
---|
835 | Top = 26
|
---|
836 | Width = 537
|
---|
837 | Height = 17
|
---|
838 | Align = alTop
|
---|
839 | ItemHeight = 13
|
---|
840 | ParentShowHint = False
|
---|
841 | ShowHint = True
|
---|
842 | TabOrder = 0
|
---|
843 | Visible = False
|
---|
844 | ItemTipColor = clWindow
|
---|
845 | LongList = False
|
---|
846 | end
|
---|
847 | end
|
---|
848 | end
|
---|
849 | inherited amgrMain: TVA508AccessibilityManager
|
---|
850 | Data = (
|
---|
851 | (
|
---|
852 | 'Component = pnlLeft'
|
---|
853 | 'Status = stsDefault')
|
---|
854 | (
|
---|
855 | 'Component = pnlRight'
|
---|
856 | 'Status = stsDefault')
|
---|
857 | (
|
---|
858 | 'Component = frmLabs'
|
---|
859 | 'Status = stsDefault')
|
---|
860 | (
|
---|
861 | 'Component = pnlRightBottom'
|
---|
862 | 'Status = stsDefault')
|
---|
863 | (
|
---|
864 | 'Component = Memo1'
|
---|
865 | 'Status = stsDefault')
|
---|
866 | (
|
---|
867 | 'Component = memLab'
|
---|
868 | 'Status = stsDefault')
|
---|
869 | (
|
---|
870 | 'Component = pnlRightTop'
|
---|
871 | 'Status = stsDefault')
|
---|
872 | (
|
---|
873 | 'Component = pnlHeader'
|
---|
874 | 'Status = stsDefault')
|
---|
875 | (
|
---|
876 | 'Component = pnlWorksheet'
|
---|
877 | 'Status = stsDefault')
|
---|
878 | (
|
---|
879 | 'Component = chkValues'
|
---|
880 | 'Status = stsDefault')
|
---|
881 | (
|
---|
882 | 'Component = chk3D'
|
---|
883 | 'Status = stsDefault')
|
---|
884 | (
|
---|
885 | 'Component = ragHorV'
|
---|
886 | 'Status = stsDefault')
|
---|
887 | (
|
---|
888 | 'Component = chkAbnormals'
|
---|
889 | 'Status = stsDefault')
|
---|
890 | (
|
---|
891 | 'Component = ragCorG'
|
---|
892 | 'Status = stsDefault')
|
---|
893 | (
|
---|
894 | 'Component = chkZoom'
|
---|
895 | 'Status = stsDefault')
|
---|
896 | (
|
---|
897 | 'Component = pnlGraph'
|
---|
898 | 'Status = stsDefault')
|
---|
899 | (
|
---|
900 | 'Component = chkGraph3D'
|
---|
901 | 'Status = stsDefault')
|
---|
902 | (
|
---|
903 | 'Component = chkGraphValues'
|
---|
904 | 'Status = stsDefault')
|
---|
905 | (
|
---|
906 | 'Component = chkGraphZoom'
|
---|
907 | 'Status = stsDefault')
|
---|
908 | (
|
---|
909 | 'Component = pnlButtons'
|
---|
910 | 'Status = stsDefault')
|
---|
911 | (
|
---|
912 | 'Component = lblDate'
|
---|
913 | 'Text = Date Collected'
|
---|
914 | 'Status = stsOK')
|
---|
915 | (
|
---|
916 | 'Component = cmdNext'
|
---|
917 | 'Text = Next'
|
---|
918 | 'Status = stsOK')
|
---|
919 | (
|
---|
920 | 'Component = cmdPrev'
|
---|
921 | 'Text = Previous'
|
---|
922 | 'Status = stsOK')
|
---|
923 | (
|
---|
924 | 'Component = cmdRecent'
|
---|
925 | 'Text = Newest'
|
---|
926 | 'Status = stsOK')
|
---|
927 | (
|
---|
928 | 'Component = cmdOld'
|
---|
929 | 'Text = Oldest'
|
---|
930 | 'Status = stsOK')
|
---|
931 | (
|
---|
932 | 'Component = grdLab'
|
---|
933 | 'Status = stsDefault')
|
---|
934 | (
|
---|
935 | 'Component = pnlChart'
|
---|
936 | 'Status = stsDefault')
|
---|
937 | (
|
---|
938 | 'Component = lstTestGraph'
|
---|
939 | 'Status = stsDefault')
|
---|
940 | (
|
---|
941 | 'Component = chtChart'
|
---|
942 | 'Status = stsDefault')
|
---|
943 | (
|
---|
944 | 'Component = pnlRightTopHeader'
|
---|
945 | 'Status = stsDefault')
|
---|
946 | (
|
---|
947 | 'Component = pnlFooter'
|
---|
948 | 'Status = stsDefault')
|
---|
949 | (
|
---|
950 | 'Component = lstTests'
|
---|
951 | 'Status = stsDefault')
|
---|
952 | (
|
---|
953 | 'Component = lvReports'
|
---|
954 | 'Status = stsDefault')
|
---|
955 | (
|
---|
956 | 'Component = pnlLefTop'
|
---|
957 | 'Status = stsDefault')
|
---|
958 | (
|
---|
959 | 'Component = tvReports'
|
---|
960 | 'Status = stsDefault')
|
---|
961 | (
|
---|
962 | 'Component = pnlLeftBottom'
|
---|
963 | 'Status = stsDefault')
|
---|
964 | (
|
---|
965 | 'Component = lstQualifier'
|
---|
966 | 'Status = stsDefault')
|
---|
967 | (
|
---|
968 | 'Component = lstHeaders'
|
---|
969 | 'Status = stsDefault')
|
---|
970 | (
|
---|
971 | 'Component = lstDates'
|
---|
972 | 'Status = stsDefault')
|
---|
973 | (
|
---|
974 | 'Component = pnlOtherTests'
|
---|
975 | 'Status = stsDefault')
|
---|
976 | (
|
---|
977 | 'Component = cmdOtherTests'
|
---|
978 | 'Status = stsDefault')
|
---|
979 | (
|
---|
980 | 'Component = pnlRightTopHeaderTop'
|
---|
981 | 'Status = stsDefault')
|
---|
982 | (
|
---|
983 | 'Component = chkMaxFreq'
|
---|
984 | 'Status = stsDefault')
|
---|
985 | (
|
---|
986 | 'Component = TabControl1'
|
---|
987 | 'Status = stsDefault'))
|
---|
988 | end
|
---|
989 | object popChart: TPopupMenu
|
---|
990 | OnPopup = popChartPopup
|
---|
991 | Left = 37
|
---|
992 | Top = 277
|
---|
993 | object popValues: TMenuItem
|
---|
994 | Caption = 'Values'
|
---|
995 | OnClick = popValuesClick
|
---|
996 | end
|
---|
997 | object pop3D: TMenuItem
|
---|
998 | Caption = '3D'
|
---|
999 | OnClick = pop3DClick
|
---|
1000 | end
|
---|
1001 | object popZoom: TMenuItem
|
---|
1002 | Caption = 'Zoom Enabled'
|
---|
1003 | OnClick = popZoomClick
|
---|
1004 | end
|
---|
1005 | object popZoomBack: TMenuItem
|
---|
1006 | Caption = 'Zoom Back'
|
---|
1007 | OnClick = popZoomBackClick
|
---|
1008 | end
|
---|
1009 | object N1: TMenuItem
|
---|
1010 | Caption = '-'
|
---|
1011 | end
|
---|
1012 | object popCopy: TMenuItem
|
---|
1013 | Caption = 'Copy'
|
---|
1014 | OnClick = popCopyClick
|
---|
1015 | end
|
---|
1016 | object N2: TMenuItem
|
---|
1017 | Caption = '-'
|
---|
1018 | end
|
---|
1019 | object popDetails: TMenuItem
|
---|
1020 | Caption = 'Details'
|
---|
1021 | OnClick = popDetailsClick
|
---|
1022 | end
|
---|
1023 | object N3: TMenuItem
|
---|
1024 | Caption = '-'
|
---|
1025 | end
|
---|
1026 | object popPrint: TMenuItem
|
---|
1027 | Caption = 'Print'
|
---|
1028 | OnClick = popPrintClick
|
---|
1029 | end
|
---|
1030 | end
|
---|
1031 | object calLabRange: TORDateRangeDlg
|
---|
1032 | DateOnly = True
|
---|
1033 | Instruction = 'Enter a date range -'
|
---|
1034 | LabelStart = 'Begin Date'
|
---|
1035 | LabelStop = 'End Date'
|
---|
1036 | RequireTime = False
|
---|
1037 | Format = 'mmm d,yy'
|
---|
1038 | Left = 66
|
---|
1039 | Top = 280
|
---|
1040 | end
|
---|
1041 | object dlgWinPrint: TPrintDialog
|
---|
1042 | Left = 610
|
---|
1043 | Top = 23
|
---|
1044 | end
|
---|
1045 | object Timer1: TTimer
|
---|
1046 | Interval = 100
|
---|
1047 | OnTimer = Timer1Timer
|
---|
1048 | Left = 605
|
---|
1049 | Top = 69
|
---|
1050 | end
|
---|
1051 | object PopupMenu2: TPopupMenu
|
---|
1052 | Left = 603
|
---|
1053 | Top = 158
|
---|
1054 | object Print1: TMenuItem
|
---|
1055 | Caption = 'Print'
|
---|
1056 | ShortCut = 16464
|
---|
1057 | OnClick = Print1Click
|
---|
1058 | end
|
---|
1059 | object Copy1: TMenuItem
|
---|
1060 | Caption = 'Copy Data From Table'
|
---|
1061 | ShortCut = 16451
|
---|
1062 | OnClick = Copy1Click
|
---|
1063 | end
|
---|
1064 | object SelectAll1: TMenuItem
|
---|
1065 | Caption = 'Select All From Table'
|
---|
1066 | ShortCut = 16449
|
---|
1067 | OnClick = SelectAll1Click
|
---|
1068 | end
|
---|
1069 | end
|
---|
1070 | object PopupMenu3: TPopupMenu
|
---|
1071 | OnPopup = PopupMenu3Popup
|
---|
1072 | Left = 597
|
---|
1073 | Top = 344
|
---|
1074 | object Print2: TMenuItem
|
---|
1075 | Caption = 'Print'
|
---|
1076 | ShortCut = 16464
|
---|
1077 | OnClick = Print2Click
|
---|
1078 | end
|
---|
1079 | object Copy2: TMenuItem
|
---|
1080 | Caption = 'Copy'
|
---|
1081 | ShortCut = 16451
|
---|
1082 | OnClick = Copy2Click
|
---|
1083 | end
|
---|
1084 | object SelectAll2: TMenuItem
|
---|
1085 | Caption = 'Select All'
|
---|
1086 | ShortCut = 16449
|
---|
1087 | OnClick = SelectAll2Click
|
---|
1088 | end
|
---|
1089 | object GoToTop1: TMenuItem
|
---|
1090 | Caption = 'Go to Top'
|
---|
1091 | OnClick = GotoTop1Click
|
---|
1092 | end
|
---|
1093 | object GoToBottom1: TMenuItem
|
---|
1094 | Caption = 'Go to Bottom'
|
---|
1095 | OnClick = GotoBottom1Click
|
---|
1096 | end
|
---|
1097 | object FreezeText1: TMenuItem
|
---|
1098 | Caption = 'Freeze Text'
|
---|
1099 | Enabled = False
|
---|
1100 | OnClick = FreezeText1Click
|
---|
1101 | end
|
---|
1102 | object UnFreezeText1: TMenuItem
|
---|
1103 | Caption = 'Un-Freeze Text'
|
---|
1104 | Enabled = False
|
---|
1105 | OnClick = UnfreezeText1Click
|
---|
1106 | end
|
---|
1107 | end
|
---|
1108 | end
|
---|