Changeset 95 for trunk/Packages/CoolTranslator/UCoolTranslator.pas

Timestamp:

Dec 21, 2014, 3:42:54 PM (10 years ago)

Author:

chronos

Message:

• Added: Simple script to build linux deb package.

File:

• trunk/Packages/CoolTranslator/UCoolTranslator.pas (modified) (4 diffs)

trunk/Packages/CoolTranslator/UCoolTranslator.pas

@@ -150 +150 @@
   I: Integer;
   LocaleShort: string;
+  Dir: string;
 begin
   FPOFiles.Clear;
@@ -157 +158 @@
     //ShowMessage(ExtractFileDir(Application.ExeName) +
     //  DirectorySeparator + 'Languages' + ' ' + '*.' + LocaleShort + '.po');
-    FileList := FindAllFiles(ExtractFileDir(UTF8Encode(Application.ExeName)) +
-      DirectorySeparator + FPOFilesFolder, '*.' + LocaleShort + '.po');
+    Dir := FPOFilesFolder;
+    if Copy(Dir, 1, 1) <> DirectorySeparator then
+      Dir := ExtractFileDir(UTF8Encode(Application.ExeName)) +
+      DirectorySeparator + Dir;
+    FileList := FindAllFiles(Dir, '*.' + LocaleShort + '.po');
     for I := 0 to FileList.Count - 1 do begin
       FileName := FileList[I];
@@ -174 +178 @@
   FPoFilesFolder := AValue;
   ReloadFiles;
+  CheckLanguageFiles;
 end;
 
@@ -359 +364 @@
   Languages := TLanguageList.Create;
   POFilesFolder := 'Languages';
-  CheckLanguageFiles;
 
   // LCL