paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 18:49:19 +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> <Unit3>
<Filename Value="..\pocheckerconsts.pas"/> <Filename Value="..\pocheckerconsts.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="pocheckerconsts"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\pocheckermain.pp"/> <Filename Value="..\pocheckermain.pp"/>
@ -104,7 +103,6 @@
<ComponentName Value="PoCheckerForm"/> <ComponentName Value="PoCheckerForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="pocheckermain"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\graphstat.pp"/> <Filename Value="..\graphstat.pp"/>

7
components/pochecker/pocheckermain.pp
View File

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

3
components/pochecker/pocheckersettings.pp
View File

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