Re: Inserting HTML into TRichViewEdit

Author

Message

Todd Cary

Posted: 08/21/2002 17:04:52

Sergey -

Now I am getting close to what I need. In the code below, once I set the

Options to rvteoHTMLCode, it stays that way for all of the Text. Is is possible

to have the Option apply to just the Inserted text; not all of the text?

Todd

procedure TFormSimpleEdit.SpeedButtonInsertHTMLClick(Sender: TObject);

var

InputString: String;

begin

If InputQuery('Insert HTML code', 'HTML code', InputString) Then

Begin

rvs.TextStyles[rve.CurTextStyleNo].Options := [rvteoHTMLCode];

rve.InsertText(InputString);

//rvs.TextStyles[rve.CurTextStyleNo].Options := [rvteoRTFCode];

End;

end;

Todd Cary

Ariste Software

2200 D Street Extension

Petaluma, CA 94952

707-773-4523

todd@aristesoftware.com