fix: use GetApplicationName in InitMoFile as well, plus documentation

ansgarbecker · ansgarbecker · commit 93bf989ac704 · 2025-11-22T17:15:24.000+01:00
Refs #2310
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -433,6 +433,7 @@   TAppSettings = class(TObject)
   function EscapeHotkeyPrefix(Text: String): String;
   function GetFileNameWithoutExtension(Filename: String): String;
   function GetCommandLine: String;
+  // This returns a stable, lowercase name "heidisql", used for configuration files and translations
   function GetApplicationName: String;
 
 var
@@ -2677,7 +2678,7 @@ procedure InitMoFile(LangCode: String);
   if LangCode.IsEmpty then
     LangCode := SysLanguage;
   LocaleDir := AppendPathDelim(ExtractFilePath(Application.ExeName)) + AppendPathDelim('locale');
-  AppLanguageMoBasePath := LocaleDir + LowerCase(APPNAME);
+  AppLanguageMoBasePath := LocaleDir + GetApplicationName;
   MOFileName := '';
   if not LangCode.IsEmpty then begin
     MOFileName := AppLanguageMoBasePath + '.' + LangCode + '.mo';
