main.xfm

来自「delphi audio 处理控件」· XFM 代码 · 共 147 行

object Form1: TForm1
  Left = 292
  Top = 417
  Width = 281
  Height = 156
  HorzScrollBar.Range = 267
  VertScrollBar.Range = 119
  ActiveControl = Button1
  Caption = 'CD Ripper'
  Color = clBackground
  PixelsPerInch = 75
  TextHeight = 15
  TextWidth = 7
  object ProgressBar1: TProgressBar
    Left = 16
    Top = 88
    Width = 249
    Height = 12
  end
  object Label1: TLabel
    Left = 8
    Top = 24
    Width = 78
    Height = 15
    Caption = 'Track Number'
  end
  object Label2: TLabel
    Left = 8
    Top = 48
    Width = 122
    Height = 15
    Caption = 'Ogg Compression /10'
  end
  object Button1: TButton
    Left = 192
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Rip!'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 192
    Top = 48
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 3
    OnClick = Button2Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 137
    Width = 281
    Height = 19
    Panels = <
      item
      end>
  end
  object SpinEdit1: TSpinEdit
    Left = 136
    Top = 16
    Width = 41
    Height = 23
    Min = 1
    TabOrder = 5
    Value = 1
    OnEnter = SpinEdit1Enter
  end
  object SpinEdit2: TSpinEdit
    Left = 136
    Top = 48
    Width = 41
    Height = 23
    Max = 10
    Min = 2
    TabOrder = 6
    Value = 2
  end
  object CDIn1: TCDIn
    CDPath = '/dev/cdrom'
    StartTrack = 0
    EndTrack = 0
    Left = 16
    Top = 104
  end
  object VorbisOut1: TVorbisOut
    Input = CDIn1
    SuspendWhenIdle = True
    OnDone = VorbisOut1Done
    OnProgress = VorbisOut1Progress
    OnThreadException = VorbisOut1ThreadException
    FileMode = foRewrite
    Compression = 0.200000002980232200
    DesiredMaximumBitrate = brAutoSelect
    DesiredNominalBitrate = brAutoSelect
    MinimumBitrate = brAutoSelect
    Serial = 0
    Left = 64
    Top = 104
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'ogg'
    Filter = 'Ogg Vorbis|*.ogg|FLAC|*.flac|Wave files|*.wav'
    FilterIndex = 0
    Height = 0
    Title = 'Save As'
    Width = 0
    OnFilterChange = SaveDialog1FilterChange
    Left = 160
    Top = 104
  end
  object WaveOut1: TWaveOut
    Input = CDIn1
    SuspendWhenIdle = False
    OnDone = VorbisOut1Done
    OnProgress = VorbisOut1Progress
    OnThreadException = VorbisOut1ThreadException
    FileMode = foRewrite
    WavType = wtPCM
    BlockSize = 512
    Left = 96
    Top = 104
  end
  object FLACOut1: TFLACOut
    Input = CDIn1
    SuspendWhenIdle = False
    OnDone = VorbisOut1Done
    OnProgress = VorbisOut1Progress
    OnThreadException = VorbisOut1ThreadException
    FileMode = foRewrite
    BestModelSearch = False
    BlockSize = 4608
    EnableMidSideStereo = True
    EnableLooseMidSideStereo = False
    MaxLPCOrder = 0
    MaxResidualPartitionOrder = 0
    MinResidualPartitionOrder = 0
    QLPCoeffPrecision = 0
    QLPCoeffPrecisionSearch = False
    Verify = False
    Left = 128
    Top = 104
  end
end