Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /uWav2RSO.lfm [r189] .. [r190] Maximize Restore

  Switch to side-by-side view

--- a/uWav2RSO.lfm
+++ b/uWav2RSO.lfm
@@ -3,7 +3,7 @@
   Top = 185
   BorderStyle = bsDialog
   Caption = 'Wav 2 RSO 2 Wav'
-  ClientHeight = 403
+  ClientHeight = 446
   ClientWidth = 450
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -14,192 +14,214 @@
   OldCreateOrder = False
   ShowHint = True
   OnCreate = FormCreate
-  DesignSize = (
-    450
-    403)
   PixelsPerInch = 96
-  TextHeight = 13
   object lblMessages: TLabel
     Left = 40
-    Top = 276
+    Top = 321
     Width = 51
     Height = 13
     Caption = 'Messages:'
   end
   object btnConvert: TButton
     Left = 8
-    Top = 67
-    Width = 81
-    Height = 25
-    Hint = 'Convert to RSO'
+    Top = 39
+    Width = 89
+    Height = 25
+    Hint = 'Convert selected files'
     Caption = 'Convert'
-    TabOrder = 4
+    TabOrder = 2
     OnClick = btnConvertClick
   end
   object mmoMessages: TMemo
     Left = 104
-    Top = 272
+    Top = 317
     Width = 337
     Height = 121
     Hint = 'Messages'
     ReadOnly = True
     ScrollBars = ssBoth
+    TabOrder = 4
+  end
+  object btnSelect: TButton
+    Left = 8
+    Top = 8
+    Width = 89
+    Height = 25
+    Hint = 
+      'Select the files you wish to convert (either .wav -> .rso or .rs' +
+      'o -> .wav)'
+    Caption = 'Select Files...'
+    TabOrder = 0
+    OnClick = btnSelectClick
+  end
+  object lstWavFiles: TListBox
+    Left = 104
+    Top = 34
+    Width = 337
+    Height = 271
+    Hint = 'WAV files to be converted'
+    ItemHeight = 13
+    TabOrder = 1
+  end
+  object grpResample: TGroupBox
+    Left = 8
+    Top = 72
+    Width = 89
+    Height = 209
+    Caption = 'Resample'
+    TabOrder = 3
+    object lblRate: TLabel
+      Left = 8
+      Top = 156
+      Width = 26
+      Height = 13
+      Caption = 'Rate:'
+    end
+    object radSinc1: TRadioButton
+      Left = 8
+      Top = 26
+      Width = 74
+      Height = 17
+      Hint = 
+        'Band limited sinc interpolation, best quality, 97dB Signal to No' +
+        'ise Ratio, 96% Bandwidth'
+      Caption = 'Sinc 96%'
+      TabOrder = 0
+    end
+    object radSinc2: TRadioButton
+      Tag = 1
+      Left = 8
+      Top = 46
+      Width = 74
+      Height = 17
+      Hint = 
+        'Band limited sinc interpolation, medium quality, 97dB Signal to ' +
+        'Noise Ratio, 90% Bandwidth'
+      Caption = 'Sinc 90%'
+      TabOrder = 1
+    end
+    object radSinc3: TRadioButton
+      Tag = 2
+      Left = 8
+      Top = 67
+      Width = 74
+      Height = 17
+      Hint = 
+        'Band limited sinc interpolation, fastest, 97dB Signal to Noise R' +
+        'atio, 80% Bandwidth'
+      Caption = 'Sinc 80%'
+      TabOrder = 2
+    end
+    object radZoh: TRadioButton
+      Tag = 3
+      Left = 8
+      Top = 88
+      Width = 74
+      Height = 17
+      Hint = 'Zero order hold interpolator, very fast, poor quality.'
+      Caption = 'ZOH'
+      TabOrder = 3
+    end
+    object radLinear: TRadioButton
+      Tag = 4
+      Left = 8
+      Top = 109
+      Width = 74
+      Height = 17
+      Hint = 'Linear interpolator, very fast, poor quality.'
+      Caption = 'Linear'
+      TabOrder = 4
+    end
+    object radNone: TRadioButton
+      Tag = 4
+      Left = 8
+      Top = 130
+      Width = 74
+      Height = 17
+      Hint = 'No resampling'
+      Caption = 'None'
+      Checked = True
+      TabOrder = 5
+      TabStop = True
+    end
+    object cboRate: TComboBox
+      Left = 8
+      Top = 176
+      Width = 65
+      Height = 21
+      Hint = 'The desired sample rate (Hz)'
+      Style = csDropDownList
+      ItemHeight = 13
+      ItemIndex = 3
+      TabOrder = 6
+      Text = '8000'
+      Items.Strings = (
+        '16000'
+        '12000'
+        '11025'
+        '8000'
+        '6000'
+        '4000'
+        '2000')
+    end
+  end
+  object btnOK: TButton
+    Left = 8
+    Top = 350
+    Width = 89
+    Height = 25
+    HelpContext = 3522
+    Caption = 'OK'
+    Default = True
+    ModalResult = 1
+    TabOrder = 5
+    OnClick = btnOKClick
+  end
+  object btnCancel: TButton
+    Left = 8
+    Top = 381
+    Width = 89
+    Height = 25
+    HelpContext = 3523
+    Cancel = True
+    Caption = 'Cancel'
+    ModalResult = 2
     TabOrder = 6
-  end
-  object btnSelect: TButton
-    Left = 8
-    Top = 36
-    Width = 81
-    Height = 25
-    Hint = 'Select the WAV files you wish to convert to RSO format'
-    Caption = 'Select Files...'
-    TabOrder = 2
-    OnClick = btnSelectClick
-  end
-  object btnOutputDir: TButton
-    Left = 8
-    Top = 7
-    Width = 81
-    Height = 25
-    Hint = 'Choose a directory where you want the RSO files written'
-    Caption = 'Directory...'
-    TabOrder = 0
-    OnClick = btnOutputDirClick
-  end
-  object edtPath: TEdit
+    Visible = False
+    OnClick = btnCancelClick
+  end
+  object btnHelp: TButton
+    Left = 8
+    Top = 412
+    Width = 89
+    Height = 25
+    HelpContext = 3524
+    Anchors = [akRight, akBottom]
+    Caption = '&Help'
+    TabOrder = 7
+    Visible = False
+    OnClick = btnHelpClick
+  end
+  object chkUseCompression: TCheckBox
+    Left = 8
+    Top = 292
+    Width = 91
+    Height = 17
+    Hint = 'Compress the .rso output'
+    Caption = 'Compressed'
+    TabOrder = 8
+  end
+  object edtPath2: TEdit
     Left = 104
-    Top = 9
+    Top = 8
     Width = 337
     Height = 21
     Cursor = crNo
     Hint = 'The specified output directory'
+    AutoSize = False
     ReadOnly = True
-    TabOrder = 1
-  end
-  object lstWavFiles: TListBox
-    Left = 104
-    Top = 34
-    Width = 337
-    Height = 233
-    Hint = 'WAV files to be converted'
-    ItemHeight = 13
-    TabOrder = 3
-  end
-  object grpResample: TGroupBox
-    Left = 8
-    Top = 95
-    Width = 81
-    Height = 178
-    Caption = 'Resample'
-    TabOrder = 5
-    object lblRate: TLabel
-      Left = 8
-      Top = 128
-      Width = 26
-      Height = 13
-      Caption = 'Rate:'
-    end
-    object radSinc1: TRadioButton
-      Left = 8
-      Top = 16
-      Width = 57
-      Height = 17
-      Caption = 'Sinc 1'
-      TabOrder = 0
-    end
-    object radSinc2: TRadioButton
-      Tag = 1
-      Left = 8
-      Top = 33
-      Width = 57
-      Height = 17
-      Caption = 'Sinc 2'
-      TabOrder = 1
-    end
-    object radSinc3: TRadioButton
-      Tag = 2
-      Left = 8
-      Top = 50
-      Width = 57
-      Height = 17
-      Caption = 'Sinc 3'
-      TabOrder = 2
-    end
-    object radZoh: TRadioButton
-      Tag = 3
-      Left = 8
-      Top = 67
-      Width = 57
-      Height = 17
-      Caption = 'ZOH'
-      TabOrder = 3
-    end
-    object radLinear: TRadioButton
-      Tag = 4
-      Left = 8
-      Top = 84
-      Width = 57
-      Height = 17
-      Caption = 'Linear'
-      TabOrder = 4
-    end
-    object radNone: TRadioButton
-      Tag = 4
-      Left = 8
-      Top = 102
-      Width = 57
-      Height = 17
-      Caption = 'None'
-      Checked = True
-      TabOrder = 5
-      TabStop = True
-    end
-    object edtRate: TBricxccSpinEdit
-      Left = 8
-      Top = 144
-      Width = 57
-      Height = 22
-      MaxLength = 5
-      MaxValue = 16000
-      MinValue = 2000
-      TabOrder = 6
-      Value = 8000
-    end
-  end
-  object btnOK: TButton
-    Left = 8
-    Top = 313
-    Width = 81
-    Height = 25
-    HelpContext = 3522
-    Caption = 'OK'
-    Default = True
-    ModalResult = 1
-    TabOrder = 7
-    OnClick = btnOKClick
-  end
-  object btnCancel: TButton
-    Left = 8
-    Top = 341
-    Width = 81
-    Height = 25
-    HelpContext = 3523
-    Cancel = True
-    Caption = 'Cancel'
-    ModalResult = 2
-    TabOrder = 8
-    OnClick = btnCancelClick
-  end
-  object btnHelp: TButton
-    Left = 8
-    Top = 369
-    Width = 81
-    Height = 25
-    HelpContext = 3524
-    Anchors = [akRight, akBottom]
-    Caption = '&Help'
     TabOrder = 9
-    OnClick = btnHelpClick
+    OnChange = OnPathChange
   end
   object dlgOpen: TOpenDialog
     Filter =