- Timestamp:
- Dec 21, 2014, 3:42:54 PM (10 years ago)
- Location:
- trunk
- Files:
-
- 12 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Packages/CoolTranslator/UCoolTranslator.pas
r33 r95 150 150 I: Integer; 151 151 LocaleShort: string; 152 Dir: string; 152 153 begin 153 154 FPOFiles.Clear; … … 157 158 //ShowMessage(ExtractFileDir(Application.ExeName) + 158 159 // DirectorySeparator + 'Languages' + ' ' + '*.' + LocaleShort + '.po'); 159 FileList := FindAllFiles(ExtractFileDir(UTF8Encode(Application.ExeName)) + 160 DirectorySeparator + FPOFilesFolder, '*.' + LocaleShort + '.po'); 160 Dir := FPOFilesFolder; 161 if Copy(Dir, 1, 1) <> DirectorySeparator then 162 Dir := ExtractFileDir(UTF8Encode(Application.ExeName)) + 163 DirectorySeparator + Dir; 164 FileList := FindAllFiles(Dir, '*.' + LocaleShort + '.po'); 161 165 for I := 0 to FileList.Count - 1 do begin 162 166 FileName := FileList[I]; … … 174 178 FPoFilesFolder := AValue; 175 179 ReloadFiles; 180 CheckLanguageFiles; 176 181 end; 177 182 … … 359 364 Languages := TLanguageList.Create; 360 365 POFilesFolder := 'Languages'; 361 CheckLanguageFiles;362 366 363 367 // LCL -
trunk/UCore.pas
r94 r95 333 333 I: Integer; 334 334 begin 335 {$IFDEF Linux} 336 // If installed in Linux system then use installation directory for po files 337 if Application.ExeName = '/usr/bin/xtactics' then 338 CoolTranslator1.POFilesFolder := '/usr/share/xtactics/languages'; 339 {$ENDIF} 335 340 FInitialized := True; 336 341 LoadConfig;
Note:
See TracChangeset
for help on using the changeset viewer.