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

pochecker: fixed compilation

Browse Source 
git-svn-id: branches/fixes_1_6@50935 -
This commit is contained in:
mattias 2015-12-19 14:54:59 +00:00
parent 0f593869ee
commit 505523a4b0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/pochecker/pocheckermain.pp
View File

@ -27,7 +27,8 @@ uses
Classes, SysUtils, FileUtil, LazFileUtils, Forms, Controls, Graphics, Dialogs,
StdCtrls, CheckLst, Buttons, ExtCtrls, ComCtrls, Types,
LCLType, LazUTF8, Translations,
{$IFnDEF POCHECKERSTANDALONE}
{$IFDEF POCHECKERSTANDALONE}
{$ELSE}
{IDEIntf,} MenuIntf,
{$ENDIF}
PoFamilies, ResultDlg, pocheckerconsts, PoCheckerSettings,
@ -890,7 +891,7 @@ begin
Lang := GetEnvironmentVariableUTF8('LANG');
T := '';
if Lang = '' then
LCLGetLanguageIDs(Lang, T);
LazGetLanguageIDs(Lang, T);
if Lang <> '' then
begin
//debugln('TPoCheckerForm.GetTranslations: Lang = ',Lang);