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

Text File | 2004-06-27 | 8KB | 405 lines

object Player: TPlayer
  Left = 223
  Top = 161
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = 'MIDI/WAV Player/Recorder'
  ClientHeight = 480
  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 GroupBox4: TGroupBox
    Left = 7
    Top = 0
    Width = 201
    Height = 369
    Caption = ' MIDI File Player '
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 240
      Width = 55
      Height = 14
      Caption = 'current file:'
    end
    object Label2: TLabel
      Left = 8
      Top = 254
      Width = 36
      Height = 14
      Caption = '<none>'
      Transparent = True
    end
    object s_tempo: TTobyGauge
      Left = 8
      Top = 295
      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 = 20
      MaxValue = 240
      ParentColor = False
      ParentFont = False
      Progress = 120
      OnMouseDown = s_tempoMouseDown
      OnMouseMove = s_tempoMouseMove
    end
    object tmp: TLabel
      Left = 8
      Top = 280
      Width = 76
      Height = 14
      Caption = 'tempo: 120 bpm'
    end
    object s_pos: TTobyGauge
      Left = 8
      Top = 335
      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 = []
      ParentColor = False
      ParentFont = False
      Progress = 0
      OnMouseDown = s_posMouseDown
      OnMouseMove = s_posMouseMove
    end
    object Label5: TLabel
      Left = 8
      Top = 320
      Width = 62
      Height = 14
      Caption = 'position: 0 %'
    end
    object midibox: TListBox
      Left = 8
      Top = 24
      Width = 185
      Height = 161
      AutoComplete = False
      BevelInner = bvNone
      BevelOuter = bvNone
      Color = clBlack
      ExtendedSelect = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 0
      OnDblClick = midiboxDblClick
    end
    object Button1: TButton
      Left = 8
      Top = 192
      Width = 49
      Height = 17
      Caption = 'add'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 64
      Top = 192
      Width = 49
      Height = 17
      Caption = 'remove'
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 64
      Top = 216
      Width = 49
      Height = 17
      Caption = 'stop'
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 8
      Top = 216
      Width = 49
      Height = 17
      Caption = 'play'
      TabOrder = 4
      OnClick = Button4Click
    end
    object midilooped1: TCheckBox
      Left = 124
      Top = 192
      Width = 57
      Height = 17
      Caption = 'looped'
      TabOrder = 5
    end
    object onlych1: TCheckBox
      Left = 124
      Top = 216
      Width = 69
      Height = 17
      Caption = 'only CH1'
      TabOrder = 6
    end
  end
  object GroupBox1: TGroupBox
    Left = 215
    Top = 0
    Width = 201
    Height = 369
    Caption = ' WAV File Player '
    TabOrder = 1
    object Label3: TLabel
      Left = 8
      Top = 240
      Width = 55
      Height = 14
      Caption = 'current file:'
    end
    object Label4: TLabel
      Left = 8
      Top = 254
      Width = 36
      Height = 14
      Caption = '<none>'
      Transparent = True
    end
    object Label6: TLabel
      Left = 8
      Top = 280
      Width = 60
      Height = 14
      Caption = 'pitch: 100 %'
    end
    object s_pitch: TTobyGauge
      Left = 8
      Top = 295
      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 = 1
      MaxValue = 341
      ParentColor = False
      ParentFont = False
      Progress = 170
      OnMouseDown = s_pitchMouseDown
      OnMouseMove = s_pitchMouseMove
    end
    object Label7: TLabel
      Left = 8
      Top = 320
      Width = 62
      Height = 14
      Caption = 'position: 0 %'
    end
    object s_pos2: TTobyGauge
      Left = 8
      Top = 335
      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 = []
      ParentColor = False
      ParentFont = False
      Progress = 0
      OnMouseDown = s_pos2MouseDown
      OnMouseMove = s_pos2MouseMove
    end
    object wavbox: TListBox
      Left = 8
      Top = 24
      Width = 185
      Height = 161
      AutoComplete = False
      BevelInner = bvNone
      BevelOuter = bvNone
      Color = clBlack
      ExtendedSelect = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 0
      OnDblClick = wavboxDblClick
    end
    object Button5: TButton
      Left = 8
      Top = 192
      Width = 49
      Height = 17
      Caption = 'add'
      TabOrder = 1
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 64
      Top = 192
      Width = 49
      Height = 17
      Caption = 'remove'
      TabOrder = 2
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 64
      Top = 216
      Width = 49
      Height = 17
      Caption = 'stop'
      TabOrder = 3
      OnClick = Button7Click
    end
    object Button8: TButton
      Left = 8
      Top = 216
      Width = 49
      Height = 17
      Caption = 'play'
      TabOrder = 4
      OnClick = Button8Click
    end
    object wavlooped1: TCheckBox
      Left = 124
      Top = 192
      Width = 57
      Height = 17
      Caption = 'looped'
      TabOrder = 5
      OnClick = wavlooped1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 7
    Top = 370
    Width = 410
    Height = 105
    Caption = ' WAV Recorder '
    TabOrder = 2
    object Label8: TLabel
      Left = 8
      Top = 48
      Width = 138
      Height = 14
      Caption = 'current file (click to change):'
    end
    object wavfile: TLabel
      Left = 8
      Top = 62
      Width = 36
      Height = 14
      Cursor = crHandPoint
      Caption = '<none>'
      Transparent = True
      OnClick = wavfileClick
    end
    object rstatus: TLabel
      Left = 8
      Top = 80
      Width = 75
      Height = 14
      Caption = 'status: stopped'
    end
    object Button10: TButton
      Left = 64
      Top = 24
      Width = 49
      Height = 17
      Caption = 'pause'
      TabOrder = 0
      OnClick = Button10Click
    end
    object Button11: TButton
      Left = 120
      Top = 24
      Width = 49
      Height = 17
      Caption = 'stop'
      TabOrder = 1
      OnClick = Button11Click
    end
    object Button12: TButton
      Left = 8
      Top = 24
      Width = 49
      Height = 17
      Caption = 'record'
      TabOrder = 2
      OnClick = Button12Click
    end
    object recinmono: TCheckBox
      Left = 185
      Top = 24
      Width = 96
      Height = 17
      Caption = 'record in mono'
      TabOrder = 3
    end
    object rformat: TComboBox
      Left = 304
      Top = 22
      Width = 89
      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 = 4
      Text = '16 bit integer'
      Items.Strings = (
        '16 bit integer'
        '32 bit float')
    end
  end
end