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




CommitLineData
0d212c7b 1VERSION 4.00
2Begin VB.Form About
3 BorderStyle = 3 'Fixed Dialog
62046253 4 Caption = "About"
5 ClientHeight = 1575
0d212c7b 6 ClientLeft = 1890
7 ClientTop = 2265
8 ClientWidth = 5820
62046253 9 Height = 1980
0d212c7b 10 Icon = "About.frx":0000
11 Left = 1830
12 LinkTopic = "Form1"
13 MaxButton = 0 'False
14 MinButton = 0 'False
62046253 15 ScaleHeight = 1575
0d212c7b 16 ScaleWidth = 5820
17 ShowInTaskbar = 0 'False
18 Top = 1920
19 Width = 5940
0d212c7b 20 Begin VB.CommandButton Command1
21 Caption = "O&k"
22 Default = -1 'True
23 Height = 375
24 Left = 4920
25 TabIndex = 3
26 Top = 120
27 Width = 735
28 End
62046253 29 Begin VB.Label Label5
30 BackStyle = 0 'Transparent
31 Caption = "This program uses "
32 Height = 255
33 Left = 120
34 TabIndex = 5
35 Top = 1320
36 Width = 5535
37 End
0d212c7b 38 Begin VB.Label Label4
39 AutoSize = -1 'True
40 BackStyle = 0 'Transparent
41 Caption = "E-mail: blakflare@hotmail.com"
42 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
43 Name = "Times New Roman"
44 Size = 8.25
45 Charset = 0
46 Weight = 700
47 Underline = 0 'False
48 Italic = -1 'True
49 Strikethrough = 0 'False
50 EndProperty
51 ForeColor = &H00FF0000&
52 Height = 210
53 Left = 120
62046253 54 TabIndex = 4
0d212c7b 55 Top = 1080
56 Width = 2280
57 End
58 Begin VB.Label Label3
59 AutoSize = -1 'True
60 BackStyle = 0 'Transparent
61 Caption = "ShadowFlare's Realm - http://shadowflare.ancillaediting.net/"
62 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
63 Name = "Times New Roman"
64 Size = 9.75
65 Charset = 0
66 Weight = 700
67 Underline = 0 'False
68 Italic = -1 'True
69 Strikethrough = 0 'False
70 EndProperty
71 ForeColor = &H00FF0000&
72 Height = 480
73 Left = 120
74 TabIndex = 2
75 Top = 600
76 Width = 3855
77 WordWrap = -1 'True
78 End
79 Begin VB.Label Label2
80 AutoSize = -1 'True
62046253 81 Caption = "Copyright © ShadowFlare Software"
0d212c7b 82 Height = 195
83 Left = 120
84 TabIndex = 1
85 Top = 360
62046253 86 Width = 2490
0d212c7b 87 End
88 Begin VB.Label Label1
89 AutoSize = -1 'True
90 Caption = "WinMPQ v"
91 Height = 195
92 Left = 120
93 TabIndex = 0
94 Top = 120
95 Width = 780
96 End
97End
98Attribute VB_Name = "About"
99Attribute VB_Creatable = False
100Attribute VB_Exposed = False
101Option Explicit
102Function GetAppVersionString() As String
103GetAppVersionString = CStr(App.Major) + "."
104If Len(CStr(App.Minor)) < 2 Then
105 GetAppVersionString = GetAppVersionString + "0" + CStr(App.Minor)
106Else
107 GetAppVersionString = GetAppVersionString + CStr(App.Minor)
108End If
109If App.Revision <> 0 Then
110 If Len(CStr(App.Revision)) < 4 Then
111 GetAppVersionString = GetAppVersionString + "." + String(4 - Len(CStr(App.Revision)), "0") + CStr(App.Revision)
112 Else
113 GetAppVersionString = GetAppVersionString + "." + CStr(App.Revision)
114 End If
115End If
116End Function
117Private Sub Command1_Click()
118Unload Me
119End Sub
62046253 120Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
0d212c7b 121Label3.ForeColor = &HFF0000
122Label3.Font.underline = False
123Label4.ForeColor = &HFF0000
124Label4.Font.underline = False
62046253 125Label5.Font.underline = False
0d212c7b 126End Sub
127Private Sub Form_Load()
62046253 128Dim SFmpqString As String
0d212c7b 129Left = MpqEx.Left + 330
130If Left < 0 Then Left = 0
131If Left + Width > Screen.Width Then Left = Screen.Width - Width
132Top = MpqEx.Top + 315
133If Top < 0 Then Top = 0
134If Top + Height > Screen.Height Then Top = Screen.Height - Height
62046253 135Caption = "About " + App.Title
136Label1 = App.Title + " v"
0d212c7b 137Label1 = Label1 + GetAppVersionString
62046253 138Label2 = App.LegalCopyright
139SFmpqString = String(SFMpqGetVersionString2(NullPtr, 0) - 1, Chr(0))
140SFMpqGetVersionString2 SFmpqString, SFMpqGetVersionString2(NullPtr, 0)
141Label5 = Label5 + SFmpqString
0d212c7b 142End Sub
62046253 143Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
0d212c7b 144Label3.ForeColor = &HFF0000
145Label3.Font.underline = False
146Label4.ForeColor = &HFF0000
147Label4.Font.underline = False
62046253 148Label5.Font.underline = False
0d212c7b 149End Sub
62046253 150Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
0d212c7b 151Label3.ForeColor = &HFF0000
152Label3.Font.underline = False
153Label4.ForeColor = &HFF0000
154Label4.Font.underline = False
62046253 155Label5.Font.underline = False
0d212c7b 156End Sub
62046253 157Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
0d212c7b 158Label3.ForeColor = &HFF0000
159Label3.Font.underline = False
160Label4.ForeColor = &HFF0000
161Label4.Font.underline = False
62046253 162Label5.Font.underline = False
0d212c7b 163End Sub
164Private Sub Label3_Click()
165ShellExecute hWnd, vbNullString, "http://shadowflare.ancillaediting.net/", vbNullString, vbNullString, 1
166End Sub
62046253 167Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
0d212c7b 168Label3.ForeColor = &HFF00&
169End Sub
62046253 170Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
0d212c7b 171Label3.ForeColor = &HFF&
172Label3.Font.underline = True
173Label4.ForeColor = &HFF0000
174Label4.Font.underline = False
62046253 175Label5.Font.underline = False
0d212c7b 176End Sub
62046253 177Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
0d212c7b 178Label3.ForeColor = &HFF0000
179Label3.Font.underline = False
180End Sub
181Private Sub Label4_Click()
182ShellExecute hWnd, vbNullString, "mailto:blakflare@hotmail.com", vbNullString, vbNullString, 1
183End Sub
62046253 184Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
0d212c7b 185Label4.ForeColor = &HFF00&
186End Sub
62046253 187Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
0d212c7b 188Label3.ForeColor = &HFF0000
189Label3.Font.underline = False
190Label4.ForeColor = &HFF&
191Label4.Font.underline = True
62046253 192Label5.Font.underline = False
0d212c7b 193End Sub
62046253 194Private Sub Label4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
0d212c7b 195Label4.ForeColor = &HFF0000
196Label4.Font.underline = False
197End Sub
62046253 198Private Sub Label5_Click()
199AboutSFMpq
200End Sub
201Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
202Label3.ForeColor = &HFF0000
203Label3.Font.underline = False
204Label4.ForeColor = &HFF0000
205Label4.Font.underline = False
206Label5.Font.underline = True
207End Sub
208Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
209Label5.Font.underline = False
210End Sub