TRichViewEdit and OLE Objects

Return to index

Author

Message

Alexandr

Posted: 12/30/2004 14:12:00

Does anyone know how to solve the problem of wrong size and background color

of equation (OLE), after  inserting?

  oc := TOleContainer.Create(nil);

  oc.Visible := False;

  oc.BorderStyle := bsNone;

  oc.Parent := RichViewEdit1;

  oc.InsertObjectDialog;

  oc.SizeMode := smAutoSize;

  oc.OnResize := OnOleResize;

  oc.OnActivate := OnOleActivate;

  oc.OnDeactivate := OnOleDeactivate;

  oc.Visible := True;

  oc.OnMouseDown :=OnOleMouseDown;

  oc.OnMouseMove:=OnOleMouseMove;

  RichViewEdit1.InsertControl('', oc,rvvaBaseline);

  if RichViewEdit1.CurItemStyle=rvsComponent then

  richViewEdit1.SetCurrentItemExtraIntProperty(rvepResizable,1,true);

  oc.DoVerb(ovShow);

Is there any possibility in RichViewEdit to export/import OLE Objects into/from

RTF as OLEs and export OLE Objects into HTML as pictures?

Thanks.