![]() КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Вывод текста
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
Следующий фрагмент программы демонстрирует использование функции Textout для вывода текста на поверхность формы: with Form1.Canvas do
Дата добавления: 2014-11-16; Просмотров: 453; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |