Guest User

Untitled

a guest
Jan 21st, 2018
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.88 KB | None | 0 0
  1. procedure TForm1.frxReport1Preview(Sender: TObject);
  2. var Button: TSpeedButton;
  3. begin
  4. Button := TSpeedButton.Create(TfrxPreviewForm(TfrxReport(Sender).PreviewForm).ToolBar);
  5. TfrxPreviewForm(TfrxReport(Sender).PreviewForm).ToolBar.InsertControl(Button);
  6. Button.Caption := 'Refresh';
  7. Button.Width := 60;
  8. Button.OnClick := RefreshReport;
  9. end;
  10.  
  11. procedure TForm1.RefreshReport(Sender: TObject);
  12. var
  13. idx: Integer;
  14. begin
  15. for idx := 0 to frxReport1.PagesCount - 1 do
  16. if frxReport1.Pages[idx] is TfrxReportPage then
  17. begin
  18. frxReport1.Pages[idx].Clear;
  19. frxReport1.Pages[idx].AssignAll(frxReport2.Pages[idx], True);
  20. end;
  21. TfrxPreviewForm(TSpeedButton(Sender).Owner.Owner).Report.ShowReport;
  22. end;
  23.  
  24. procedure TForm1.FormCreate(Sender: TObject);
  25. begin
  26. frxReport2.AssignAll(frxReport1, True);
  27. frxReport1.EngineOptions.DestroyForms := False;
  28. frxReport1.ShowReport();
  29. end;
Add Comment
Please, Sign In to add comment