<< Нажмите, чтобы показать Содержание >> TCustomRichView.OnSaveHTMLExtra

Позволяет сохранять дополнительную информацию в HTML.

type

  // объявлено в модуле RVStyle/fmxRVStyle

  TRVHTMLSaveArea = (

    rv_thms_Head, rv_thms_BodyAttribute,

    rv_thms_Body, rv_thms_End);

  TRVSaveHTMLExtraEvent = procedure (

    Sender: TCustomRichView; Area: TRVHTMLSaveArea; 

    CSSVersion: Boolean; 

    var HTMLCode: TRVUnicodeString) of object;

 

property OnSaveHTMLExtra: TRVSaveHTMLExtraEvent;

Вызывается при сохранении документа в HTML.

Если HTMLSaveProperties.HTMLSavingType = rvhtmlstNormal, параметр CSSVersion = True.

Если HTMLSaveProperties.HTMLSavingType = rvhtmlstSimplified, параметр CSSVersion = False.

Текст, присвоенный параметру HTMLCode, будет сохранён в HTML.

Area может быть:

Пример:

procedure TMyForm.MyRichViewSaveHTMLExtra(

  Sender: TCustomRichView; Area: TRVHTMLSaveArea;

  CSSVersion: Boolean; var HTMLCode: TRVUnicodeString);

begin

  case Area of

  rv_thms_Head:

    HTMLCode := '<script></script>';

  rv_thms_BodyAttribute:

    HTMLCode := 'alink=#ff0000';

  rv_thms_Body:

    HTMLCode := '<P>Документ создан с помощью '+

    '<A href="https://www.trichview.ru">TRichView</A></P>';

  end;

end;

 

См. также события:

▪OnHTMLSaveImage;

▪OnSaveImage2;

▪OnSaveParaToHTML;

▪OnSaveRTFExtra;

▪OnSaveDocXExtra.

See also:

▪Экспорт HTML.