optionsWindow.vb

Public Class optionsWindow
    '================== Options not settable by the Options pane, but need to be saved ==================
    Dim options_MPCEXE As String ' this option is not settable from the Options pane, but we need to carry it into the new INI file
    Dim options_autoloadLastLooper As String ' the last looper file to load (this gets set when we quit the program)
    Dim options_inPointOffset As String ' how much more to add to an IN point to more fine-tune the point
    Dim options_outPointOffset As String ' how much more to take off of an OUT point to properly loop it (without skipping to the beginning)
    '================== Legacy options carried over from the old Looper ==================
    Dim options_dockMode As String ' this option as well is not settable (at least not yet), but carry it into the new file for legacy support
    Dim options_startPositionW, options_startPositionH As String ' the width and height of Looper (which can't be set in this version, as the control panel is always the same size)
    Dim options_MPCConfirm As String ' whether or not to ask to re-open MPC-HC when it quits - taking this out, as... I *want* to...

    Private Sub options_loadINIFile()
        If My.Computer.FileSystem.GetFileInfo(INIFile).Exists Then ' if there is an INI file (which by this point in the app, there SHOULD be, but just in case...
            Dim fileReader As String
            fileReader = My.Computer.FileSystem.ReadAllText(INIFile)

            ' This entire next section checks the .INI file for every single settable preference in Looper - if there's an entry in the .INI file
            ' for *any* preference, turn the checkbox on to indicate that we're saving that preference to the file

            '================== Load the [Prefs] section first ==================
            Dim options_loopPreviewLength As String = betweenTheLines(fileReader, "loopPreviewLength=", vbCrLf, "-1") ' how long to preview a slip operation for
            Dim options_loopSlipLength As String = betweenTheLines(fileReader, "loopSlipLength=", vbCrLf, "-1") ' the current slip length
            Dim options_newEventName As String = betweenTheLines(fileReader, "newEventName=", vbCrLf, "-1") ' whether or not to show the playlist when Looper opens

            Dim options_hidePlaylistOnLaunch As String = betweenTheLines(fileReader, "hidePlaylistOnLaunch=", vbCrLf, "-1") ' whether or not to show the playlist when Looper opens
            Dim options_alwaysOnTop As String = betweenTheLines(fileReader, "alwaysOnTop=", vbCrLf, "-1") ' whether or not to always be on top from launch
            Dim options_loopButtonMode As String = betweenTheLines(fileReader, "loopButtonMode=", vbCrLf, "-1") ' what the loop button mode should be on launching

            Dim options_disableHotkeys As String = betweenTheLines(fileReader, "disableHotkeys", vbCrLf, "-1") ' whether or not to disable hotkeys
            Dim options_allowMultipleInstances As String = betweenTheLines(fileReader, "allowMultipleInstances=", vbCrLf, "-1") ' whether or not to allow multiple instances of Looper
            Dim options_disableToolTips As String = betweenTheLines(fileReader, "disableToolTips=", vbCrLf, "-1") ' whether or not to show tooltips on the panels
            Dim options_pausePlaybackOnLoadEvent As String = betweenTheLines(fileReader, "pausePlaybackOnLoadEvent=", vbCrLf, "-1") ' whether to force pause when loading new events instead of playing them
            Dim options_autoPlayDialogs As String = betweenTheLines(fileReader, "autoPlayDialogs=", vbCrLf, "-1") ' whether to start playing as soon as dialog boxes close (text editing maybe?)
            options_autoloadLastLooper = betweenTheLines(fileReader, "autoloadLastLooper=", vbCrLf, Nothing) ' whether or not to show tooltips on the panels

            Dim options_dontForceLooperModeonOpen As String = betweenTheLines(fileReader, "dontForceLooperModeonOpen=", vbCrLf, "-1") ' whether to set Loop in Looper Mode after opening .looper file
            Dim options_autoplayFirstEvent As String = betweenTheLines(fileReader, "autoplayFirstEvent=", vbCrLf, "-1") ' whether to play the first event automatically when opening a .looper file

            '================== Load the [System] section ==================
            options_MPCEXE = betweenTheLines(fileReader, "MPCEXE=", vbCrLf, "0") ' the path to MPC-HC

            options_inPointOffset = betweenTheLines(fileReader, "inPointOffset=", vbCrLf, "-1") ' how much more to add to an IN point to more fine-tune the point
            options_outPointOffset = betweenTheLines(fileReader, "outPointOffset=", vbCrLf, "-1") ' how much more to take off of an OUT point to properly loop it (without skipping to the beginning)
            '================== Load the [StartPos] section ==================
            Dim options_startPositionL As String = betweenTheLines(fileReader, "startPositionL=", vbCrLf, "-1") ' the left-most coordinate to open Looper at
            Dim options_startPLPositionL As String = betweenTheLines(fileReader, "startPLPositionL=", vbCrLf, "-1") ' the left-most coordinate to open Looper's playlist at

            '================== Legacy options carried over from the old Looper (but keeping here for compatibility) ==================
            options_MPCConfirm = betweenTheLines(fileReader, "MPCConfirm=", vbCrLf, "-1") ' whether to ask to quit Looper when MPC-HC closes
            options_dockMode = betweenTheLines(fileReader, "dockMode=", vbCrLf, "-1") ' which side of MPC-HC that Looper docks to - not used in this version (yet)
            options_startPositionW = betweenTheLines(fileReader, "startPositionW=", vbCrLf, "-1") ' the width of Looper's window (deprecated, but kept for legacy)
            options_startPositionH = betweenTheLines(fileReader, "startPositionH=", vbCrLf, "-1") ' the height of Looper's window (deprecated, but kept for legacy)

            '================== Draw the GUI with the information above ==================
            previewTimeTF.Text = CStr(mainWindow.loopPreviewLength) ' get this value from mainWindow and check against the preference
            slipAmountTF.Text = CStr(mainWindow.loopSlipLength) ' get this value from mainWindow and check against the preference

            If options_loopPreviewLength <> "-1" Then savePreviewTimeCB.Checked = True
            If options_loopSlipLength <> "-1" Then saveSlipTimeCB.Checked = True

            saveNewNameTF.Text = mainWindow.newEventString
            If options_newEventName <> "-1" Then saveNewNameCB.Checked = True

            If options_hidePlaylistOnLaunch <> "-1" Then hidePlaylistWndCB.Checked = True
            If options_alwaysOnTop <> "-1" Then saveAOTCB.Checked = True
            If options_loopButtonMode <> "-1" Then saveCurrentLoopButtonCB.Checked = True
            If options_startPositionL <> "-1" Then saveLooperWndPosCB.Checked = True
            If options_startPLPositionL <> "-1" Then savePLWindowSizeCB.Checked = True

            If options_disableHotkeys <> "-1" Then disableHK.Checked = True
            If options_allowMultipleInstances <> "-1" Then allowMICB.Checked = True
            If options_disableToolTips <> "-1" Then disableTTCB.Checked = True
            If options_pausePlaybackOnLoadEvent <> "-1" Then forcePauseCB.Checked = True
            If options_autoPlayDialogs <> "-1" Then disableAutoPlayCB.Checked = True
            If options_autoloadLastLooper <> Nothing Then autoloadCB.Checked = True

            If options_dontForceLooperModeonOpen <> "-1" Then keepModeCB.Checked = True
            If options_autoplayFirstEvent <> "-1" Then disableAutoPlayOnLoadCB.Checked = True

        End If
    End Sub

    Private Sub options_saveINIFile()
        Dim writingString As String = Nothing

        Double.TryParse(previewTimeTF.Text, mainWindow.loopPreviewLength) ' change the current preview length to the length you just set
        Double.TryParse(slipAmountTF.Text, mainWindow.loopSlipLength) ' change the current slip length to the length you just set
        mainWindow.newEventString = saveNewNameTF.Text ' change the New Event String to the new string

        '================== Make the [Prefs] section of the INI ==================
        If savePreviewTimeCB.Checked Or saveSlipTimeCB.Checked Or saveCurrentLoopButtonCB.Checked Or saveAOTCB.Checked Or
        forcePauseCB.Checked Or keepModeCB.Checked Or disableTTCB.Checked Or autoloadCB.Checked Or allowMICB.Checked Or
        disableAutoPlayCB.Checked Or disableAutoPlayOnLoadCB.Checked Or hidePlaylistWndCB.Checked Or
        saveNewNameCB.Checked Or options_MPCConfirm <> "-1" Or options_dockMode <> "-1" Then
            writingString = "[Prefs]" & vbCrLf ' write the [Prefs] header of the INI file
        End If

        ' Once we write the [Prefs] header, then set these various options...
        If options_MPCConfirm <> "-1" Then writingString = writingString & "MPCConfirm=1" & vbCrLf ' add this back in, for legacy reasons
        If options_dockMode <> "-1" Then writingString = writingString & "dockMode=" & options_dockMode & vbCrLf ' write the docking mode, for legacy reasons

        ' Save the options from the Options panel
        If savePreviewTimeCB.Checked Then writingString = writingString & "loopPreviewLength=" & previewTimeTF.Text & vbCrLf
        If saveSlipTimeCB.Checked Then writingString = writingString & "loopSlipLength=" & slipAmountTF.Text & vbCrLf
        If saveNewNameCB.Checked Then writingString = writingString & "newEventName=" & saveNewNameTF.Text & vbCrLf

        If hidePlaylistWndCB.Checked Then writingString = writingString & "hidePlaylistOnLaunch=1" & vbCrLf

        If saveAOTCB.Checked Then
            If mainWindow.alwaysOnTopButton.Text = "Always on Top" Then
                writingString = writingString & "alwaysOnTop=1" & vbCrLf ' we want to boot with the window always on the top of other windows
            Else
                writingString = writingString & "alwaysOnTop=0" & vbCrLf ' we want to boot with the window NOT always on top
            End If
        End If

        If saveCurrentLoopButtonCB.Checked Then writingString = writingString & "loopButtonMode=" & mainWindow.loopModeButton.Text & vbCrLf

        If disableHK.Checked Then
            writingString = writingString & "disableHotkeys=1" & vbCrLf
            mainWindow.disableHotkeys = True
        Else
            mainWindow.disableHotkeys = False
        End If

        If allowMICB.Checked Then writingString = writingString & "allowMultipleInstances=1" & vbCrLf

        If disableTTCB.Checked Then
            writingString = writingString & "disableToolTips=1" & vbCrLf
            loadToolTips(False) ' if we choose to disable tool tips, then disable them now too
        Else
            loadToolTips(True) ' if we choose not to disable tool tips, then re-enable them (basically just re-set them)
        End If

        If forcePauseCB.Checked Then
            writingString = writingString & "pausePlaybackOnLoadEvent=1" & vbCrLf
            pausePlaybackOnLoadEvent = True
        Else
            pausePlaybackOnLoadEvent = False
        End If

        If disableAutoPlayCB.Checked Then
            writingString = writingString & "autoPlayDialogs=0" & vbCrLf
            mainWindow.autoPlayDialogs = False
        Else
            mainWindow.autoPlayDialogs = True
        End If

        If keepModeCB.Checked Then
            writingString = writingString & "dontForceLooperModeonOpen=1" & vbCrLf
            mainWindow.dontForceLooperModeonOpen = True
        Else
            mainWindow.dontForceLooperModeonOpen = False
        End If

        If disableAutoPlayOnLoadCB.Checked Then
            writingString = writingString & "autoplayFirstEvent=0" & vbCrLf
            mainWindow.autoplayFirstEvent = False
        Else
            mainWindow.autoplayFirstEvent = True
        End If

        If autoloadCB.Checked Then
            If options_autoloadLastLooper = Nothing Then
                writingString = writingString & "autoloadLastLooper=__FILE__" & vbCrLf
            Else
                writingString = writingString & "autoloadLastLooper=" & options_autoloadLastLooper & vbCrLf
            End If
        End If

        '================== Make the [System] section of the INI ==================
        writingString = writingString & "[System]" & vbCrLf & "MPCEXE=" & options_MPCEXE & vbCrLf

        If options_inPointOffset <> "-1" Then writingString = writingString & "inPointOffset=" & options_inPointOffset & vbCrLf
        If options_outPointOffset <> "-1" Then writingString = writingString & "outPointOffset=" & options_outPointOffset & vbCrLf

        '================== Make the [StartPos] section of the INI ==================
        If saveLooperWndPosCB.Checked Then
            writingString = writingString & "[StartPos]" & vbCrLf
            writingString = writingString & "startPositionL=" & mainWindow.Left & vbCrLf
            writingString = writingString & "startPositionT=" & mainWindow.Top & vbCrLf

            If options_startPositionW <> "-1" Then writingString = writingString & "startPositionW=" & options_startPositionW & vbCrLf ' deprecated, but keeping for legacy
            If options_startPositionH <> "-1" Then writingString = writingString & "startPositionH=" & options_startPositionH & vbCrLf ' deprecated, but keeping for legacy
        End If

        If savePLWindowSizeCB.Checked Then ' save the current playlist window positions in the INI file
            writingString = writingString & "startPLPositionL=" & playlistWindow.Left & vbCrLf
            writingString = writingString & "startPLPositionT=" & playlistWindow.Top & vbCrLf
            writingString = writingString & "startPLPositionW=" & playlistWindow.Width & vbCrLf
            writingString = writingString & "startPLPositionH=" & playlistWindow.Height & vbCrLf
        End If

        System.IO.File.WriteAllText(INIFile, writingString)

        MessageBox.Show("Your preferences have been saved to MPCLooper.ini:" & vbCrLf & vbCrLf & writingString,
                        "Preferences Saved!",
                        MessageBoxButtons.OK,
                        MessageBoxIcon.Information,
                        MessageBoxDefaultButton.Button1,
                        MessageBoxOptions.DefaultDesktopOnly)

        Me.Close()
    End Sub

    Private Sub optionsWindow_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Me.Icon = My.Resources.icon
        currentVersionTF.Text = My.Application.Info.Version.ToString ' list the current build date in the Options window
        mainWindow.SendMessage(CMD_SEND.CMD_PAUSE)
        options_loadINIFile()
    End Sub

    Private Sub savePrefsButton_Click(sender As Object, e As EventArgs) Handles savePrefsButton.Click
        options_saveINIFile()
        If mainWindow.autoPlayDialogs = True Then mainWindow.SendMessage(CMD_SEND.CMD_PLAY) ' we saved our preferences, so start playing again
    End Sub

    Private Sub showINIFileButton_Click(sender As Object, e As EventArgs) Handles showINIFileButton.Click
        Process.Start("explorer.exe", "/select,""" & INIFile & """")
    End Sub

    Private Sub optionsWindow_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
        Me.Dispose()
    End Sub

    Private Sub cancelPrefsButton_Click(sender As Object, e As EventArgs) Handles cancelPrefsButton.Click
        Me.Close()
        If mainWindow.autoPlayDialogs = True Then mainWindow.SendMessage(CMD_SEND.CMD_PLAY) ' we cancelled out of the Options dialog, so start playing again
    End Sub
End Class