Оператором

Уничтожение списка в текущем абзаце осуществляется

RichEditl->Paragraph->Numbering = nsNone;

Свойство ScrollBars определяет наличие полос прокрутки текста в

окне. По умолчанию ScrollBars = ssNone, что означает их отсутствие.

Пользователь может в этом случае перемещаться по тексту только с

помощью курсора. Можно задать свойству ScrollBars значения ssHorizontal,

ssVertical или ssBoth, что будет соответственно означать наличие

горизонтальной, вертикальной или обеих полос прокрутки.

Основное свойство окон Memo и RichEdit — Lines, содержащее текст

окна в виде списка строк и имеющее тип TStrings. Рассмотрим основные

свойства и методы, используемые в свойстве Lines.

Весь текст, представленный одной строкой типа String, внутри которой

используются разделители типа символов возврата каретки и перевода

строки, содержится в свойстве Text.

Доступ к отдельной строке текста вы можете получить с помощью

свойства Strings[int Index ]. Индексы начинаются с 0. Так Memol->Lines-

>Strings[0] — это текст первой строки.

Свойство только для чтения Count указывает число строк в тексте.

Для очистки текста в окне надо выполнить процедуру Clear. Этот метод

относится к самому окну, а не к его свойству Lines.

Для занесения новой строки в конец текста окна редактирования можно

воспользоваться методами Add или Append свойства Lines. Для загрузки

текста из файла применяется метод LoadFromFile. Сохранение текста в файле

осуществляется методом SaveToFile.

Примеры:

Пусть, например, в приложении имеется окно редактирования Editl, в

котором пользователь вводит имя сотрудника, и есть кнопка, при щелчке на

которой в окно Memol должна занестись шапка характеристики этого

сотрудника, после чего пользователь может заполнить текст характеристики.

Обработчик щелчка на кнопке может иметь вид:

Memol->Clear();

Memol->Lines->Add("ХА Р А К Т Е Р И С Т И К А ");

Memol->Lines->Add("Сотрудник "+Editl->Text);

Memol->SetFocus();

В компоненте RichEdit тот же фрагмент может выглядеть иначе.

Можно, например, строки «Характеристика» и «Сотрудник...» выделить

жирным шрифтом и выровнять по центру, после чего вернуться к стилю по

умолчанию. Код, выполняющий подобные операции, может иметь вид:

RichEditl->Clear ();

/* установка выравнивания по центру */

RichEditl->Paragraph->Alignment = taCenter;

/* установка жирного шрифта */

RichEditl->SelAttributes->Style << fsBold;

RichEditl->Lines->Add("X А Р А К Т Е Р И С Т И К А ");

RichEditl->Lines->Add("Сотрудник "+Editl->Text);,

/* восстановление атрибутов по умолчанию */

RichEditl->SelAttributes -> Assign(RichEditl-

>DefAttributes);

/* установка выравнивания по левому краю */

RichEditl->Paragraph->Alignment = taLeftJustifу;

/*Загрузка в окно RichEdit 1 текста из файла (например, хранящейся в

файле характеристики сотрудника)*/

RichEdit!->Lines->LoadFromFile("text.rtf");

Дата добавления: 2014-01-05