trichview.com :: View topic - [Unit] Quoting text (like e-mail clients)

trichview.com
TRichView support forums

FAQ

Memberlist

Usergroups

Profile

[Unit] Quoting text (like e-mail clients)

trichview.com Forum Index -> Examples, Demos

View previous topic :: View next topic

Author

Message

Sergey Tkachenko
Site Admin

Joined: 27 Aug 2005
Posts: 6599

Posted: Wed Apr 07, 2010 8:27 pm Post subject: [Unit] Quoting text (like e-mail clients)

http://www.trichview.com/support/files/rvquotetext.zip

Code:

procedure QuoteText(const Prefix: String; MaxLength: Integer; rv: TCustomRichView);

This function quotes all text in rv.
Parameters:
Prefix - text to insert before each line (for example, '>', or 'John>')
MaxLength - length of lines, in pixels. Lines exceeding this width will be separated into smaller lines. Width of Prefix is not taken into account.

This procedure formats document. It is not necessary to format document before calling this procedure.

This is not an editing operation. If it is called for TRichViewEdit, call RichViewEdit.ClearUndo after.

Example:

Code:

QuoteText('>', RichViewEdit1.ClientWidth-50, RichViewEdit1);
RichViewEdit1.ClearUndo;

Sergey Tkachenko
Site Admin

Joined: 27 Aug 2005
Posts: 6599

Posted: Fri May 14, 2010 8:47 pm Post subject:

A bug is fixed.

Display posts from previous:

	trichview.com Forum Index -> Examples, Demos	All times are GMT
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum