|
<< Нажмите, чтобы показать Содержание >> TCustomRichView.OnSaveParaToHTML |
Позволяет добавлять свой HTML-код при сохранении абзацев в формате HTML.
type
TRVSaveParaToHTMLEvent =
procedure (Sender: TCustomRichView;
RVData: TCustomRVData; ItemNo: Integer;
ParaStart, CSSVersion: Boolean;
var HTMLCode: TRVUnicodeString) of object;
property OnSaveParaToHTML: TRVSaveParaToHTMLEvent;
Входные параметры:
ParaStart:
▪True, если текст будет вставлен перед абзацем (перед <p>, <div> или <li>),
▪False, если текст будет вставлен после абзаца (после </p>, </div> или </li>).
RVData, ItemNo задают расположение. Если ParaStart=True, ItemNo – номер первого элемента абзаца (в RVData). Если False, это номер первого элемента следующего абзаца (или RVData.ItemCount для последнего абзаца).
RVData может быть RVData основного TRichView, ячейка, или RVData редактора ячейки)
Выходные параметры:
HTMLCode – строка для вставки.
Пример: помещение каждого абзаца в свою таблицу.
procedure TMyForm.MyRichViewSaveParaToHTML(Sender: TCustomRichView;
RVData: TCustomRVData; ItemNo: Integer; ParaStart,
CSSVersion: Boolean; var HTMLCode: TRVUnicodeString);
begin
if ParaStart then
HTMLCode := '<table border=1 width=100%><tr><td>'
else
HTMLCode := '</td></tr></table>'
end;
Это событие объявлено в секции public, поэтому обработчик можно назначить только в коде.
См. также: