Progress Bar on Report Load

Comments

• Alex_de_Kock Bloemfontein, Free State, South Africa

  November 2012 edited 9:37AM

  Thank you Gavin. :-)
• gpi

  November 2012 edited 9:37AM

  You can't to use progressbar, you don't know how many pages was generated
  You can show what page number prepared at this moment only

  var FormPA: TForm;
      ButtonPA: TButton;                                                     
  procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);
  begin
       FormPA.Caption := IntToStr(<Page>);                                                        
  end;
  
  procedure Page1OnAfterPrint(Sender: TfrxComponent);
  begin
       FormPA.Free;                      
  end;
  
  procedure ButtonPAOnClick(Sender: TfrxComponent);
  begin
       Engine.StopReport;
  end;
  
  begin
      FormPA := TForm.Create(nil);
      FormPA.Height := 200;
      FormPA.Width := 200;
      ButtonPA := TButton.Create(nil);
      ButtonPA.Left := 50;
      ButtonPA.Top := 50;
      ButtonPA.Width := 70;
      ButtonPA.Height := 24;
      ButtonPA.Caption := 'Cancel';
      ButtonPA.Parent := FormPA;
      ButtonPA.OnClick := @ButtonPAOnClick;                                                      
      FormPA.Show;
  end.