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

pochecker: using new Translation unit. Disable -dUSE_NEW_TRANSLATIONS to get old behaviour. patch #26877 from G. Colla

Browse Source 
git-svn-id: trunk@46579 -
This commit is contained in:
mattias 2014-10-17 16:52:58 +00:00
parent c6766fa690
commit 9889acf86b
5 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/pochecker/Proj/pochecker.lpi
View File

@ -18,6 +18,9 @@
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<MacroValues Count="1">
<Macro1 Name="LCLWidgetType" Value="gtk2"/>
</MacroValues>
<BuildModes Count="2">
<Item1 Name="Release" Default="True"/>
<Item2 Name="Debug">
@ -50,6 +53,9 @@
</Other>
</CompilerOptions>
</Item2>
<SharedMatrixOptions Count="1">
<Item1 ID="187391036578" Modes="Release" Type="IDEMacro" MacroName="LCLWidgetType" Value="gtk2"/>
</SharedMatrixOptions>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
@ -121,7 +127,6 @@
<Unit8>
<Filename Value="..\pofamilylists.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="PoFamilyLists"/>
</Unit8>
<Unit9>
<Filename Value="..\pocheckermemodlg.pp"/>
@ -129,7 +134,6 @@
<ComponentName Value="MemoForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="PoCheckerMemoDlg"/>
</Unit9>
</Units>
</ProjectOptions>
@ -152,7 +156,7 @@
</Options>
</Linking>
<Other>
<CustomOptions Value="-dPoCheckerStandAlone"/>
<CustomOptions Value="-dPoCheckerStandAlone -dUSE_NEW_TRANSLATIONS"/>
</Other>
</CompilerOptions>
<Debugging>

2
components/pochecker/pochecker.lpk
View File

@ -10,7 +10,7 @@
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CustomOptions Value="$(IDEBuildOptions)"/>
<CustomOptions Value="$(IDEBuildOptions) -dUSE_NEW_TRANSLATIONS"/>
</Other>
</CompilerOptions>
<Description Value="Check the validity of translated PO files.

2
components/pochecker/pocheckermain.pp
View File

@ -30,7 +30,7 @@ uses
{$IFDEF POCHECKERSTANDALONE}
Translations,
{$ELSE}
IDEIntf, MenuIntf,
IDEIntf, MenuIntf,{$IFDEF USE_NEW_TRANSLATIONS}Translations,{$ENDIF}
{$ENDIF}
SimplePoFiles, PoFamilies, ResultDlg, pocheckerconsts, PoCheckerSettings,
PoFamilyLists, PoCheckerMemoDlg;

2
components/pochecker/pofamilies.pp
View File

@ -8,7 +8,7 @@ interface
uses
Classes, SysUtils, LCLProc, FileUtil, StringHashList, ContNrs, Math,
Masks, SimplePoFiles, PoCheckerConsts;
Masks,{$IFDEF USE_NEW_TRANSLATIONS}Translations ,{$ENDIF}SimplePoFiles, PoCheckerConsts;
Type

12
components/pochecker/simplepofiles.pp
View File

@ -36,7 +36,17 @@ unit SimplePoFiles;
{ $include include/lcl_defines.inc}
interface
{$IFDEF USE_NEW_TRANSLATIONS}
uses
Classes,sysutils,Translations;
type
TSimplePOFile = class (TPOFile)
end;
implementation
{$ELSE}
uses
Classes, SysUtils, LCLProc, FileUtil, StringHashList
{, LConvEncoding}
@ -141,7 +151,6 @@ function UTF8ToSystemCharSet(const s: string): string; inline;
const
tgHasDup = $01;
implementation
{$ifdef DebugSimplePoFiles}
@ -1295,6 +1304,7 @@ begin
F.Free;
end;
end;
{$ENDIF}
end.