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

inherited frmOtherSchedule: TfrmOtherSchedule
  Left = 544
  Top = 262
  Caption = 'Order with schedule '#39'OTHER'#39
  ClientHeight = 362
  ClientWidth = 592
  Constraints.MinHeight = 70
  Constraints.MinWidth = 280
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  ExplicitWidth = 600
  ExplicitHeight = 389
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 0
    Top = 82
    Width = 592
    Height = 8
    Cursor = crVSplit
    Align = alTop
    Beveled = True
    MinSize = 1
    ExplicitWidth = 369
  end
  object Panel1: TPanel [1]
    Left = 0
    Top = 0
    Width = 592
    Height = 82
    Align = alTop
    BorderWidth = 3
    TabOrder = 0
    object Image1: TImage
      Left = 4
      Top = 4
      Width = 48
      Height = 74
      Align = alLeft
      AutoSize = True
      Transparent = True
    end
    object memMessage: TMemo
      Left = 52
      Top = 4
      Width = 536
      Height = 74
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      Color = clBtnFace
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object Panel3: TPanel [2]
    Left = 0
    Top = 90
    Width = 592
    Height = 272
    Align = alClient
    AutoSize = True
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 176
      Height = 202
      Align = alLeft
      Caption = 'Select Days of Week'
      TabOrder = 0
      object cbo7: TCheckBox
        Tag = 1
        Left = 86
        Top = 21
        Width = 60
        Height = 12
        Caption = 'SUN'
        TabOrder = 0
        OnClick = cbo7Click
      end
      object cbo1: TCheckBox
        Tag = 2
        Left = 85
        Top = 48
        Width = 60
        Height = 12
        Caption = 'MON'
        TabOrder = 1
        OnClick = cbo1Click
      end
      object cbo2: TCheckBox
        Tag = 3
        Left = 85
        Top = 75
        Width = 60
        Height = 12
        Caption = 'TUE'
        TabOrder = 2
        OnClick = cbo2Click
      end
      object cbo3: TCheckBox
        Tag = 4
        Left = 85
        Top = 102
        Width = 60
        Height = 12
        Caption = 'WED'
        TabOrder = 3
        OnClick = cbo3Click
      end
      object cbo4: TCheckBox
        Tag = 5
        Left = 85
        Top = 129
        Width = 60
        Height = 12
        Caption = 'THU'
        TabOrder = 4
        OnClick = cbo4Click
      end
      object cbo5: TCheckBox
        Tag = 6
        Left = 85
        Top = 156
        Width = 60
        Height = 12
        Caption = 'FRI'
        TabOrder = 5
        OnClick = cbo5Click
      end
      object cbo6: TCheckBox
        Tag = 7
        Left = 85
        Top = 183
        Width = 60
        Height = 12
        Caption = 'SAT'
        TabOrder = 6
        OnClick = cbo6Click
      end
      object Button1: TButton
        Left = 8
        Top = 64
        Width = 60
        Height = 19
        Caption = 'Everyday'
        TabOrder = 7
        OnClick = Button1Click
      end
    end
    object GroupBox2: TGroupBox
      Left = 180
      Top = 1
      Width = 188
      Height = 202
      Caption = 'Set Administration Time'
      TabOrder = 1
      object lstHour: TListBox
        Left = 8
        Top = 16
        Width = 49
        Height = 182
        ItemHeight = 13
        Items.Strings = (
          '  0'
          '  1'
          '  2'
          '  3'
          '  4'
          '  5'
          '  6'
          '  7'
          '  8'
          '  9'
          '10'
          '11'
          '12 --'
          '13'
          '14'
          '15'
          '16'
          '17'
          '18'
          '19'
          '20'
          '21'
          '22'
          '23')
        TabOrder = 0
        OnClick = lstHourClick
      end
      object lstMinute: TListBox
        Left = 60
        Top = 16
        Width = 49
        Height = 182
        ItemHeight = 13
        Items.Strings = (
          ':00'
          ':05'
          ':10'
          ':15'
          ':20'
          ':25'
          ':30'
          ':35'
          ':40'
          ':45'
          ':50'
          ':55')
        TabOrder = 1
        OnKeyDown = lstMinuteKeyDown
        OnMouseUp = lstMinuteMouseUp
      end
      object btnRemove: TButton
        Left = 118
        Top = 94
        Width = 60
        Height = 19
        Hint = 'Remove the selected time from the Day-of-Week schedule.'
        Caption = 'Remove'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = btnRemoveClick
      end
      object btnAdd: TButton
        Left = 118
        Top = 64
        Width = 60
        Height = 19
        Hint = 'Add the selected time to the Day-of-Week schedule'
        Caption = 'Add'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = btnAddClick
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 203
      Width = 590
      Height = 68
      Align = alBottom
      TabOrder = 3
      DesignSize = (
        590
        68)
      object Label1: TLabel
        Left = 6
        Top = 16
        Width = 51
        Height = 13
        Caption = 'Schedule :'
      end
      object btn0k1: TButton
        Left = 427
        Top = 43
        Width = 75
        Height = 20
        Anchors = [akRight, akBottom]
        Caption = 'OK'
        TabOrder = 1
        OnClick = btn0k1Click
      end
      object btnCancel: TButton
        Left = 508
        Top = 42
        Width = 75
        Height = 20
        Anchors = [akRight, akBottom]
        Caption = 'Cancel'
        ModalResult = 2
        TabOrder = 2
        OnClick = btnCancelClick
      end
      object btnReset: TButton
        Left = 8
        Top = 43
        Width = 75
        Height = 20
        Caption = 'Reset'
        TabOrder = 3
        OnClick = btnResetClick
      end
      object txtSchedule: TEdit
        Left = 63
        Top = 6
        Width = 520
        Height = 21
        Color = clInfoBk
        ReadOnly = True
        TabOrder = 0
      end
    end
    object GroupBox3: TGroupBox
      Left = 374
      Top = -2
      Width = 211
      Height = 202
      Caption = 'Schedule'
      TabOrder = 2
      object NSScboSchedule: TORComboBox
        Left = 5
        Top = 16
        Width = 121
        Height = 180
        Style = orcsSimple
        AutoSelect = True
        Color = clWindow
        DropDownCount = 8
        ItemHeight = 13
        ItemTipColor = clWindow
        ItemTipEnable = True
        ListItemsOnly = False
        LongList = False
        LookupPiece = 1
        MaxLength = 0
        Pieces = '1'
        Sorted = False
        SynonymChars = '<>'
        TabOrder = 0
        CharsNeedMatch = 1
        UniqueAutoComplete = True
      end
      object btnSchAdd: TButton
        Left = 132
        Top = 64
        Width = 60
        Height = 19
        Caption = 'Add'
        TabOrder = 1
        OnClick = btnSchAddClick
      end
      object btnSchRemove: TButton
        Left = 132
        Top = 94
        Width = 60
        Height = 19
        Caption = 'Remove'
        TabOrder = 2
        OnClick = btnSchRemoveClick
      end
    end
  end
  inherited amgrMain: TVA508AccessibilityManager
    Data = (
      (
        'Component = Panel1'
        'Status = stsDefault')
      (
        'Component = memMessage'
        'Status = stsDefault')
      (
        'Component = Panel3'
        'Status = stsDefault')
      (
        'Component = GroupBox1'
        'Status = stsDefault')
      (
        'Component = cbo7'
        'Status = stsDefault')
      (
        'Component = cbo1'
        'Status = stsDefault')
      (
        'Component = cbo2'
        'Status = stsDefault')
      (
        'Component = cbo3'
        'Status = stsDefault')
      (
        'Component = cbo4'
        'Status = stsDefault')
      (
        'Component = cbo5'
        'Status = stsDefault')
      (
        'Component = cbo6'
        'Status = stsDefault')
      (
        'Component = Button1'
        'Status = stsDefault')
      (
        'Component = GroupBox2'
        'Status = stsDefault')
      (
        'Component = lstHour'
        'Status = stsDefault')
      (
        'Component = lstMinute'
        'Status = stsDefault')
      (
        'Component = btnRemove'
        'Status = stsDefault')
      (
        'Component = btnAdd'
        'Status = stsDefault')
      (
        'Component = Panel4'
        'Status = stsDefault')
      (
        'Component = btn0k1'
        'Status = stsDefault')
      (
        'Component = btnCancel'
        'Status = stsDefault')
      (
        'Component = btnReset'
        'Status = stsDefault')
      (
        'Component = GroupBox3'
        'Status = stsDefault')
      (
        'Component = NSScboSchedule'
        'Status = stsDefault')
      (
        'Component = btnSchAdd'
        'Status = stsDefault')
      (
        'Component = btnSchRemove'
        'Status = stsDefault')
      (
        'Component = frmOtherSchedule'
        'Status = stsDefault')
      (
        'Component = txtSchedule'
        'Status = stsDefault'))
  end
end