IErAnalyzerTitle.SetSel

Синтаксис Fore

SetSel(Begin_: Integer; End_: Integer);

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

SetSel(@Begin: integer; @End: integer);

Параметры

Begin_. Начальная позиция выделенного фрагмента в заголовке;

End_. Конечная позиция выделенного фрагмента в заголовке.

Описание

Метод SetSel выделяет необходимый фрагмент в заголовке экспресс-отчета.

Пример Fore

Для выполнения примера в репозитории необходимо наличие формы, содержащей компоненты:

ErAnalyzerTitle с идентификатором «ErAnalyzerTitle1»;
UiErAnalyzer с идентификатором «UiErAnalyzer1», который является источником данных для «ErAnalyzerTitle1».

В качестве источника данных для «UiErAnalyzer1» должен быть экспресс-отчет с включенным заголовком.

Sub UserProc;
Var
    Xaml: String;
Begin
    // Переведем заголовок в режим редактирования
    ErAnalyzerTitle1.StartEdit;
    // Выделим фрагмент заголовка
    ErAnalyzerTitle1.SetSel(ErAnalyzerTitle1.BeginSel + 1, ErAnalyzerTitle1.EndSel - 1);
    // Вырежем выделенный фрагмент
    ErAnalyzerTitle1.Cut;
    // Вставим наименование измерения
    ErAnalyzerTitle1.InsertSelection;
    // Вставим наименование экспресс-отчета
    ErAnalyzerTitle1.InsertName;
    // Вставим текущее время
    ErAnalyzerTitle1.InsertTime;
    // Вставим текущую дату
    ErAnalyzerTitle1.InsertDate;
    // Вставим заданный текст
    ErAnalyzerTitle1.InsertText("Added_text");
    // Вставим вырезанный фрагмент
    ErAnalyzerTitle1.Paste;
    // Установим жирный, подчеркнутый курсив
    ErAnalyzerTitle1.Bold := True;
    ErAnalyzerTitle1.Italic := True;
    ErAnalyzerTitle1.Underline := True;
    // Установим размер и семейство шрифта
    ErAnalyzerTitle1.FontSize := 20;
    ErAnalyzerTitle1.FontFamily := "Arial";
    // Выделим заголовок полностью
    ErAnalyzerTitle1.SelectAll;
    // Скопируем текст заголовка в буфер обмена
    ErAnalyzerTitle1.Copy;
    // Вставим в заголовок
    ErAnalyzerTitle1.Paste;
    // Получим текст заголовка в формате RTF
    Xaml := ErAnalyzerTitle1.Xaml;
    // Выведем в окно консоли текст заголовка, предназначенного для представления в формате RTF
    Debug.WriteLine("Текст заголовка, предназначенного для представления в формате RTF - " + Xaml);
    // Закончим редактирование заголовка
    ErAnalyzerTitle1.EndEdit;
End Sub UserProc;

После выполнения примера для заголовка экспресс-отчета будут применены вышеуказанные свойства и методы.

Пример Fore.NET

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

Sub UserProc();
Var
    Xaml: String;
Begin
    // Переведем заголовок в режим редактирования
    ErAnalyzerTitleNet1.CtrlBox.StartEdit();
    // Выделим фрагмент заголовка
    ErAnalyzerTitleNet1.CtrlBox.SetSel(ErAnalyzerTitleNet1.CtrlBox.BeginSel + 1, ErAnalyzerTitleNet1.CtrlBox.EndSel - 1);
    // Вырежем выделенный фрагмент
    ErAnalyzerTitleNet1.CtrlBox.Cut();
    // Вставим наименование измерения
    ErAnalyzerTitleNet1.CtrlBox.InsertSelection();
    // Вставим наименование экспресс-отчета
    ErAnalyzerTitleNet1.CtrlBox.InsertName();
    // Вставим текущее время
    ErAnalyzerTitleNet1.CtrlBox.InsertTime();
    // Вставим текущую дату
    ErAnalyzerTitleNet1.CtrlBox.InsertDate();
    // Вставим заданный текст
    ErAnalyzerTitleNet1.CtrlBox.InsertText("Added_text");
    // Вставим вырезанный фрагмент
    ErAnalyzerTitleNet1.CtrlBox.Paste();
    // Установим жирный, подчеркнутый курсив
    ErAnalyzerTitleNet1.CtrlBox.Bold := True;
    ErAnalyzerTitleNet1.CtrlBox.Italic := True;
    ErAnalyzerTitleNet1.CtrlBox.Underline := True;
    // Установим размер и семейство шрифта
    ErAnalyzerTitleNet1.CtrlBox.FontSize := 20;
    ErAnalyzerTitleNet1.CtrlBox.FontFamily := "Arial";
    // Выделим заголовок полностью
    ErAnalyzerTitleNet1.CtrlBox.SelectAll();
    // Скопируем заголовок в буфер обмена
    ErAnalyzerTitleNet1.CtrlBox.Copy();
    // Вставим в заголовок
    ErAnalyzerTitleNet1.CtrlBox.Paste();
    // Получим текст заголовка в формате RTF
    Xaml := ErAnalyzerTitleNet1.CtrlBox.Xaml;
    // Выведем в окно консоли текст заголовка в формате RTF
    System.Diagnostics.Debug.WriteLine("Текст заголовка, предназначенного для представления в формате RTF - " + Xaml);
    // Выведем в окно консоли текст заголовка, предназначенного для представления в формате RTF
    ErAnalyzerTitleNet1.CtrlBox.EndEdit();
End Sub UserProc;

См. также:

IErAnalyzerTitle