VistA-cprs/CPRS-Chart/Orders/fOrderSaveQuick.dfm

inherited frmSaveQuickOrder: TfrmSaveQuickOrder
  Left = 308
  Top = 171
  Caption = 'Add to Common List (Meds, Inpatient)'
  ClientHeight = 335
  ClientWidth = 355
  Position = poScreenCenter
  OnCreate = FormCreate
  ExplicitLeft = 308
  ExplicitTop = 171
  ExplicitWidth = 363
  ExplicitHeight = 362
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel [0]
    Left = 0
    Top = 0
    Width = 355
    Height = 113
    Align = alTop
    TabOrder = 0
    object lblDisplayName: TLabel
      Left = 8
      Top = 70
      Width = 261
      Height = 13
      Caption = 'Enter the name that should be used for this quick order.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object memOrder: TMemo
      Left = 8
      Top = 8
      Width = 340
      Height = 46
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 0
      WantReturns = False
    end
    object txtDisplayName: TCaptionEdit
      Left = 8
      Top = 84
      Width = 340
      Height = 21
      TabOrder = 1
      OnChange = txtDisplayNameChange
      Caption = 'Enter the name that should be used for this quick order.'
    end
  end
  object Panel2: TPanel [1]
    Left = 0
    Top = 113
    Width = 355
    Height = 181
    Align = alClient
    TabOrder = 1
    object lblQuickList: TLabel
      Left = 8
      Top = 8
      Width = 136
      Height = 13
      Caption = 'Meds, Inpatient Common List'
    end
    object lstQuickList: TORListBox
      Left = 8
      Top = 30
      Width = 270
      Height = 141
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Caption = 'Meds, Inpatient Common List'
      ItemTipColor = clWindow
      LongList = False
      Pieces = '2'
    end
    object pnlUpButton: TKeyClickPanel
      Left = 292
      Top = 42
      Width = 30
      Height = 27
      BevelOuter = bvNone
      Caption = 'Display selected medication earlier'
      TabOrder = 2
      TabStop = True
      OnClick = cmdUpClick
      OnEnter = pnlUpButtonEnter
      OnExit = pnlUpButtonExit
      DesignSize = (
        30
        27)
      object cmdUp: TSpeedButton
        Left = 0
        Top = 0
        Width = 30
        Height = 24
        Anchors = [akLeft, akTop, akRight, akBottom]
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333333333333333333CCCCC33333333333CCCCC33
          333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33
          3333333CCCCCCCCC33333333CCCCCCC3333333333CCCCC333333333333CCC333
          33333333333C3333333333333333333333333333333333333333}
        OnClick = cmdUpClick
      end
    end
    object pnlDownButton: TKeyClickPanel
      Left = 292
      Top = 76
      Width = 31
      Height = 26
      BevelOuter = bvNone
      Caption = 'Display selected medication  later'
      TabOrder = 3
      TabStop = True
      OnClick = cmdDownClick
      OnEnter = pnlUpButtonEnter
      OnExit = pnlUpButtonExit
      DesignSize = (
        31
        26)
      object cmdDown: TSpeedButton
        Left = 0
        Top = 1
        Width = 31
        Height = 22
        Anchors = [akLeft, akTop, akRight, akBottom]
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333C33333333333333CCC333
          333333333CCCCC3333333333CCCCCCC33333333CCCCCCCCC333333333CCCCC33
          333333333CCCCC33333333333CCCCC33333333333CCCCC33333333333CCCCC33
          333333333CCCCC33333333333333333333333333333333333333}
        OnClick = cmdDownClick
      end
    end
    object cmdRename: TButton
      Left = 286
      Top = 128
      Width = 62
      Height = 21
      Caption = 'Rename'
      TabOrder = 4
      OnClick = cmdRenameClick
    end
    object cmdDelete: TButton
      Left = 286
      Top = 153
      Width = 62
      Height = 21
      Caption = 'Delete'
      TabOrder = 5
      OnClick = cmdDeleteClick
    end
  end
  object Panel3: TPanel [2]
    Left = 0
    Top = 294
    Width = 355
    Height = 41
    Align = alBottom
    TabOrder = 2
    object cmdOK: TButton
      Left = 98
      Top = 11
      Width = 72
      Height = 21
      Caption = 'OK'
      TabOrder = 0
      OnClick = cmdOKClick
    end
    object cmdCancel: TButton
      Left = 186
      Top = 11
      Width = 72
      Height = 21
      Cancel = True
      Caption = 'Cancel'
      TabOrder = 1
      OnClick = cmdCancelClick
    end
  end
  inherited amgrMain: TVA508AccessibilityManager
    Data = (
      (
        'Component = Panel1'
        'Status = stsDefault')
      (
        'Component = memOrder'
        'Status = stsDefault')
      (
        'Component = txtDisplayName'
        'Status = stsDefault')
      (
        'Component = Panel2'
        'Status = stsDefault')
      (
        'Component = lstQuickList'
        'Status = stsDefault')
      (
        'Component = pnlUpButton'
        'Status = stsDefault')
      (
        'Component = pnlDownButton'
        'Status = stsDefault')
      (
        'Component = cmdRename'
        'Status = stsDefault')
      (
        'Component = cmdDelete'
        'Status = stsDefault')
      (
        'Component = Panel3'
        'Status = stsDefault')
      (
        'Component = cmdOK'
        'Status = stsDefault')
      (
        'Component = cmdCancel'
        'Status = stsDefault')
      (
        'Component = frmSaveQuickOrder'
        'Status = stsDefault'))
  end
end