inherited frmLabs: TfrmLabs Left = 250 Top = 230 Height = 387 HelpContext = 8000 Caption = 'Laboratory Results Page' HelpFile = 'qnoback' OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 inherited shpPageBottom: TShape Top = 348 end inherited sptHorz: TSplitter Height = 348 end inherited pnlLeft: TPanel Height = 348 object lblReports: TOROffsetLabel Left = 0 Top = 0 Width = 97 Height = 19 Align = alTop Caption = 'Lab Results' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object lblDates: TOROffsetLabel Left = 0 Top = 225 Width = 97 Height = 15 Align = alBottom Caption = 'Date Range' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblHeaders: TOROffsetLabel Left = 0 Top = 125 Width = 97 Height = 15 Align = alBottom Caption = 'Headings' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lstReports: TORListBox Left = 0 Top = 19 Width = 97 Height = 106 Align = alClient ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = lstReportsClick Caption = 'Lab Results' ItemTipColor = clWindow LongList = False Pieces = '2' end object lstHeaders: TORListBox Left = 0 Top = 140 Width = 97 Height = 52 Align = alBottom ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 1 Visible = False OnClick = lstHeadersClick Caption = 'Headings' ItemTipColor = clWindow LongList = False Pieces = '2' end object lstDates: TORListBox Left = 0 Top = 240 Width = 97 Height = 108 Align = alBottom ItemHeight = 13 Items.Strings = ( 'S^Date Range...' '1^Today' '8^One Week' '15^Two Weeks' '31^One Month' '183^Six Months' '366^One Year' '732^Two Years' '66666^All Results') ParentShowHint = False ShowHint = True TabOrder = 3 Visible = False OnClick = lstDatesClick Caption = 'Date Range' ItemTipColor = clWindow LongList = False Pieces = '2' end object pnlOtherTests: TORAutoPanel Left = 0 Top = 192 Width = 97 Height = 33 Align = alBottom BevelOuter = bvNone TabOrder = 2 object bvlOtherTests: TBevel Left = 3 Top = 31 Width = 90 Height = 2 end object cmdOtherTests: TButton Left = 11 Top = 4 Width = 75 Height = 25 Caption = 'Other Tests' TabOrder = 0 OnClick = cmdOtherTestsClick end end end inherited pnlRight: TPanel Height = 348 OnResize = pnlRightResize object lblHeading: TOROffsetLabel Left = 0 Top = 0 Width = 539 Height = 19 Align = alTop Caption = 'Laboratory Results' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object pnlHeader: TORAutoPanel Left = 0 Top = 19 Width = 539 Height = 60 Align = alTop BevelOuter = bvNone TabOrder = 0 object bvlHeader: TBevel Left = 0 Top = 0 Width = 539 Height = 2 Align = alTop end object lblDateFloat: TLabel Left = 396 Top = 4 Width = 56 Height = 13 Caption = 'lblDateFloat' Visible = False end object pnlWorksheet: TORAutoPanel Left = 0 Top = 2 Width = 539 Height = 58 Align = alClient BevelOuter = bvNone TabOrder = 1 object chkValues: TCheckBox Left = 404 Top = 39 Width = 93 Height = 17 Caption = 'Values' Enabled = False TabOrder = 5 OnClick = chkValuesClick end object chk3D: TCheckBox Left = 329 Top = 39 Width = 56 Height = 17 Caption = '3D' Enabled = False TabOrder = 4 OnClick = chk3DClick end object ragHorV: TRadioGroup Left = 12 Top = 0 Width = 213 Height = 36 Caption = 'Table Format ' Columns = 2 ItemIndex = 0 Items.Strings = ( '&Horizontal' '&Vertical') TabOrder = 0 OnClick = ragHorVClick end object chkAbnormals: TCheckBox Left = 12 Top = 39 Width = 221 Height = 17 Caption = 'Abnormal Results Only' TabOrder = 2 OnClick = ragHorVClick end object ragCorG: TRadioGroup Left = 252 Top = 0 Width = 213 Height = 36 Caption = 'Other Formats ' Columns = 2 ItemIndex = 0 Items.Strings = ( '&Comments' '&Graph') TabOrder = 1 OnClick = ragCorGClick end object chkZoom: TCheckBox Left = 253 Top = 39 Width = 68 Height = 17 Caption = 'Zoom' Enabled = False TabOrder = 3 OnClick = chkZoomClick end end object pnlGraph: TORAutoPanel Left = 0 Top = 2 Width = 539 Height = 58 Align = alClient BevelOuter = bvNone TabOrder = 2 object lblGraphInfo: TLabel Left = 0 Top = 45 Width = 539 Height = 13 Align = alBottom Caption = 'To Zoom, hold down the mouse button while dragging an area to be' + ' enlarged.' end object chkGraph3D: TCheckBox Left = 162 Top = 13 Width = 61 Height = 17 Caption = '3D' TabOrder = 1 OnClick = chkGraph3DClick end object chkGraphValues: TCheckBox Left = 276 Top = 13 Width = 101 Height = 17 Caption = 'Values' TabOrder = 2 OnClick = chkGraphValuesClick end object chkGraphZoom: TCheckBox Left = 48 Top = 13 Width = 97 Height = 17 Caption = 'Zoom' TabOrder = 0 OnClick = chkGraphZoomClick end end object pnlButtons: TORAutoPanel Left = 0 Top = 2 Width = 539 Height = 58 Align = alClient BevelOuter = bvNone TabOrder = 0 object lblOld: TOROffsetLabel Left = 4 Top = 6 Width = 41 Height = 15 Caption = 'Oldest' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblPrev: TOROffsetLabel Left = 48 Top = 6 Width = 49 Height = 15 Caption = 'Previous' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblNext: TOROffsetLabel Left = 246 Top = 6 Width = 31 Height = 15 Caption = 'Next' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblRecent: TOROffsetLabel Left = 287 Top = 6 Width = 46 Height = 15 Caption = 'Newest' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblMostRecent: TLabel Left = 368 Top = 29 Width = 144 Height = 13 Caption = 'Most Recent Lab Results' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object lblDate: TLabel Left = 95 Top = 29 Width = 5 Height = 13 Alignment = taCenter Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object lblCollection: TLabel Left = 95 Top = 8 Width = 44 Height = 13 Alignment = taCenter Caption = 'Collected' end object cmdNext: TButton Left = 238 Top = 23 Width = 45 Height = 25 Caption = '>' Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = cmdNextClick end object cmdPrev: TButton Left = 49 Top = 23 Width = 45 Height = 25 Caption = '<' Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = cmdPrevClick end object cmdRecent: TButton Left = 283 Top = 23 Width = 45 Height = 25 Caption = '>>' Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = cmdRecentClick end object cmdOld: TButton Left = 4 Top = 23 Width = 45 Height = 25 Caption = '<<' Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = cmdOldClick end end end object pnlFooter: TORAutoPanel Left = 0 Top = 328 Width = 539 Height = 20 Align = alBottom TabOrder = 7 object lblSpecimen: TLabel Left = 4 Top = 28 Width = 57 Height = 13 Caption = 'lblSpecimen' Visible = False end object lblSingleTest: TLabel Left = 88 Top = 28 Width = 60 Height = 13 Caption = 'lblSingleTest' Visible = False end object lblFooter: TOROffsetLabel Left = 1 Top = 1 Width = 537 Height = 25 Align = alTop Caption = ' KEY: "L" = Abnormal Low, "H" = Abnormal High, "*" = Critical V' + 'alue' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lstTests: TORListBox Left = 24 Top = 27 Width = 89 Height = 17 ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 Visible = False ItemTipColor = clWindow LongList = False end end object grdLab: TCaptionStringGrid Left = 0 Top = 95 Width = 539 Height = 122 Align = alTop Color = clCream DefaultRowHeight = 15 RowCount = 2 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing] ParentFont = False TabOrder = 2 Visible = False Caption = 'Laboratory Results' ColWidths = ( 64 64 64 64 64) RowHeights = ( 15 15) end object pnlChart: TPanel Left = 0 Top = 217 Width = 539 Height = 85 Align = alTop BevelOuter = bvNone Caption = 'no results to graph' TabOrder = 3 Visible = False object lblGraph: TLabel Left = 0 Top = 72 Width = 370 Height = 13 Alignment = taCenter Caption = 'Results may be available, but cannot be graphed. Please try an a' + 'lternate view.' end object lstTestGraph: TORListBox Left = 0 Top = 0 Width = 97 Height = 85 Align = alLeft ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = lstTestGraphClick Caption = 'Tests Graphed' ItemTipColor = clWindow LongList = False Pieces = '2' end object chtChart: TChart Left = 97 Top = 0 Width = 442 Height = 85 AllowPanning = pmNone AllowZoom = False BackWall.Brush.Color = clWhite BackWall.Brush.Style = bsClear Title.Text.Strings = ( 'test name') Title.Visible = False OnClickLegend = chtChartClickLegend OnClickSeries = chtChartClickSeries OnUndoZoom = chtChartUndoZoom LeftAxis.Title.Caption = 'units' Legend.Alignment = laTop Legend.Inverted = True Legend.ShadowSize = 2 View3D = False Align = alClient BevelOuter = bvNone Color = clSilver PopupMenu = popChart TabOrder = 1 OnMouseDown = chtChartMouseDown object serHigh: TLineSeries Marks.ArrowLength = 8 Marks.Visible = False SeriesColor = clRed Title = 'Ref High' LinePen.Style = psDash Pointer.InflateMargins = True Pointer.Style = psRectangle Pointer.Visible = False XValues.DateTime = True XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Y' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone end object serLow: TLineSeries Marks.ArrowLength = 8 Marks.Visible = False SeriesColor = clRed Title = 'Ref Low' LinePen.Style = psDash Pointer.InflateMargins = True Pointer.Style = psRectangle Pointer.Visible = False XValues.DateTime = False XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Y' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone end object serTest: TLineSeries Marks.ArrowLength = 8 Marks.Visible = False SeriesColor = clBlue Title = 'Lab Test' Pointer.InflateMargins = True Pointer.Style = psCircle Pointer.Visible = True XValues.DateTime = True XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Y' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone end end end object memLab: TRichEdit Left = 0 Top = 321 Width = 539 Height = 7 Align = alClient Color = clCream Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False PopupMenu = PopupMenu1 ReadOnly = True ScrollBars = ssBoth TabOrder = 5 Visible = False WantReturns = False WordWrap = False end object Memo1: TMemo Left = 0 Top = 302 Width = 539 Height = 19 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( '') ParentFont = False ScrollBars = ssVertical TabOrder = 4 Visible = False WantTabs = True WordWrap = False OnKeyUp = Memo1KeyUp end object TabControl1: TTabControl Left = 0 Top = 79 Width = 539 Height = 16 Align = alTop HotTrack = True Style = tsButtons TabHeight = 16 TabOrder = 1 Visible = False OnChange = TabControl1Change end object WebBrowser1: TWebBrowser Left = 0 Top = 321 Width = 539 Height = 7 TabStop = False Align = alClient TabOrder = 6 OnDocumentComplete = WebBrowser1DocumentComplete ControlData = { 4C000000B5370000B90000000000000000000000000000000000000000000000 000000004C000000000000000000000001000000E0D057007335CF11AE690800 2B2E126208000000000000004C0000000114020000000000C000000000000046 8000000000000000000000000000000000000000000000000000000000000000 00000000000000000100000000000000000000000000000000000000} end end inherited DKLanguageController1: TDKLanguageController LangData = { 070066726D4C616273010200000001000000070043617074696F6E0200000008 0048656C7046696C65014D0000000D0073687050616765426F74746F6D000007 00737074486F727A00000700706E6C4C65667400000800706E6C526967687400 000A006C626C5265706F727473010100000003000000070043617074696F6E00 08006C626C4461746573010100000004000000070043617074696F6E000A006C 626C48656164657273010100000005000000070043617074696F6E000A006C73 745265706F727473010100000006000000070043617074696F6E000A006C7374 48656164657273010100000007000000070043617074696F6E0008006C737444 61746573010200000009000000070043617074696F6E0800000005004974656D 73000D00706E6C4F74686572546573747300000D0062766C4F74686572546573 747300000D00636D644F74686572546573747301010000000A00000007004361 7074696F6E000A006C626C48656164696E6701010000000B0000000700436170 74696F6E000900706E6C4865616465720000090062766C48656164657200000C 006C626C44617465466C6F617401010000000C000000070043617074696F6E00 0C00706E6C576F726B73686565740000090063686B56616C7565730101000000 0D000000070043617074696F6E00050063686B334401010000000E0000000700 43617074696F6E000700726167486F725601020000000F000000070043617074 696F6E1000000005004974656D73000C0063686B41626E6F726D616C73010100 000011000000070043617074696F6E000700726167436F724701020000001200 0000070043617074696F6E1300000005004974656D7300070063686B5A6F6F6D 010100000014000000070043617074696F6E000800706E6C477261706800000C 006C626C4772617068496E666F010100000015000000070043617074696F6E00 0A0063686B47726170683344010100000016000000070043617074696F6E000E 0063686B477261706856616C756573010100000017000000070043617074696F 6E000C0063686B47726170685A6F6F6D01010000001800000007004361707469 6F6E000A00706E6C427574746F6E73000006006C626C4F6C6401010000001900 0000070043617074696F6E0007006C626C5072657601010000001A0000000700 43617074696F6E0007006C626C4E65787401010000001B000000070043617074 696F6E0009006C626C526563656E7401010000001C000000070043617074696F 6E000D006C626C4D6F7374526563656E7401010000001D000000070043617074 696F6E0007006C626C4461746500000D006C626C436F6C6C656374696F6E0101 0000001E000000070043617074696F6E000700636D644E65787400000700636D 645072657600000900636D64526563656E7400000600636D644F6C6400000900 706E6C466F6F74657200000B006C626C53706563696D656E01010000001F0000 00070043617074696F6E000D006C626C53696E676C6554657374010100000020 000000070043617074696F6E0009006C626C466F6F7465720101000000210000 00070043617074696F6E0008006C73745465737473000006006772644C616201 0100000022000000070043617074696F6E000800706E6C436861727401010000 0023000000070043617074696F6E0008006C626C477261706801010000002400 0000070043617074696F6E000C006C7374546573744772617068010100000025 000000070043617074696F6E0008006368744368617274010200000027000000 16004C656674417869732E5469746C652E43617074696F6E260000000A005469 746C652E54657874000700736572486967680103000000280000000500546974 6C65290000000C005856616C7565732E4E616D652A0000000C005956616C7565 732E4E616D650006007365724C6F7701030000002B00000005005469746C652C 0000000C005856616C7565732E4E616D652D0000000C005956616C7565732E4E 616D650007007365725465737401030000002E00000005005469746C652F0000 000C005856616C7565732E4E616D65300000000C005956616C7565732E4E616D 650006006D656D4C6162000005004D656D6F3100000B00546162436F6E74726F 6C3100000B0057656242726F777365723100000A00506F7075704D656E753100 000800476F746F546F7031010100000031000000070043617074696F6E000B00 476F746F426F74746F6D31010100000032000000070043617074696F6E000B00 467265657A655465787431010100000033000000070043617074696F6E000D00 556E667265657A655465787431010100000034000000070043617074696F6E00 0800706F70436861727400000900706F7056616C756573010100000035000000 070043617074696F6E000500706F703344010100000036000000070043617074 696F6E000700706F705A6F6F6D010100000037000000070043617074696F6E00 0B00706F705A6F6F6D4261636B010100000038000000070043617074696F6E00 02004E3100000700706F70436F7079010100000039000000070043617074696F 6E0002004E3200000A00706F7044657461696C7301010000003A000000070043 617074696F6E0002004E3300000800706F705072696E7401010000003B000000 070043617074696F6E000B0063616C4C616252616E676501040000003F000000 0600466F726D61743C0000000B00496E737472756374696F6E3D0000000A004C 6162656C53746172743E00000009004C6162656C53746F70000B00646C675769 6E5072696E740000060054696D6572310000} end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 5 Top = 320 object GotoTop1: TMenuItem Caption = 'Go to Top' Enabled = False OnClick = GotoTop1Click end object GotoBottom1: TMenuItem Caption = 'Go to Bottom' Enabled = False OnClick = GotoBottom1Click end object FreezeText1: TMenuItem Caption = 'Freeze Text' Enabled = False OnClick = FreezeText1Click end object UnfreezeText1: TMenuItem Caption = 'Un-freeze Text' Enabled = False OnClick = UnfreezeText1Click end end object popChart: TPopupMenu OnPopup = popChartPopup Left = 37 Top = 317 object popValues: TMenuItem Caption = 'Values' OnClick = popValuesClick end object pop3D: TMenuItem Caption = '3D' OnClick = pop3DClick end object popZoom: TMenuItem Caption = 'Zoom Enabled' OnClick = popZoomClick end object popZoomBack: TMenuItem Caption = 'Zoom Back' OnClick = popZoomBackClick end object N1: TMenuItem Caption = '-' end object popCopy: TMenuItem Caption = 'Copy' OnClick = popCopyClick end object N2: TMenuItem Caption = '-' end object popDetails: TMenuItem Caption = 'Details' OnClick = popDetailsClick end object N3: TMenuItem Caption = '-' end object popPrint: TMenuItem Caption = 'Print' OnClick = popPrintClick end end object calLabRange: TORDateRangeDlg DateOnly = True Instruction = 'Enter a date range -' LabelStart = 'Begin Date' LabelStop = 'End Date' RequireTime = False Format = 'mmm d,yy' Left = 66 Top = 320 end object dlgWinPrint: TPrintDialog Left = 610 Top = 23 end object Timer1: TTimer Interval = 100 OnTimer = Timer1Timer Left = 253 Top = 45 end end