Властивість TextOut Текст

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

 

де:

- об'єкт — ім'я об'єкту, на поверхню якого виводиться текст;

- х, у — координати точки графічної поверхні, від якої виконується виведення тексту (мал. 3);

- Текст — змінна або константа символьного типа, значення якої визначає текст, що виводиться методом.

Рисунок 3 Координати області виведення тексту

 

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

 

Властивості об'єкту TFont

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

 

Методи

procedure Arc (XI, Yl, Х2, Y2, ХЗ, Y3, Х4, Y4: Integer);	Метод малює сегмент еліпса. Еліпс визначається прямокутник­, що описує, (X1, Y1) -(X2, Y2); його розміри повинні лежати в діапазоні від 2 до 32767 точок. Початкова точка сегменту лежить на перетині еліпса і променя, проведеного з його центру через точку(X3.Y3). Кінцева точка сегменту лежить на перетині еліпса і променя, проведеного з його центру через точку(X4.Y4). Сегмент малюється проти годинникової стрілки.
procedure Chord(Xl, Yl, Х2, Y2, ХЗ, Y3, Х4, Y4: Integer);	Малює хорду і заливає частину еліпса, що відсікається нею. Еліпс, початкова і кінцева точки визначаються, як в методі Arc.
procedure EllipsefXl, Yl, Х2, Y2: Integer);	Малює і зафарбовує еліпс, вписаний в прямокутник(X1.Y1), -(X2.Y2).
procedure LineTo(X, Y: Integer);	Проводить лінію поточним пером з поточної точки в(X, Y).
procedure MoveTo(X, Y: Integer);	Переміщає поточне положення пера(властивість PenPos) в точку(X, Y).
procedure FillRect(const Rect: TRect);	Робить заливку прямокутника(поточною кистю).
procedure FrameRectfconst Rect: TRect);	Робить контур прямокутника кольором поточної кисті(без заповнення).
procedure Pie (XI, Yl, Х2, Y2, ХЗ, Y3, Х4, Y4: Integers-	Малює сектор еліпса, що описується прямокутником(X1, Y1), -(X2, Y2). Сторони сектора лежать на променях, що проходять з центру еліпса через точки(X3.Y3) і(X4, Y4).
procedure Polygon(const Points: array of TPoint);	Будує багатокутник, використовуючи масив координат точок Points. При цьому остання точка з'єднується з першою і внутрішня область зафарбовується.
procedure Polyline(const Points: array of TPoint);	Будує ламану лінію, використовуючи масив координат точок Points.
procedure Rectangle(XI, Yl, Х2, Y2: Integer);	Малює прямокутник з верхнім лівим кутом в(XI, Y1) і нижнім правим в(X2.Y2).
procedure RoundRect (XI, Yl, Х2, Y2, ХЗ, Y3: Integer);	Малює прямокутник із закругленими кутами. Координати вершин — ті ж, що і в методі Rectangle. Закруглення малюються як сегменти еліпса з розмірами осей по горизонталі і вертикалі ХЗ і Y3.

Більше методів джерело http://www.cyberguru.ru/delphi/delphi-components-part1-page26.html

 

Зразок 1 програми малювання сніговика (без мітли J)

 

unit Unit4;

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

 

type

TForm1 = class(TForm)

btn1: TButton;

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

begin

canvas.Pen.Color:=claqua;

canvas.Brush.Color:=clAqua;

canvas.Ellipse(200,200,400,400);

canvas.Ellipse(250,100,350,200);

canvas.Ellipse(280,60,320,100);

canvas.Pen.Color:=clred;

canvas.Brush.Color:=clred;

canvas.Rectangle(280,30,320,60);

canvas.MoveTo(260,120);

canvas.LineTo(200,100);

canvas.MoveTo(340,120);

canvas.LineTo(400,100);

canvas.MoveTo(290,75);

canvas.LineTo(250,77);

canvas.LineTo(290,79);

canvas.LineTo(290,75);

canvas.FloodFill(285,77,clred,fsborder);

end;

 

end.