From ff48af6db55fddd88685967a3b92d5c58ebe5ed5 Mon Sep 17 00:00:00 2001
From: BazzaCuda <bazzacuda@gmx.com>
Date: Wed, 26 Apr 2023 15:59:30 +0100
Subject: [PATCH] fixed Alt-RightClick memory leak

---
 CustomMenu.dproj   |  16 ++++++++--------
 CustomMenu.res     | Bin 129780 -> 129780 bytes
 FormCustomMenu.pas |   2 +-
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/CustomMenu.dproj b/CustomMenu.dproj
index 6435cbd..48f9daf 100644
--- a/CustomMenu.dproj
+++ b/CustomMenu.dproj
@@ -140,11 +140,11 @@
         <DCC_Define>UNICODE;$(DCC_Define)</DCC_Define>
         <VerInfo_MajorVer>0</VerInfo_MajorVer>
         <VerInfo_MinorVer>9</VerInfo_MinorVer>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=0.9.3.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.3.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=0.9.4.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.4.0;Comments=</VerInfo_Keys>
         <PostBuildEvent><![CDATA[copy $(OUTPUTPATH) $(PROJECTDIR)\SampleMenu\
 :: copy $(OUTPUTPATH) F:\
 $(PostBuildEvent)]]></PostBuildEvent>
-        <VerInfo_Release>3</VerInfo_Release>
+        <VerInfo_Release>4</VerInfo_Release>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
@@ -207,6 +207,12 @@ $(PostBuildEvent)]]></PostBuildEvent>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="Win64\Debug\CustomMenu.exe" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win64">
+                        <RemoteName>CustomMenu.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile LocalName="menu.png" Configuration="Release" Class="UWP_DelphiLogo44">
                     <Platform Name="Win32">
                         <RemoteDir>Assets\</RemoteDir>
@@ -214,12 +220,6 @@ $(PostBuildEvent)]]></PostBuildEvent>
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployFile LocalName="Win64\Debug\CustomMenu.exe" Configuration="Debug" Class="ProjectOutput">
-                    <Platform Name="Win64">
-                        <RemoteName>CustomMenu.exe</RemoteName>
-                        <Overwrite>true</Overwrite>
-                    </Platform>
-                </DeployFile>
                 <DeployFile LocalName="Win32\Debug\CustomMenu.exe" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
                         <RemoteName>CustomMenu.exe</RemoteName>
diff --git a/CustomMenu.res b/CustomMenu.res
index 8efb3cebfcf26de66656cc01f970291e840aef05..95742a79c54aeb89b36ce84d1cd65c370db024f1 100644
GIT binary patch
delta 38
scmezJmHo?C_6cR2EDW3sAiy%Q{ve~tWJkvRj3&*DOxqcm7(f320QYYT`~Uy|

delta 38
scmezJmHo?C_6cR2%nY0iAizAa{vf0AWJkvRjK<B3Oxqcm7(f320QVyc_y7O^

diff --git a/FormCustomMenu.pas b/FormCustomMenu.pas
index 361fe26..7f6395d 100644
--- a/FormCustomMenu.pas
+++ b/FormCustomMenu.pas
@@ -312,7 +312,7 @@ function buildMenuFromINI(iniFilePath: string; itemData: TList<TItemData>; subMe
   end;
 
 begin
-  case GREFRESH of TRUE: iniFile := NIL; end; // user did Alt-RightClick on desktop to force reload of the ini file
+  case GREFRESH and (iniFile <> NIL) of TRUE: begin iniFile.free; iniFile := NIL; end;end; // user did Alt-RightClick on desktop to force reload of the ini file
   case (iniFile = NIL) and (not fileExists(iniFilePath)) of TRUE: begin result := FALSE; EXIT; end;end;
   case iniFile = NIL of TRUE: iniFile := TStringList.create; end;
   subMenuName := lowerCase(subMenuName); // so that subMenuName comparison isn't case sensitive