inherited frmReports: TfrmReports Left = 356 Top = 69 HelpContext = 9000 Caption = 'Reports Page' ClientHeight = 627 ClientWidth = 717 HelpFile = 'qnoback' OnDestroy = FormDestroy OnShow = FormShow ExplicitWidth = 725 ExplicitHeight = 661 PixelsPerInch = 96 TextHeight = 13 inherited shpPageBottom: TShape Top = 617 Width = 717 Height = 10 ExplicitTop = 617 ExplicitWidth = 717 ExplicitHeight = 10 end inherited sptHorz: TSplitter Left = 119 Height = 617 OnMoved = sptHorzMoved ExplicitLeft = 119 ExplicitHeight = 617 end inherited pnlLeft: TPanel Width = 119 Height = 617 ExplicitWidth = 119 ExplicitHeight = 617 object Splitter1: TSplitter Left = 0 Top = 259 Width = 119 Height = 6 Cursor = crVSplit Align = alBottom Color = clBtnFace ParentColor = False OnCanResize = Splitter1CanResize end object pnlLefTop: TPanel Left = 0 Top = 0 Width = 119 Height = 259 Align = alClient BevelOuter = bvNone Constraints.MinWidth = 30 TabOrder = 0 object lblTypes: TOROffsetLabel Left = 0 Top = 0 Width = 119 Height = 19 Align = alTop Caption = 'Available Reports' HorzOffset = 3 Transparent = True VertOffset = 6 WordWrap = False end object tvReports: TORTreeView Left = 0 Top = 19 Width = 119 Height = 240 Align = alClient HideSelection = False Indent = 18 ReadOnly = True TabOrder = 0 OnClick = tvReportsClick OnCollapsing = tvReportsCollapsing OnExpanding = tvReportsExpanding OnKeyDown = tvReportsKeyDown Caption = 'Available Reports' NodePiece = 0 end end object pnlLeftBottom: TPanel Left = 0 Top = 365 Width = 119 Height = 252 Align = alBottom Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone TabOrder = 1 Visible = False object lblQualifier: TOROffsetLabel Left = 0 Top = 0 Width = 119 Height = 13 Align = alTop HorzOffset = 3 Transparent = True VertOffset = 4 WordWrap = False end object lblHeaders: TLabel Left = 0 Top = 13 Width = 119 Height = 13 Align = alTop Caption = 'Headings' Transparent = True Visible = False ExplicitWidth = 45 end object lstHeaders: TORListBox Left = 0 Top = 26 Width = 119 Height = 226 Align = alClient ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 Visible = False OnClick = lstHeadersClick Caption = 'Headings' ItemTipColor = clWindow LongList = False Pieces = '2' end object lstQualifier: TORListBox Left = 0 Top = 26 Width = 119 Height = 226 Style = lbOwnerDrawFixed Align = alClient ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = lstQualifierClick OnDrawItem = lstQualifierDrawItem ItemTipColor = clWindow LongList = False Pieces = '2,3' TabPositions = '10' end object pnlViews: TORAutoPanel Left = 0 Top = 26 Width = 119 Height = 226 Align = alClient BevelOuter = bvNone TabOrder = 3 Visible = False object pnlTopViews: TPanel Left = 0 Top = 0 Width = 119 Height = 80 Align = alTop BevelOuter = bvNone TabOrder = 0 DesignSize = ( 119 80) object lblDateRange: TLabel Left = 0 Top = 63 Width = 58 Height = 13 Anchors = [akLeft, akTop, akRight] Caption = 'Date Range' end object chkDualViews: TCheckBox Left = 0 Top = 0 Width = 121 Height = 17 Anchors = [akLeft, akTop, akRight] Caption = 'Split Views' TabOrder = 0 OnClick = chkDualViewsClick end object btnGraphSelections: TORAlignButton Left = 0 Top = 20 Width = 119 Height = 21 Anchors = [akLeft, akTop, akRight] Caption = 'Select/Define...' TabOrder = 1 OnClick = btnGraphSelectionsClick end object btnChangeView: TORAlignButton Left = 0 Top = 41 Width = 119 Height = 21 Anchors = [akLeft, akTop, akRight] Caption = 'Settings...' TabOrder = 2 OnClick = btnChangeViewClick end end object lstDateRange: TORListBox Left = 0 Top = 80 Width = 119 Height = 146 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = lstDateRangeClick ItemTipColor = clWindow LongList = False Pieces = '2' TabPositions = '10' end end end object pnlProcedures: TPanel Left = 0 Top = 265 Width = 119 Height = 100 Align = alBottom BevelOuter = bvNone TabOrder = 2 Visible = False object lblProcedures: TOROffsetLabel Left = 0 Top = 0 Width = 119 Height = 15 Align = alTop Caption = 'Radiology Procedures' Color = clBtnFace HorzOffset = 2 ParentColor = False Transparent = False VertOffset = 2 WordWrap = False end object tvProcedures: TORTreeView Left = 0 Top = 15 Width = 119 Height = 85 Align = alClient HideSelection = False Indent = 19 ReadOnly = True TabOrder = 0 OnChange = tvProceduresChange OnClick = tvProceduresClick OnCollapsing = tvProceduresCollapsing OnExpanding = tvProceduresExpanding OnKeyDown = tvProceduresKeyDown Caption = 'tvProcedures' NodePiece = 0 end end end inherited pnlRight: TPanel Left = 123 Width = 594 Height = 617 ExplicitLeft = 123 ExplicitWidth = 594 ExplicitHeight = 617 object sptHorzRight: TSplitter Left = 0 Top = 177 Width = 594 Height = 4 Cursor = crVSplit Align = alTop Visible = False OnCanResize = sptHorzRightCanResize end object pnlRightTop: TPanel Left = 0 Top = 0 Width = 594 Height = 57 Align = alTop BevelOuter = bvNone TabOrder = 0 object lblProcTypeMsg: TOROffsetLabel Left = 0 Top = 0 Width = 594 Height = 17 Align = alTop HorzOffset = 3 Transparent = False VertOffset = 2 WordWrap = False ExplicitWidth = 529 end object TabControl1: TTabControl Left = 0 Top = 40 Width = 594 Height = 20 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] HotTrack = True ParentFont = False Style = tsButtons TabHeight = 16 TabOrder = 0 TabStop = False Visible = False OnChange = TabControl1Change end object pnlTopRtLabel: TPanel Left = 0 Top = 17 Width = 594 Height = 23 Align = alTop TabOrder = 1 object lblTitle: TOROffsetLabel Left = 1 Top = 1 Width = 495 Height = 21 Align = alClient HorzOffset = 3 Transparent = True VertOffset = 6 WordWrap = False ExplicitWidth = 312 ExplicitHeight = 26 end object chkMaxFreq: TCheckBox Left = 496 Top = 1 Width = 97 Height = 21 Align = alRight Caption = 'Max/Site OFF' TabOrder = 0 Visible = False OnClick = chkMaxFreqClick end end end object pnlRightBottom: TPanel Left = 0 Top = 181 Width = 594 Height = 436 Align = alClient TabOrder = 2 object WebBrowser1: TWebBrowser Left = 1 Top = 31 Width = 592 Height = 277 TabStop = False Align = alClient TabOrder = 1 OnDocumentComplete = WebBrowser1DocumentComplete ControlData = { 4C0000002F3D0000A11C00000000000000000000000000000000000000000000 000000004C000000000000000000000001000000E0D057007335CF11AE690800 2B2E126208000000000000004C0000000114020000000000C000000000000046 8000000000000000000000000000000000000000000000000000000000000000 00000000000000000100000000000000000000000000000000000000} end object Memo1: TMemo Left = 1 Top = 1 Width = 592 Height = 30 TabStop = False Align = alTop Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] ParentFont = False ScrollBars = ssVertical TabOrder = 0 Visible = False WantTabs = True OnKeyUp = Memo1KeyUp end object memText: TRichEdit Left = 1 Top = 308 Width = 592 Height = 127 Align = alBottom Color = clCream Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] Constraints.MinHeight = 20 ParentFont = False PlainText = True PopupMenu = PopupMenu1 ReadOnly = True ScrollBars = ssBoth TabOrder = 2 Visible = False WantReturns = False WordWrap = False end end object pnlRightMiddle: TPanel Left = 0 Top = 57 Width = 594 Height = 120 Align = alTop Constraints.MaxHeight = 700 Constraints.MinHeight = 50 TabOrder = 1 Visible = False object lvReports: TCaptionListView Left = 1 Top = 1 Width = 592 Height = 118 Hint = 'To sort, click on column headers|' Align = alClient Columns = <> Constraints.MinHeight = 50 HideSelection = False MultiSelect = True ReadOnly = True RowSelect = True ParentShowHint = False PopupMenu = PopupMenu2 ShowHint = True TabOrder = 0 ViewStyle = vsReport OnColumnClick = lvReportsColumnClick OnCompare = lvReportsCompare OnKeyUp = lvReportsKeyUp OnSelectItem = lvReportsSelectItem end end end inherited amgrMain: TVA508AccessibilityManager Data = ( ( 'Component = pnlLefTop' 'Status = stsDefault') ( 'Component = tvReports' 'Status = stsDefault') ( 'Component = pnlLeftBottom' 'Status = stsDefault') ( 'Component = lstHeaders' 'Status = stsDefault') ( 'Component = lstQualifier' 'Status = stsDefault') ( 'Component = pnlViews' 'Status = stsDefault') ( 'Component = pnlTopViews' 'Status = stsDefault') ( 'Component = chkDualViews' 'Status = stsDefault') ( 'Component = btnGraphSelections' 'Status = stsDefault') ( 'Component = btnChangeView' 'Status = stsDefault') ( 'Component = lstDateRange' 'Status = stsDefault') ( 'Component = pnlProcedures' 'Status = stsDefault') ( 'Component = tvProcedures' 'Status = stsDefault') ( 'Component = pnlRightTop' 'Status = stsDefault') ( 'Component = TabControl1' 'Status = stsDefault') ( 'Component = pnlRightBottom' 'Status = stsDefault') ( 'Component = WebBrowser1' 'Status = stsDefault') ( 'Component = Memo1' 'Status = stsDefault') ( 'Component = memText' 'Status = stsDefault') ( 'Component = pnlRightMiddle' 'Status = stsDefault') ( 'Component = lvReports' 'Status = stsDefault') ( 'Component = pnlLeft' 'Status = stsDefault') ( 'Component = pnlRight' 'Status = stsDefault') ( 'Component = frmReports' 'Status = stsDefault') ( 'Component = pnlTopRtLabel' 'Status = stsDefault') ( 'Component = chkMaxFreq' 'Status = stsDefault')) end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 229 Top = 176 object Print2: TMenuItem Caption = 'Print' ShortCut = 16464 OnClick = Print2Click end object Copy2: TMenuItem Caption = 'Copy' ShortCut = 16451 OnClick = Copy2Click end object SelectAll2: TMenuItem Caption = 'Select All' ShortCut = 16449 OnClick = SelectAll2Click end object GotoTop1: TMenuItem Caption = 'Go to Top' OnClick = GotoTop1Click end object GotoBottom1: TMenuItem Caption = 'Go to Bottom' 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 calApptRng: TORDateRangeDlg DateOnly = False Instruction = 'Enter a date range -' LabelStart = 'Begin Date' LabelStop = 'End Date' RequireTime = False Format = 'mmm d,yy@hh:nn' Left = 325 Top = 176 end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 389 Top = 176 end object PopupMenu2: TPopupMenu Left = 267 Top = 174 object Print1: TMenuItem Caption = 'Print' ShortCut = 16464 OnClick = Print1Click end object Copy1: TMenuItem Caption = 'Copy Data From Table' ShortCut = 16451 OnClick = Copy1Click end object SelectAll1: TMenuItem Caption = 'Select All From Table' ShortCut = 16449 OnClick = SelectAll1Click end end object imgLblImages: TVA508ImageListLabeler Components = < item Component = lvReports end> Labels = <> RemoteLabeler = dmodShared.imgLblImages Left = 40 Top = 200 end end