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} |