1.64

----
 - Fixed a bug that caused an overflow error message when opening an archive containing files with totals that were too large to fit in the data type that I originally chose.  This has been changed to handle larger sizes.

diff --git a/WINMPQ.VBP b/WINMPQ.VBP
index 89dafdb..c50d1bd 100644 (file)
--- a/WINMPQ.VBP
+++ b/WINMPQ.VBP
@@ -26,7 +26,7 @@ HelpContextID="0"
 StartMode=0
 VersionCompatible32="0"
 MajorVer=1
-MinorVer=63
+MinorVer=64
 RevisionVer=0
 AutoIncrementVer=0
 ServerSupportFiles=0

diff --git a/WinMPQ.rtf b/WinMPQ.rtf
index 3afbf24..8c7d860 100644 (file)
--- a/WinMPQ.rtf
+++ b/WinMPQ.rtf
@@ -1,6 +1,6 @@
 {\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2 Arial;}{\f1\fswiss\fprq2\fcharset0 Arial;}{\f2\fmodern\fprq1 Courier New;}{\f3\fnil\fcharset2 Symbol;}}\r
 {\colortbl ;\red0\green0\blue0;}\r
-\viewkind4\uc1\pard\b\f0\fs36 WinMPQ v1.\f1 63\b0\f0\fs20\par\r
+\viewkind4\uc1\pard\b\f0\fs36 WinMPQ v1.\f1 64\b0\f0\fs20\par\r
 \par\r
 \pard\li360 This program is an mpq archiver I \f1 started\f0  as an example of a program using the Mpq Control\f1 , but it now uses SFmpq directly\f0 .  It currently has many features and is one of the best mpq archivers around.\par\r
 \pard\par\r
@@ -152,6 +152,9 @@ NOTE: Each file that a MoPaQ can hold (the FileLimit) takes up 16 bytes in the M
 \pard\par\r
 \ul\b\fs24 Version history\ulnone\b0\fs20\par\r
 \par\r
+\ul\b 1.\f1 64\f0 _________\par\r
+\pard{\pntext\f3\'B7\tab}{\*\pn\pnlvlblt\pnf3\pnindent720{\pntxtb\'B7}}\fi-720\li720\ulnone\b0\f1 Fixed a bug that caused an overflow error message when opening an archive containing files with totals that were too large to fit in the data type that I originally chose.  This has been changed to handle larger sizes.\f0\par\r
+\pard\par\r
 \ul\b 1.\f1 63\f0 __________\par\r
 \pard{\pntext\f3\'B7\tab}{\*\pn\pnlvlblt\pnf3\pnindent720{\pntxtb\'B7}}\fi-720\li720\ulnone\b0\f1 Fixed a bug that caused an overflow error message when opening an archive containing certain numbers of files; especially on Chinese, Japanese, and Korean Windows versions.\f0\par\r
 \f1{\pntext\f3\'B7\tab}Added an option to set the block size for new archives.\f0\par\r

diff --git a/listing.frm b/listing.frm
index 5ed59c2..a257dd8 100644 (file)
--- a/listing.frm
+++ b/listing.frm
@@ -1755,10 +1755,11 @@ Do While fNum <= List.ListItems.Count - 1
 Loop
 End Sub
 Sub ShowSelected()
-Dim fNum As Long, nSelect As Long, sSize As Long, fSize As Long, L2 As String, hMPQ As Long, hFile As Long
+Dim fNum As Long, nSelect As Long, sSize As Currency, fSize As Long, L2 As String, hMPQ As Long, hFile As Long
 On Error GoTo NotSelected
 List.SelectedItem.Tag = List.SelectedItem.Tag
 On Error GoTo 0
+On Error Resume Next
 For fNum = 1 To List.ListItems.Count
     If List.ListItems.Item(fNum).Selected Then
         nSelect = nSelect + 1
@@ -1792,12 +1793,14 @@ ElseIf sSize = 0 Then
 Else
     StatBar.Panels.Item(1).Text = "Selected " + CStr(nSelect) + " files, " + CStr(Int(sSize / 1024)) + "KB"
 End If
+On Error GoTo 0
 Exit Sub
 NotSelected:
 StatBar.Panels.Item(1).Text = "Selected 0 files, 0KB"
 End Sub
 Sub ShowTotal()
-Dim fNum As Long, nFiles As Long, tSize As Long
+Dim fNum As Long, nFiles As Long, tSize As Currency
+On Error Resume Next
 For fNum = 1 To List.ListItems.Count
     nFiles = nFiles + 1
     If List.ListItems.Item(fNum).ListSubItems(1).Text <> "" Then
@@ -1809,6 +1812,7 @@ If tSize / 1024 > 0 And tSize / 1024 < 1 Then
 Else
     StatBar.Panels.Item(2).Text = "Total " + CStr(nFiles) + "/" + CStr(GetNumMpqFiles(CD.FileName)) + " files, " + CStr(Int(tSize / 1024)) + "KB"
 End If
+On Error GoTo 0
 End Sub
 Private Sub cmdGo_Click()
 StatBar.Style = 1