VistA-cprs/CPRS-Chart/fPrintLocation.dfm

inherited frmPrintLocation: TfrmPrintLocation
  Left = 293
  Top = 250
  Width = 450
  Height = 472
  AutoScroll = True
  BorderIcons = []
  Caption = 'Order Location'
  Constraints.MinWidth = 440
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  ExplicitWidth = 450
  ExplicitHeight = 472
  DesignSize = (
    442
    438)
  PixelsPerInch = 96
  TextHeight = 13
  object lblEncounter: TLabel [0]
    Left = 0
    Top = 379
    Width = 280
    Height = 13
    Caption = 'Where would you like to continue processing patient data? '
  end
  object pnlTop: TPanel [1]
    Left = 0
    Top = 0
    Width = 442
    Height = 153
    Anchors = [akLeft, akTop, akRight]
    BevelOuter = bvNone
    TabOrder = 0
    object lblText: TLabel
      Left = 8
      Top = 16
      Width = 3
      Height = 13
    end
    object orpnlTopBottom: TORAutoPanel
      Left = 0
      Top = 112
      Width = 442
      Height = 41
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object btnClinic: TButton
        Left = 145
        Top = 8
        Width = 75
        Height = 25
        Caption = 'All Clinic'
        TabOrder = 0
        OnClick = btnClinicClick
      end
      object btnWard: TButton
        Left = 230
        Top = 8
        Width = 75
        Height = 25
        Caption = 'All Ward'
        TabOrder = 1
        OnClick = btnWardClick
      end
    end
  end
  object pnlBottom: TORAutoPanel [2]
    Left = 0
    Top = 159
    Width = 442
    Height = 210
    TabOrder = 1
    object orderGrid: TStringGrid
      Left = 1
      Top = 1
      Width = 440
      Height = 208
      Align = alClient
      ColCount = 3
      Constraints.MinWidth = 440
      DefaultRowHeight = 30
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnDrawCell = OrderGridDrawCell
      OnKeyPress = orderGridKeyPress
      OnMouseDown = orderGridMouseDown
    end
    object pnlOrder: TPanel
      Left = 264
      Top = 56
      Width = 97
      Height = 25
      TabOrder = 0
      Visible = False
    end
    object cbolocation: TORComboBox
      Left = 240
      Top = 104
      Width = 121
      Height = 21
      Style = orcsDropDown
      AutoSelect = True
      Color = clWindow
      DropDownCount = 8
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = False
      LongList = False
      LookupPiece = 1
      MaxLength = 0
      Sorted = False
      SynonymChars = '<>'
      TabOrder = 1
      Visible = False
      OnChange = cbolocationChange
      OnExit = cbolocationExit
      CharsNeedMatch = 1
      UniqueAutoComplete = True
    end
  end
  object ORpnlBottom: TORAutoPanel [3]
    Left = 0
    Top = 404
    Width = 442
    Height = 41
    BevelEdges = []
    BevelOuter = bvNone
    TabOrder = 3
    object btnOK: TButton
      Left = 187
      Top = 3
      Width = 75
      Height = 25
      Caption = 'OK'
      TabOrder = 0
      OnClick = btnOKClick
    end
  end
  object cboEncLoc: TComboBox [4]
    Left = 284
    Top = 375
    Width = 104
    Height = 21
    Anchors = [akLeft, akTop, akRight, akBottom]
    ItemHeight = 0
    TabOrder = 2
  end
  inherited amgrMain: TVA508AccessibilityManager
    Data = (
      (
        'Component = pnlTop'
        'Status = stsDefault')
      (
        'Component = orpnlTopBottom'
        'Status = stsDefault')
      (
        'Component = btnClinic'
        'Status = stsDefault')
      (
        'Component = btnWard'
        'Status = stsDefault')
      (
        'Component = pnlBottom'
        'Status = stsDefault')
      (
        'Component = orderGrid'
        'Status = stsDefault')
      (
        'Component = pnlOrder'
        'Status = stsDefault')
      (
        'Component = cbolocation'
        'Status = stsDefault')
      (
        'Component = ORpnlBottom'
        'Status = stsDefault')
      (
        'Component = btnOK'
        'Status = stsDefault')
      (
        'Component = cboEncLoc'
        'Status = stsDefault')
      (
        'Component = frmPrintLocation'
        'Status = stsDefault'))
  end
end