From fe4f0721f2750210d112e609ef2ff4b43f0a58cb Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 19 Dec 2015 14:57:09 +0000 Subject: [PATCH] pochecker: fixed compilation git-svn-id: trunk@50936 - --- components/pochecker/Proj/pochecker.lpi | 2 -- components/pochecker/pocheckermain.pp | 7 +++++-- components/pochecker/pocheckersettings.pp | 3 +++ 3 files changed, 8 insertions(+), 4 deletions(-) diff --git a/components/pochecker/Proj/pochecker.lpi b/components/pochecker/Proj/pochecker.lpi index 1ef803e30e..1be4f95c9f 100644 --- a/components/pochecker/Proj/pochecker.lpi +++ b/components/pochecker/Proj/pochecker.lpi @@ -96,7 +96,6 @@ - @@ -104,7 +103,6 @@ - diff --git a/components/pochecker/pocheckermain.pp b/components/pochecker/pocheckermain.pp index 3046b9b3d0..f29e78bbab 100644 --- a/components/pochecker/pocheckermain.pp +++ b/components/pochecker/pocheckermain.pp @@ -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); diff --git a/components/pochecker/pocheckersettings.pp b/components/pochecker/pocheckersettings.pp index e4e4f03db7..457d2dcf60 100644 --- a/components/pochecker/pocheckersettings.pp +++ b/components/pochecker/pocheckersettings.pp @@ -166,6 +166,9 @@ const pWindowsGeometry = 'General/WindowsGeometry/'; pMasterPoFiles = 'MasterPoFiles/'; pMasterPoSelection = 'MasterPoSelection/'; + {$IFDEF POCHECKERSTANDALONE} + pExternalEditor = 'ExternalEditor/'; + {$ENDIF} var DefaultRect: TRect;