frmAddToList.frm

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