2) Компонент анимация Avi (tAnimate).

Данный компонент позволяет воспроизвести клип в формате Avi без воспроизведения звука. Загрузить клип можно обратившись к свойству FileName в котором указывается имя файла Avi, или указав в свойстве CommonAvi один из стандартных клипов Windows (например, AvirecycleFile – перемещение файла в корзину, Avinone – имя клипа указано в свойстве FileName).

Свойство Transparent определяет, будет ли клип прозрачным или будет использоваться фоновый цвет. Перед запуском клипа его необходимо открыть, для этого в свойство Open записываем значение True. При этом выполняется загрузка клипа в память и подготовка его к воспроизведению. При открытии клипа генерируется событие OnOpen.

Свойство FrameCount задаёт число кадров в клипе, а свойство FrameWidth и FrameHeight – ширину и высоту кадров в пикселях. Эти размеры одинаковы для всех кадров. Свойство Repetitions – число повторов клипа. Чтобы начать воспроизведение клипа необходимо в свойстве Active установить значение True (при этом генерируется событие OnStart). Прервать показ можно с помощью метода stop (событиеOnstop), сделать текущим 1-й кадр – с помощью метода Reset, показать конкретный кадр – с помощью метода Seek. Нумерация кадров начинается с единицы.

Пример. Воспроизведение клипа по щелчку на кнопке:

Animate.Open:=true;

Animate.Active:=true;

№21. Компоненты страницы Win32. TRichEdit, TMonthCalendar.

1) Компонент текстовый редактор (tRichEdit).

Этот компонент по сравнению с компонентом TMEMo обладает расширенными возможностями, таким как форматирование отдельных абзацев текста, поддержка RTF и другими.

В свойстве Lines можно указать начальное содержимое панели редактора. Форматирование отдельных абзацев, выполняется на основе двух свойств компонента: Paragraph, определяющего характеристики текущего абзаца текста, и SelAttributes, определяющего характеристики выделенного текста.

Свойство Paragraph имеет тип TParaAttributes.

Основные свойства класса TParaAttributes

Свойства	Назначение
Aligment	Выравнивание. Возможные значения: taLeftJustify, taCenter, taRightJustify
FirstIndent, LeftIndent, RightIndent	(Отступ в пикселях) первой строки абзаца, а также поля между его левой и правой границами и границами панели редактора.
Numbering	Превращение текста в список путем добавления с левой стороны маркеров. Такое форматирование происходит, если значение этого свойства устанавливается в nsBullet.

Свойство SelAtributes имеет тип TTextAttributes, состоящий из свойств характерных для класса TFont: CharSet (набор символов), color, Height, Name, Pitch (переменная или фиксированная ширина), Size, Style (стиль).

Дополнительное подсвойство Protected позволяет сделать выделенный текст недоступным для редактирования. Получить позицию курсора помогает метод GetCaretPos, скопировать выделенный текст – метод GetSelText.

Пример. По щелчку на кнопке выделенный текст становится полужирным, увеличивается в размере, оформляется шрифтом Courier и красным цветом.

Pr TForm1.Button1Click(…);

Begin

With RichEdit1.SelAttributes do

Begin

Color:=clRed;

Style:=[FsBold];

Size:=14;;

Name:=’ Courier’;

End;

Чтобы указать объекту RichEdit1 на необходимость сохранения и загрузки текста в формате RTF необходимо значение свойства PlainText (простой текст) установить равным False:

Pr TForm1.Button1Click(…);

Begin

RichEdit1.PlainText:=False;

RichEdit1.Lines.SevetoFile(‘Test,rtf’);

End;