paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 06:38:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

PoChecker: better strategy to find language files (StandAlone version, Windows only).

Browse Source 
git-svn-id: trunk@46484 -
This commit is contained in:
bart 2014-10-08 22:09:06 +00:00
parent 5e184b8492
commit 823ef4b451
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/pochecker/pocheckermain.pp
View File

@ -125,7 +125,7 @@ end;
procedure TPoCheckerForm.FormCreate(Sender: TObject);
{$IFDEF POCHECKERSTANDALONE}
var
Lang, T: string;
Lang, T, AppPath: string;
{$ENDIF}
begin
//debugln('TPoCheckerForm.FormCreate A:');
@ -137,12 +137,18 @@ begin
LCLGetLanguageIDs(Lang, T);
if Lang <> '' then
begin
{$ifdef windows}
AppPath := ExtractFilePath(ParamStr(0));
{$else}
AppPath := '';
{$endif}
Lang := copy(Lang, 1, 2);
Translations.TranslateUnitResourceStrings('PoCheckerConsts',
'..' + DirectorySeparator + 'languages' + DirectorySeparator +
AppPath + '..' + DirectorySeparator + 'languages' + DirectorySeparator +
'pocheckerconsts.' + Lang + '.po');
//requires the user copies the LCLStrConsts translations there!
Translations.TranslateUnitResourceStrings('LCLStrConsts',
'..' + DirectorySeparator + 'languages' + DirectorySeparator +
AppPath + '..' + DirectorySeparator + 'languages' + DirectorySeparator +
'lclstrconsts.' + Lang + '.po');
end;
{$ENDIF}