ITabRange.IsRtfText

Синтаксис Fore

IsRtfText: Boolean;

Синтаксис Fore.NET

IsRtfText: boolean;

Описание

Свойство IsRtfText определяет, будет ли оформление и текст храниться в RTF-формате.

Комментарии

Допустимые значения:

Для получения/изменения текста в RTF-формате используйте свойство ITabRange.Text. Так как для представления текста в RTF-формате требуются специальные значения спецификации этого формата, то для облегчения работы с ним в Fore был реализован специальный класс - TextConverter. Методы данного класса позволяют производить конвертацию и получить RTF-представление из более понятных форматов, таких как XAML, HTML.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiTabSheet с наименованием «UiTabSheet1», который является источником для TabSheetBox.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    TSheet: ITabSheet;
    TRange: ITabRange;
    Converter: ITextConverter;
    HTMLtext: String = "<span style=""font-size: 8pt;color: #000000;text-align: left;font-family: Arial; "">" +
    "<span style=""color: #ff0000;font-size: 10pt;font-family: inherit;"">Важный </span>" +
    "<span style=""color: #0000ff;font-style: italic;font-size: 8pt;font-family: inherit;"">текст</span></span>";
Begin
    TSheet := UiTabSheet1.TabSheet;
    TRange := TSheet.ParseCell("A0");
    TRange.IsRtfText := True;
    Converter := New TextConverter.Create;
    TRange.Value := "Важный текст";
    TRange.Text := Converter.Export(HTMLText, TextFormat.Rtf);
End Sub Button1OnClick;

При нажатии на кнопку для ячейки «A0» будет задан форматированный текст. Текст устанавливается путем преобразования из HTML в RTF-формат.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.Tab;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    TSheet: ITabSheet;
    TRange: ITabRange;
    Converter: ITextConverter = New TextConverterClass();
    HTMLtext: String = "<span style=""font-size: 8pt;color: #000000;text-align: left;font-family: Arial; "">" +
    "<span style=""color: #ff0000;font-size: 10pt;font-family: inherit;"">Важный </span>" +
    "<span style=""color: #0000ff;font-style: italic;font-size: 8pt;font-family: inherit;"">текст</span></span>";
Begin
    TSheet := UiTabSheetNet1.TabSheetUi.TabSheet;
    TRange := TSheet.ParseCell("A0");
    TRange.IsRtfText := True;
    TRange.Value := "Важный текст";
    TRange.Text := Converter.Export(HTMLText, TextFormat.Rtf);
End Sub;

См. также:

ITabRange