david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
37 lines
838 B
ObjectPascal
37 lines
838 B
ObjectPascal
unit AreaCustomFunc;
|
|
|
|
interface
|
|
|
|
procedure RegisterCustomFunction;
|
|
|
|
implementation
|
|
|
|
uses cxExcelConst, cxSSFormulas;
|
|
|
|
procedure AreaFunc(Sender: TcxSSFunctionHandler);
|
|
procedure AreaFuncCallBack(Sender: TcxSSFunctionHandler; const Value: Double);
|
|
begin
|
|
if Sender.CallBackIndex = 0 then
|
|
Sender.FloatValue := Value
|
|
else
|
|
Sender.FloatValue := Sender.FloatValue * Value;
|
|
end;
|
|
begin
|
|
Sender.EnumParamValues(@AreaFuncCallBack, [vtFloat]);
|
|
Sender.SetFloatResult(Sender.FloatValue);
|
|
end;
|
|
|
|
procedure RegisterCustomFunction;
|
|
const
|
|
cxFuncDefinition: TcxFuncDefinition =
|
|
(Token: $FFFF-1; Name: 'Area'; Definition: AreaFunc; Params: fpFixed; ParamsCount: 2);
|
|
begin
|
|
TcxSSFunctionHandler.RegisterFunctions([cxFuncDefinition]);
|
|
end;
|
|
|
|
initialization
|
|
|
|
RegisterCustomFunction;
|
|
|
|
end.
|