About.frm

   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