paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, enable I18N for package lr_add_function, issue #26729

Browse Source 
git-svn-id: trunk@46253 -
This commit is contained in:
jesus 2014-09-19 16:02:46 +00:00
parent 15a5b4a591
commit 6f506284b2
2 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazreport/source/addons/addfunction/lrAddFunctionLibrary.pas
View File

@ -33,6 +33,7 @@ type
procedure DoInitOther;
public
constructor Create; override;
procedure UpdateDescriptions; override;
procedure DoFunction(FNo: Integer; p1, p2, p3: Variant; var val: Variant);override;
end;
@ -262,13 +263,16 @@ begin
Add('VALIDINT');
Add('WORDCOUNT');
Add('WORDPOSITION');
end;
DoInitStr;
DoInitNum;
DoInitDate;
DoInitSQL;
DoInitMath;
DoInitOther;
procedure TAddFunctionLibrary.UpdateDescriptions;
begin
DoInitStr;
DoInitNum;
DoInitDate;
DoInitSQL;
DoInitMath;
DoInitOther;
end;
procedure TAddFunctionLibrary.DoFunction(FNo: Integer; p1, p2, p3: Variant;

9
components/lazreport/source/addons/addfunction/lr_add_function.lpk
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="4">
<PathDelim Value="\"/>
@ -16,9 +16,6 @@
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Description Value="Additional functions available to LazReport reports
Ported from add_function_library"/>
@ -50,6 +47,10 @@ Ported from add_function_library"/>
<UnitName Value="frFuncStr"/>
</Item6>
</Files>
<i18n>
<EnableI18N Value="True"/>
<OutDir Value="languages"/>
</i18n>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">
<Item1>