Changeset 456 for trunk/Packages/Common/Translator.pas

Timestamp:

May 30, 2023, 11:31:10 AM (18 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from unit names.

File:

• trunk/Packages/Common/Translator.pas (moved) (moved from trunk/Packages/Common/UTranslator.pas ) (12 diffs)

trunk/Packages/Common/Translator.pas

@@ -1 @@
-unit UTranslator;
+unit Translator;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, ExtCtrls, Controls, LazFileUtils, LazUTF8,
-  Translations, TypInfo, Dialogs, FileUtil, LCLProc, ULanguages, LCLType,
+  Translations, TypInfo, Dialogs, FileUtil, LCLProc, Languages, LCLType,
   LCLVersion, Generics.Collections;
 
@@ -420 +420 @@
 
   if Lang = '' then begin
-    for I := 1 to Paramcount - 1 do
-      if (ParamStr(I) = '--LANG') or (ParamStr(I) = '-l') or
-        (ParamStr(I) = '--lang') then
-        Lang := ParamStr(I + 1);
+    for i := 1 to Paramcount - 1 do
+      if (ParamStr(i) = '--LANG') or (ParamStr(i) = '-l') or
+        (ParamStr(i) = '--lang') then
+        Lang := ParamStr(i + 1);
   end;
   if Lang = '' then begin
@@ -473 +473 @@
       DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' + DirectorySeparator + LangID +
       DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator
       + LangID + DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator
@@ -489 +489 @@
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
 
     {$IFDEF UNIX}
@@ -496 +496 @@
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
     {$ENDIF}
     // Let us search for reducted files
-    LangShortID := Copy(LangID, 1, 2);
+    LangShortID := copy(LangID, 1, 2);
     // At first, check all was checked
     Result := ExtractFilePath(ParamStrUTF8(0)) + LangShortID +
       DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' + DirectorySeparator +
@@ -510 +510 @@
       ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator
@@ -516 +516 @@
       ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator
@@ -522 +522 @@
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
 
     // Full language in file name - this will be default for the project
@@ -529 +529 @@
       Result := ExtractFilePath(ParamStrUTF8(0)) + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
       if FileExistsUTF8(Result) then
-        Exit;
+        exit;
       // Common location (like in Lazarus)
       Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator +
         ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
       if FileExistsUTF8(Result) then
-        Exit;
+        exit;
 
       Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' +
         DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
       if FileExistsUTF8(Result) then
-        Exit;
+        exit;
     except
       Result := ''; // Or do something else (useless)
@@ -548 +548 @@
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
     {$ENDIF}
     Result := ExtractFilePath(ParamStrUTF8(0)) + ChangeFileExt(
       ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator +
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
 
     Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' + DirectorySeparator +
       ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
     if FileExistsUTF8(Result) then
-      Exit;
+      exit;
   end;
 
@@ -569 +569 @@
 end;
 
-
 end.
-