paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 09:36:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

pochecker: fixed compilation

Browse Source 
git-svn-id: trunk@50936 -
This commit is contained in:
mattias 2015-12-19 14:57:09 +00:00
parent 1b0314f516
commit fe4f0721f2
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/pochecker/Proj/pochecker.lpi
View File

@ -96,7 +96,6 @@
<Unit3>
<Filename Value="..\pocheckerconsts.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="pocheckerconsts"/>
</Unit3>
<Unit4>
<Filename Value="..\pocheckermain.pp"/>
@ -104,7 +103,6 @@
<ComponentName Value="PoCheckerForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="pocheckermain"/>
</Unit4>
<Unit5>
<Filename Value="..\graphstat.pp"/>

7
components/pochecker/pocheckermain.pp
View File

@ -819,7 +819,10 @@ end;
{$IFDEF POCHECKERSTANDALONE}
function TPoCheckerForm.GetTranslationsSearchPath: String;
var
EnvVar, CfgLocal, CfgGlobal, AppPath: String;
EnvVar, CfgLocal, CfgGlobal: String;
{$if defined(windows) and not defined(wince)}
AppPath: String;
{$ENDIF}
begin
Result := FPoCheckerSettings.LangPath;
EnvVar := GetEnvironmentVariableUtf8('pochecker-langpath');
@ -890,7 +893,7 @@ begin
Lang := GetEnvironmentVariableUTF8('LANG');
T := '';
if Lang = '' then
LCLGetLanguageIDs(Lang, T);
LazGetLanguageIDs(Lang, T);
if Lang <> '' then
begin
//debugln('TPoCheckerForm.GetTranslations: Lang = ',Lang);

3
components/pochecker/pocheckersettings.pp
View File

@ -166,6 +166,9 @@ const
pWindowsGeometry = 'General/WindowsGeometry/';
pMasterPoFiles = 'MasterPoFiles/';
pMasterPoSelection = 'MasterPoSelection/';
{$IFDEF POCHECKERSTANDALONE}
pExternalEditor = 'ExternalEditor/';
{$ENDIF}
var
DefaultRect: TRect;