Commit | Line | Data |
b31da37a |
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 |