VistA-cprs/CPRS-Chart/fReports.dfm

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