User Function not working after showing Designer

Comments

• madas

  February 2009 edited 12:06PM

  Try this:
  

    begin
      frxReport1.AddFunction( 'Procedure MyFunction' );
      frxReport1.OnUserFunction := frxReport1UserFunction; 
    end;
  

    function TForm2.frxReport1UserFunction(const MethodName: string; var Params: Variant): Variant;
    begin
      Result := -1;
      if (MethodName = 'MyFunction') then
      begin
        showmessage('Hello World');
        Result := 0;
      end;
    end;
  
• Selmeyer

  February 2009 edited 12:06PM

  madas wrote: »

  Try this:
  

    begin
      frxReport1.AddFunction( 'Procedure MyFunction' );
      frxReport1.OnUserFunction := frxReport1UserFunction; 
    end;
  

    function TForm2.frxReport1UserFunction(const MethodName: string; var Params: Variant): Variant;
    begin
      Result := -1;
      if (MethodName = 'MyFunction') then
      begin
        showmessage('Hello World');
        Result := 0;
      end;
    end;
  

  
  Thanks Madas
  I see you add a MethodName check and a Result value
  
  I tried your suggestion but I'm afraid it is still not working.
  
  Do you have any other Idea ?
• Selmeyer

  February 2009 edited 12:06PM

  I still need help on this problem, could any one give me some advise ?
  
  is this a fast report bug ?
• madas

  February 2009 edited 12:06PM

  unit Unit1;
  
  interface
  
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, frxClass, frxDesgn;
  
  type
    TForm1 = class(TForm)
      frxReport1: TfrxReport;
      Button1: TButton;
      Button2: TButton;
      frxDesigner1: TfrxDesigner;
      procedure FormShow(Sender: TObject);
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
      function frxReport1UserFunction(const MethodName: String;
        var Params: Variant): Variant;
    private
      { Private-Deklarationen }
    public
      { Public-Deklarationen }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.FormShow(Sender: TObject);
  begin
    frxReport1.ReportOptions.Name := 'Testreport';
    frxReport1.LoadFromFile('D:\test.fr3');
    frxReport1.AddFunction('function MyFunction: Integer', 'User Function','');
    if not frxReport1.PrepareReport then
    begin
      Sleep(250);
      Application.ProcessMessages;
      if not frxReport1.PrepareReport then
        raise Exception.Create('Druckdokument konnte nicht geladen werden!');
    end;
  end;
  
  procedure TForm1.Button1Click(Sender: TObject);
  begin
    frxReport1.DesignReport;
  end;
  
  procedure TForm1.Button2Click(Sender: TObject);
  begin
    frxReport1.ShowReport();
  end;
  
  function TForm1.frxReport1UserFunction(const MethodName: String; var Params: Variant): Variant;
  begin
    Result := -1;
    if (MethodName = 'MYFUNCTION') then
    begin
      ShowMessage('Test');
      Result := 0;
    end;
  end;
  
  end.
  

  
  once more. try this. [img]style_emoticons/<#EMO_DIR#>/smile.gif" style="vertical-align:middle" emoid=":)" border="0" alt="smile.gif" /> i think the user function must be real function and not a procedure. if the user fucntion is a procedure you cant drag this "function" on to the report within the designer. greetings.[/img]
• Selmeyer

  February 2009 edited 12:06PM

  Thanks Madas,
  
  I'm using a TfrxPreview to Show the report.
  
  it is on the TfrxPreview that the UserFunction does not work after showing Designer.
  
  
  Sorry I didn't mention this, I didn't know that a report can be shown without a preview [img]style_emoticons/<#EMO_DIR#>/tongue.gif" style="vertical-align:middle" emoid=":P" border="0" alt="tongue.gif" /> PS : the UserFunction will work if after I close the designer, I call "frxReport1.ShowReport();" The question is that I would like to skip "frxReport1.ShowReport();" because re-loading the report take sometime.[/img]