Возможности технологии Delphi

СОДЕРЖАНИЕ

Введение    2

1. Структура проекта на Delphi    3

2. Графические возможности языка программирования Delphi          6

. Листинг программы  12

Заключение         16

Список использованных источников      17

Приложения       18

ВВЕДЕНИЕ

Цель курсовой работы является отражение приобретенных знаний и практические навыки по курсу “Основы алгоритмизации и программирования”.

Для решения поставленной задачи как основные использованы следующие источники: Бобровский, С. И. Технологии Delphi 2006. Новые возможности- СПб. : Питер, 2006; Культин, Н. Б. Основы программирования в Delphi 7 - СПб. : БХВ-Петербург, 2003.

Для реализации данной задачи была использована среда Delphi 7.

Используя визуальные компоненты из вкладки Standart, System, и зная приемы работ с графическими процедурами был разработан проект на Delphi 7.

Проект состоит из трех форм. Осуществлены переход из главной формы на подчиненные формы. Программа демонстрирует использование графических процедур и анимацию графического объекта.

программирование delphi графический модуль

1. СТРУКТУРА ПРОЕКТА НА DELPHI

Любая программа в DELPHI состоит из файла проекта (файл с расширением DPR) и одного или нескольких модулей (файлы с расширением PAS). Каждый из таких файлов описывает программную единицу Object Pascal.

Файл проекта представляет собой программу, написанную на языке Object Pascal и предназначенную для обработки компилятором. Эта программа автоматически создается DELPHI и содержит лишь несколько строк. (View/ProjectSource).

Модуль - автономно компилируемая программная единица, включающая в себя различные компоненты раздела описаний (типы, константы, переменные, процедуры и функции) и, возможно некоторые исполняемые операторы инициирующей части.

Любой модуль имеет следующую структуру:

·       Заголовок

·       Секция интерфейсных объявлений

·       Секция реализаций

·       Секция инициации

·       Терминатор

Один из модулей, главный, содержит инструкции, с которых начинается выполнение программы. Главный модуль приложения формирует DELPHI.

Заголовок открывается зарезервированным словом UNIT, за которым следует имя модуля и точка с запятой. Имя модуля служит для его связи с другими модулями и основной программой. Эта связь устанавливается специальным предложением

USES <список модулей>

Секция интерфейсных объявлений открывается зарезервированным словом INTERFACE. В этой части содержатся объявления всех глобальных объектов модуля (типов, констант, переменных и подпрограмм), которые должны стать доступными основной программе и (или) другим модулям.

Секция реализаций открывается словом IMPLEMENTATION, содержит описание подпрограмм. В ней могут появляться локальные для модуля объекты.

Секция инициации - открывается словом BEGIN.

Терминатором модуля, как и терминатором программы является END с точкой.

Наиболее распространенным типом модуля в DELPHI является ФОРМА - модуль со связанным с ним окном. Интерфейсная часть такого модуля обычно содержит объявление нового класса, и автоматически обновляется в ходе конструирования окна. В интерфейсной части модуля-формы содержится также объявление объекта для соответствующего оконного класса.

Кроме того, есть модули, не связанные с видимыми окнами:

Модули данных имеют связанные с ними окна, однако эти окна никогда не появляются на экране. Необходимость в них появляется при использовании, например, компонентов доступа к базам данных страницы DATA ACCESS, и т.д.

Модули динамических библиотек предназначены для создания широко используемых в WINDOWS динамически связываемых библиотек DLL.

Модули потоков предназначены для реализации так называемых потоков команд - фрагментов программы, которые исполняются параллельно с другими фрагментами, разделяя с ними время процессора и остальные системные ресурсы.

Разработчики языка OBJECT PASCAL ввели для обозначения объектов специальный термин - Класс. Классами В OBJECT PASCAL называются специальные типы, которые содержат поля, методы и свойства. Как и любой другой тип, класс служит лишь образцом для создания конкретных экземпляров реализации, которые называются объектами.

В основе классов лежат три фундаментальных принципа, которые называются инкапсуляция, наследование и полиморфизм.

Инкапсуляция.

Класс представляет собой единство трех сущностей - полей, методов и свойств. Объединение этих сущностей в единое целое и называется инкапсуляцией. Библиотека классов Delphi - это, фактически, набор «кирпичиков», созданных программистами Borland для построения программ.

Полями называются инкапсулированные в классе данные. Поля могут быть любого типа, в том числе - классами, например,

Type= class:Integer;:String;:Tobject;;

Инкапсулированные в классе процедуры и функции называются методами. Они объявляются так же, как и обычные подпрограммы:

Type

TMyClass = classMyFunc (aPar : Integer) :Integer; MyProc;

end;

Свойства - это специальный механизм классов, регулирующий доступ к полям. Свойство объекта характеризуется полем, хранящем значение свойства, и двумя методами, обеспечивающими доступ к полю свойства - метод записи свойства (write), метод чтения свойства (read).

Наследование

Концепция объектно-ориентированного программирования предполагает возможность определять новые классы посредством добавления полей свойств и методов к уже существующим классам. Такой механизм получения новых классов называется порождением. При этом новый, порожденный, класс наследует свойства и методы своего базового, родительского класса.

Полиморфизм - это возможность использовать одинаковые имена для методов, входящих в различные классы. Концепция полиморфизма обеспечивает при применении метода к объекту использование именно того метода, который соответствует классу объекта.

2. ГРАФИЧЕСКИЕ ВОЗМОЖНОСТИ ЯЗЫКА ПРОГРАММИРОВАНИЯ DELPHI

Холст (канва). На Form или в графических окнах Image, BitMap и PaintBox можно рисовать различные графические примитивы с использованием объекта Canvas (холст).

Цвет, толщина и стиль линий, которым рисуются графические примитивы на холсте, задаются как значения свойства Pen (карандаш).

Для установки цвета линии используется свойство color:

Canvas.Pen.color:=цвет (константа либо шестнадцатеричный код)

Цвет. Значение аргумента color можно задать различными способами:

·             с помощью одной из нескольких десятков констант, определяющих цвет (clBlack - черный, clBlue - синий, clGreen - зеленый, clRed - красный, clYellow - желтый, clWhite - белый и т.д.);

·             с помощью цветовой модели RGB (красный, зеленый, синий) в шестнадцатеричном представлении, в котором для задания интенсивностей базовых цветов используются по два шестнадцатеричных разряда (например, $00FF0000 - синий, $0000FF00 - зеленый, $000000FF - красный; $00000000 - черный и $00FFFFFF - белый).

В случае отсутствия аргумента color рисование будет производиться цветом, принятым по умолчанию (черным).

Для установки толщины линии используется свойство Width:

Canvas.Pen.Width:= число пикселей;

Для установки типа рисования линии используется свойство Style:

Canvas.Pen.Style:=тип линии

psSolid - сплошная линия psDash - штриховая линия psDot - пунктирная линия psDashDot - штрих-пунктирная линия psDashDotDot - линия чередующая штрих и два пунктира psClear - отсутствие линии

Цвет и стиль заливки внутри геометрических примитивов задаются как значения свойства Brush (кисть).

Для установки цвета заливки используется свойство color:

Canvas.Brush.color:=цвет

Для установки типа заливки используется свойство Style:

Canvas.Brush.Style:=тип заливки

bsSolid - сплошная цветом кистиbsClear - цветом фона bsBDiagonal - диагональ правая bsFDiagonal - диагональ левая bsCrossв - клетку bsDiagCross - диагональная клетка bsHorizontal - горизонтальные линии bsVertical - вертикальные линии

Точка. Pixels - установка точки с заданными координатами и цветом:

Аргументами метода являются X,Y - целочисленные координаты точки.

Линия. Метод LineTo - рисование линии:

Объект.Canvas.LineTo(X1,Y1); - рисует прямую линию от текущих координат в точку с координатами X1,Y1.

Переход на требуемые текущие координаты реализуется с помощью метода MoveTo:

Объект.Canvas.MoveTo(X0,Y0)

Ломаная линия

Метод polyline вычерчивает ломаную линию. В качестве параметра метод получает массив типа TPoint. Каждый элемент массива представляет собой запись, поля х и у которой содержат координаты точки перегиба ломаной. Метод Polyline вычерчивает ломаную линию, последовательно соединяя прямыми точки, координаты которых находятся в массиве: первую со второй, вторую с третьей, третью с четвертой и т. д.

var p:array[1..N] of tpoint;[11].x := p[1].x;p[11].y := p[1].y;1.Canvas.Polyline(p)

Метод (процедура) FloodFill заполняет замкнутую область канвы текущей кистью начиная с точки Х,У и распространяется во все стороны от неё

Объект.Canvas.FloodFill(X,Y,color,fillStyle); может принимать одно из двух значений: fsBorder (заливка прекращается на точках с цветом color), fsSurfase (заливка распространяется на все точки с цветом color). Перед использованием процедуры надо установить цвет и стиль кисти (Brush)

Многоугольник

Метод Polygon вычерчивает многоугольник. В качестве параметра метод получает массив типа TPoint. Каждый элемент массива представляет собой запись, поля (х,у) которой содержат координаты одной вершины многоугольника. Метод Polygon вычерчивает многоугольник, последовательно соединяя прямыми линиями точки, координаты которых находятся в массиве: первую со второй, вторую с третьей, третью с четвертой и т. д. Затем соединяются последняя и первая точки.

Цвет и стиль границы многоугольника определяются значениями свойства Реп, а цвет и стиль заливки области, ограниченной линией границы, - значениями свойства Brush, причем область закрашивается с использованием текущего цвета и стиля кисти.

Перо может рисовать не только линии но и фигуры

Прямоугольник. Метод Rectangle - прямоугольника:

Объект.Canvas.Rectangle(X1,Y1,X2,Y2)

Метод Rectangle рисует прямоугольник с координатами верхнего левого (X1, Y1)и правого нижнего угла (X2, Y2) прямоугольника.

Метод RoundRec тоже вычерчивает прямоугольник, но со скругленными углами:

Объект .Canvas.RoundRec(x1,y1,х2, у2, х3, у3)

где:

·             x1, y1, х2, у2 -- параметры, определяющие положение углов прямоугольника, в который вписывается прямоугольник со скругленными углами;

·             х3 и у3 - размер эллипса, одна четверть которого используется для вычерчивания скругленного угла.

Есть еще два метода, которые вычерчивают прямоугольник, используя в качестве инструмента только кисть (Brush). Метод FillRect вычерчивает закрашенный прямоугольник, а метод FrameRect - только контур. У каждого из этих методов лишь один параметр - структура типа TRect. Поля структуры TRect содержат координаты прямоугольной области, они могут быть заполнены при помощи функции Rect.

var, r2: TRect; // координаты углов прямоугольников

begin := Rect(20,20,60,40);:= Rect(10,10,40,50);

Рисование окружностей и эллипсов реализуется методом Ellipse:

Объект.Canvas.Ellipse(X1,Y1,X2,Y2)

X1,Y1,X2,Y2 - определяют координаты верхнего левого (X1, Y1) и правого нижнего угла (X2, Y2) прямоугольника, в которую вписана окружность (эллипс).

Дуга Вычерчивание дуги выполняет метод Arc,:

Объект. Canvas.Arc(x1,y1,х2,у2,х3,у3,х4,у4)

где:

·             x1, y1, х2, у2 - параметры, определяющие эллипс (окружность), частью которого является вычерчиваемая дуга;

·             х3, у3 - параметры, определяющие начальную точку дуги; х4, у4 - параметры, определяющие конечную точку дуги.

Начальная (конечная) точка - это точка пересечения границы эллипса и прямой, проведенной из центра эллипса в точку с координатами х3 и у3 (х4, у4). Дуга вычерчивается против часовой стрелки от начальной точки к конечной:

Сектор

Метод pie вычерчивает сектор эллипса или круга:

Объект. Canvas.Pie(x1,y1,x2,y2,х3,у3,х4,у4)

где:

·             x1, y1, х2, у2 - параметры, определяющие эллипс (окружность), частью которого является сектор;

·             х3, у3, х4, у4 - параметры, определяющие координаты конечных точек прямых, являющихся границами сектора.

Начальные точки прямых совпадают с центром эллипса (окружности). Сектор вырезается против часовой стрелки от прямой, заданной точкой с координатами (хЗ, уз), к прямой, заданной точкой с координатами (х4, у4)

Вывод текста на холст. Для вывода текста на холст используется метод TextOut:

Объект.Canvas.TextOut(X,Y,Text),Y - координаты точки холста, от которой выполняется вывод текста.Text - строковая переменная или строка, которая выводится на холст.

Область вывода текста закрашивается текущим цветом кисти. Поэтому перед выводом текста свойству Brush.Color нужно присвоить значение bsClear или задать цвет кисти, совпадающий с цветом поверхности, на которую выводится текст.

Координаты правой границы текста, выведенного методом Textout, можно получить, обратившись к свойству PenPos.

После вывода текста методом Textout указатель вывода (карандаш) перемещается в правый верхний угол области вывода текста

Координаты правой границы текста, выведенного методом Textout, можно получить, обратившись к свойству PenPos..

TextOut(PenPos.X, PenPos.Y, ‘text’);

3. ЛИСТИНГ ПРОГРАММЫ

// Главный модульUnit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdCtrls, ShellAPI;= class(TForm): TLabel;: TLabel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TButton;: TButton;N1Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };

: TForm2;olf_;

{$R *.dfm}TForm2.N1Click(Sender: TObject);('Программа написана студентом группы 3ПОВТ-109 Шадриным Ю.');;

TForm2.N2Click(Sender: TObject);('Программа состоит из трех форм');;

TForm2.N3Click(Sender: TObject);;;

TForm2.Button1Click(Sender: TObject);.show;;

TForm2.Button2Click(Sender: TObject);(Handle, nil, PChar('ship.exe'), nil, nil, SW_RESTORE);;.

// листинг второго модуляolf_;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TLabel;FormPaint(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;:byte;

{$R *.dfm}

// рисует Олимпийский флагTForm1.FormPaint(Sender: TObject);:=30;Canvas do

// полотнище.Pen.Width := 1;.Pen.Color := clBlack;.Brush.Color := clCream;.Width := 2;.Style := bsClear; // область внутри круга не закрашивать.Color := clBlue;(40-a,40-a,80+a,80+a);.Color := clBlack;(70-a+20,40-a,110+a+20,80+a);.Color := clRed;(100-a+40,40-a,140+a+40,80+a);.Color := clYellow;(55-a,65-a+20,95+a,105+a+20);.Color := clGreen;(85-a+20,65-a+20,125+a+20,105+a+20);;; end.

ЗАКЛЮЧЕНИЕ

Программа предназначена для выполнения операции над матрицей. Программа написана на языке Object Pascal. Работает в среде операционных систем Widows 2000/XP. Для полноценной работы данной программы необходимы следующие ресурсы компьютера: процессор Pentium IV или Celeron 2.0Ghz.

Оперативная память не менее 512 Мбайт, достаточное количество свободного места на диске - порядка 1 Гбайт.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Фаронов, В. В. Turbo Pascal [Текст] : учеб. пособие / В. В. Фаронов. - СПб. : Питер, 2006. - 366 с.

2.      Бобровский, С. И. <#"527082.files/image003.gif">

Image (изображение)

Additional

Используется для отображения графики: пиктограмм, битовых изображений и метафайлов

Shape (форма)

Additional

Используется для построения геометрических примитивов

DrawGrid (таблица рисунков)

Additional

Используется для отображения в строках и столбцах нетекстовых данных

Chart (диаграммы и графики)

Additional

Используется для создания диаграмм и графиков

PaintBox (окно для рисования)

System

Используется для создания на форме некоторой области, в которой можно рисовать