Вывод текста

End.

Begin

Begin

Begin

Var

Const

Implementation

Var

Public

Private

Type

Interface

usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

TForm1 = class(TForm)

procedureFormPaint(Sender: TObject);

{ Private declarations}

{ Public declarations )

end;

Form1: TForm1;

{$R *.DFM}

// перерисовка формы

procedureTForm1.FormPaint(Sender: TObject);

bsName: array[1..8]of string =

('bsSolid','bsClear','bsHorizontal',

'bsVertical','bsFDiagonal','bsBDiagonal',

'bsCross','bsDiagCross');

x,y: integer; // координаты левого верхнего угла прямоугольника

w,h: integer; // ширина и высота прямоугольника

bs: TBrushStyle;// стиль заполнения области

k: integer; // номер стиля заполнения

i,j: integer;

w:=40; h:=40; // размер области(прямоугольника)

у:=60;

for i:=l to 2 do

х:=10;

forj:=1 to4 do

k:=j+(i-1)*4; // номер стиля заполнения

casekof

1: bs:= bsSolid;

2: bs:= bsClear;

3: bs:= bsHorizontal;

4: bs:= bsVertical;

5: bs:= bsFDiagonal;

6: bs:= bsBDiagonal;

7: bs:= bsCross;

8: bs:= bsDiagCross;

end;

// вывод прямоугольника

Canvas.Brush.Color := clGreen; // цвет закрашивания – зеленый

Canvas.Brush.Style := bs; // стиль закрашивания

Canvas . Rectangle (x, y, x+w, y-j-h) ;

// вывод названия стиля

Canvas.Brush.Style := bsClear;

Canvas.TextOut(x, y-55, bsName[k]); // вывод названия стиля

x := x+w+30;

end;

у := y+h+30;

end;

end;

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

Объект.Canvas.TextOut(x, у, Текст)

где:

Ø объект – имя объекта, на поверхность которого выводится текст;

Ø х, у – координаты точки графической поверхности, от которой выполняется вывод текста (рис. 10.3);

Ø Текст – перееменная или константа символьного типа, значение которой определяет выводимый методом текст.

Шрифт, который используется для вывода текста, определяется значением свойства Font соответствующего объекта canvas. Свойство Font представляет собой объект типа TFont. В табл. перечислены свойства объекта TFont, позволяющие задать характеристики шрифта, используемого методами TextOut и TextRect для вывода текста.

Таблица .Свойства объекта TFont

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

 

 

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

withForm1.Canvas do