TFrxRichView Editor

Comments

• gpi

  March 2011 edited 10:56PM

  Try

  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;
  
• MarcoL

  April 2011 edited 10:56PM

  Hello
  
  Thanks a lot. It works.
  Now, I can edit, load and save text at runtime.
  
  But it still doesn't work a Add Expression button. I need it because user can't choose and add dataset fields to text. When I click this button in the Rich Editor Form I get a message ACCESS VIOLATION. If it's not a problem for you please help me.
  
  
  So far I put TFrxRichView inside TFrxMasterData, TFrxMasterData is connected with TFrxDBDataset by TFrxMasterData.Dataset and I put your code in frxReport1ClickObject()
  
  
  Greetings,
  
  Marcol
  
• gpi

  April 2011 edited 10:56PM

  Try

  frxReport1.DesignReportInPanel(Panel1);
       with TfrxRichEditorForm.Create(TfrxDesignerForm(frxReport1.Designer)) do
        begin
          RichView := TfrxRichView(frxReport1.FindObject('Rich1'));
          ShowModal;
          frxReport1.Designer.Close;
          Free;
        end;