VistA-cprs/CPRS-Chart/fDupPts.dfm

inherited frmDupPts: TfrmDupPts
  Left = 160
  Top = 190
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'Similar Patients'
  ClientHeight = 187
  ClientWidth = 463
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pnlDupPts: TPanel [0]
    Left = 0
    Top = 0
    Width = 463
    Height = 187
    Align = alClient
    TabOrder = 0
    DesignSize = (
      463
      187)
    object lblSelDupPts: TLabel
      Left = 6
      Top = 3
      Width = 155
      Height = 13
      Caption = 'Please select the correct patient:'
    end
    object btnOK: TButton
      Left = 296
      Top = 150
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = '&OK'
      Default = True
      TabOrder = 0
      OnClick = btnOKClick
    end
    object btnCancel: TButton
      Left = 381
      Top = 150
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = '&Cancel'
      ModalResult = 2
      TabOrder = 1
      OnClick = btnCancelClick
    end
    object pnlSelDupPt: TPanel
      Left = 2
      Top = 19
      Width = 461
      Height = 120
      Anchors = [akLeft, akTop, akRight, akBottom]
      TabOrder = 2
      object lblDupPts: TLabel
        Left = 4
        Top = 2
        Width = 364
        Height = 13
        Caption = 
          ' Name                                                        DOB' +
          '                                        SSN'
      end
      object lboSelPt: TORListBox
        Left = 1
        Top = 16
        Width = 459
        Height = 103
        Align = alBottom
        Anchors = [akLeft, akTop, akRight, akBottom]
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnDblClick = lboSelPtDblClick
        Caption = 'Please select the correct patient'
        ItemTipColor = clWindow
        LongList = False
        Pieces = '2,3,4'
        TabPositions = '33,57'
      end
    end
  end
  inherited amgrMain: TVA508AccessibilityManager
    Data = (
      (
        'Component = pnlDupPts'
        'Status = stsDefault')
      (
        'Component = btnOK'
        'Status = stsDefault')
      (
        'Component = btnCancel'
        'Status = stsDefault')
      (
        'Component = pnlSelDupPt'
        'Status = stsDefault')
      (
        'Component = lboSelPt'
        'Status = stsDefault')
      (
        'Component = frmDupPts'
        'Status = stsDefault'))
  end
end