1.66

[WinMPQ.git] / frmAddToList.frm

VERSION 4.00\r
Begin VB.Form frmAddToList \r
   BorderStyle     =   3  'Fixed Dialog\r
   Caption         =   "Add file to listing..."\r
   ClientHeight    =   1695\r
   ClientLeft      =   2190\r
   ClientTop       =   2610\r
   ClientWidth     =   4335\r
   Height          =   2100\r
   Icon            =   "frmAddToList.frx":0000\r
   Left            =   2130\r
   LinkTopic       =   "Form1"\r
   MaxButton       =   0   'False\r
   MinButton       =   0   'False\r
   ScaleHeight     =   1695\r
   ScaleWidth      =   4335\r
   ShowInTaskbar   =   0   'False\r
   Top             =   2265\r
   Width           =   4455\r
   Begin VB.CommandButton Command2 \r
      Cancel          =   -1  'True\r
      Caption         =   "&Cancel"\r
      Height          =   375\r
      Left            =   2400\r
      TabIndex        =   3\r
      Top             =   1200\r
      Width           =   1335\r
   End\r
   Begin VB.CommandButton Command1 \r
      Caption         =   "O&K"\r
      Default         =   -1  'True\r
      Height          =   375\r
      Left            =   600\r
      TabIndex        =   2\r
      Top             =   1200\r
      Width           =   1335\r
   End\r
   Begin VB.TextBox Text1 \r
      Height          =   285\r
      Left            =   120\r
      TabIndex        =   1\r
      Top             =   840\r
      Width           =   4095\r
   End\r
   Begin VB.Label Label1 \r
      AutoSize        =   -1  'True\r
      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
      Height          =   585\r
      Left            =   120\r
      TabIndex        =   0\r
      Top             =   120\r
      Width           =   4095\r
      WordWrap        =   -1  'True\r
   End\r
End\r
Attribute VB_Name = "frmAddToList"\r
Attribute VB_Creatable = False\r
Attribute VB_Exposed = False\r
Option Explicit\r
\r
Private Sub Command1_Click()\r
MpqEx.List.Sorted = False\r
MpqEx.AddToListing Text1\r
MpqEx.List.Sorted = True\r
MpqEx.RemoveDuplicates\r
Unload Me\r
End Sub\r
Private Sub Command2_Click()\r
Unload Me\r
End Sub\r
Private Sub Form_Load()\r
Left = MpqEx.Left + 330 * 2\r
If Left < 0 Then Left = 0\r
If Left + Width > Screen.Width Then Left = Screen.Width - Width\r
Top = MpqEx.Top + 315 * 2\r
If Top < 0 Then Top = 0\r
If Top + Height > Screen.Height Then Top = Screen.Height - Height\r
End Sub\r