Программный файл: ...\Samples\Solution\OLE\Rtf.scx

В данном примере иллюстрируется использование внешнего Контрола RichText, с помощью которого можно просматривать или редактировать текстовые Фрагменты в формате RTF, размещаемые в полях типа MEMO некоторой Таблицы.

Вы можете установить напрямую значение свойства ControlSource для контрола RichText в виде некоторого ТекстовогоПоля, но не поля типа memo. Вместо этого, создайте произвольное Свойства для Формы, в которое будет загружаться копия указанного поля типа MEMO, тем самым вы осуществите соединение (интерфейс) контрола RichText с указанным полем memo.

Для загрузки текста в формате RTF в поле типа MEMO

  1. Определите источник данных, свойство ControlSource контрола RichText, как некоторое свойство Формы.

      CopyCode imageКопировать Код 
    THISFORM.oleRTF.ControlSource = THISFORM.cText

  2. Загрузите содержание поля memo  = в созданное пользовательское свойство Формы.

      CopyCode imageКопировать Код 
    THISFORM.cText = rtf.source

  3. Перед перемещением указателя Записи Таблицы, сохраните значение свойства TextRTF - в соответствующем поле memo.

      CopyCode imageКопировать Код 
    REPLACE rtf.Source WITH THISFORM.oleRTF.TextRTF

Текст, размещаемый в соответствующем Поле MEMO имеет стандартный формат RTF, например:

{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss Arial;}{\f3\fswiss Arial;}} {\colortbl\red0\green0\blue0;\red255\green0\blue0;} \deflang1033\pard\qc\plain\f3\fs32\i The RichTextBox Control \par \pard\plain\f3\fs20

См. также