Вывод текста

Begin // установить характеристики кисти

With Form1.Canvas do

Пример стилей заполнения областей

Кисть

Карандаш

Карандаш используется для вычерчивания точек, линий, контуров геометрических фигур: прямоугольников, окружностей, эллипсов, дуг и др. Вид линии, которую оставляет карандаш на поверхности холста, определяют свойства объекта треп, которые перечислены в табл. 10.1.

Свойства объекта карандаш

Свойство	Определяет
Color	Цвет линии
Width	Толщину линии
Style	Вид линии
Mode	Режим отображения

Значение свойства Реn.Style определяет вид линии

Константа	Вид линии
psSolid	Сплошная линия
psDash	Пунктирная линия, длинные штрихи
psDot	Пунктирная линия, короткие штрихи
psDashDot	Пунктирная линия, чередование длинного и короткого штрихов
psDashDotDot	Пунктирная линия, чередование одного длинного и двух коротких штрихов
psClear	Линия не отображается (используется, если не надо изображать границу области, например, прямоугольника)

Кисть (canvas.Brush) используется методами, обеспечивающими вычерчивание замкнутых областей, например геометрических фигур, для заливки (закрашивания) этих областей. Кисть, как объект, обладает двумя свойствами:

Свойство	Определяет
Color Style	Цвет закрашивания замкнутой области Стиль (тип) заполнения области

Рисовать на поверхности формы можно процедурой TForm1.FormPaint

procedure TForm1.FormPaint(Sender: TObject);

Для сокращения записи длинных свойств и методов рисования используется команда with:

Bruch.Color:= clRed;

Bruch.Style:= bsDiagrCross;
// нарисовать заштрихованный в клеточку прямоугольник

Rectangle(10,10,100,100);

end;

Для вывода текста на поверхность графического объекта используется метод TextOut.

Инструкция вызова метода TextOut в общем виде выглядит следующим образом:
Объект.Canvas.TextOut(x, у, Текст)
где:
объект — имя объекта, на поверхность которого выводится текст;
х, у — координаты точки графической поверхности, от которой выполняется вывод текста (рис. 10.3);
Текст — переменная или константа символьного типа, значение которой определяет выводимый методом текст.

Свойства объекта TFont

Шрифт определяется значением свойства Font объекта canvas.

Свойство Font представляет собой объект типа TFont.

Свойство	Определяет
Name	Используемый шрифт. В качестве значения следует использовать название шрифта, например Arial
Size	Размер шрифта в пунктах (points). Пункт— это единица измерения размера шрифта, используемая в полиграфии. Один пункт равен 1/72 дюйма
Style	Стиль начертания символов. Константы: fsBold (полужирный), fsltalic (курсив), f sUnderline (подчеркнутый), f sStrikeOut (перечеркнутый). Можно комбинировать необходимые стили. Например, Объект. Canvas. Font. Style: = [fsBold, fs Italic]
Color	Цвет символов. В качестве значения можно использовать константу типа Tcolor

Область вывода текста закрашивается текущим цветом кисти. Поэтому перед выводом текста свойству Brush.Color нужно присвоить значение bsClear или задать цвет кисти, совпадающий с цветом поверхности, на которую выводится текст.

Следующий фрагмент программы демонстрирует использование функции Textout для вывода текста на поверхность формы:

with Form1.Canvas do begin

// установить характеристики шрифта

Font.Name:= 'Tahoma';

Font.Size:= 20;
Font.Style:= [fsltalic, fsBold];
Brush.Style:= bsClear; // область вывода текста не закрашивается
TextOut(0, 10, 'Borland Delphi 7');

end;
После вывода текста методом Textout указатель вывода (карандаш) перемещается в правый верхний угол области вывода текста.

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