600, 0 (0, 0) У 0, 450 Х
В Delphi существует классы для использования графических средств: • canvas • font • pen • brush
Свойства Canvas Brush Стиль заливки Color Цвет текста Height Высота шрифта в пикселях Name Название шрифта Size Размер шрифта в пунктах Style Pen Цвет заливки Style Font Color Стиль (курсив, жирный и т. д. ) Color Цвет линии Style Стиль линии сплошная, пунктир и т. д. Width Ширина линии в точках
Методы Canvas Ellipse(x 1, y 1, x 2, y 2) Заполненный эллипс Move. To(x, y) Установка в заданную позицию Line. To(x, y) Линия до заданной точки Polygon(Point[x, y], Point(x 1, y 1)]) Закрашенный Многоугольник с заданными вершинами Poly. Line(Point[x, y], Point(x 1, y 1)]) Незакрашенный многоугольник Rectangle(x 1, y 1, x 2, y 2) Закр прямоугольник Text. Out(x, y, ’Text’) Вывод текста в заданном месте Text. Height(‘Text’) Выдает высоту текста Text. Width(‘Text’) Выдает ширину текста
Проект 1. Нарисовать снеговика
600, 0 Х 1, Y 1 Х 2, Y 2 0, 450 Надпись Canvas. Brush. Style: =Bs. Clear; Canvas. Font. Size: =16; Canvas. Font. Style: =[fs. Bold, fs. Underli ne]; Canvas. Font. Color: =cl. Navy Canvas. Text. Out(400, 60, ' Снеговик’) procedure TForm 1. Button 1 Click(Sender: TObject); begin canvas. Pen. Color: =claqua; canvas. Brush. Color: =cl. Aqua; тулови canvas. Ellipse (x 1, y 1, x 2, y 2); ще canvas. Ellipse(. . . ); . . . canvas. Pen. Color: =cl. Red; шапка canvas. Brush. Color: =cl. Red; canvas. Rectangle (x 1, y 1, x 2, y 2); canvas. Move. To(260, 120); canvas. Line. To(200, 100); руки canvas. Move. To(340, 120); canvas. Line. To(400, 100); . . . canvas. Move. To(290, 75); canvas. Line. To(250, 80); нос canvas. Line. To(. . . ); canvas. Flood. Fill(285, 77, clred, fsborder); ……… end;
Значение свойства Color определяет цвет линии Константа Цвет cl. Black cl. Silver cl. Maroon Черный Серебристый Каштановый cl. Navy cl. Fuchsia cl. Purple Темно-синий Ярко-розовый Розовый cl. Red cl. Green cl. Lime cl. Olive cl. Blue Красный Зеленый Салатный Оливковый Синий cl. Aqua cl. Teal cl. White cl. Gray Бирюзовый Зелено-голубой Белый Серый Свойство width задает толщину линии (в пикселах). Например, инструкция Canvas. толщину линии в 2 пиксела. Pen. width: =2 устанавливает
Домашнее задание 1. Выучить все основные свойства и методы графики по конспекту 2. Составить проект(написать программный код), придумать рисунок самим (машина и светофор, велосипед и светофор, животные и т. д.