Вывод текста

End.

Begin

Begin

Begin

Var

Const

Implementation

Var

Public

Private

Type

Interface

uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

TForm1 = class (TForm)

procedure FormPaint(Sender: TObject);

{ Private declarations}

{ Public declarations)

end;

Form1: TForm1;

{$R *.DFM}

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

procedure TForm1.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;

for j:=1 to 4 do

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

case k of

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 для вывода текста на поверхность формы:

with Form1.Canvas do

Дата добавления: 2014-11-16