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: |
e6abbab6b577e0ba8ad4e226dbdb035b624209b2
1 VERSION 4.00
2 Begin VB.Form About
3 BorderStyle = 3 'Fixed Dialog
4 Caption = "About"
5 ClientHeight = 1575
6 ClientLeft = 1890
7 ClientTop = 2265
8 ClientWidth = 5820
9 Height = 1980
10 Icon = "About.frx":0000
11 Left = 1830
12 LinkTopic = "Form1"
13 MaxButton = 0 'False
14 MinButton = 0 'False
15 ScaleHeight = 1575
16 ScaleWidth = 5820
17 ShowInTaskbar = 0 'False
18 Top = 1920
19 Width = 5940
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
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
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
54 TabIndex = 4
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.gameproc.com/"
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
81 Caption = "Copyright ?ShadowFlare Software"
82 Height = 195
83 Left = 120
84 TabIndex = 1
85 Top = 360
86 Width = 2490
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
97 End
98 Attribute VB_Name = "About"
99 Attribute VB_Creatable = False
100 Attribute VB_Exposed = False
101 Option Explicit
102 Function GetAppVersionString() As String
103 GetAppVersionString = CStr(App.Major) + "."
104 If Len(CStr(App.Minor)) < 2 Then
105 GetAppVersionString = GetAppVersionString + "0" + CStr(App.Minor)
106 Else
107 GetAppVersionString = GetAppVersionString + CStr(App.Minor)
108 End If
109 If 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
115 End If
116 End Function
117 Private Sub Command1_Click()
118 Unload Me
119 End Sub
120 Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
121 Label3.ForeColor = &HFF0000
122 Label3.Font.underline = False
123 Label4.ForeColor = &HFF0000
124 Label4.Font.underline = False
125 Label5.Font.underline = False
126 End Sub
127 Private Sub Form_Load()
128 Dim SFmpqString As String
129 Left = MpqEx.Left + 330
130 If Left < 0 Then Left = 0
131 If Left + Width > Screen.Width Then Left = Screen.Width - Width
132 Top = MpqEx.Top + 315
133 If Top < 0 Then Top = 0
134 If Top + Height > Screen.Height Then Top = Screen.Height - Height
135 Caption = "About " + App.Title
136 Label1 = App.Title + " v"
137 Label1 = Label1 + GetAppVersionString
138 Label2 = App.LegalCopyright
139 SFmpqString = String(SFMpqGetVersionString2(NullPtr, 0) - 1, Chr(0))
140 SFMpqGetVersionString2 SFmpqString, SFMpqGetVersionString2(NullPtr, 0)
141 Label5 = Label5 + SFmpqString
142 End Sub
143 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
144 Label3.ForeColor = &HFF0000
145 Label3.Font.underline = False
146 Label4.ForeColor = &HFF0000
147 Label4.Font.underline = False
148 Label5.Font.underline = False
149 End Sub
150 Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
151 Label3.ForeColor = &HFF0000
152 Label3.Font.underline = False
153 Label4.ForeColor = &HFF0000
154 Label4.Font.underline = False
155 Label5.Font.underline = False
156 End Sub
157 Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
158 Label3.ForeColor = &HFF0000
159 Label3.Font.underline = False
160 Label4.ForeColor = &HFF0000
161 Label4.Font.underline = False
162 Label5.Font.underline = False
163 End Sub
164 Private Sub Label3_Click()
165 ShellExecute hWnd, vbNullString, "http://shadowflare.gameproc.com/", vbNullString, vbNullString, 1
166 End Sub
167 Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
168 Label3.ForeColor = &HFF00&
169 End Sub
170 Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
171 Label3.ForeColor = &HFF&
172 Label3.Font.underline = True
173 Label4.ForeColor = &HFF0000
174 Label4.Font.underline = False
175 Label5.Font.underline = False
176 End Sub
177 Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
178 Label3.ForeColor = &HFF0000
179 Label3.Font.underline = False
180 End Sub
181 Private Sub Label4_Click()
182 ShellExecute hWnd, vbNullString, "mailto:blakflare@hotmail.com", vbNullString, vbNullString, 1
183 End Sub
184 Private Sub Label4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
185 Label4.ForeColor = &HFF00&
186 End Sub
187 Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
188 Label3.ForeColor = &HFF0000
189 Label3.Font.underline = False
190 Label4.ForeColor = &HFF&
191 Label4.Font.underline = True
192 Label5.Font.underline = False
193 End Sub
194 Private Sub Label4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
195 Label4.ForeColor = &HFF0000
196 Label4.Font.underline = False
197 End Sub
198 Private Sub Label5_Click()
199 AboutSFMpq
200 End Sub
201 Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
202 Label3.ForeColor = &HFF0000
203 Label3.Font.underline = False
204 Label4.ForeColor = &HFF0000
205 Label4.Font.underline = False
206 Label5.Font.underline = True
207 End Sub
208 Private Sub Label5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
209 Label5.Font.underline = False
210 End Sub
|