From 1b7dab97896abd5632ca09f035d8bfd735c11163 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Mon, 22 Jul 2019 22:16:27 +0000
Subject: [PATCH] POChecker: try to translate LCL only if language was switched
 successfully

git-svn-id: trunk@61616 -
---
 components/pochecker/pocheckermain.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/pochecker/pocheckermain.pp b/components/pochecker/pocheckermain.pp
index 9cefb3c747..8b0dc72a31 100644
--- a/components/pochecker/pocheckermain.pp
+++ b/components/pochecker/pocheckermain.pp
@@ -124,8 +124,8 @@ begin
   //debugln('TPoCheckerForm.FormCreate A:');
   {$IFDEF POCHECKERSTANDALONE}
   //Initializing translation
-  SetDefaultLang('', '..' + PathDelim + 'languages', 'pocheckerconsts');
-  TranslateLCLResourceStrings('', SetDirSeparators('../../../lcl/languages/'));
+  if SetDefaultLang('', '..' + PathDelim + 'languages', 'pocheckerconsts') <> '' then
+    TranslateLCLResourceStrings('', SetDirSeparators('../../../lcl/languages/'));
   {$ENDIF}
   ApplyTranslations;
   FillTestListBox;