inherited frmReports: TfrmReports Left = 215 Top = 126 Width = 786 Height = 377 HelpContext = 9000 Caption = 'Reports Page' HelpFile = 'qnoback' OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 inherited shpPageBottom: TShape Top = 340 Width = 778 Height = 10 end inherited sptHorz: TSplitter Left = 119 Height = 340 end inherited pnlLeft: TPanel Width = 119 Height = 340 object Splitter1: TSplitter Left = 0 Top = 91 Width = 119 Height = 10 Cursor = crVSplit Align = alBottom OnCanResize = Splitter1CanResize end object pnlLefTop: TPanel Left = 0 Top = 0 Width = 119 Height = 91 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 = 72 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 = 201 Width = 119 Height = 139 Align = alBottom BevelOuter = bvNone TabOrder = 1 object lblQualifier: TOROffsetLabel Left = 0 Top = 0 Width = 119 Height = 20 Align = alTop HorzOffset = 3 Transparent = True VertOffset = 4 WordWrap = False end object lblHeaders: TLabel Left = 0 Top = 20 Width = 119 Height = 13 Align = alTop Caption = 'Headings' Transparent = True Visible = False end object lstHeaders: TORListBox Left = 0 Top = 33 Width = 119 Height = 106 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 = 33 Width = 119 Height = 106 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 end object pnlProcedures: TPanel Left = 0 Top = 101 Width = 119 Height = 100 Align = alBottom BevelOuter = bvNone TabOrder = 2 object lblProcedures: TOROffsetLabel Left = 0 Top = 0 Width = 119 Height = 15 Align = alTop Caption = 'Radiology Procedures' HorzOffset = 2 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 = 655 Height = 340 object sptHorzRight: TSplitter Left = 0 Top = 177 Width = 655 Height = 4 Cursor = crVSplit Align = alTop Visible = False OnCanResize = sptHorzRightCanResize end object pnlRightTop: TPanel Left = 0 Top = 0 Width = 655 Height = 57 Align = alTop BevelOuter = bvNone TabOrder = 0 object lblTitle: TOROffsetLabel Left = 0 Top = 17 Width = 655 Height = 25 Align = alTop HorzOffset = 3 Transparent = True VertOffset = 6 WordWrap = False end object lblProcTypeMsg: TOROffsetLabel Left = 0 Top = 0 Width = 655 Height = 17 Align = alTop HorzOffset = 3 Transparent = False VertOffset = 2 WordWrap = False end object TabControl1: TTabControl Left = 0 Top = 40 Width = 655 Height = 17 Align = alBottom HotTrack = True TabOrder = 0 TabStop = False Visible = False OnChange = TabControl1Change end end object pnlRightBottom: TPanel Left = 0 Top = 181 Width = 655 Height = 159 Align = alClient TabOrder = 2 object Memo1: TMemo Left = 1 Top = 1 Width = 653 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 WebBrowser1: TWebBrowser Left = 1 Top = 31 Width = 653 Height = 127 TabStop = False Align = alClient TabOrder = 1 OnDocumentComplete = WebBrowser1DocumentComplete ControlData = { 4C0000007D430000200D00000000000000000000000000000000000000000000 000000004C000000000000000000000001000000E0D057007335CF11AE690800 2B2E126208000000000000004C0000000114020000000000C000000000000046 8000000000000000000000000000000000000000000000000000000000000000 00000000000000000100000000000000000000000000000000000000} end object memText: TRichEdit Left = 1 Top = 31 Width = 653 Height = 127 Align = alClient Color = clCream Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] ParentFont = False PlainText = True PopupMenu = PopupMenu1 ReadOnly = True ScrollBars = ssBoth TabOrder = 2 WantReturns = False WordWrap = False end end object pnlRightMiddle: TPanel Left = 0 Top = 57 Width = 655 Height = 120 Align = alTop TabOrder = 1 Visible = False object lvReports: TCaptionListView Left = 1 Top = 1 Width = 653 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 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' Enabled = False 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 end