Каким образом можно реализовать редактирование TfrxRichView, TfrxPictureView в окне предварительного просмотра посредством стандартных диалоговых окон редактирования TfrxRichView, TfrxPictureView?

Question

Accepted Answer

Используйте код

uses frxRich, frxRichEditor, frxDesgn; 

procedure TForm1.frxReport1ClickObject(Sender: TfrxView; Button: TMouseButton; Shift: TShiftState; var Modified: Boolean); 
begin 
if Sender is TfrxRichView then 
 with TfrxRichEditorForm.Create(Form1) do 
 begin 
 RichView := TfrxRichView(Sender); 
 Modified := ShowModal = mrOk; 
 Free; 
 end; 
end; 

uses frxDesgn, frxEditPicture; 
procedure TForm1.frxReport1ClickObject(Sender: TfrxView; Button: TMouseButton; Shift: TShiftState; var Modified: Boolean); 
begin 
if Sender is TfrxPictureView then with TfrxPictureEditorForm.Create(Form1) do 
begin 
 Image.Picture.Assign(TfrxPictureView(Sender).Picture); 
 Modified := ShowModal = mrOk; 
 if Modified then TfrxPictureView(Sender).Picture.Assign(Image.Picture);
 Free; 
end; 
end;