Fast Report no me deja programar eventos

[JoAnCa]

Ya supe que es porque la version de FastReport q viene con el RAD Studio 10, tiene esa opcion deshabilitada, parta habilitarla hay q comprar la version completa

Lo q necesito hacer es, q en dependencia del valor de una fila, me muestre los numeros con 2 o 4 decimales
De q forma se podra hacer sin recurrir a los eventos?

[Casimiro Noteví]

Empezado por JoAnCa

Ya supe que es porque la version de FastReport q viene con el RAD Studio 10, tiene esa opcion deshabilitada, parta habilitarla hay q comprar la version completa

¿En serio?

[[AgustinOrtu]]

Si, es la llamada versión Embarcadero Edition
Una forma de hacerlo es usando funciones

Te debo para más tarde un ejemplo que desde el teléfono es imposible, pero se ha tratado el tema en estos foros

[Casimiro Noteví]

Empezado por AgustinOrtu

Si, es la llamada versión Embarcadero Edition

¿Es una versión de prueba?

[[AgustinOrtu]]

Empezado por Casimiro Notevi

¿Es una versión de prueba?

No, no es de prueba, solamente que no tiene todas las caracteristicas habilitadas

Aca hay una tabla comparativa

Con respecto al post, primero hay que agregar la declaracion de la funcion al reporte:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  frxReport1.AddFunction('function FuncionA: string;'); // sin parametros
  frxReport1.AddFunction('function FuncionB(const Value: Variant): string;'); // con un parametro
  frxReport1.AddFunction('function FuncionC(const Value1, Value2..ValueN: Variant): string;'); // con n parametros

  frxReport1.AddFunction('function FuncionD: Integer;'); // otro tipo de retorno
end;

Luego hay un evento que hay que implementar, el OnUserFunction:

Código Delphi [-]
function TForm1.frxReport1UserFunction(const MethodName: string; var Params: Variant): Variant;
begin
  if MethodName = 'FUNCIONA' then // siempre en mayuscula
    Result := 'Funcion A'
  else if MethodName = 'FuncionB' then
   Result := IntToStr(Params[0])
  else if MethodName = 'FuncionC' then // puedo llamar a otra funcion sin problemas
   Result := CalcularFuncionC(Params[0], Params[1])
end;

Luego pones un Memo en el Reporte, y en su text lo siguiente:

Código Delphi [-]
[NOMBREFUNCION(Param1, Param2, ParamN)]

[FUNCIONA)]

[FUNCIONB(Param1)]

[JoAnCa]

Muchas gracias, tendre en cuenta tu sugerencia, aunque resolvi con este codigo q me ayudo Egostar

Código Delphi [-]
procedure TModuloReport.frIndicadoresBeforePrint(Sender: TfrxReportComponent);
var
  Plan, Real  :TfrxMemoView;
  Fila        :Integer;
 
begin
  Fila := frdsIndicadores.DataSet.FieldByName('Fila').AsInteger;
  Plan := frIndicadores.FindObject('frdsCertificoPlan') as TfrxMemoView;
  Real := frIndicadores.FindObject('frdsCertificoReal') as TfrxMemoView;
  if Fila = 10 then
    begin
      Plan.DisplayFormat.FormatStr:='0.0000';
      Real.DisplayFormat.FormatStr:='0.0000';
    end
  else
    begin
      Plan.DisplayFormat.FormatStr:='#,##0.00';
      Real.DisplayFormat.FormatStr:='#,##0.00';
    end;
end;