📄 options.frm
字号:
Top = 2040
Width = 1035
End
Begin VB.Label Label8
Height = 855
Left = 3120
TabIndex = 49
Top = 1200
Width = 1755
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = $"Options.frx":00F6
Height = 855
Left = 0
TabIndex = 47
Top = 120
Width = 4935
WordWrap = -1 'True
End
End
Begin VB.PictureBox TabDisps
BorderStyle = 0 'None
Height = 3495
Index = 3
Left = 240
ScaleHeight = 3495
ScaleWidth = 4935
TabIndex = 42
TabStop = 0 'False
Top = 480
Visible = 0 'False
Width = 4935
Begin VB.ComboBox Combo3
Height = 315
ItemData = "Options.frx":01CE
Left = 2880
List = "Options.frx":01F3
Style = 2 'Dropdown List
TabIndex = 34
Top = 3120
Width = 1815
End
Begin VB.ComboBox Combo2
Height = 315
ItemData = "Options.frx":0245
Left = 1200
List = "Options.frx":024F
Style = 2 'Dropdown List
TabIndex = 33
Top = 3120
Width = 1455
End
Begin VB.ListBox List1
Height = 1815
ItemData = "Options.frx":0266
Left = 0
List = "Options.frx":0268
Sorted = -1 'True
TabIndex = 27
Top = 720
Width = 1575
End
Begin VB.TextBox Text4
Height = 285
Left = 0
TabIndex = 25
Top = 360
Width = 855
End
Begin VB.CommandButton cmdAdd
Caption = "&Add"
Height = 285
Left = 960
TabIndex = 26
Top = 360
Width = 615
End
Begin VB.CommandButton Command6
Caption = "&Remove"
Height = 255
Left = 0
TabIndex = 28
Top = 2640
Width = 1095
End
Begin VB.ComboBox Combo1
Enabled = 0 'False
Height = 315
ItemData = "Options.frx":026A
Left = 1800
List = "Options.frx":027A
Style = 2 'Dropdown List
TabIndex = 29
Top = 720
Width = 2535
End
Begin VB.Frame Frame2
Caption = "Audio Compression"
Height = 1335
Left = 1800
TabIndex = 44
Top = 1200
Visible = 0 'False
Width = 2535
Begin VB.OptionButton AudioC
Caption = "Medium"
Height = 255
Index = 0
Left = 120
TabIndex = 31
Top = 600
Value = -1 'True
Width = 2175
End
Begin VB.OptionButton AudioC
Caption = "Highest (Least space)"
Height = 255
Index = 1
Left = 120
TabIndex = 32
Top = 960
Width = 2175
End
Begin VB.OptionButton AudioC
Caption = "Lowest (Best quality)"
Height = 255
Index = 2
Left = 120
TabIndex = 30
Top = 240
Width = 2175
End
End
Begin VB.Label ZLibLabel
AutoSize = -1 'True
Caption = "Deflate Compression Level"
Height = 195
Left = 2880
TabIndex = 54
Top = 2880
Width = 1890
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "Default Compression"
Height = 195
Left = 1200
TabIndex = 53
Top = 2880
Width = 1455
End
Begin VB.Label Label5
Caption = "Compression type"
Height = 255
Left = 1800
TabIndex = 46
Top = 480
Width = 1935
End
Begin VB.Label Label4
Caption = "File Extension"
Height = 255
Left = 0
TabIndex = 45
Top = 120
Width = 1215
End
End
Begin MSComctlLib.TabStrip Tabs
Height = 3975
Left = 120
TabIndex = 2
Top = 120
Width = 5175
_ExtentX = 9128
_ExtentY = 7011
HotTracking = -1 'True
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 5
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "General"
ImageVarType = 2
EndProperty
BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "File Lists"
ImageVarType = 2
EndProperty
BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "Compression Auto-Selection"
ImageVarType = 2
EndProperty
BeginProperty Tab4 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "File Associations"
ImageVarType = 2
EndProperty
BeginProperty Tab5 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "Other"
ImageVarType = 2
EndProperty
EndProperty
End
End
Attribute VB_Name = "Options"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim OldFileName As String, NewListFile As String
Dim NewExtNames() As String, NewExtComp() As Integer
Dim ActID() As String
Private Sub Check8_Click()
If Check8.Value = 1 Then Check8.Value = 2
End Sub
Private Sub cmdAdd_Click()
Dim xNum As Integer
If Text4 <> "" Then
If Left(Text4, 1) <> "." Then Text4 = "." + Text4
For xNum = 1 To UBound(NewExtNames)
If Text4 = NewExtNames(xNum) Then Exit Sub
Next xNum
List1.AddItem Text4
ReDim Preserve NewExtNames(UBound(NewExtNames) + 1) As String
NewExtNames(UBound(NewExtNames)) = Text4
ReDim Preserve NewExtComp(UBound(NewExtComp) + 1) As Integer
NewExtComp(UBound(NewExtComp)) = -1
Text4 = ""
End If
End Sub
Private Sub cmdAddFolder_Click()
Dim lNum As Long
Dim Path As String
PathInput.hwndOwner = hWnd
Path = PathInputBox(PathInput, "Add Listfile Folder", "")
If Path = "" Then GoTo Cancel
FileLists.AddItem Path
If FileLists.ListCount > 0 Then
NewListFile = FileLists.List(0)
Else
NewListFile = ""
End If
For lNum = 1 To FileLists.ListCount - 1
NewListFile = NewListFile + vbCrLf + FileLists.List(lNum)
Next lNum
Cancel:
End Sub
Private Sub cmdAddList_Click()
Dim lNum As Long
CD.Flags = &H1000 Or &H4 Or &H2
CD.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
CD.hwndOwner = hWnd
If ShowOpen(CD) = False Then GoTo Cancel
FileLists.AddItem CD.FileName
If FileLists.ListCount > 0 Then
NewListFile = FileLists.List(0)
Else
NewListFile = ""
End If
For lNum = 1 To FileLists.ListCount - 1
NewListFile = NewListFile + vbCrLf + FileLists.List(lNum)
Next lNum
Cancel:
End Sub
Private Sub cmdDelList_Click()
Dim lNum As Long
If FileLists.ListIndex > -1 Then
FileLists.RemoveItem FileLists.ListIndex
If FileLists.ListCount > 0 Then
NewListFile = FileLists.List(0)
Else
NewListFile = ""
End If
For lNum = 1 To FileLists.ListCount - 1
NewListFile = NewListFile + vbCrLf + FileLists.List(lNum)
Next lNum
End If
End Sub
Private Sub Combo1_Click()
Dim xNum As Integer
For xNum = 1 To UBound(NewExtNames)
If List1.List(List1.ListIndex) = NewExtNames(xNum) Then Exit For
Next xNum
If UBound(NewExtNames) = 0 Then xNum = 0
If Combo1.ListIndex = 3 Then
Frame2.Visible = True
NewExtComp(xNum) = Combo1.ListIndex - 3
Else
Frame2.Visible = False
If Combo1.ListIndex < 2 Then
NewExtComp(xNum) = Combo1.ListIndex - 2
Else
NewExtComp(xNum) = -3
End If
End If
End Sub
Private Sub AudioC_Click(Index As Integer)
Dim xNum As Integer
For xNum = 1 To UBound(NewExtNames)
If List1.List(List1.ListIndex) = NewExtNames(xNum) Then Exit For
Next xNum
If UBound(NewExtNames) = 0 Then xNum = 0
NewExtComp(xNum) = Index
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then Check1.Value = 2
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then Check2.Value = 2
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then Check3.Value = 2
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then Check4.Value = 2
End Sub
Private Sub Check5_Click()
If Check5.Value = 1 Then Check5.Value = 2
End Sub
Private Sub Command1_Click()
Dim Path As String, BatKey As String
Dim xNum As Integer, ExtList As String
Dim dItem As String, ndItem As String, aNum As Long
Path = App.Path
If Right(Path, 1) <> "\" Then Path = Path + "\"
Text1_LostFocus
Text2_LostFocus
DefaultMaxFiles = Text1
DefaultBlockSize = Text5
LocaleID = Text2
SFileSetLocale (LocaleID)
NewKey AppKey
SetReg AppKey + "DefaultMaxFiles", Text1, REG_DWORD
SetReg AppKey + "DefaultBlockSize", Text5, REG_DWORD
SetReg AppKey + "LocaleID", Text2, REG_DWORD
If Check1.Value > 0 Then
SetReg AppKey + "SaveWindowStatus", 1, REG_DWORD
Else
SetReg AppKey + "SaveWindowStatus", 0, REG_DWORD
End If
If Check3.Value > 0 Then
SetReg AppKey + "ShowConfirmation", 1, REG_DWORD
Else
SetReg AppKey + "ShowConfirmation", 0, REG_DWORD
End If
If Check4.Value > 0 Then
SetReg AppKey + "UseDragDropWildcards", 1, REG_DWORD
Else
SetReg AppKey + "UseDragDropWildcards", 0, REG_DWORD
End If
If Check5.Value > 0 Then
SetReg AppKey + "CheckModDateTime", 1, REG_DWORD
Else
SetReg AppKey + "CheckModDateTime", 0, REG_DWORD
MpqEx.Timer1.Enabled = False
End If
If Check7.Value > 0 Then
SetReg AppKey + "AutofindFileLists", 1, REG_DWORD
Else
SetReg AppKey + "AutofindFileLists", 0, REG_DWORD
End If
If Check8.Value > 0 Then
SetReg AppKey + "UseOnlyAutofindLists", 1, REG_DWORD
Else
SetReg AppKey + "UseOnlyAutofindLists", 0, REG_DWORD
End If
If Check2.Value > 0 Then
NewKey "HKEY_CLASSES_ROOT\.mpq\", "Mpq.Archive"
NewKey "HKEY_CLASSES_ROOT\.mpq\ShellNew\"
SetReg "HKEY_CLASSES_ROOT\.mpq\ShellNew\NullFile", ""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -