WinMPQ v1.54

About.frm

@@ -0,0 +1,197 @@
+VERSION 4.00
+Begin VB.Form About 
+   BorderStyle     =   3  'Fixed Dialog
+   Caption         =   "About WinMPQ"
+   ClientHeight    =   1305
+   ClientLeft      =   1890
+   ClientTop       =   2265
+   ClientWidth     =   5820
+   Height          =   1710
+   Icon            =   "About.frx":0000
+   Left            =   1830
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   1305
+   ScaleWidth      =   5820
+   ShowInTaskbar   =   0   'False
+   Top             =   1920
+   Width           =   5940
+   Begin VB.CommandButton Command2 
+      Caption         =   "About &Mpq Control"
+      Height          =   375
+      Left            =   4080
+      TabIndex        =   4
+      Top             =   600
+      Width           =   1575
+   End
+   Begin VB.CommandButton Command1 
+      Caption         =   "O&k"
+      Default         =   -1  'True
+      Height          =   375
+      Left            =   4920
+      TabIndex        =   3
+      Top             =   120
+      Width           =   735
+   End
+   Begin VB.Label Label4 
+      AutoSize        =   -1  'True
+      BackStyle       =   0  'Transparent
+      Caption         =   "E-mail:  [email protected]"
+      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
+         Name            =   "Times New Roman"
+         Size            =   8.25
+         Charset         =   0
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   -1  'True
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FF0000&
+      Height          =   210
+      Left            =   120
+      TabIndex        =   5
+      Top             =   1080
+      Width           =   2280
+   End
+   Begin VB.Label Label3 
+      AutoSize        =   -1  'True
+      BackStyle       =   0  'Transparent
+      Caption         =   "ShadowFlare's Realm - http://shadowflare.ancillaediting.net/"
+      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
+         Name            =   "Times New Roman"
+         Size            =   9.75
+         Charset         =   0
+         Weight          =   700
+         Underline       =   0   'False
+         Italic          =   -1  'True
+         Strikethrough   =   0   'False
+      EndProperty
+      ForeColor       =   &H00FF0000&
+      Height          =   480
+      Left            =   120
+      TabIndex        =   2
+      Top             =   600
+      Width           =   3855
+      WordWrap        =   -1  'True
+   End
+   Begin VB.Label Label2 
+      AutoSize        =   -1  'True
+      Caption         =   "Copyright © ShadowFlare Software 2001-2002"
+      Height          =   195
+      Left            =   120
+      TabIndex        =   1
+      Top             =   360
+      Width           =   3300
+   End
+   Begin VB.Label Label1 
+      AutoSize        =   -1  'True
+      Caption         =   "WinMPQ v"
+      Height          =   195
+      Left            =   120
+      TabIndex        =   0
+      Top             =   120
+      Width           =   780
+   End
+End
+Attribute VB_Name = "About"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Option Explicit
+Function GetAppVersionString() As String
+GetAppVersionString = CStr(App.Major) + "."
+If Len(CStr(App.Minor)) < 2 Then
+    GetAppVersionString = GetAppVersionString + "0" + CStr(App.Minor)
+Else
+    GetAppVersionString = GetAppVersionString + CStr(App.Minor)
+End If
+If App.Revision <> 0 Then
+    If Len(CStr(App.Revision)) < 4 Then
+        GetAppVersionString = GetAppVersionString + "." + String(4 - Len(CStr(App.Revision)), "0") + CStr(App.Revision)
+    Else
+        GetAppVersionString = GetAppVersionString + "." + CStr(App.Revision)
+    End If
+End If
+End Function
+Private Sub Command1_Click()
+Unload Me
+End Sub
+
+Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label3.ForeColor = &HFF0000
+Label3.Font.underline = False
+Label4.ForeColor = &HFF0000
+Label4.Font.underline = False
+End Sub
+Private Sub Command2_Click()
+MpqEx.Mpq.AboutBox
+End Sub
+
+
+Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label3.ForeColor = &HFF0000
+Label3.Font.underline = False
+Label4.ForeColor = &HFF0000
+Label4.Font.underline = False
+End Sub
+Private Sub Form_Load()
+Left = MpqEx.Left + 330
+If Left < 0 Then Left = 0
+If Left + Width > Screen.Width Then Left = Screen.Width - Width
+Top = MpqEx.Top + 315
+If Top < 0 Then Top = 0
+If Top + Height > Screen.Height Then Top = Screen.Height - Height
+Label1 = Label1 + GetAppVersionString
+End Sub
+Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label3.ForeColor = &HFF0000
+Label3.Font.underline = False
+Label4.ForeColor = &HFF0000
+Label4.Font.underline = False
+End Sub
+Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label3.ForeColor = &HFF0000
+Label3.Font.underline = False
+Label4.ForeColor = &HFF0000
+Label4.Font.underline = False
+End Sub
+Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label3.ForeColor = &HFF0000
+Label3.Font.underline = False
+Label4.ForeColor = &HFF0000
+Label4.Font.underline = False
+End Sub
+Private Sub Label3_Click()
+ShellExecute hWnd, vbNullString, "http://shadowflare.ancillaediting.net/", vbNullString, vbNullString, 1
+End Sub
+Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label3.ForeColor = &HFF00&
+End Sub
+Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label3.ForeColor = &HFF&
+Label3.Font.underline = True
+Label4.ForeColor = &HFF0000
+Label4.Font.underline = False
+End Sub
+Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label3.ForeColor = &HFF0000
+Label3.Font.underline = False
+End Sub
+Private Sub Label4_Click()
+ShellExecute hWnd, vbNullString, "mailto:[email protected]", vbNullString, vbNullString, 1
+End Sub
+
+Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label4.ForeColor = &HFF00&
+End Sub
+Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label3.ForeColor = &HFF0000
+Label3.Font.underline = False
+Label4.ForeColor = &HFF&
+Label4.Font.underline = True
+End Sub
+
+Private Sub Label4_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
+Label4.ForeColor = &HFF0000
+Label4.Font.underline = False
+End Sub

EditTItem.frm

@@ -0,0 +1,135 @@
+VERSION 4.00
+Begin VB.Form EditTItem 
+   BorderStyle     =   3  'Fixed Dialog
+   ClientHeight    =   2535
+   ClientLeft      =   1890
+   ClientTop       =   2145
+   ClientWidth     =   5535
+   Height          =   2940
+   Icon            =   "EditTItem.frx":0000
+   Left            =   1830
+   LinkTopic       =   "Form1"
+   MaxButton       =   0   'False
+   MinButton       =   0   'False
+   ScaleHeight     =   2535
+   ScaleWidth      =   5535
+   ShowInTaskbar   =   0   'False
+   Top             =   1800
+   Width           =   5655
+   Begin VB.CommandButton cmdBrowse 
+      Caption         =   "&Browse..."
+      Height          =   285
+      Left            =   4560
+      TabIndex        =   2
+      Top             =   1680
+      Width           =   855
+   End
+   Begin VB.CommandButton cmdCancel 
+      Cancel          =   -1  'True
+      Caption         =   "&Cancel"
+      Height          =   375
+      Left            =   3120
+      TabIndex        =   4
+      Top             =   2040
+      Width           =   1455
+   End
+   Begin VB.CommandButton cmdOK 
+      Caption         =   "O&K"
+      Default         =   -1  'True
+      Height          =   375
+      Left            =   960
+      TabIndex        =   3
+      Top             =   2040
+      Width           =   1455
+   End
+   Begin VB.TextBox txtCommand 
+      Height          =   285
+      Left            =   120
+      TabIndex        =   1
+      Top             =   1680
+      Width           =   4335
+   End
+   Begin VB.TextBox txtName 
+      Height          =   285
+      Left            =   120
+      TabIndex        =   0
+      Top             =   480
+      Width           =   5295
+   End
+   Begin VB.Label Label1 
+      Caption         =   "Title:  (Use a && before a letter to make it the key for the menu option.  Use &&&& to display a &&.)"
+      Height          =   390
+      Left            =   120
+      TabIndex        =   5
+      Top             =   0
+      Width           =   5295
+      WordWrap        =   -1  'True
+   End
+   Begin VB.Label Label2 
+      Caption         =   $"EditTItem.frx":000C
+      Height          =   870
+      Left            =   120
+      TabIndex        =   6
+      Top             =   840
+      Width           =   5295
+      WordWrap        =   -1  'True
+   End
+End
+Attribute VB_Name = "EditTItem"
+Attribute VB_Creatable = False
+Attribute VB_Exposed = False
+Option Explicit
+
+Dim ClickedOK As Boolean, Finished As Boolean
+Function EditItem(FormCaption As String, cName As String, cCommand As String) As String
+Left = ToolList.Left + 330
+If Left < 0 Then Left = 0
+If Left + Width > Screen.Width Then Left = Screen.Width - Width
+Top = ToolList.Top + 315
+If Top < 0 Then Top = 0
+If Top + Height > Screen.Height Then Top = Screen.Height - Height
+Caption = FormCaption
+txtName = cName
+txtCommand = cCommand
+Finished = False
+ClickedOK = False
+Show 1
+If ClickedOK = True Then
+    EditItem = txtName + vbCrLf + txtCommand
+Else
+    EditItem = cName + vbCrLf + cCommand
+End If
+Finished = True
+Unload Me
+End Function
+Private Sub cmdBrowse_Click()
+Dim OldFileName As String, OldPath As String
+CD.Flags = &H1000 Or &H4 Or &H2
+CD.Filter = "Programs (*.exe;*.com;*.bat)|*.exe;*.com;*.bat|All Files (*.*)|*.*"
+OldFileName = CD.FileName
+OldPath = CurDir
+If Mid(App.Path, 2, 1) = ":" Then
+    ChDrive Left(App.Path, 1)
+    ChDir Left(App.Path, 2) + "\"
+End If
+CD.FileName = ""
+If ShowOpen(CD) = False Then GoTo Cancel
+txtCommand = Chr(34) + CD.FileName + Chr(34)
+Cancel:
+CD.FileName = OldFileName
+If Mid(OldPath, 2, 1) = ":" Then ChDrive Left(OldPath, 1)
+ChDir OldPath
+End Sub
+Private Sub cmdCancel_Click()
+Hide
+End Sub
+Private Sub cmdOK_Click()
+ClickedOK = True
+Hide
+End Sub
+Private Sub Form_Unload(Cancel As Integer)
+If Finished = False Then
+    Cancel = True
+    Hide
+End If
+End Sub