About.frm

   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.ancillaediting.net/"
  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.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 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