Updated Settings UI for v0.97

This commit is contained in:
Michael J. Seiferling
2016-05-22 10:32:00 -06:00
parent 1d19a49b0e
commit 58684bf9a5
4 changed files with 441 additions and 37 deletions
+220 -35
View File
@@ -27,9 +27,9 @@ Partial Class frmSettings
Me.grpGeneral = New System.Windows.Forms.GroupBox() Me.grpGeneral = New System.Windows.Forms.GroupBox()
Me.chkTimeTracking = New System.Windows.Forms.CheckBox() Me.chkTimeTracking = New System.Windows.Forms.CheckBox()
Me.chkStartWindows = New System.Windows.Forms.CheckBox() Me.chkStartWindows = New System.Windows.Forms.CheckBox()
Me.chkSync = New System.Windows.Forms.CheckBox()
Me.chkShowDetectionTips = New System.Windows.Forms.CheckBox() Me.chkShowDetectionTips = New System.Windows.Forms.CheckBox()
Me.chkStartToTray = New System.Windows.Forms.CheckBox() Me.chkStartToTray = New System.Windows.Forms.CheckBox()
Me.chkSync = New System.Windows.Forms.CheckBox()
Me.grpPaths = New System.Windows.Forms.GroupBox() Me.grpPaths = New System.Windows.Forms.GroupBox()
Me.btnBackupFolder = New System.Windows.Forms.Button() Me.btnBackupFolder = New System.Windows.Forms.Button()
Me.lblBackupFolder = New System.Windows.Forms.Label() Me.lblBackupFolder = New System.Windows.Forms.Label()
@@ -45,13 +45,30 @@ Partial Class frmSettings
Me.chkOverwriteWarning = New System.Windows.Forms.CheckBox() Me.chkOverwriteWarning = New System.Windows.Forms.CheckBox()
Me.chkCreateFolder = New System.Windows.Forms.CheckBox() Me.chkCreateFolder = New System.Windows.Forms.CheckBox()
Me.grp7z = New System.Windows.Forms.GroupBox() Me.grp7z = New System.Windows.Forms.GroupBox()
Me.lblCompression = New System.Windows.Forms.Label() Me.btn7zLocation = New System.Windows.Forms.Button()
Me.txt7zLocation = New System.Windows.Forms.TextBox()
Me.lblLocation = New System.Windows.Forms.Label()
Me.txt7zArguments = New System.Windows.Forms.TextBox()
Me.lblArguments = New System.Windows.Forms.Label()
Me.lbl7zCopyright = New System.Windows.Forms.Label()
Me.lbl7zProduct = New System.Windows.Forms.Label()
Me.cboCompression = New System.Windows.Forms.ComboBox() Me.cboCompression = New System.Windows.Forms.ComboBox()
Me.lblCompression = New System.Windows.Forms.Label()
Me.grpSync = New System.Windows.Forms.GroupBox()
Me.grpSyncOptions = New System.Windows.Forms.GroupBox()
Me.chkSyncTags = New System.Windows.Forms.CheckBox()
Me.chkSyncAllData = New System.Windows.Forms.CheckBox()
Me.chkSyncConfig = New System.Windows.Forms.CheckBox()
Me.chkSyncGameInfo = New System.Windows.Forms.CheckBox()
Me.chkSyncHours = New System.Windows.Forms.CheckBox()
Me.btnDefaults = New System.Windows.Forms.Button()
Me.grpGeneral.SuspendLayout() Me.grpGeneral.SuspendLayout()
Me.grpPaths.SuspendLayout() Me.grpPaths.SuspendLayout()
Me.grpBackup.SuspendLayout() Me.grpBackup.SuspendLayout()
CType(Me.nudSupressBackupThreshold, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.nudSupressBackupThreshold, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grp7z.SuspendLayout() Me.grp7z.SuspendLayout()
Me.grpSync.SuspendLayout()
Me.grpSyncOptions.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'chkMonitorOnStartup 'chkMonitorOnStartup
@@ -78,7 +95,6 @@ Partial Class frmSettings
' '
Me.grpGeneral.Controls.Add(Me.chkTimeTracking) Me.grpGeneral.Controls.Add(Me.chkTimeTracking)
Me.grpGeneral.Controls.Add(Me.chkStartWindows) Me.grpGeneral.Controls.Add(Me.chkStartWindows)
Me.grpGeneral.Controls.Add(Me.chkSync)
Me.grpGeneral.Controls.Add(Me.chkShowDetectionTips) Me.grpGeneral.Controls.Add(Me.chkShowDetectionTips)
Me.grpGeneral.Controls.Add(Me.chkStartToTray) Me.grpGeneral.Controls.Add(Me.chkStartToTray)
Me.grpGeneral.Controls.Add(Me.chkMonitorOnStartup) Me.grpGeneral.Controls.Add(Me.chkMonitorOnStartup)
@@ -109,16 +125,6 @@ Partial Class frmSettings
Me.chkStartWindows.Text = "Start with Windows" Me.chkStartWindows.Text = "Start with Windows"
Me.chkStartWindows.UseVisualStyleBackColor = True Me.chkStartWindows.UseVisualStyleBackColor = True
' '
'chkSync
'
Me.chkSync.AutoSize = True
Me.chkSync.Location = New System.Drawing.Point(6, 134)
Me.chkSync.Name = "chkSync"
Me.chkSync.Size = New System.Drawing.Size(208, 17)
Me.chkSync.TabIndex = 5
Me.chkSync.Text = "Sync game list data with backup folder"
Me.chkSync.UseVisualStyleBackColor = True
'
'chkShowDetectionTips 'chkShowDetectionTips
' '
Me.chkShowDetectionTips.AutoSize = True Me.chkShowDetectionTips.AutoSize = True
@@ -139,12 +145,22 @@ Partial Class frmSettings
Me.chkStartToTray.Text = "Start to system tray" Me.chkStartToTray.Text = "Start to system tray"
Me.chkStartToTray.UseVisualStyleBackColor = True Me.chkStartToTray.UseVisualStyleBackColor = True
' '
'chkSync
'
Me.chkSync.AutoSize = True
Me.chkSync.Location = New System.Drawing.Point(6, 21)
Me.chkSync.Name = "chkSync"
Me.chkSync.Size = New System.Drawing.Size(100, 17)
Me.chkSync.TabIndex = 0
Me.chkSync.Text = "Enable Syncing"
Me.chkSync.UseVisualStyleBackColor = True
'
'grpPaths 'grpPaths
' '
Me.grpPaths.Controls.Add(Me.btnBackupFolder) Me.grpPaths.Controls.Add(Me.btnBackupFolder)
Me.grpPaths.Controls.Add(Me.lblBackupFolder) Me.grpPaths.Controls.Add(Me.lblBackupFolder)
Me.grpPaths.Controls.Add(Me.txtBackupFolder) Me.grpPaths.Controls.Add(Me.txtBackupFolder)
Me.grpPaths.Location = New System.Drawing.Point(12, 410) Me.grpPaths.Location = New System.Drawing.Point(377, 326)
Me.grpPaths.Name = "grpPaths" Me.grpPaths.Name = "grpPaths"
Me.grpPaths.Size = New System.Drawing.Size(360, 60) Me.grpPaths.Size = New System.Drawing.Size(360, 60)
Me.grpPaths.TabIndex = 3 Me.grpPaths.TabIndex = 3
@@ -165,9 +181,9 @@ Partial Class frmSettings
Me.lblBackupFolder.AutoSize = True Me.lblBackupFolder.AutoSize = True
Me.lblBackupFolder.Location = New System.Drawing.Point(6, 27) Me.lblBackupFolder.Location = New System.Drawing.Point(6, 27)
Me.lblBackupFolder.Name = "lblBackupFolder" Me.lblBackupFolder.Name = "lblBackupFolder"
Me.lblBackupFolder.Size = New System.Drawing.Size(76, 13) Me.lblBackupFolder.Size = New System.Drawing.Size(79, 13)
Me.lblBackupFolder.TabIndex = 0 Me.lblBackupFolder.TabIndex = 0
Me.lblBackupFolder.Text = "Backup Folder" Me.lblBackupFolder.Text = "Backup Folder:"
' '
'txtBackupFolder 'txtBackupFolder
' '
@@ -179,20 +195,20 @@ Partial Class frmSettings
'btnSave 'btnSave
' '
Me.btnSave.DialogResult = System.Windows.Forms.DialogResult.OK Me.btnSave.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnSave.Location = New System.Drawing.Point(216, 476) Me.btnSave.Location = New System.Drawing.Point(581, 392)
Me.btnSave.Name = "btnSave" Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23) Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 3 Me.btnSave.TabIndex = 5
Me.btnSave.Text = "&Save" Me.btnSave.Text = "&Save"
Me.btnSave.UseVisualStyleBackColor = True Me.btnSave.UseVisualStyleBackColor = True
' '
'btnCancel 'btnCancel
' '
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(297, 476) Me.btnCancel.Location = New System.Drawing.Point(662, 392)
Me.btnCancel.Name = "btnCancel" Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23) Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 4 Me.btnCancel.TabIndex = 6
Me.btnCancel.Text = "&Cancel" Me.btnCancel.Text = "&Cancel"
Me.btnCancel.UseVisualStyleBackColor = True Me.btnCancel.UseVisualStyleBackColor = True
' '
@@ -206,10 +222,10 @@ Partial Class frmSettings
Me.grpBackup.Controls.Add(Me.chkOverwriteWarning) Me.grpBackup.Controls.Add(Me.chkOverwriteWarning)
Me.grpBackup.Controls.Add(Me.chkCreateFolder) Me.grpBackup.Controls.Add(Me.chkCreateFolder)
Me.grpBackup.Controls.Add(Me.chkBackupConfirm) Me.grpBackup.Controls.Add(Me.chkBackupConfirm)
Me.grpBackup.Location = New System.Drawing.Point(12, 183) Me.grpBackup.Location = New System.Drawing.Point(378, 12)
Me.grpBackup.Name = "grpBackup" Me.grpBackup.Name = "grpBackup"
Me.grpBackup.Size = New System.Drawing.Size(360, 168) Me.grpBackup.Size = New System.Drawing.Size(360, 165)
Me.grpBackup.TabIndex = 1 Me.grpBackup.TabIndex = 2
Me.grpBackup.TabStop = False Me.grpBackup.TabStop = False
Me.grpBackup.Text = "Backup and Restore" Me.grpBackup.Text = "Backup and Restore"
' '
@@ -282,15 +298,88 @@ Partial Class frmSettings
' '
'grp7z 'grp7z
' '
Me.grp7z.Controls.Add(Me.btn7zLocation)
Me.grp7z.Controls.Add(Me.txt7zLocation)
Me.grp7z.Controls.Add(Me.lblLocation)
Me.grp7z.Controls.Add(Me.txt7zArguments)
Me.grp7z.Controls.Add(Me.lblArguments)
Me.grp7z.Controls.Add(Me.lbl7zCopyright)
Me.grp7z.Controls.Add(Me.lbl7zProduct)
Me.grp7z.Controls.Add(Me.cboCompression) Me.grp7z.Controls.Add(Me.cboCompression)
Me.grp7z.Controls.Add(Me.lblCompression) Me.grp7z.Controls.Add(Me.lblCompression)
Me.grp7z.Location = New System.Drawing.Point(12, 357) Me.grp7z.Location = New System.Drawing.Point(377, 183)
Me.grp7z.Name = "grp7z" Me.grp7z.Name = "grp7z"
Me.grp7z.Size = New System.Drawing.Size(360, 47) Me.grp7z.Size = New System.Drawing.Size(360, 137)
Me.grp7z.TabIndex = 2 Me.grp7z.TabIndex = 3
Me.grp7z.TabStop = False Me.grp7z.TabStop = False
Me.grp7z.Text = "7z Options" Me.grp7z.Text = "7z Options"
' '
'btn7zLocation
'
Me.btn7zLocation.Location = New System.Drawing.Point(327, 70)
Me.btn7zLocation.Name = "btn7zLocation"
Me.btn7zLocation.Size = New System.Drawing.Size(27, 20)
Me.btn7zLocation.TabIndex = 6
Me.btn7zLocation.Text = "..."
Me.btn7zLocation.UseVisualStyleBackColor = True
'
'txt7zLocation
'
Me.txt7zLocation.Location = New System.Drawing.Point(88, 70)
Me.txt7zLocation.Name = "txt7zLocation"
Me.txt7zLocation.Size = New System.Drawing.Size(233, 20)
Me.txt7zLocation.TabIndex = 5
'
'lblLocation
'
Me.lblLocation.AutoSize = True
Me.lblLocation.Location = New System.Drawing.Point(6, 73)
Me.lblLocation.Name = "lblLocation"
Me.lblLocation.Size = New System.Drawing.Size(51, 13)
Me.lblLocation.TabIndex = 4
Me.lblLocation.Text = "Location:"
'
'txt7zArguments
'
Me.txt7zArguments.Location = New System.Drawing.Point(88, 44)
Me.txt7zArguments.Name = "txt7zArguments"
Me.txt7zArguments.Size = New System.Drawing.Size(266, 20)
Me.txt7zArguments.TabIndex = 3
'
'lblArguments
'
Me.lblArguments.AutoSize = True
Me.lblArguments.Location = New System.Drawing.Point(6, 47)
Me.lblArguments.Name = "lblArguments"
Me.lblArguments.Size = New System.Drawing.Size(60, 13)
Me.lblArguments.TabIndex = 2
Me.lblArguments.Text = "Arguments:"
'
'lbl7zCopyright
'
Me.lbl7zCopyright.Location = New System.Drawing.Point(9, 114)
Me.lbl7zCopyright.Name = "lbl7zCopyright"
Me.lbl7zCopyright.Size = New System.Drawing.Size(345, 20)
Me.lbl7zCopyright.TabIndex = 8
Me.lbl7zCopyright.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lbl7zProduct
'
Me.lbl7zProduct.Location = New System.Drawing.Point(9, 97)
Me.lbl7zProduct.Name = "lbl7zProduct"
Me.lbl7zProduct.Size = New System.Drawing.Size(345, 20)
Me.lbl7zProduct.TabIndex = 7
Me.lbl7zProduct.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboCompression
'
Me.cboCompression.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboCompression.FormattingEnabled = True
Me.cboCompression.Location = New System.Drawing.Point(88, 17)
Me.cboCompression.Name = "cboCompression"
Me.cboCompression.Size = New System.Drawing.Size(266, 21)
Me.cboCompression.TabIndex = 1
'
'lblCompression 'lblCompression
' '
Me.lblCompression.AutoSize = True Me.lblCompression.AutoSize = True
@@ -300,25 +389,102 @@ Partial Class frmSettings
Me.lblCompression.TabIndex = 0 Me.lblCompression.TabIndex = 0
Me.lblCompression.Text = "Compression:" Me.lblCompression.Text = "Compression:"
' '
'cboCompression 'grpSync
' '
Me.cboCompression.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.grpSync.Controls.Add(Me.grpSyncOptions)
Me.cboCompression.FormattingEnabled = True Me.grpSync.Controls.Add(Me.chkSync)
Me.cboCompression.Location = New System.Drawing.Point(88, 17) Me.grpSync.Location = New System.Drawing.Point(12, 183)
Me.cboCompression.Name = "cboCompression" Me.grpSync.Name = "grpSync"
Me.cboCompression.Size = New System.Drawing.Size(224, 21) Me.grpSync.Size = New System.Drawing.Size(359, 203)
Me.cboCompression.TabIndex = 1 Me.grpSync.TabIndex = 1
Me.grpSync.TabStop = False
Me.grpSync.Text = "Sync Game Data"
'
'grpSyncOptions
'
Me.grpSyncOptions.Controls.Add(Me.chkSyncTags)
Me.grpSyncOptions.Controls.Add(Me.chkSyncAllData)
Me.grpSyncOptions.Controls.Add(Me.chkSyncConfig)
Me.grpSyncOptions.Controls.Add(Me.chkSyncGameInfo)
Me.grpSyncOptions.Controls.Add(Me.chkSyncHours)
Me.grpSyncOptions.Location = New System.Drawing.Point(6, 47)
Me.grpSyncOptions.Name = "grpSyncOptions"
Me.grpSyncOptions.Size = New System.Drawing.Size(347, 140)
Me.grpSyncOptions.TabIndex = 1
Me.grpSyncOptions.TabStop = False
Me.grpSyncOptions.Text = "Sync Options"
'
'chkSyncTags
'
Me.chkSyncTags.AutoSize = True
Me.chkSyncTags.Location = New System.Drawing.Point(6, 88)
Me.chkSyncTags.Name = "chkSyncTags"
Me.chkSyncTags.Size = New System.Drawing.Size(50, 17)
Me.chkSyncTags.TabIndex = 3
Me.chkSyncTags.Text = "Tags"
Me.chkSyncTags.UseVisualStyleBackColor = True
'
'chkSyncAllData
'
Me.chkSyncAllData.AutoSize = True
Me.chkSyncAllData.Location = New System.Drawing.Point(6, 111)
Me.chkSyncAllData.Name = "chkSyncAllData"
Me.chkSyncAllData.Size = New System.Drawing.Size(164, 17)
Me.chkSyncAllData.TabIndex = 4
Me.chkSyncAllData.Text = "All Data (Not Recommended)"
Me.chkSyncAllData.UseVisualStyleBackColor = True
'
'chkSyncConfig
'
Me.chkSyncConfig.AutoSize = True
Me.chkSyncConfig.Location = New System.Drawing.Point(6, 19)
Me.chkSyncConfig.Name = "chkSyncConfig"
Me.chkSyncConfig.Size = New System.Drawing.Size(88, 17)
Me.chkSyncConfig.TabIndex = 0
Me.chkSyncConfig.Text = "Configuration"
Me.chkSyncConfig.UseVisualStyleBackColor = True
'
'chkSyncGameInfo
'
Me.chkSyncGameInfo.AutoSize = True
Me.chkSyncGameInfo.Location = New System.Drawing.Point(6, 42)
Me.chkSyncGameInfo.Name = "chkSyncGameInfo"
Me.chkSyncGameInfo.Size = New System.Drawing.Size(109, 17)
Me.chkSyncGameInfo.TabIndex = 1
Me.chkSyncGameInfo.Text = "Game Information"
Me.chkSyncGameInfo.UseVisualStyleBackColor = True
'
'chkSyncHours
'
Me.chkSyncHours.AutoSize = True
Me.chkSyncHours.Location = New System.Drawing.Point(6, 65)
Me.chkSyncHours.Name = "chkSyncHours"
Me.chkSyncHours.Size = New System.Drawing.Size(54, 17)
Me.chkSyncHours.TabIndex = 2
Me.chkSyncHours.Text = "Hours"
Me.chkSyncHours.UseVisualStyleBackColor = True
'
'btnDefaults
'
Me.btnDefaults.Location = New System.Drawing.Point(12, 392)
Me.btnDefaults.Name = "btnDefaults"
Me.btnDefaults.Size = New System.Drawing.Size(110, 23)
Me.btnDefaults.TabIndex = 4
Me.btnDefaults.Text = "Use &Defaults"
Me.btnDefaults.UseVisualStyleBackColor = True
' '
'frmSettings 'frmSettings
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(384, 511) Me.ClientSize = New System.Drawing.Size(749, 426)
Me.Controls.Add(Me.grpSync)
Me.Controls.Add(Me.btnDefaults)
Me.Controls.Add(Me.grp7z) Me.Controls.Add(Me.grp7z)
Me.Controls.Add(Me.grpBackup) Me.Controls.Add(Me.grpBackup)
Me.Controls.Add(Me.grpPaths)
Me.Controls.Add(Me.btnCancel) Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnSave) Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.grpPaths)
Me.Controls.Add(Me.grpGeneral) Me.Controls.Add(Me.grpGeneral)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False Me.MaximizeBox = False
@@ -337,6 +503,10 @@ Partial Class frmSettings
CType(Me.nudSupressBackupThreshold, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.nudSupressBackupThreshold, System.ComponentModel.ISupportInitialize).EndInit()
Me.grp7z.ResumeLayout(False) Me.grp7z.ResumeLayout(False)
Me.grp7z.PerformLayout() Me.grp7z.PerformLayout()
Me.grpSync.ResumeLayout(False)
Me.grpSync.PerformLayout()
Me.grpSyncOptions.ResumeLayout(False)
Me.grpSyncOptions.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@@ -365,4 +535,19 @@ Partial Class frmSettings
Friend WithEvents grp7z As GroupBox Friend WithEvents grp7z As GroupBox
Friend WithEvents cboCompression As ComboBox Friend WithEvents cboCompression As ComboBox
Friend WithEvents lblCompression As Label Friend WithEvents lblCompression As Label
Friend WithEvents lbl7zProduct As Label
Friend WithEvents lbl7zCopyright As Label
Friend WithEvents grpSync As GroupBox
Friend WithEvents chkSyncConfig As CheckBox
Friend WithEvents btn7zLocation As Button
Friend WithEvents txt7zLocation As TextBox
Friend WithEvents lblLocation As Label
Friend WithEvents txt7zArguments As TextBox
Friend WithEvents lblArguments As Label
Friend WithEvents chkSyncHours As CheckBox
Friend WithEvents chkSyncGameInfo As CheckBox
Friend WithEvents btnDefaults As Button
Friend WithEvents grpSyncOptions As GroupBox
Friend WithEvents chkSyncAllData As CheckBox
Friend WithEvents chkSyncTags As CheckBox
End Class End Class
+63
View File
@@ -40,6 +40,31 @@ Public Class frmSettings
End If End If
End Sub End Sub
Private Sub HandleSyncState()
If chkSync.Checked Then
grpSyncOptions.Enabled = True
Else
grpSyncOptions.Enabled = False
End If
End Sub
Private Sub HandleSyncAllDataState()
If chkSyncAllData.Checked Then
For Each chk As CheckBox In grpSyncOptions.Controls
If Not chk Is chkSyncAllData Then
chk.Checked = False
chk.Enabled = False
End If
Next
Else
For Each chk As CheckBox In grpSyncOptions.Controls
If Not chk Is chkSyncAllData Then
chk.Enabled = True
End If
Next
End If
End Sub
Private Function ValidateSettings() As Boolean Private Function ValidateSettings() As Boolean
'Only modify registry key when the value changed 'Only modify registry key when the value changed
@@ -96,6 +121,16 @@ Public Class frmSettings
End If End If
End Function End Function
Private Sub Get7zInfo()
Try
Dim oFileInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo(mgrPath.Utility7zLocation)
lbl7zProduct.Text = oFileInfo.FileDescription & " " & oFileInfo.ProductVersion
lbl7zCopyright.Text = oFileInfo.LegalCopyright
Catch ex As Exception
lbl7zProduct.Text = mgrCommon.FormatString(frmSettings_Error7zInfo)
End Try
End Sub
Private Sub LoadSettings() Private Sub LoadSettings()
chkStartWindows.Checked = oSettings.StartWithWindows chkStartWindows.Checked = oSettings.StartWithWindows
chkMonitorOnStartup.Checked = oSettings.MonitorOnStartup chkMonitorOnStartup.Checked = oSettings.MonitorOnStartup
@@ -119,6 +154,9 @@ Public Class frmSettings
chkStartToTray.Checked = False chkStartToTray.Checked = False
chkStartWindows.Checked = False chkStartWindows.Checked = False
End If End If
'Retrieve 7z Info
Get7zInfo()
End Sub End Sub
Private Sub LoadCombos() Private Sub LoadCombos()
@@ -165,6 +203,16 @@ Public Class frmSettings
chkMonitorOnStartup.Text = frmSettings_chkMonitorOnStartup chkMonitorOnStartup.Text = frmSettings_chkMonitorOnStartup
grp7z.Text = frmSettings_grp7z grp7z.Text = frmSettings_grp7z
lblCompression.Text = frmSettings_lblCompression lblCompression.Text = frmSettings_lblCompression
grpSync.Text = frmSettings_grpSync
grpSyncOptions.Text = frmSettings_grpSyncOptions
chkSyncConfig.Text = frmSettings_chkSyncConfig
chkSyncGameInfo.Text = frmSettings_chkSyncGameInfo
chkSyncHours.Text = frmSettings_chkSyncHours
chkSyncTags.Text = frmSettings_chkSyncTags
chkSyncAllData.Text = frmSettings_chkSyncAllData
btnDefaults.Text = frmSettings_btnDefaults
lblArguments.Text = frmSettings_lblArguments
lblLocation.Text = frmSettings_lblLocation
'Unix Handler 'Unix Handler
If mgrCommon.IsUnix Then If mgrCommon.IsUnix Then
@@ -203,7 +251,22 @@ Public Class frmSettings
If sNewFolder <> String.Empty Then txtBackupFolder.Text = sNewFolder If sNewFolder <> String.Empty Then txtBackupFolder.Text = sNewFolder
End Sub End Sub
Private Sub btn7zLocation_Click(sender As Object, e As EventArgs) Handles btn7zLocation.Click
Dim sNewLocation As String
sNewLocation = mgrCommon.OpenFileBrowser(frmSettings_Browse7za, "exe", frmSettings_7zaFileType, Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), False)
If sNewLocation <> String.Empty Then txt7zLocation.Text = sNewLocation
End Sub
Private Sub chkSupressBackup_CheckedChanged(sender As Object, e As EventArgs) Handles chkSupressBackup.CheckedChanged Private Sub chkSupressBackup_CheckedChanged(sender As Object, e As EventArgs) Handles chkSupressBackup.CheckedChanged
nudSupressBackupThreshold.Enabled = chkSupressBackup.Checked nudSupressBackupThreshold.Enabled = chkSupressBackup.Checked
End Sub End Sub
Private Sub chkSync_CheckedChanged(sender As Object, e As EventArgs) Handles chkSync.CheckedChanged
HandleSyncState()
End Sub
Private Sub chkSyncAllData_CheckedChanged(sender As Object, e As EventArgs) Handles chkSyncAllData.CheckedChanged
HandleSyncAllDataState()
End Sub
End Class End Class
+118 -1
View File
@@ -3057,6 +3057,24 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized string similar to Executable.
'''</summary>
Friend ReadOnly Property frmSettings_7zaFileType() As String
Get
Return ResourceManager.GetString("frmSettings_7zaFileType", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Locate 7-Zip Console (7za).
'''</summary>
Friend ReadOnly Property frmSettings_Browse7za() As String
Get
Return ResourceManager.GetString("frmSettings_Browse7za", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized string similar to Choose a backup folder:. ''' Looks up a localized string similar to Choose a backup folder:.
'''</summary> '''</summary>
@@ -3084,6 +3102,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized string similar to Use &amp;Defaults.
'''</summary>
Friend ReadOnly Property frmSettings_btnDefaults() As String
Get
Return ResourceManager.GetString("frmSettings_btnDefaults", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized string similar to &amp;Save. ''' Looks up a localized string similar to &amp;Save.
'''</summary> '''</summary>
@@ -3238,7 +3265,7 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Looks up a localized string similar to Sync game list data with backup folder. ''' Looks up a localized string similar to Enable Syncing.
'''</summary> '''</summary>
Friend ReadOnly Property frmSettings_chkSync() As String Friend ReadOnly Property frmSettings_chkSync() As String
Get Get
@@ -3246,6 +3273,51 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized string similar to All Data (Not Recommened).
'''</summary>
Friend ReadOnly Property frmSettings_chkSyncAllData() As String
Get
Return ResourceManager.GetString("frmSettings_chkSyncAllData", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Configuration.
'''</summary>
Friend ReadOnly Property frmSettings_chkSyncConfig() As String
Get
Return ResourceManager.GetString("frmSettings_chkSyncConfig", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Game Information.
'''</summary>
Friend ReadOnly Property frmSettings_chkSyncGameInfo() As String
Get
Return ResourceManager.GetString("frmSettings_chkSyncGameInfo", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Hours.
'''</summary>
Friend ReadOnly Property frmSettings_chkSyncHours() As String
Get
Return ResourceManager.GetString("frmSettings_chkSyncHours", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Tags.
'''</summary>
Friend ReadOnly Property frmSettings_chkSyncTags() As String
Get
Return ResourceManager.GetString("frmSettings_chkSyncTags", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized string similar to Enable time tracking. ''' Looks up a localized string similar to Enable time tracking.
'''</summary> '''</summary>
@@ -3255,6 +3327,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized string similar to Unable to retrieve 7z product information!.
'''</summary>
Friend ReadOnly Property frmSettings_Error7zInfo() As String
Get
Return ResourceManager.GetString("frmSettings_Error7zInfo", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized string similar to The backup folder does not exist. Please choose a valid backup folder.. ''' Looks up a localized string similar to The backup folder does not exist. Please choose a valid backup folder..
'''</summary> '''</summary>
@@ -3309,6 +3390,33 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized string similar to Sync Game Data.
'''</summary>
Friend ReadOnly Property frmSettings_grpSync() As String
Get
Return ResourceManager.GetString("frmSettings_grpSync", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Sync Options.
'''</summary>
Friend ReadOnly Property frmSettings_grpSyncOptions() As String
Get
Return ResourceManager.GetString("frmSettings_grpSyncOptions", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to Arguments:.
'''</summary>
Friend ReadOnly Property frmSettings_lblArguments() As String
Get
Return ResourceManager.GetString("frmSettings_lblArguments", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized string similar to Backup Folder:. ''' Looks up a localized string similar to Backup Folder:.
'''</summary> '''</summary>
@@ -3327,6 +3435,15 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Looks up a localized string similar to Location:.
'''</summary>
Friend ReadOnly Property frmSettings_lblLocation() As String
Get
Return ResourceManager.GetString("frmSettings_lblLocation", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Looks up a localized string similar to minutes. ''' Looks up a localized string similar to minutes.
'''</summary> '''</summary>
+40 -1
View File
@@ -1106,7 +1106,7 @@
<value>Backup only when session time exceeds</value> <value>Backup only when session time exceeds</value>
</data> </data>
<data name="frmSettings_chkSync" xml:space="preserve"> <data name="frmSettings_chkSync" xml:space="preserve">
<value>Sync game list data with backup folder</value> <value>Enable Syncing</value>
</data> </data>
<data name="frmSettings_chkTimeTracking" xml:space="preserve"> <data name="frmSettings_chkTimeTracking" xml:space="preserve">
<value>Enable time tracking</value> <value>Enable time tracking</value>
@@ -1597,4 +1597,43 @@
<data name="frmFileFolderSearch_SearchCancel" xml:space="preserve"> <data name="frmFileFolderSearch_SearchCancel" xml:space="preserve">
<value>Search Aborted!</value> <value>Search Aborted!</value>
</data> </data>
<data name="frmSettings_btnDefaults" xml:space="preserve">
<value>Use &amp;Defaults</value>
</data>
<data name="frmSettings_chkSyncAllData" xml:space="preserve">
<value>All Data (Not Recommened)</value>
</data>
<data name="frmSettings_chkSyncConfig" xml:space="preserve">
<value>Configuration</value>
</data>
<data name="frmSettings_chkSyncGameInfo" xml:space="preserve">
<value>Game Information</value>
</data>
<data name="frmSettings_chkSyncHours" xml:space="preserve">
<value>Hours</value>
</data>
<data name="frmSettings_chkSyncTags" xml:space="preserve">
<value>Tags</value>
</data>
<data name="frmSettings_Error7zInfo" xml:space="preserve">
<value>Unable to retrieve 7z product information!</value>
</data>
<data name="frmSettings_grpSync" xml:space="preserve">
<value>Sync Game Data</value>
</data>
<data name="frmSettings_grpSyncOptions" xml:space="preserve">
<value>Sync Options</value>
</data>
<data name="frmSettings_lblArguments" xml:space="preserve">
<value>Arguments:</value>
</data>
<data name="frmSettings_lblLocation" xml:space="preserve">
<value>Location:</value>
</data>
<data name="frmSettings_7zaFileType" xml:space="preserve">
<value>Executable</value>
</data>
<data name="frmSettings_Browse7za" xml:space="preserve">
<value>Locate 7-Zip Console (7za)</value>
</data>
</root> </root>