main.dfm

delphi下的声音记录源程序

object FormamSoundRecorder: TFormamSoundRecorder
  Left = 245
  Top = 234
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Am Sound Recorder'
  ClientHeight = 310
  ClientWidth = 521
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 345
    Height = 169
    Caption = 'Audio Controls'
    TabOrder = 0
    object LabelPlayTag: TLabel
      Left = 32
      Top = 88
      Width = 209
      Height = 13
      AutoSize = False
      Caption = 'Tag'
    end
    object LabelPlayAttributes: TLabel
      Left = 32
      Top = 112
      Width = 209
      Height = 13
      AutoSize = False
      Caption = 'Attributes'
    end
    object LabelLength: TLabel
      Left = 32
      Top = 136
      Width = 209
      Height = 13
      AutoSize = False
      Caption = 'Length'
    end
    object CommandPlay: TButton
      Left = 32
      Top = 48
      Width = 65
      Height = 25
      Caption = 'Play'
      TabOrder = 0
      OnClick = CommandPlayClick
    end
    object CommandPause: TButton
      Left = 104
      Top = 48
      Width = 65
      Height = 25
      Caption = 'Pause'
      TabOrder = 1
      OnClick = CommandPauseClick
    end
    object CommandStop: TButton
      Left = 176
      Top = 48
      Width = 65
      Height = 25
      Caption = 'Stop'
      TabOrder = 2
      OnClick = CommandStopClick
    end
    object CommandRecord: TButton
      Left = 248
      Top = 48
      Width = 65
      Height = 25
      Caption = 'Record'
      TabOrder = 3
      OnClick = CommandRecordClick
    end
    object ProgressBarLevel: TProgressBar
      Left = 32
      Top = 27
      Width = 281
      Height = 11
      Min = 0
      Max = 100
      TabOrder = 4
    end
  end
  object FrameVolumeControls: TGroupBox
    Left = 368
    Top = 8
    Width = 145
    Height = 169
    Caption = 'Volume Controls'
    TabOrder = 1
    object LabelPlayVolume: TLabel
      Left = 16
      Top = 32
      Width = 61
      Height = 13
      Caption = 'Play Volume:'
    end
    object LabelRecordVolume: TLabel
      Left = 16
      Top = 92
      Width = 76
      Height = 13
      Caption = 'Record Volume:'
    end
    object SliderPlayVolume: TTrackBar
      Left = 8
      Top = 48
      Width = 129
      Height = 25
      Max = 200
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      ThumbLength = 10
      TickMarks = tmBoth
      TickStyle = tsNone
      OnChange = TrackBar1Change
    end
    object SliderRecordVolume: TTrackBar
      Left = 9
      Top = 111
      Width = 129
      Height = 25
      Max = 200
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      ThumbLength = 10
      TickMarks = tmBoth
      TickStyle = tsNone
      OnChange = SliderPlayVolumeChange
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 184
    Width = 185
    Height = 105
    Caption = 'Converter'
    TabOrder = 2
    object LabelConvertTag: TLabel
      Left = 16
      Top = 24
      Width = 19
      Height = 13
      Caption = 'Tag'
    end
    object LabelConvertAttributes: TLabel
      Left = 16
      Top = 48
      Width = 44
      Height = 13
      Caption = 'Attributes'
    end
    object CommandChangeConvertFormat: TButton
      Left = 11
      Top = 72
      Width = 78
      Height = 25
      Caption = 'Change'
      TabOrder = 0
      OnClick = CommandChangeConvertFormatClick
    end
    object CommandConvert: TButton
      Left = 96
      Top = 72
      Width = 75
      Height = 25
      Caption = 'Convert'
      TabOrder = 1
      OnClick = CommandConvertClick
    end
  end
  object GroupBox4: TGroupBox
    Left = 208
    Top = 184
    Width = 193
    Height = 105
    Caption = 'Record Format'
    TabOrder = 3
    object LabelRecordTag: TLabel
      Left = 11
      Top = 24
      Width = 19
      Height = 13
      Caption = 'Tag'
    end
    object LabelRecordAttributes: TLabel
      Left = 12
      Top = 48
      Width = 44
      Height = 13
      Caption = 'Attributes'
    end
    object CommandChangeFormat: TButton
      Left = 11
      Top = 72
      Width = 77
      Height = 25
      Caption = 'Change'
      TabOrder = 0
      OnClick = CommandChangeFormatClick
    end
    object amWavePro1: TamWavePro
      Left = 144
      Top = 64
      Width = 32
      Height = 32
      OnDonePlay = amWavePro1DonePlay
      OnDoneRecord = amWavePro1DoneRecord
      OnSilence = amWavePro1Silence
      OnVUChange = amWavePro1VUChange
      OnConvertDone = amWavePro1ConvertDone
      OnConvertError = amWavePro1ConvertError
      ControlData = {
        000300004F0300004F0300000800020000000000080002000000000002000000
        02000000030002000000020019000200E80302000200020001000B000000}
    end
  end
  object GroupBox5: TGroupBox
    Left = 416
    Top = 184
    Width = 97
    Height = 105
    TabOrder = 4
    object Label1: TLabel
      Left = 13
      Top = 80
      Width = 39
      Height = 13
      Caption = 'Deletion'
    end
    object CheckSilenceDeletion: TCheckBox
      Left = 11
      Top = 64
      Width = 73
      Height = 17
      Alignment = taLeftJustify
      Caption = 'Silence'
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 2
      OnClick = CheckSilenceDeletionClick
    end
    object OptionRecordFile: TRadioButton
      Left = 11
      Top = 16
      Width = 73
      Height = 17
      Alignment = taLeftJustify
      Caption = 'Record File'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object OptionRecordNull: TRadioButton
      Left = 11
      Top = 40
      Width = 73
      Height = 17
      Alignment = taLeftJustify
      Caption = 'Record Null'
      TabOrder = 1
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 291
    Width = 521
    Height = 19
    Panels = <>
    SimplePanel = True
    SimpleText = 'SILENCE'
  end
  object MainMenu1: TMainMenu
    Left = 304
    Top = 256
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Caption = 'Open'
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = 'Save...'
        Enabled = False
        OnClick = Save1Click
      end
      object Saveas1: TMenuItem
        Caption = 'Save as...'
        Enabled = False
        OnClick = Saveas1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      object AudioDevices1: TMenuItem
        Caption = 'Audio Devices...'
        OnClick = AudioDevices1Click
      end
    end
  end
  object CommonDialog1: TOpenDialog
    Filter = 'Wave Files (*.wav)|*.wav|All Files (*.*)|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofNoNetworkButton, ofEnableSizing]
    Left = 384
    Top = 144
  end
  object SaveDialog: TSaveDialog
    Filter = 'All Files (*.*)|*.*|Wave Files (*.wav)|*.wav'
    FilterIndex = 2
    Left = 424
    Top = 144
  end
end