Я храню отчет в BLOb, и диалоги "Открыть файл"/"Сохранить файл" в дизайнере мне не нужны.
Question: Я храню отчет в BLOb, и диалоги "Открыть файл"/"Сохранить файл" в дизайнере мне не нужны.
Answer:
У компонента TfrDesigner есть соответствующие события: OnLoadReport и OnSaveReport. Маленький пример:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
procedure TForm1.frDesigner1LoadReport(Report: TfrReport; var ReportName: String; var Opened: Boolean); begin with MyOpenDialog do begin Opened := ShowModal = mrOk; if Opened then begin Report.LoadFromBlobField(...); ReportName := ...; end; end; end; procedure TForm1.frDesigner1SaveReport(Report: TfrReport; var ReportName: String; SaveAs: Boolean; var Saved: Boolean); begin if SaveAs then with MySaveDialog do begin Saved := ShowModal = mrOk; if Saved then begin Report.SaveToBlobField(...); ReportName := ...; end; end else Report.SaveToBlobField(...); end; |