Current News Archived News Search News Discussion Forum Old Forum Install Programs More Downloads... Troubleshooting Source Code Format Specs. Misc. Information Non-SF Stuff Links Small banner for links to this site: |
diff --git a/frmAddToList.frm b/frmAddToList.frm
--- a/frmAddToList.frm
+++ b/frmAddToList.frm
-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\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
|