X-Git-Url: https://sfsrealm.hopto.org/projects/gitweb.cgi?a=blobdiff_plain;f=frmAddToList.frm;h=3a744d167142d8c90cc6224f743817e1f196bb01;hb=7080cab8ef2172c14f05504154a2d292ded378d9;hp=6741c90da339b160a5abcc635ea67622771492f2;hpb=62046253535cb1df0280f7e331d2f76b0fbf2d17;p=WinMPQ.git

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