VistA-cprs/CPRS-Chart/fDeviceSelect.dfm

inherited frmDeviceSelect: TfrmDeviceSelect
  Left = 378
  Top = 340
  Caption = 'Orders Print Device Selection'
  ClientHeight = 235
  ClientWidth = 415
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  ExplicitWidth = 423
  ExplicitHeight = 262
  PixelsPerInch = 96
  TextHeight = 13
  object grpDevice: TGroupBox [0]
    Left = 0
    Top = 0
    Width = 415
    Height = 194
    Align = alClient
    Caption = 'Device'
    TabOrder = 0
    object cboDevice: TORComboBox
      Left = 2
      Top = 15
      Width = 411
      Height = 145
      Style = orcsSimple
      Align = alClient
      AutoSelect = True
      Caption = 'Device'
      Color = clWindow
      DropDownCount = 8
      ItemHeight = 13
      ItemTipColor = clWindow
      ItemTipEnable = True
      ListItemsOnly = False
      LongList = True
      LookupPiece = 0
      MaxLength = 0
      ParentShowHint = False
      Pieces = '2,4'
      ShowHint = True
      Sorted = False
      SynonymChars = '<>'
      TabPositions = '30'
      TabOrder = 0
      OnChange = cboDeviceChange
      OnNeedData = cboDeviceNeedData
      CharsNeedMatch = 1
    end
    object pnlGBBottom: TPanel
      Left = 2
      Top = 160
      Width = 411
      Height = 32
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object lblMargin: TLabel
        Left = 8
        Top = 12
        Width = 60
        Height = 13
        Caption = 'Right Margin'
      end
      object lblLength: TLabel
        Left = 120
        Top = 12
        Width = 61
        Height = 13
        Caption = 'Page Length'
      end
      object txtRightMargin: TMaskEdit
        Left = 72
        Top = 6
        Width = 33
        Height = 19
        AutoSize = False
        EditMask = '99999;0; '
        MaxLength = 5
        TabOrder = 0
      end
      object txtPageLength: TMaskEdit
        Left = 184
        Top = 6
        Width = 34
        Height = 19
        AutoSize = False
        EditMask = '99999;0; '
        MaxLength = 5
        TabOrder = 1
      end
    end
  end
  object pnlBottom: TPanel [1]
    Left = 0
    Top = 194
    Width = 415
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object cmdOK: TButton
      Left = 257
      Top = 11
      Width = 72
      Height = 22
      Caption = 'OK'
      Default = True
      TabOrder = 0
      OnClick = cmdOKClick
    end
    object cmdCancel: TButton
      Left = 337
      Top = 11
      Width = 72
      Height = 22
      Cancel = True
      Caption = 'Cancel'
      TabOrder = 1
      OnClick = cmdCancelClick
    end
    object chkDefault: TCheckBox
      Left = 12
      Top = 16
      Width = 163
      Height = 17
      Caption = 'Save as user'#39's default printer'
      TabOrder = 2
    end
  end
  inherited amgrMain: TVA508AccessibilityManager
    Data = (
      (
        'Component = grpDevice'
        'Status = stsDefault')
      (
        'Component = cboDevice'
        'Status = stsDefault')
      (
        'Component = pnlGBBottom'
        'Status = stsDefault')
      (
        'Component = txtRightMargin'
        'Status = stsDefault')
      (
        'Component = txtPageLength'
        'Status = stsDefault')
      (
        'Component = pnlBottom'
        'Status = stsDefault')
      (
        'Component = cmdOK'
        'Status = stsDefault')
      (
        'Component = cmdCancel'
        'Status = stsDefault')
      (
        'Component = chkDefault'
        'Status = stsDefault')
      (
        'Component = frmDeviceSelect'
        'Status = stsDefault'))
  end
end