Skip to content

Commit fa3efc6

Browse files
authored
Update - Version 1.2
Memory free and commit charge % display bugs.
1 parent a5c2700 commit fa3efc6

File tree

5 files changed

+15
-13
lines changed

5 files changed

+15
-13
lines changed

MemListMgr.twinproj

182 Bytes
Binary file not shown.

Settings

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -59,12 +59,12 @@
5959
"project.startupObject": "Sub Main",
6060
"project.targetOsVersion": 327681,
6161
"project.versionAutoIncrement": "Build",
62-
"project.versionBuild": 27,
62+
"project.versionBuild": 32,
6363
"project.versionCompanyName": "JAJ Productions",
6464
"project.versionFileDescription": "Memory List Manager",
6565
"project.versionLegalCopyright": "(c) 2024",
6666
"project.versionMajor": 1,
67-
"project.versionMinor": 1,
67+
"project.versionMinor": 2,
6868
"project.versionProductName": "MemoryListManager",
6969
"project.versionRevision": 0,
7070
"project.warnings": {

frmMain.tbform

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -77,7 +77,7 @@
7777
"showGrid": true,
7878
"showOutlines": false
7979
},
80-
"__lastUpdateMarker": 3496957364,
80+
"__lastUpdateMarker": 1183689235,
8181
"_children": [
8282
{
8383
"Anchors": {
@@ -615,7 +615,7 @@
615615
"ForeColor": -2147483630,
616616
"Height": 22,
617617
"Index": -1,
618-
"Left": 138,
618+
"Left": 70,
619619
"LinkItem": null,
620620
"LinkMode": "vbLinkNone",
621621
"LinkTimeout": 50,
@@ -632,7 +632,7 @@
632632
"UseMnemonic": true,
633633
"Visible": true,
634634
"WhatsThisHelpID": 0,
635-
"Width": 67,
635+
"Width": 135,
636636
"WordWrap": false,
637637
"_className": "Label",
638638
"_clsid": "{33AD4ED8-6699-11CF-B70C-00AA0060D393}",
@@ -3869,7 +3869,7 @@
38693869
"BackColor": 16777215,
38703870
"BackStyle": "vbBFOpaque",
38713871
"BorderStyle": "vbNoBorder",
3872-
"Caption": "Memory List Manager v1.1",
3872+
"Caption": "Memory List Manager v1.2",
38733873
"DataField": null,
38743874
"DataFormat": null,
38753875
"DataMember": null,
@@ -3965,7 +3965,7 @@
39653965
"TabIndex": 12,
39663966
"TabStop": true,
39673967
"Tag": null,
3968-
"Text": "Welcome to Memory List Manager v1.1",
3968+
"Text": "Welcome to Memory List Manager v1.2",
39693969
"TextHint": null,
39703970
"TextHintAlways": false,
39713971
"ToolTipText": null,

frmMain.twin

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
Class frmMain
55
' ***********************************************************************
66
' * *
7-
' * Memory List Manager Version 1.1 *
7+
' * Memory List Manager Version 1.2 *
88
' * GUI Form *
99
' * *
1010
' * See modMemListMgr.twin for full details. *
@@ -22,7 +22,7 @@ Class frmMain
2222
Private Const PAGE_SIZE As LongLong = &H1000
2323

2424
Private Const szHelpTitle = "Memory List Manager"
25-
Private Const szHelpHeader = "Memory List Manager v1.1"
25+
Private Const szHelpHeader = "Memory List Manager v1.2"
2626
Private Const szHelpMessage = "This is a small utility to free up memory held in standby and in caches " & _
2727
"by Jon Johnson based code from SystemInformer. Developed in twinBASIC. " & vbcrlf & vbcrlf & _
2828
"For the readme, filing bug reports, original source, and more utilities, visit the project's GitHub repository:" & vbcrlf & _
@@ -302,12 +302,12 @@ Class frmMain
302302
status = NtQuerySystemInformation(SystemBasicInformation, sbi, LenB(Of SYSTEM_BASIC_INFORMATION), cbRet)
303303
status = NtQuerySystemInformation(SystemPerformanceInformation, spi, LenB(Of SYSTEM_PERFORMANCE_INFORMATION), cbRet)
304304
If NT_SUCCESS(status) Then
305-
lblFree.Caption = FormatSizeStd((sbi.NumberOfPhysicalPages - spi.AvailablePages) * PAGE_SIZE) & " (" & Round(CSng(spi.AvailablePages) / CSng(sbi.NumberOfPhysicalPages), 0) & "%)"
305+
lblFree.Caption = FormatSizeStd((sbi.NumberOfPhysicalPages - spi.AvailablePages) * PAGE_SIZE) & " (" & Round((CSng(spi.AvailablePages) / CSng(sbi.NumberOfPhysicalPages)) * 100, 0) & "%)"
306306
lblTotal.Caption = FormatSizeStd(sbi.NumberOfPhysicalPages * PAGE_SIZE)
307307
lblCmtCur.Caption = FormatSizeStd(CLngLng(spi.CommittedPages) * PAGE_SIZE)
308308
lblCmtPk.Caption = FormatSizeStd(CLngLng(spi.PeakCommitment) * PAGE_SIZE)
309309
lblCmtLim.Caption = FormatSizeStd(CLngLng(spi.CommitLimit) * PAGE_SIZE)
310-
lblCmtPct.Caption = Round(CSng(spi.CommittedPages) / CSng(spi.CommitLimit), 0) & "%"
310+
lblCmtPct.Caption = Round((CSng(spi.CommittedPages) / CSng(spi.CommitLimit)) * 100, 0) & "%"
311311
Else
312312
lblFree.Caption = "Unknown"
313313
lblTotal.Caption = "Unknown"

modMemListMgr.twin

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11

22
/* ********************************************************************
33
* *
4-
* Memory List Manager Version 1.1 *
4+
* Memory List Manager Version 1.2 *
55
* (Main module) *
66
* A simple tool to free standby memory and flush caches. *
77
* *
@@ -34,6 +34,8 @@
3434
* Project home page: https://github.com/fafalone/MemListMgr *
3535
* *
3636
* Changelog *
37+
* Version 1.2 (13 Jun 2024) - Free memory label width and commit *
38+
* charge % regressed from tests to release, displaying wrong *
3739
* Version 1.1 (13 Jun 2024) - SetCursor calls fixed. *
3840
* Version 1.0 (13 Jun 2024) - Initial release. *
3941
* *
@@ -79,7 +81,7 @@ Module modMemListMgr
7981
End If
8082

8183
If NTDDI_VERSION >= NTDDI_WIN7 Then
82-
CreateJumpList "MemListMgr.1.0.App.ID"
84+
CreateJumpList "MemListMgr.1.2.App.ID"
8385
End If
8486

8587
frmMain.Show

0 commit comments

Comments
 (0)