diff --git a/CustomMenu.dproj b/CustomMenu.dproj index 6435cbd..48f9daf 100644 --- a/CustomMenu.dproj +++ b/CustomMenu.dproj @@ -140,11 +140,11 @@ UNICODE;$(DCC_Define) 0 9 - CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=0.9.3.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.3.0;Comments= + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=0.9.4.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=0.9.4.0;Comments= - 3 + 4 @@ -207,6 +207,12 @@ $(PostBuildEvent)]]> true + + + CustomMenu.exe + true + + Assets\ @@ -214,12 +220,6 @@ $(PostBuildEvent)]]> true - - - CustomMenu.exe - true - - CustomMenu.exe diff --git a/CustomMenu.res b/CustomMenu.res index 8efb3ce..95742a7 100644 Binary files a/CustomMenu.res and b/CustomMenu.res differ 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; 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