Commit | Line | Data |
0d212c7b |
1 | VERSION 4.00 |
2 | Begin VB.Form About |
3 | BorderStyle = 3 'Fixed Dialog |
4 | Caption = "About WinMPQ" |
5 | ClientHeight = 1305 |
6 | ClientLeft = 1890 |
7 | ClientTop = 2265 |
8 | ClientWidth = 5820 |
9 | Height = 1710 |
10 | Icon = "About.frx":0000 |
11 | Left = 1830 |
12 | LinkTopic = "Form1" |
13 | MaxButton = 0 'False |
14 | MinButton = 0 'False |
15 | ScaleHeight = 1305 |
16 | ScaleWidth = 5820 |
17 | ShowInTaskbar = 0 'False |
18 | Top = 1920 |
19 | Width = 5940 |
20 | Begin VB.CommandButton Command2 |
21 | Caption = "About &Mpq Control" |
22 | Height = 375 |
23 | Left = 4080 |
24 | TabIndex = 4 |
25 | Top = 600 |
26 | Width = 1575 |
27 | End |
28 | Begin VB.CommandButton Command1 |
29 | Caption = "O&k" |
30 | Default = -1 'True |
31 | Height = 375 |
32 | Left = 4920 |
33 | TabIndex = 3 |
34 | Top = 120 |
35 | Width = 735 |
36 | End |
37 | Begin VB.Label Label4 |
38 | AutoSize = -1 'True |
39 | BackStyle = 0 'Transparent |
40 | Caption = "E-mail: blakflare@hotmail.com" |
41 | BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} |
42 | Name = "Times New Roman" |
43 | Size = 8.25 |
44 | Charset = 0 |
45 | Weight = 700 |
46 | Underline = 0 'False |
47 | Italic = -1 'True |
48 | Strikethrough = 0 'False |
49 | EndProperty |
50 | ForeColor = &H00FF0000& |
51 | Height = 210 |
52 | Left = 120 |
53 | TabIndex = 5 |
54 | Top = 1080 |
55 | Width = 2280 |
56 | End |
57 | Begin VB.Label Label3 |
58 | AutoSize = -1 'True |
59 | BackStyle = 0 'Transparent |
60 | Caption = "ShadowFlare's Realm - http://shadowflare.ancillaediting.net/" |
61 | BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} |
62 | Name = "Times New Roman" |
63 | Size = 9.75 |
64 | Charset = 0 |
65 | Weight = 700 |
66 | Underline = 0 'False |
67 | Italic = -1 'True |
68 | Strikethrough = 0 'False |
69 | EndProperty |
70 | ForeColor = &H00FF0000& |
71 | Height = 480 |
72 | Left = 120 |
73 | TabIndex = 2 |
74 | Top = 600 |
75 | Width = 3855 |
76 | WordWrap = -1 'True |
77 | End |
78 | Begin VB.Label Label2 |
79 | AutoSize = -1 'True |
80 | Caption = "Copyright © ShadowFlare Software 2001-2002" |
81 | Height = 195 |
82 | Left = 120 |
83 | TabIndex = 1 |
84 | Top = 360 |
85 | Width = 3300 |
86 | End |
87 | Begin VB.Label Label1 |
88 | AutoSize = -1 'True |
89 | Caption = "WinMPQ v" |
90 | Height = 195 |
91 | Left = 120 |
92 | TabIndex = 0 |
93 | Top = 120 |
94 | Width = 780 |
95 | End |
96 | End |
97 | Attribute VB_Name = "About" |
98 | Attribute VB_Creatable = False |
99 | Attribute VB_Exposed = False |
100 | Option Explicit |
101 | Function GetAppVersionString() As String |
102 | GetAppVersionString = CStr(App.Major) + "." |
103 | If Len(CStr(App.Minor)) < 2 Then |
104 | GetAppVersionString = GetAppVersionString + "0" + CStr(App.Minor) |
105 | Else |
106 | GetAppVersionString = GetAppVersionString + CStr(App.Minor) |
107 | End If |
108 | If App.Revision <> 0 Then |
109 | If Len(CStr(App.Revision)) < 4 Then |
110 | GetAppVersionString = GetAppVersionString + "." + String(4 - Len(CStr(App.Revision)), "0") + CStr(App.Revision) |
111 | Else |
112 | GetAppVersionString = GetAppVersionString + "." + CStr(App.Revision) |
113 | End If |
114 | End If |
115 | End Function |
116 | Private Sub Command1_Click() |
117 | Unload Me |
118 | End Sub |
119 | |
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 | End Sub |
126 | Private Sub Command2_Click() |
127 | MpqEx.Mpq.AboutBox |
128 | End Sub |
129 | |
130 | |
131 | Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) |
132 | Label3.ForeColor = &HFF0000 |
133 | Label3.Font.underline = False |
134 | Label4.ForeColor = &HFF0000 |
135 | Label4.Font.underline = False |
136 | End Sub |
137 | Private Sub Form_Load() |
138 | Left = MpqEx.Left + 330 |
139 | If Left < 0 Then Left = 0 |
140 | If Left + Width > Screen.Width Then Left = Screen.Width - Width |
141 | Top = MpqEx.Top + 315 |
142 | If Top < 0 Then Top = 0 |
143 | If Top + Height > Screen.Height Then Top = Screen.Height - Height |
144 | Label1 = Label1 + GetAppVersionString |
145 | End Sub |
146 | Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) |
147 | Label3.ForeColor = &HFF0000 |
148 | Label3.Font.underline = False |
149 | Label4.ForeColor = &HFF0000 |
150 | Label4.Font.underline = False |
151 | End Sub |
152 | Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) |
153 | Label3.ForeColor = &HFF0000 |
154 | Label3.Font.underline = False |
155 | Label4.ForeColor = &HFF0000 |
156 | Label4.Font.underline = False |
157 | End Sub |
158 | Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) |
159 | Label3.ForeColor = &HFF0000 |
160 | Label3.Font.underline = False |
161 | Label4.ForeColor = &HFF0000 |
162 | Label4.Font.underline = False |
163 | End Sub |
164 | Private Sub Label3_Click() |
165 | ShellExecute hWnd, vbNullString, "http://shadowflare.ancillaediting.net/", 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 | End Sub |
176 | Private Sub Label3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) |
177 | Label3.ForeColor = &HFF0000 |
178 | Label3.Font.underline = False |
179 | End Sub |
180 | Private Sub Label4_Click() |
181 | ShellExecute hWnd, vbNullString, "mailto:blakflare@hotmail.com", vbNullString, vbNullString, 1 |
182 | End Sub |
183 | |
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 | End Sub |
193 | |
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 |