- •В телекоммуникациях ” Преподаватель: доцент кафедры прикладной математики и кибернетики
- •Цель курса– ознакомление с общими принципами визуального программирования на примере системы Delphi.
- •Пример оформления контрольной работы. Вариант 12
- •1.1Структура программы 7
- •Рабочая программа курса
- •Основные конструкции языка Паскаль
- •Структура программы
- •Операторы языка Паскаль
- •Процедуры и функции
- •Объектно-ориентированная методология
- •Различные технологии программирования
- •Принципы объектно-ориентированного программирования
- •Модули и классы
- •Знакомство со средой программирования Delphi
- •Структура среды программирования
- •Проект Delphi
- •Главное меню среды
- •Первое приложение на Delphi
- •Контрольные вопросы
- •Библиотека визуальных компонентов (vcl)
- •Иерархия базовых классов vcl
- •Типы свойств компонентов. Изменение свойств
- •Некоторые общие свойства компонентов
- •События в Delphi
- •Некоторые общие события компонентов
- •Контрольные вопросы
- •Класс tForm
- •Роль формы в приложении
- •Свойства класса tForm
- •События формы
- •Пример использования событий формы
- •Контрольные вопросы
- •Графические возможности визуальных компонентов
- •Свойства класса tCanvas
- •Методы класса tCanvas
- •Примеры использования свойств и методов класса tCanvas
- •Использование визуальных компонентов
- •Редактируемые компоненты
- •Списки выбора
- •Диалоговые компоненты
- •Переключатели
- •Контрольные вопросы
- •Лабораторная работа 1
- •Лабораторная работа 2
- •Лабораторная работа 3
- •Лабораторная работа 4
- •Лабораторная работа 5
- •Контрольная работа правила выполнения и оформления контрольной работы
- •Правила получения зачета
- •Литература
Методы класса tCanvas
Канва содержит методы-надстройки над всеми основными функциями рисования GDI Windows и свойства, которые приведены ниже в табл. 8.4. При их рассмотрении имейте в виду, что все геометрические фигуры рисуются текущим пером. Те из них, которые можно закрашивать, закрашиваются с помощью текущей кисти. Кисть и перо при этом имеют текущий цвет.
Таблица 11 Методы TCanvas
procedure Arc (XI, Y1, Х2, Y2, Х3, Y3, Х4, Y4: integer); |
Метод рисует сегмент эллипса. Эллипс определяется описывающим прямоугольником (Х1, Y1) — (Х2, Y2); его размеры должны лежать в диапазоне от 2 до 32767 точек. Начальная точка сегмента лежит на пересечении эллипса и луча, проведенного из его центра через точку (ХЗ, Y3). Конечная точка сегмента лежит на пересечении эллипса и луча, проведенного из его центра через точку (Х4, Y4). Сегмент рисуется против часовой стрелки. |
procedure Chord (XI, Y1, Х2, Y2, ХЗ, Y3, Х4, Y4 : Integer); |
Рисует хорду и заливает отсекаемую ею часть эллипса. Эллипс, начальная и конечная точки хорды определяются как в методе Arc |
procedure Ellipse (XI, Y1, Х2, Y2: Integer); |
Рисует и закрашивает эллипс, вписанный в прямоугольник (Х1, Y1) – (Х2, Y2) |
procedure LineTo(X, Y: Integer); |
Проводит линию текущим пером из текущей точки в (X, Y) |
procedure MoveTo(X, Y: Integer); |
Перемещает текущее положение пера (свойство PenPos) в точку (X, Y) |
procedure FillRect(const Rect: TRect) ; |
Производит заливку прямоугольника (текущей кистью) |
procedure Pie(XI, Yl, X2, Y2, X3, Y3, X4, Y4: Integer); |
Рисует сектор эллипса, описываемого прямоугольником (Х1, 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(X1, Y1,X2, Y2: Integers); |
Рисует прямоугольник с верхним левым углом в (Х1, Y1) и нижним правым в (X2, Y2) |
Procedure RoundRect(XI, Yl, X2, Y2, X3, Y3: Integers); |
Рисует прямоугольник с закругленными углами. Координаты вершин — те же, что и в методе Rectangle. Закругления рисуются как сегменты эллипса с размерами осей по горизонтали и вертикали X3 и Y3 |
procedure TextOut(X, Y; Integer; const Text: string); |
Производит вывод строки Text. Левый верхний угол помещается в точку канвы (X, Y) |
Предусмотрено два события для пользовательской реакции на изменение канвы: OnChangeиOnСhanging. Эти события возникают при изменениях свойств и вызовах методов TCanvas, меняющих вид канвы (то есть, при любом рисовании; в методе MoveTo, например, они не возникают). Отличие их в том, что событие onChanging вызывается до начала изменений, а событие OnChange — после их завершения.