Возможности технологии Delphi
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
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 Гбайт.
Программа запускается нажатием на файл OLF.exe. На открывающем окне формы расположен меню MainMenu, через которого можно открыть справки, помощь и закрыть программу.
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1.Фаронов, В. В. Turbo Pascal [Текст] : учеб. пособие / В. В. Фаронов. - СПб. : Питер, 2006. - 366 с.
2. Бобровский, С. И. Технологии Delphi 2006. Новые возможности [Текст] / С. И. Боб-ровский. - СПб. : Питер, 2006.
.Культин, Н. Б. Delphi в задачах и примерах [Текст] / Н. Б. Культин. - СПб. : БХВ-Петербург, 2004.
.Культин, Н. Б. Основы программирования в Delphi 7 [Текст] / Н. Б. Культин. - СПб. : БХВ-Петербург, 2003.
.Немнюгин, С. А. Turbo Pascal. Программирование на языке высокого уровня [Текст] : учебник для вузов / С. А. Немнюгин. - 2-е изд., перераб. и доп. - СПб. : Питер, 2006.
.Немнюгин, С. А. Turbo Pascal: Практикум [Текст] / С. А. Немнюгин. - 2-е изд. Перераб. и доп. - СПб. : Питер, 2006.
.Павловская, Т. А. Паскаль. Программирование на языке высокого уровня [Текст] : учебник для вузов / Т. А. Павловская. - СПб. : Питер, 2004. (допущен Министерством образования).
.Фаронов, В. В. Турбо Паскаль 7.0. Практика программирования [Текст] : учебное пособие / В. В. Фаронов. - М. : ОМД Групп, 2003.
.Фаронов, В. В. Delphi 2005. Язык, среда, разработка приложений [Текст] / В. В. Фаронов. - СПб. : Питер, 2005.
10.Федоренко, Ю. П. Алгоритмы и программы на Turbo Pascal [Текст] : учебный курс / Ю. П. Федоренко. - СПб. : Питер, 2001.
ПРИЛОЖЕНИЯ
Графические компоненты
ПиктограммаНазваниеСтраницаНазначениеImage (изображение)AdditionalИспользуется для отображения графики: пиктограмм, битовых изображений и метафайловShape (форма)AdditionalИспользуется для построения геометрических примитивовDrawGrid (таблица рисунков)AdditionalИспользуется для отображения в строках и столбцах нетекстовых данныхChart (диаграммы и графики)AdditionalИспользуется для создания диаграмм и графиковPaintBox (окно для рисования)SystemИспользуется для создания на форме некоторой области, в которой можно рисовать