frmAddToList.frm

   1 VERSION 4.00
   2 Begin VB.Form frmAddToList
   3    BorderStyle     =   3  'Fixed Dialog
   4    Caption         =   "Add file to listing..."
   5    ClientHeight    =   1695
   6    ClientLeft      =   2190
   7    ClientTop       =   2610
   8    ClientWidth     =   4335
   9    Height          =   2100
  10    Icon            =   "frmAddToList.frx":0000
  11    Left            =   2130
  12    LinkTopic       =   "Form1"
  13    MaxButton       =   0   'False
  14    MinButton       =   0   'False
  15    ScaleHeight     =   1695
  16    ScaleWidth      =   4335
  17    ShowInTaskbar   =   0   'False
  18    Top             =   2265
  19    Width           =   4455
  20    Begin VB.CommandButton Command2
  21       Cancel          =   -1  'True
  22       Caption         =   "&Cancel"
  23       Height          =   375
  24       Left            =   2400
  25       TabIndex        =   3
  26       Top             =   1200
  27       Width           =   1335
  28    End
  29    Begin VB.CommandButton Command1
  30       Caption         =   "O&K"
  31       Default         =   -1  'True
  32       Height          =   375
  33       Left            =   600
  34       TabIndex        =   2
  35       Top             =   1200
  36       Width           =   1335
  37    End
  38    Begin VB.TextBox Text1
  39       Height          =   285
  40       Left            =   120
  41       TabIndex        =   1
  42       Top             =   840
  43       Width           =   4095
  44    End
  45    Begin VB.Label Label1
  46       AutoSize        =   -1  'True
  47       Caption         =   "If you know the name of a file, but it is not listed, type in the name here and it will be added to the list of files shown."
  48       Height          =   585
  49       Left            =   120
  50       TabIndex        =   0
  51       Top             =   120
  52       Width           =   4095
  53       WordWrap        =   -1  'True
  54    End
  55 End
  56 Attribute VB_Name = "frmAddToList"
  57 Attribute VB_Creatable = False
  58 Attribute VB_Exposed = False
  59 Option Explicit
  60
  61 Private Sub Command1_Click()
  62 MpqEx.List.Sorted = False
  63 MpqEx.AddToListing Text1
  64 MpqEx.List.Sorted = True
  65 MpqEx.RemoveDuplicates
  66 Unload Me
  67 End Sub
  68 Private Sub Command2_Click()
  69 Unload Me
  70 End Sub
  71 Private Sub Form_Load()
  72 Left = MpqEx.Left + 330 * 2
  73 If Left < 0 Then Left = 0
  74 If Left + Width > Screen.Width Then Left = Screen.Width - Width
  75 Top = MpqEx.Top + 315 * 2
  76 If Top < 0 Then Top = 0
  77 If Top + Height > Screen.Height Then Top = Screen.Height - Height
  78 End Sub