Changeset 463 for branches/highdpi/Packages/CevoComponents/Directories.pas

Timestamp:

Nov 29, 2023, 2:35:44 PM (12 months ago)

Author:

chronos

Message:

• Modified: HighDpi branch updated to trunk version.

File:

• branches/highdpi/Packages/CevoComponents/Directories.pas (modified) (2 diffs)

branches/highdpi/Packages/CevoComponents/Directories.pas

@@ -33 +33 @@
 
   if Lang = '' then begin
-    for i := 1 to Paramcount - 1 do
-      if (ParamStrUTF8(i) = '--LANG') or (ParamStrUTF8(i) = '-l') or
-        (ParamStrUTF8(i) = '--lang') then
-          Lang := ParamStrUTF8(i + 1);
+    for I := 1 to Paramcount - 1 do
+      if (ParamStrUTF8(I) = '--LANG') or (ParamStrUTF8(I) = '-l') or
+        (ParamStrUTF8(I) = '--lang') then
+          Lang := ParamStrUTF8(I + 1);
   end;
   if Lang = '' then begin
@@ -73 +73 @@
         (Dst.Time < Src.Time) then
         CopyFile(SourceDir + DirectorySeparator + Src.Name,
-          DestinationDir + DirectorySeparator + Src.Name, false);
+          DestinationDir + DirectorySeparator + Src.Name, False);
       FindClose(Dst);
     until FindNext(Src) <> 0;