paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:39:09 +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, Classes, SysUtils, FileUtil, LazFileUtils, Forms, Controls, Graphics, Dialogs,
StdCtrls, CheckLst, Buttons, ExtCtrls, ComCtrls, Types, StdCtrls, CheckLst, Buttons, ExtCtrls, ComCtrls, Types,
LCLType, LazUTF8, Translations, LCLType, LazUTF8, Translations,
{$IFnDEF POCHECKERSTANDALONE} {$IFDEF POCHECKERSTANDALONE}
{$ELSE}
{IDEIntf,} MenuIntf, {IDEIntf,} MenuIntf,
{$ENDIF} {$ENDIF}
PoFamilies, ResultDlg, pocheckerconsts, PoCheckerSettings, PoFamilies, ResultDlg, pocheckerconsts, PoCheckerSettings,
@ -890,7 +891,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);