|
Lines 205-211
Link Here
|
| 205 |
var |
205 |
var |
| 206 |
sr: TSearchRec; |
206 |
sr: TSearchRec; |
| 207 |
begin |
207 |
begin |
| 208 |
Result:=FindFirstUtf8(dir + ExtractFileNameOnly(ParamStrUtf8(0)) + '.*', faAnyFile, sr) = 0; |
208 |
{ Hardcode localization file names! } |
|
|
209 |
{Result:=FindFirstUtf8(dir + ExtractFileNameOnly(ParamStrUtf8(0)) + '.*', faAnyFile, sr) = 0;} |
| 210 |
Result:=FindFirstUtf8(dir + 'transgui.*', faAnyFile, sr) = 0; |
| 209 |
FindClose(sr); |
211 |
FindClose(sr); |
| 210 |
end; |
212 |
end; |
| 211 |
|
213 |
|
|
Lines 216-229
Link Here
|
| 216 |
if FDefaultLangDir = '' then begin |
218 |
if FDefaultLangDir = '' then begin |
| 217 |
FDefaultLangDir:=ExtractFilePath(ParamStrUtf8(0)) + 'lang' + DirectorySeparator; |
219 |
FDefaultLangDir:=ExtractFilePath(ParamStrUtf8(0)) + 'lang' + DirectorySeparator; |
| 218 |
{$ifdef unix} |
220 |
{$ifdef unix} |
| 219 |
if not _IsLangDir(FDefaultLangDir) then begin |
221 |
if not _IsLangDir(FDefaultLangDir) then |
|
|
222 |
begin |
| 220 |
s:='/usr/share/' + ExtractFileNameOnly(ParamStrUtf8(0)) + '/lang/'; |
223 |
s:='/usr/share/' + ExtractFileNameOnly(ParamStrUtf8(0)) + '/lang/'; |
| 221 |
if _IsLangDir(s) then |
224 |
if _IsLangDir(s) then |
| 222 |
FDefaultLangDir:=s |
225 |
FDefaultLangDir:=s |
| 223 |
else begin |
226 |
else |
|
|
227 |
begin |
| 224 |
s:='/usr/local/share/' + ExtractFileNameOnly(ParamStrUtf8(0)) + '/lang/'; |
228 |
s:='/usr/local/share/' + ExtractFileNameOnly(ParamStrUtf8(0)) + '/lang/'; |
| 225 |
if _IsLangDir(s) then |
229 |
if _IsLangDir(s) then |
|
|
230 |
begin |
| 226 |
FDefaultLangDir:=s; |
231 |
FDefaultLangDir:=s; |
|
|
232 |
end |
| 233 |
else |
| 234 |
begin |
| 235 |
{Pascal paramstr() totally IGNORES symlinks. |
| 236 |
So we need to hardcode LANG dir location if we use transgui->transgui-qt5 symlink} |
| 237 |
s:= '/usr/share/transgui/lang/'; |
| 238 |
if _IsLangDir(s) then |
| 239 |
begin |
| 240 |
FDefaultLangDir:=s; |
| 241 |
end; |
| 242 |
end; |
| 227 |
end; |
243 |
end; |
| 228 |
end; |
244 |
end; |
| 229 |
{$endif unix} |
245 |
{$endif unix} |
