Applies to

TEmailHighlighter component

Declaration

type

  TGetQuoteLevelEvent = procedure(Sender: TObject; Text: PChar;

                                  var QuoteLevel, KeyLen: Integer) of object;

property OnGetQuoteLevel: TGetQuoteLevelEvent;

Description

This event lets your application determine the quote level of a given paragraph.  It is provided to enable implementing complex rules for the quote level, for example based on the author initial at the start of paragraphs.  If it is not used, TEmailHighlighter simply relies on property QuoteChars for that task.

Sender is the TEmailHighlighter component sending the event.  Text is a pointer to the paragraph text, which should be used as a read reference only.  Variable parameters QuoteLevel and KeyLen should be set by the handler to the value of quote level and the length of paragraph start that contains the quote level information.