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