Update - Version 1.2

Memory free and commit charge % display bugs.

Author: fafalone

MemListMgr.twinproj

@@ -59,12 +59,12 @@
 	"project.startupObject": "Sub Main",
 	"project.targetOsVersion": 327681,
 	"project.versionAutoIncrement": "Build",
-	"project.versionBuild": 27,
+	"project.versionBuild": 32,
 	"project.versionCompanyName": "JAJ Productions",
 	"project.versionFileDescription": "Memory List Manager",
 	"project.versionLegalCopyright": "(c) 2024",
 	"project.versionMajor": 1,
-	"project.versionMinor": 1,
+	"project.versionMinor": 2,
 	"project.versionProductName": "MemoryListManager",
 	"project.versionRevision": 0,
 	"project.warnings": {

Settings

@@ -77,7 +77,7 @@
 			"showGrid": true,
 			"showOutlines": false
 		},
-		"__lastUpdateMarker": 3496957364,
+		"__lastUpdateMarker": 1183689235,
 		"_children": [
 			{
 				"Anchors": {
@@ -615,7 +615,7 @@
 						"ForeColor": -2147483630,
 						"Height": 22,
 						"Index": -1,
-						"Left": 138,
+						"Left": 70,
 						"LinkItem": null,
 						"LinkMode": "vbLinkNone",
 						"LinkTimeout": 50,
@@ -632,7 +632,7 @@
 						"UseMnemonic": true,
 						"Visible": true,
 						"WhatsThisHelpID": 0,
-						"Width": 67,
+						"Width": 135,
 						"WordWrap": false,
 						"_className": "Label",
 						"_clsid": "{33AD4ED8-6699-11CF-B70C-00AA0060D393}",
@@ -3869,7 +3869,7 @@
 				"BackColor": 16777215,
 				"BackStyle": "vbBFOpaque",
 				"BorderStyle": "vbNoBorder",
-				"Caption": "Memory List Manager v1.1",
+				"Caption": "Memory List Manager v1.2",
 				"DataField": null,
 				"DataFormat": null,
 				"DataMember": null,
@@ -3965,7 +3965,7 @@
 				"TabIndex": 12,
 				"TabStop": true,
 				"Tag": null,
-				"Text": "Welcome to Memory List Manager v1.1",
+				"Text": "Welcome to Memory List Manager v1.2",
 				"TextHint": null,
 				"TextHintAlways": false,
 				"ToolTipText": null,

frmMain.tbform

@@ -4,7 +4,7 @@
 Class frmMain
 ' ***********************************************************************
 ' *                                                                     *
-' * Memory List Manager Version 1.1                                     *
+' * Memory List Manager Version 1.2                                     *
 ' * GUI Form                                                            *
 ' *                                                                     *
 ' * See modMemListMgr.twin for full details.                            *
@@ -22,7 +22,7 @@ Class frmMain
     Private Const PAGE_SIZE As LongLong = &H1000
 
     Private Const szHelpTitle = "Memory List Manager"
-    Private Const szHelpHeader = "Memory List Manager v1.1"
+    Private Const szHelpHeader = "Memory List Manager v1.2"
     Private Const szHelpMessage = "This is a small utility to free up memory held in standby and in caches " & _
                                   "by Jon Johnson based code from SystemInformer. Developed in twinBASIC. " & vbcrlf & vbcrlf & _
                                   "For the readme, filing bug reports, original source, and more utilities, visit the project's GitHub repository:" & vbcrlf & _
@@ -302,12 +302,12 @@ Class frmMain
         status = NtQuerySystemInformation(SystemBasicInformation, sbi, LenB(Of SYSTEM_BASIC_INFORMATION), cbRet)
         status = NtQuerySystemInformation(SystemPerformanceInformation, spi, LenB(Of SYSTEM_PERFORMANCE_INFORMATION), cbRet)
         If NT_SUCCESS(status) Then
-            lblFree.Caption = FormatSizeStd((sbi.NumberOfPhysicalPages - spi.AvailablePages) * PAGE_SIZE) & " (" & Round(CSng(spi.AvailablePages) / CSng(sbi.NumberOfPhysicalPages), 0) & "%)"
+            lblFree.Caption = FormatSizeStd((sbi.NumberOfPhysicalPages - spi.AvailablePages) * PAGE_SIZE) & " (" & Round((CSng(spi.AvailablePages) / CSng(sbi.NumberOfPhysicalPages)) * 100, 0) & "%)"
             lblTotal.Caption = FormatSizeStd(sbi.NumberOfPhysicalPages * PAGE_SIZE)
             lblCmtCur.Caption = FormatSizeStd(CLngLng(spi.CommittedPages) * PAGE_SIZE)
             lblCmtPk.Caption = FormatSizeStd(CLngLng(spi.PeakCommitment) * PAGE_SIZE)
             lblCmtLim.Caption = FormatSizeStd(CLngLng(spi.CommitLimit) * PAGE_SIZE)
-            lblCmtPct.Caption = Round(CSng(spi.CommittedPages) / CSng(spi.CommitLimit), 0) & "%"
+            lblCmtPct.Caption = Round((CSng(spi.CommittedPages) / CSng(spi.CommitLimit)) * 100, 0) & "%"
         Else
             lblFree.Caption = "Unknown"
             lblTotal.Caption = "Unknown"

frmMain.twin

@@ -1,7 +1,7 @@
 
 /* ********************************************************************
 *                                                                     *
-* Memory List Manager Version 1.1                                     *
+* Memory List Manager Version 1.2                                     *
 * (Main module)                                                       *
 * A simple tool to free standby memory and flush caches.              *
 *                                                                     *
@@ -34,6 +34,8 @@
 * Project home page: https://github.com/fafalone/MemListMgr           *
 *                                                                     *
 * Changelog                                                           *
+*   Version 1.2 (13 Jun 2024) - Free memory label width and commit    *
+*        charge % regressed from tests to release, displaying wrong   *
 *   Version 1.1 (13 Jun 2024) - SetCursor calls fixed.                *
 *   Version 1.0 (13 Jun 2024) - Initial release.                      *
 *                                                                     *
@@ -79,7 +81,7 @@ Module modMemListMgr
             End If
 
             If NTDDI_VERSION >= NTDDI_WIN7 Then
-                CreateJumpList "MemListMgr.1.0.App.ID"
+                CreateJumpList "MemListMgr.1.2.App.ID"
             End If
 
             frmMain.Show