From 6f506284b2163864adbb67453d37cc97377267df Mon Sep 17 00:00:00 2001 From: jesus Date: Fri, 19 Sep 2014 16:02:46 +0000 Subject: [PATCH] LazReport, enable I18N for package lr_add_function, issue #26729 git-svn-id: trunk@46253 - --- .../addons/addfunction/lrAddFunctionLibrary.pas | 16 ++++++++++------ .../addons/addfunction/lr_add_function.lpk | 9 +++++---- 2 files changed, 15 insertions(+), 10 deletions(-) diff --git a/components/lazreport/source/addons/addfunction/lrAddFunctionLibrary.pas b/components/lazreport/source/addons/addfunction/lrAddFunctionLibrary.pas index 06fb6d3182..185f8bed4d 100644 --- a/components/lazreport/source/addons/addfunction/lrAddFunctionLibrary.pas +++ b/components/lazreport/source/addons/addfunction/lrAddFunctionLibrary.pas @@ -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; diff --git a/components/lazreport/source/addons/addfunction/lr_add_function.lpk b/components/lazreport/source/addons/addfunction/lr_add_function.lpk index a37129e5d9..a312fb1a3e 100644 --- a/components/lazreport/source/addons/addfunction/lr_add_function.lpk +++ b/components/lazreport/source/addons/addfunction/lr_add_function.lpk @@ -1,4 +1,4 @@ - + @@ -16,9 +16,6 @@ - - - @@ -50,6 +47,10 @@ Ported from add_function_library"/> + + + +