Редактирование готового отчета!

serg_borodin

Отчет построен через TFrxRichView. Я хочу мышкой кликнуть на готовом отчете и чтобы у меня открылся RichEdit, где я смогу отредактировать сформированный отчет. Как это сделать? В дизайнере отчета данный редактор великолепно открывается, а вот как его вызвать в просмотре?

-=Den=-

Можно по клику на объекте предпросмотра вызвать стандартный редактор.

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frxRich, frxClass,frxRichEditor,frxRes;

type
  TForm1 = class(TForm)
    frxReport1: TfrxReport;
    frxRichObject1: TfrxRichObject;
    procedure frxReport1ClickObject(Sender: TfrxView; Button: TMouseButton;
      Shift: TShiftState; var Modified: Boolean);
  end;

var
  Form1: TForm1;

implementation


procedure TForm1.frxReport1ClickObject(Sender: TfrxView;
  Button: TMouseButton; Shift: TShiftState; var Modified: Boolean);
var
  RichEditForm:TfrxRichEditorForm;
  RichObj:TfrxRichView;
begin
 if Sender Is TfrxRichView then
    begin
      RichObj := TfrxRichView(Sender);
      RichEditForm := TfrxRichEditorForm.Create(self);
      RichEditForm.RichView := TfrxRichView.Create(RichEditForm);
      RichEditForm.RichView.AssignAll(RichObj);
      if RichEditForm.ShowModal = mrOk  then
         RichObj.AssignAll(RichEditForm.RichView);
      frxReport1.Preview.Invalidate;
      RichEditForm.Free;

    end;
end;


end.

serg_borodin

Спасибо, получилось!
Еще один вопрос.
А как это запретить.
У меня в одном отчете можно редактировать, а в другом эту возможность нельзя давать. Как это сделать?

-=Den=-

Устанавите у RichView свойство Restriction в rfDontModify, а вкоде проверяйте:
if not (rfDontModify in RichObj.Restriction) then ...