About.frm

   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