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:
| 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 |