Freelog 59/Freelog059.iso/Bas/Musique/Minihost/MiniHost.exe/0/RCDATA/TMYARP/TMYARP.txt

Text File | 2004-06-27 | 15KB | 725 lines

object MyArp: TMyArp
  Left = 241
  Top = 153
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = 'MIDI Tools'
  ClientHeight = 510
  ClientWidth = 424
  Color = clGray
  Ctl3D = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDeactivate = FormDeactivate
  PixelsPerInch = 96
  TextHeight = 14
  object GroupBox1: TGroupBox
    Left = 216
    Top = 0
    Width = 201
    Height = 249
    Caption = ' Arpeggiator '
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 48
      Width = 171
      Height = 14
      Caption = 'pattern: (use 0 for off and 1 for on)'
    end
    object Label2: TLabel
      Left = 8
      Top = 96
      Width = 44
      Height = 14
      Caption = 'direction:'
    end
    object Label3: TLabel
      Left = 136
      Top = 96
      Width = 42
      Height = 14
      Caption = 'octaves:'
    end
    object Label4: TLabel
      Left = 8
      Top = 141
      Width = 65
      Height = 14
      Caption = 'speed: 10 ms'
    end
    object Label11: TLabel
      Left = 8
      Top = 204
      Width = 54
      Height = 14
      Caption = 'sync base:'
    end
    object Label12: TLabel
      Left = 28
      Top = 186
      Width = 56
      Height = 14
      Caption = 'tempo sync'
    end
    object arpspd: TTobyGauge
      Left = 8
      Top = 155
      Width = 177
      Height = 20
      Cursor = crCross
      Color = clBlack
      ShowText = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      MinValue = 10
      MaxValue = 2000
      ParentColor = False
      ParentFont = False
      Progress = 10
      OnMouseDown = arpspdMouseDown
      OnMouseMove = arpspdMouseMove
    end
    object arppat: TEdit
      Left = 8
      Top = 64
      Width = 177
      Height = 20
      BevelInner = bvNone
      BevelOuter = bvNone
      Color = clBlack
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      MaxLength = 40
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Text = '11111111'
      OnChange = arppatChange
      OnEnter = mychordEnter
      OnExit = mychordExit
    end
    object usearp: TCheckBox
      Left = 8
      Top = 24
      Width = 57
      Height = 17
      Caption = 'active'
      TabOrder = 1
      OnClick = usearpClick
    end
    object arpdir: TComboBox
      Left = 8
      Top = 112
      Width = 105
      Height = 22
      BevelInner = bvNone
      BevelOuter = bvNone
      Style = csDropDownList
      Color = clBlack
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      OnChange = arpdirChange
      Items.Strings = (
        'AsPlayed'
        'Up'
        'Down'
        'UpDown1'
        'DownUp1'
        'UpDown2'
        'DownUp2'
        'Random1'
        'Random2')
    end
    object arpoct: TComboBox
      Left = 136
      Top = 112
      Width = 49
      Height = 22
      BevelInner = bvNone
      BevelOuter = bvNone
      Style = csDropDownList
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 3
      OnChange = arpoctChange
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '')
    end
    object bsync1: TCheckBox
      Left = 10
      Top = 185
      Width = 15
      Height = 17
      TabOrder = 4
      OnClick = bsync1Click
    end
    object sync1: TComboBox
      Left = 8
      Top = 219
      Width = 65
      Height = 22
      BevelInner = bvNone
      BevelOuter = bvNone
      Style = csDropDownList
      Color = clBlack
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 5
      OnChange = sync1Change
      Items.Strings = (
        '1/128'
        '1/64'
        '1/32'
        '1/16'
        '1/8'
        '1/4'
        '1/2'
        '1')
    end
    object t1: TCheckBox
      Left = 82
      Top = 220
      Width = 33
      Height = 17
      Caption = 'T'
      TabOrder = 6
      OnClick = t1Click
    end
    object d1: TCheckBox
      Left = 114
      Top = 220
      Width = 33
      Height = 17
      Caption = 'D'
      TabOrder = 7
      OnClick = t1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 7
    Top = 0
    Width = 201
    Height = 249
    Caption = ' Chord Maker '
    TabOrder = 1
    object Label5: TLabel
      Left = 8
      Top = 48
      Width = 164
      Height = 14
      Caption = 'chord: (eg. 0,3,7 is a minor chord)'
    end
    object Label8: TLabel
      Left = 8
      Top = 89
      Width = 76
      Height = 14
      Caption = 'chord detected:'
    end
    object showc: TLabel
      Left = 8
      Top = 209
      Width = 76
      Height = 14
      Caption = 'current chord:- '
    end
    object mychord: TEdit
      Left = 8
      Top = 64
      Width = 177
      Height = 20
      BevelInner = bvNone
      BevelOuter = bvNone
      Color = clBlack
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Text = '0'
      OnChange = mychordChange
      OnEnter = mychordEnter
      OnExit = mychordExit
    end
    object useonin: TCheckBox
      Left = 8
      Top = 112
      Width = 145
      Height = 17
      Caption = 'use on MIDI input'
      TabOrder = 1
    end
    object useonck: TCheckBox
      Left = 8
      Top = 134
      Width = 161
      Height = 17
      Caption = 'use on computer keyboard'
      TabOrder = 2
    end
    object useonvk: TCheckBox
      Left = 8
      Top = 156
      Width = 145
      Height = 17
      Caption = 'use on virtual keys'
      TabOrder = 3
    end
    object useonmp: TCheckBox
      Left = 8
      Top = 178
      Width = 145
      Height = 17
      Caption = 'use on MIDI player'
      TabOrder = 4
    end
    object chrdact: TCheckBox
      Left = 8
      Top = 24
      Width = 57
      Height = 17
      Caption = 'active'
      TabOrder = 5
      OnClick = chrdactClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 7
    Top = 251
    Width = 201
    Height = 249
    Caption = ' Step Sequencer '
    TabOrder = 2
    object Label6: TLabel
      Left = 8
      Top = 48
      Width = 173
      Height = 14
      Caption = 'sequence: (0 is base note, - is rest)'
    end
    object Label7: TLabel
      Left = 8
      Top = 141
      Width = 65
      Height = 14
      Caption = 'speed: 10 ms'
    end
    object Label9: TLabel
      Left = 136
      Top = 96
      Width = 42
      Height = 14
      Caption = 'octaves:'
    end
    object Label10: TLabel
      Left = 8
      Top = 204
      Width = 54
      Height = 14
      Caption = 'sync base:'
    end
    object Label13: TLabel
      Left = 28
      Top = 186
      Width = 56
      Height = 14
      Caption = 'tempo sync'
    end
    object seqspd: TTobyGauge
      Left = 8
      Top = 155
      Width = 177
      Height = 20
      Cursor = crCross
      Color = clBlack
      ShowText = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      MinValue = 10
      MaxValue = 2000
      ParentColor = False
      ParentFont = False
      Progress = 10
      OnMouseDown = seqspdMouseDown
      OnMouseMove = seqspdMouseMove
    end
    object seq: TEdit
      Left = 8
      Top = 64
      Width = 177
      Height = 20
      BevelInner = bvNone
      BevelOuter = bvNone
      Color = clBlack
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Text = '0,12,3,4,-,3,-'
      OnChange = seqChange
      OnEnter = mychordEnter
      OnExit = mychordExit
    end
    object seqloop: TCheckBox
      Left = 8
      Top = 115
      Width = 57
      Height = 17
      Caption = 'looped'
      TabOrder = 1
      OnClick = seqloopClick
    end
    object stpact: TCheckBox
      Left = 8
      Top = 24
      Width = 57
      Height = 17
      Caption = 'active'
      TabOrder = 2
      OnClick = stpactClick
    end
    object seqoct: TComboBox
      Left = 136
      Top = 112
      Width = 49
      Height = 22
      BevelInner = bvNone
      BevelOuter = bvNone
      Style = csDropDownList
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 3
      OnChange = seqoctChange
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '')
    end
    object d2: TCheckBox
      Left = 114
      Top = 220
      Width = 33
      Height = 17
      Caption = 'D'
      TabOrder = 4
      OnClick = t2Click
    end
    object t2: TCheckBox
      Left = 82
      Top = 220
      Width = 33
      Height = 17
      Caption = 'T'
      TabOrder = 5
      OnClick = t2Click
    end
    object sync2: TComboBox
      Left = 8
      Top = 219
      Width = 65
      Height = 22
      BevelInner = bvNone
      BevelOuter = bvNone
      Style = csDropDownList
      Color = clBlack
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 6
      OnChange = sync2Change
      Items.Strings = (
        '1/128'
        '1/64'
        '1/32'
        '1/16'
        '1/8'
        '1/4'
        '1/2'
        '1')
    end
    object bsync2: TCheckBox
      Left = 10
      Top = 185
      Width = 15
      Height = 17
      TabOrder = 7
      OnClick = bsync2Click
    end
  end
  object GroupBox4: TGroupBox
    Left = 215
    Top = 251
    Width = 201
    Height = 249
    Caption = ' MIDI CC Gate '
    TabOrder = 3
    object Label14: TLabel
      Left = 8
      Top = 48
      Width = 126
      Height = 14
      Caption = 'pattern: (0=min, 127=max)'
    end
    object Label15: TLabel
      Left = 8
      Top = 141
      Width = 59
      Height = 14
      Caption = 'speed: 5 ms'
    end
    object Label16: TLabel
      Left = 136
      Top = 96
      Width = 23
      Height = 14
      Caption = 'CC#:'
    end
    object Label17: TLabel
      Left = 8
      Top = 204
      Width = 54
      Height = 14
      Caption = 'sync base:'
    end
    object Label18: TLabel
      Left = 28
      Top = 186
      Width = 56
      Height = 14
      Caption = 'tempo sync'
    end
    object gtspeed: TTobyGauge
      Left = 8
      Top = 155
      Width = 177
      Height = 20
      Cursor = crCross
      Color = clBlack
      ShowText = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      MinValue = 5
      MaxValue = 1000
      ParentColor = False
      ParentFont = False
      Progress = 10
      OnMouseDown = gtspeedMouseDown
      OnMouseMove = gtspeedMouseMove
    end
    object Label19: TLabel
      Left = 72
      Top = 96
      Width = 27
      Height = 14
      Caption = 'ramp:'
    end
    object gtpat: TEdit
      Left = 8
      Top = 64
      Width = 177
      Height = 20
      BevelInner = bvNone
      BevelOuter = bvNone
      Color = clBlack
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      Text = '0,127,0,12,127'
      OnChange = gtpatChange
      OnEnter = mychordEnter
      OnExit = mychordExit
    end
    object gtloop: TCheckBox
      Left = 8
      Top = 115
      Width = 57
      Height = 17
      Caption = 'looped'
      TabOrder = 1
      OnClick = gtloopClick
    end
    object gtactive: TCheckBox
      Left = 8
      Top = 24
      Width = 57
      Height = 17
      Caption = 'active'
      TabOrder = 2
      OnClick = gtactiveClick
    end
    object gtcc: TComboBox
      Left = 136
      Top = 112
      Width = 49
      Height = 22
      BevelInner = bvNone
      BevelOuter = bvNone
      Style = csDropDownList
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ItemIndex = 0
      ParentFont = False
      TabOrder = 3
      Text = '7'
      Items.Strings = (
        '7')
    end
    object d3: TCheckBox
      Left = 114
      Top = 220
      Width = 33
      Height = 17
      Caption = 'D'
      TabOrder = 4
      OnClick = t3Click
    end
    object t3: TCheckBox
      Left = 82
      Top = 220
      Width = 33
      Height = 17
      Caption = 'T'
      TabOrder = 5
      OnClick = t3Click
    end
    object sync3: TComboBox
      Left = 8
      Top = 219
      Width = 65
      Height = 22
      BevelInner = bvNone
      BevelOuter = bvNone
      Style = csDropDownList
      Color = clBlack
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 6
      OnChange = sync3Change
      Items.Strings = (
        '1/128'
        '1/64'
        '1/32'
        '1/16'
        '1/8'
        '1/4'
        '1/2'
        '1')
    end
    object bsync3: TCheckBox
      Left = 10
      Top = 185
      Width = 15
      Height = 17
      TabOrder = 7
      OnClick = bsync3Click
    end
    object gtramp: TComboBox
      Left = 72
      Top = 112
      Width = 49
      Height = 22
      BevelInner = bvNone
      BevelOuter = bvNone
      Style = csDropDownList
      Color = clBlack
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ItemIndex = 0
      ParentFont = False
      TabOrder = 8
      Text = '7'
      OnChange = gtrampChange
      Items.Strings = (
        '7')
    end
  end
end