TCustomRichView.OnSaveRTFExtra

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

TCustomRichView.OnSaveRTFExtra

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

type

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

  TRVRTFSaveArea = 

    (rv_rtfs_TextStyle, rv_rtfs_ParaStyle, rv_rtfs_ListStyle, 

    rv_rtfs_StyleTemplate, rv_rtfs_StyleTemplateText, 

    rv_rtfs_CellProps, rv_rtfs_RowProps, rv_rtfs_Doc);

 TRVSaveRTFExtraEvent = procedure (Sender: TCustomRichView;

   Area: TRVRTFSaveArea; Obj: TObject;

   Index1, Index2: Integer;

   InStyleSheet: Boolean; var RTFCode: TRVUnicodeString) of object;

 

property OnSaveRTFExtra: TRVSaveRTFExtraEvent;

Вызывается при сохранении документа в RTF (SaveRTF, SaveRTFToStream).

Текст, возвращённый в параметре RTFCode, будет сохранён в RTF.

Area задаёт место, куда будет вставлено значение RTFCode. Значения Index1, Index2 и Obj зависят от Area.

Area

Описание

rv_rtfs_TextStyle

Вызывается при сохранении стиля текста.
Index1 – номер элемента в коллекции TextStyles, Obj – объект стиля текста

Если InStyleSheet=True, этот стиль сохраняется как часть таблицы стилей (если RTF сохраняется с опцией rvrtfSaveStyleSheet).

rv_rtfs_ParaStyle

Вызывается при сохранении стиля абзаца.
Index1 – номер элемента в коллекции ParaStyles, Obj – объект стиля абзаца.

Если InStyleSheet=True, этот стиль сохраняется как часть таблицы стилей (если RTF сохраняется с опцией rvrtfSaveStyleSheet).

rv_rtfs_ListStyle

Вызывается при сохранении стиля списка.
Index1 – номер элемента в коллекции ListStyles.
Index2 равен -1 при сохранении описания списка, или равен номеру уровня списка при сохранении уровня.
Obj – объект стиля списка

rv_rtfs_StyleTemplate

Вызывается при сохранении шаблона стиля в таблицу стилей.

Index1 – номер элемента в коллекции StyleTemplates.

Index2 = -1

Obj – объект шаблона стиля.

rv_rtfs_StyleTemplateText

Вызывается при сохранении шаблона стиля в таблицу стилей как дополнительного элемента (содержащего только свойства текста), связанного с основным элементом таблицы стилей. Такие дополнительные элементы создаются для шаблонов стиля, имеющих Kind = rvstkParaText.

Index1 – номер элемента в коллекции StyleTemplates.

Index2 = -1

Obj – объект шаблона стиля.

rv_rtfs_CellProps

Вызывается при сохранении свойств ячейки таблицы.
Index1 = номер строки, Index2 = номер столбца, Obj – таблица.

rv_rtfs_RowProps

Вызывается при сохранении свойств строки таблицы.
Index1 = номер строки, Obj – таблица.

rv_rtfs_Doc

Вызывается для сохранения дополнительной информации в начале документа.

Пример:

procedure TMyForm.MyRichViewSaveRTFExtra(

  Sender: TCustomRichView; Area: TRVRTFSaveArea;

  Obj: TObject; Index1, Index2: Integer;

  InStyleSheet: Boolean; var RTFCode: TRVAnsiString);

begin

  if Area=rv_rtfs_Doc then

    RTFCode := '\paperw11906\paperh16838\margl567\'+

      'margr567\margt567\margb567';

end;

Этот пример сохраняет размер страницы = A4 и поля = 1 cm.

См. также свойства:

▪DocParameters.

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

▪OnSaveDocXExtra;

▪OnSaveHTMLExtra.