unit1.dfm

bass player system api c++

object Form1: TForm1
  Left = 193
  Top = 105
  Caption = 'BASS recording example'
  ClientHeight = 93
  ClientWidth = 328
  Color = clBtnFace
  Constraints.MaxHeight = 120
  Constraints.MinHeight = 90
  Constraints.MinWidth = 336
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignSize = (
    328
    93)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 3
    Top = 30
    Width = 118
    Height = 13
    Alignment = taCenter
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    ExplicitWidth = 154
  end
  object Bevel1: TBevel
    Left = 111
    Top = 35
    Width = 211
    Height = 20
    Anchors = [akTop, akRight]
    ExplicitLeft = 147
  end
  object lPos: TLabel
    Left = 135
    Top = 39
    Width = 196
    Height = 13
    Alignment = taCenter
    Anchors = [akTop, akRight]
    AutoSize = False
    ExplicitLeft = 171
  end
  object VolumeLevel: TLabel
    Left = 8
    Top = 72
    Width = 64
    Height = 13
    Caption = 'VolumeLevel:'
  end
  object Label2: TLabel
    Left = 88
    Top = 72
    Width = 6
    Height = 13
    Caption = '0'
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 8
    Width = 93
    Height = 21
    Style = csDropDownList
    Anchors = [akLeft, akTop, akRight]
    ItemHeight = 13
    TabOrder = 0
    OnChange = ComboBox1Change
  end
  object bRecord: TButton
    Left = 111
    Top = 8
    Width = 90
    Height = 22
    Anchors = [akTop, akRight]
    Caption = 'Record'
    TabOrder = 1
    OnClick = bRecordClick
  end
  object bPlay: TButton
    Left = 208
    Top = 8
    Width = 53
    Height = 22
    Anchors = [akTop, akRight]
    Caption = 'Play'
    TabOrder = 2
    OnClick = bPlayClick
  end
  object TrackBar1: TTrackBar
    Left = 6
    Top = 45
    Width = 95
    Height = 15
    Anchors = [akLeft, akTop, akRight]
    Max = 100
    TabOrder = 3
    ThumbLength = 9
    TickMarks = tmBoth
    TickStyle = tsNone
    OnChange = TrackBar1Change
  end
  object bSave: TButton
    Left = 268
    Top = 8
    Width = 53
    Height = 22
    Anchors = [akTop, akRight]
    Caption = 'Save'
    TabOrder = 4
    OnClick = bSaveClick
  end
  object PosTimer: TTimer
    Interval = 200
    OnTimer = PosTimerTimer
    Left = 120
    Top = 32
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'wav'
    Filter = 'WAV files|*.wav|All files|*.*'
    Title = 'Save WAV...'
    Left = 152
    Top = 32
  end
end