Current News Archived News Search News Discussion Forum Old Forum Install Programs More Downloads... Troubleshooting Source Code Format Specs. Misc. Information Non-SF Stuff Links Small banner for links to this site: |
diff --git a/About.frm b/About.frm
--- a/About.frm
+++ b/About.frm
-VERSION 4.00
-Begin VB.Form About
- BorderStyle = 3 'Fixed Dialog
- Caption = "About"
- ClientHeight = 1575
- ClientLeft = 1890
- ClientTop = 2265
- ClientWidth = 5820
- Height = 1980
- Icon = "About.frx":0000
- Left = 1830
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 1575
- ScaleWidth = 5820
- ShowInTaskbar = 0 'False
- Top = 1920
- Width = 5940
- Begin VB.CommandButton Command1
- Caption = "O&k"
- Default = -1 'True
- Height = 375
- Left = 4920
- TabIndex = 3
- Top = 120
- Width = 735
- End
- Begin VB.Label Label5
- BackStyle = 0 'Transparent
- Caption = "This program uses "
- Height = 255
- Left = 120
- TabIndex = 5
- Top = 1320
- Width = 5535
- End
- Begin VB.Label Label4
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "E-mail: blakflare@hotmail.com"
- 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 = 4
- Top = 1080
- Width = 2280
- End
- Begin VB.Label Label3
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "ShadowFlare's Realm - http://sfsrealm.hopto.org/"
- 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"
- Height = 195
- Left = 120
- TabIndex = 1
- Top = 360
- Width = 2490
- 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
-Label5.Font.underline = False
-End Sub
-Private Sub Form_Load()
-Dim SFmpqString As String
-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
-Caption = "About " + App.Title
-Label1 = App.Title + " v"
-Label1 = Label1 + GetAppVersionString
-Label2 = App.LegalCopyright
-SFmpqString = String(SFMpqGetVersionString2(NullPtr, 0) - 1, Chr(0))
-SFMpqGetVersionString2 SFmpqString, SFMpqGetVersionString2(NullPtr, 0)
-Label5 = Label5 + SFmpqString
-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
-Label5.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
-Label5.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
-Label5.Font.underline = False
-End Sub
-Private Sub Label3_Click()
-ShellExecute hWnd, vbNullString, "http://sfsrealm.hopto.org/", 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
-Label5.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:blakflare@hotmail.com", 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
-Label5.Font.underline = False
-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
-Private Sub Label5_Click()
-AboutSFMpq
-End Sub
-Private Sub Label5_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
-Label5.Font.underline = True
-End Sub
-Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
-Label5.Font.underline = False
-End Sub
+VERSION 4.00\r
+Begin VB.Form About \r
+ BorderStyle = 3 'Fixed Dialog\r
+ Caption = "About"\r
+ ClientHeight = 1575\r
+ ClientLeft = 1890\r
+ ClientTop = 2265\r
+ ClientWidth = 5820\r
+ Height = 1980\r
+ Icon = "About.frx":0000\r
+ Left = 1830\r
+ LinkTopic = "Form1"\r
+ MaxButton = 0 'False\r
+ MinButton = 0 'False\r
+ ScaleHeight = 1575\r
+ ScaleWidth = 5820\r
+ ShowInTaskbar = 0 'False\r
+ Top = 1920\r
+ Width = 5940\r
+ Begin VB.CommandButton Command1 \r
+ Caption = "O&k"\r
+ Default = -1 'True\r
+ Height = 375\r
+ Left = 4920\r
+ TabIndex = 3\r
+ Top = 120\r
+ Width = 735\r
+ End\r
+ Begin VB.Label Label5 \r
+ BackStyle = 0 'Transparent\r
+ Caption = "This program uses "\r
+ Height = 255\r
+ Left = 120\r
+ TabIndex = 5\r
+ Top = 1320\r
+ Width = 5535\r
+ End\r
+ Begin VB.Label Label4 \r
+ AutoSize = -1 'True\r
+ BackStyle = 0 'Transparent\r
+ Caption = "E-mail: blakflare@hotmail.com"\r
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} \r
+ Name = "Times New Roman"\r
+ Size = 8.25\r
+ Charset = 0\r
+ Weight = 700\r
+ Underline = 0 'False\r
+ Italic = -1 'True\r
+ Strikethrough = 0 'False\r
+ EndProperty\r
+ ForeColor = &H00FF0000&\r
+ Height = 210\r
+ Left = 120\r
+ TabIndex = 4\r
+ Top = 1080\r
+ Width = 2280\r
+ End\r
+ Begin VB.Label Label3 \r
+ AutoSize = -1 'True\r
+ BackStyle = 0 'Transparent\r
+ Caption = "ShadowFlare's Realm - http://sfsrealm.hopto.org/"\r
+ BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} \r
+ Name = "Times New Roman"\r
+ Size = 9.75\r
+ Charset = 0\r
+ Weight = 700\r
+ Underline = 0 'False\r
+ Italic = -1 'True\r
+ Strikethrough = 0 'False\r
+ EndProperty\r
+ ForeColor = &H00FF0000&\r
+ Height = 480\r
+ Left = 120\r
+ TabIndex = 2\r
+ Top = 600\r
+ Width = 3855\r
+ WordWrap = -1 'True\r
+ End\r
+ Begin VB.Label Label2 \r
+ AutoSize = -1 'True\r
+ Caption = "Copyright © ShadowFlare Software"\r
+ Height = 195\r
+ Left = 120\r
+ TabIndex = 1\r
+ Top = 360\r
+ Width = 2490\r
+ End\r
+ Begin VB.Label Label1 \r
+ AutoSize = -1 'True\r
+ Caption = "WinMPQ v"\r
+ Height = 195\r
+ Left = 120\r
+ TabIndex = 0\r
+ Top = 120\r
+ Width = 780\r
+ End\r
+End\r
+Attribute VB_Name = "About"\r
+Attribute VB_Creatable = False\r
+Attribute VB_Exposed = False\r
+Option Explicit\r
+Function GetAppVersionString() As String\r
+GetAppVersionString = CStr(App.Major) + "."\r
+If Len(CStr(App.Minor)) < 2 Then\r
+ GetAppVersionString = GetAppVersionString + "0" + CStr(App.Minor)\r
+Else\r
+ GetAppVersionString = GetAppVersionString + CStr(App.Minor)\r
+End If\r
+If App.Revision <> 0 Then\r
+ If Len(CStr(App.Revision)) < 4 Then\r
+ GetAppVersionString = GetAppVersionString + "." + String(4 - Len(CStr(App.Revision)), "0") + CStr(App.Revision)\r
+ Else\r
+ GetAppVersionString = GetAppVersionString + "." + CStr(App.Revision)\r
+ End If\r
+End If\r
+End Function\r
+Private Sub Command1_Click()\r
+Unload Me\r
+End Sub\r
+Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label3.ForeColor = &HFF0000\r
+Label3.Font.underline = False\r
+Label4.ForeColor = &HFF0000\r
+Label4.Font.underline = False\r
+Label5.Font.underline = False\r
+End Sub\r
+Private Sub Form_Load()\r
+Dim SFmpqString As String\r
+Left = MpqEx.Left + 330\r
+If Left < 0 Then Left = 0\r
+If Left + Width > Screen.Width Then Left = Screen.Width - Width\r
+Top = MpqEx.Top + 315\r
+If Top < 0 Then Top = 0\r
+If Top + Height > Screen.Height Then Top = Screen.Height - Height\r
+Caption = "About " + App.Title\r
+Label1 = App.Title + " v"\r
+Label1 = Label1 + GetAppVersionString\r
+Label2 = App.LegalCopyright\r
+SFmpqString = String(SFMpqGetVersionString2(NullPtr, 0) - 1, Chr(0))\r
+SFMpqGetVersionString2 SFmpqString, SFMpqGetVersionString2(NullPtr, 0)\r
+Label5 = Label5 + SFmpqString\r
+End Sub\r
+Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label3.ForeColor = &HFF0000\r
+Label3.Font.underline = False\r
+Label4.ForeColor = &HFF0000\r
+Label4.Font.underline = False\r
+Label5.Font.underline = False\r
+End Sub\r
+Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label3.ForeColor = &HFF0000\r
+Label3.Font.underline = False\r
+Label4.ForeColor = &HFF0000\r
+Label4.Font.underline = False\r
+Label5.Font.underline = False\r
+End Sub\r
+Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label3.ForeColor = &HFF0000\r
+Label3.Font.underline = False\r
+Label4.ForeColor = &HFF0000\r
+Label4.Font.underline = False\r
+Label5.Font.underline = False\r
+End Sub\r
+Private Sub Label3_Click()\r
+ShellExecute hWnd, vbNullString, "http://sfsrealm.hopto.org/", vbNullString, vbNullString, 1\r
+End Sub\r
+Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label3.ForeColor = &HFF00&\r
+End Sub\r
+Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label3.ForeColor = &HFF&\r
+Label3.Font.underline = True\r
+Label4.ForeColor = &HFF0000\r
+Label4.Font.underline = False\r
+Label5.Font.underline = False\r
+End Sub\r
+Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label3.ForeColor = &HFF0000\r
+Label3.Font.underline = False\r
+End Sub\r
+Private Sub Label4_Click()\r
+ShellExecute hWnd, vbNullString, "mailto:blakflare@hotmail.com", vbNullString, vbNullString, 1\r
+End Sub\r
+Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label4.ForeColor = &HFF00&\r
+End Sub\r
+Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label3.ForeColor = &HFF0000\r
+Label3.Font.underline = False\r
+Label4.ForeColor = &HFF&\r
+Label4.Font.underline = True\r
+Label5.Font.underline = False\r
+End Sub\r
+Private Sub Label4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label4.ForeColor = &HFF0000\r
+Label4.Font.underline = False\r
+End Sub\r
+Private Sub Label5_Click()\r
+AboutSFMpq\r
+End Sub\r
+Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label3.ForeColor = &HFF0000\r
+Label3.Font.underline = False\r
+Label4.ForeColor = &HFF0000\r
+Label4.Font.underline = False\r
+Label5.Font.underline = True\r
+End Sub\r
+Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)\r
+Label5.Font.underline = False\r
+End Sub\r
|