trichview.com

trichview.support




Re: Inserting HTML into TRichViewEdit


Return to index


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






Powered by ABC Amber Outlook Express Converter