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

Комментарии

• -=Den=-

  August 2006 отредактировано 03:48

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

  
  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

  August 2006 отредактировано 03:48

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

  August 2006 отредактировано 03:48

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