VERSION 5.00
Begin VB.Form frmAftenOptions 
   Appearance      =   0  'Flat
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Aften Advanced Options"
   ClientHeight    =   1710
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   4515
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   HelpContextID   =   302
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1710
   ScaleWidth      =   4515
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame Frame1 
      Height          =   1515
      Left            =   120
      TabIndex        =   0
      Top             =   60
      Width           =   4155
      Begin VB.ComboBox Cmb_AftenBWFilter 
         Height          =   315
         ItemData        =   "frmAftenOptions.frx":0000
         Left            =   2460
         List            =   "frmAftenOptions.frx":0002
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   1020
         Width           =   795
      End
      Begin VB.ComboBox Cmb_AftenPad 
         Height          =   315
         ItemData        =   "frmAftenOptions.frx":0004
         Left            =   2460
         List            =   "frmAftenOptions.frx":0006
         Style           =   2  'Dropdown List
         TabIndex        =   2
         Top             =   300
         Width           =   795
      End
      Begin VB.ComboBox Cmb_AftenDRC 
         Height          =   315
         ItemData        =   "frmAftenOptions.frx":0008
         Left            =   2460
         List            =   "frmAftenOptions.frx":000A
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   660
         Width           =   1515
      End
      Begin VB.Label lblAftenBWFilter 
         Caption         =   "Bandwidth Low-Pass Filter:"
         Height          =   255
         Left            =   180
         TabIndex        =   5
         Top             =   1065
         Width           =   2295
      End
      Begin VB.Label lblAftenPad 
         Caption         =   "Start of Stream Padding:"
         Height          =   255
         Left            =   180
         TabIndex        =   1
         Top             =   360
         Width           =   2295
      End
      Begin VB.Label lblAftenDRC 
         Caption         =   "Dynamic Range Compression:"
         Height          =   255
         Left            =   180
         TabIndex        =   3
         Top             =   705
         Width           =   2295
      End
   End
End
Attribute VB_Name = "frmAftenOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' -------------------------------------------------------------------------------
'
'   AVStoDVD - by MrC
'   File: frmAftenOptions.frm
'   Purpose: Small form for Aften Advanced Configuration settings
'
' -------------------------------------------------------------------------------


Option Explicit
Option Compare Binary
Option Base 0

Private AudioNum As Integer

Private Sub Form_Load()

    Dim jj As Integer
    
    ' Load Skin Font settings
    Call modMain.Load_Skin_Font(Me)
    
    ' Load Language
    Call Populate_Form_Language

    For jj = 0 To frmEdit.Opt_AudioTrack.Count - 1
        If frmEdit.Opt_AudioTrack(jj).Value = True Then
            AudioNum = jj + 1
            Exit For
        End If
    Next jj
    
    With Me.Cmb_AftenPad
        .Clear
        For jj = 0 To 1
            .AddItem CStr(jj)
        Next jj
        If Val(Title(CurrentTitle).AudioAften(AudioNum).Pad) < .ListCount Then
            .ListIndex = Val(Title(CurrentTitle).AudioAften(AudioNum).Pad)
        End If
        If .Text = "" Then .ListIndex = 0
    End With

    With Me.Cmb_AftenDRC
        .Clear
        .AddItem "Film Light"
        .AddItem "Film Standard"
        .AddItem "Music Light"
        .AddItem "Music Standard"
        .AddItem "Speech"
        .AddItem "None"
        If Val(Title(CurrentTitle).AudioAften(AudioNum).DRC) < .ListCount Then
            .ListIndex = Val(Title(CurrentTitle).AudioAften(AudioNum).DRC)
        End If
        If .Text = "" Then .ListIndex = 5
    End With

    With Me.Cmb_AftenBWFilter
        .Clear
        For jj = 0 To 1
            .AddItem CStr(jj)
        Next jj
        If Val(Title(CurrentTitle).AudioAften(AudioNum).BWFilter) < .ListCount Then
            .ListIndex = Val(Title(CurrentTitle).AudioAften(AudioNum).BWFilter)
        End If
        If .Text = "" Then .ListIndex = 0
    End With

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    With Title(CurrentTitle).AudioAften(AudioNum)
        .Pad = Me.Cmb_AftenPad.ListIndex
        .DRC = Me.Cmb_AftenDRC.ListIndex
        .BWFilter = Me.Cmb_AftenBWFilter.ListIndex
    End With

End Sub

Private Sub Populate_Form_Language()

    On Error Resume Next
    
    If Language.Count > 0 Then
        With Me
            ' Form
            .Caption = modStr.DefaultStr(Language("331000"), .Caption)
            .lblAftenPad.Caption = modStr.DefaultStr(Language("331001"), .lblAftenPad.Caption)
            .lblAftenDRC.Caption = modStr.DefaultStr(Language("331002"), .lblAftenDRC.Caption)
            .lblAftenBWFilter.Caption = modStr.DefaultStr(Language("331003"), .lblAftenBWFilter.Caption)
        End With
    End If
 
 End Sub


