PC World Komputer 1998 June B/Pcwk6b98.iso/Mpeg3/Mp3coder/mp3Coder.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1997-05-24 | 6.2 KB | 253 lines

object Form1: TForm1
  Left = 639
  Top = 243
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'mp3 Coder'
  ClientHeight = 317
  ClientWidth = 360
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poDefaultPosOnly
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 360
    Height = 317
    ActivePage = codepage
    Align = alClient
    TabOrder = 0
    object codepage: TTabSheet
      Caption = 'Encode/Decode'
      object DriveComboBox1: TDriveComboBox
        Left = 4
        Top = 4
        Width = 153
        Height = 19
        DirList = DirectoryListBox1
        TabOrder = 0
      end
      object DirectoryListBox1: TDirectoryListBox
        Left = 4
        Top = 24
        Width = 153
        Height = 129
        FileList = FileListBox1
        ItemHeight = 16
        TabOrder = 1
      end
      object FileListBox1: TFileListBox
        Left = 160
        Top = 4
        Width = 189
        Height = 149
        FileType = [ftReadOnly, ftHidden, ftSystem, ftArchive, ftNormal]
        ItemHeight = 16
        Mask = '*.wav'
        TabOrder = 2
      end
      object rED: TRadioGroup
        Left = 4
        Top = 160
        Width = 197
        Height = 33
        Caption = 'Encode or Decode?'
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          'Encode'
          'Decode')
        TabOrder = 3
        OnClick = rEDClick
      end
      object rBitrate: TRadioGroup
        Left = 4
        Top = 196
        Width = 345
        Height = 45
        Caption = 'Bitrate (kbits/s)'
        Columns = 5
        ItemIndex = 8
        Items.Strings = (
          '8'
          '16'
          '24'
          '32'
          '56'
          '64'
          '96'
          '112'
          '128'
          '256')
        TabOrder = 4
        OnClick = rBitrateClick
      end
      object cbDM: TCheckBox
        Left = 4
        Top = 248
        Width = 145
        Height = 17
        Caption = 'DownMix (stereo to mono)'
        TabOrder = 5
        OnClick = cbDMClick
      end
      object cbCRC: TCheckBox
        Left = 4
        Top = 267
        Width = 76
        Height = 17
        Caption = 'CRC Check'
        State = cbChecked
        TabOrder = 6
        OnClick = cbCRCClick
      end
      object cbHQ: TCheckBox
        Left = 165
        Top = 248
        Width = 128
        Height = 17
        Caption = 'High Quality Encoding'
        State = cbChecked
        TabOrder = 7
        OnClick = cbHQClick
      end
      object cbAD: TCheckBox
        Left = 165
        Top = 267
        Width = 104
        Height = 17
        Caption = 'Auto Delete .wav'
        TabOrder = 8
        OnClick = cbADClick
      end
      object btn: TButton
        Left = 204
        Top = 165
        Width = 145
        Height = 29
        Caption = '>>>>>>   Do It!   <<<<<<'
        TabOrder = 9
        OnClick = btnClick
      end
    end
    object HelpPage: TTabSheet
      Caption = 'Help'
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 352
        Height = 289
        Align = alClient
        BorderStyle = bsNone
        Lines.Strings = (
          'mp3 Coder'

            'freeware written in Delphi by william '#39'pete'#39' moss -- kaeru@flash' +
            '.net'
          ''
          'mp3Coder will encode and decode .mp3 files from .wav files using'
          'registered versions of l3enc and l3dec.'
          ''

            'For encoding, the input .wav files must have a resolution of 16b' +
            'its.'
          ''
          'the various bitrates are compared below:'

            'sound quality                 bandwidth   mode      bitrate     ' +
            '     reduction ratio'

            '"telephone sound"          2.5 kHz     mono      8 kbps         ' +
            '    96:1'

            '"better than shortwave"  4.5 kHz     mono      16 kbps          ' +
            ' 48:1'

            '"better than AM radio"    7.5 kHz     mono      32 kbps         ' +
            '   24:1'

            '"similar to FM radio"         11 kHz     stereo     56..64 kbps ' +
            '     26..24:1'

            '"near-CD"                        15 kHz     stereo     96 kbps  ' +
            '          16:1'

            '"CD"                             > 15 kHz     stereo     112..12' +
            '8 kbps  14..12:1'
          ''
          'DownMix -- converts stereo .wav files to mono'
          'CRC check -- checks CRC of resulting .mp3 file'

            'High Quality -- highest quality .mp3 output with encoding speed ' +
            'reduction'
          'AutoDelete -- Delete original .wav after converting')
        ReadOnly = True
        TabOrder = 0
      end
    end
    object setupPage: TTabSheet
      Caption = 'Settings'
      object Label1: TLabel
        Left = 4
        Top = 20
        Width = 345
        Height = 21
        Alignment = taCenter
        AutoSize = False
        Caption = 'Specify the directory that contains l3enc and l3dec:'
      end
      object Label2: TLabel
        Left = 4
        Top = 232
        Width = 345
        Height = 17
        Alignment = taCenter
        AutoSize = False
        Caption = 'Specify a drive with enough space for temporary files:'
      end
      object DriveComboBox2: TDriveComboBox
        Left = 4
        Top = 44
        Width = 345
        Height = 19
        DirList = DirectoryListBox2
        TabOrder = 0
      end
      object DirectoryListBox2: TDirectoryListBox
        Left = 4
        Top = 68
        Width = 345
        Height = 145
        ItemHeight = 16
        TabOrder = 1
      end
      object tempDrive: TDriveComboBox
        Left = 4
        Top = 252
        Width = 345
        Height = 19
        TabOrder = 2
        OnChange = tempDriveChange
      end
    end
  end
  object SendKeys1: TSendKeys
    Left = 286
    Top = 68
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 216
    Top = 80
  end
end