Автор работы: Пользователь скрыл имя, 25 Февраля 2015 в 15:01, курсовая работа
Целью курсовой работы является разработка программы «MyPaint», которая позволяет пользователю просматривать, редактировать и сохранять графические изображения в файле.
Из поставленной цели вытекают следующие задачи, которые необходимо решить для разработки данного приложения:
изучить методическую литературу по технологии разработки программных продуктов;
изучить теоретические аспекты среды программирования Delphi;
ВВЕДЕНИЕ 3
ГЛАВА 1. ПРОГРАММИРОВАНИЕ С ИСПОЛЬЗОВАНИЕМ ВИЗУАЛЬНЫХ КОМПОНЕНТОВ 4
Этапы разработки программных продуктов 4
Описание компонентов, используемых при реализации практической
части курсовой работы и возможностей их использования 4
Компонент TScrollBox 4
Компонент TImage 5
Компонент TMainMenu 6
Компонент TPanel 7
Компонент TColorGrid 9
Компонент TLabel 10
Компонент TSpeedButton 12
Компонент TMemo 13
Компонент TOpenPictureDialog 14
Компонент TSavePictureDialog 15
Компонент TColorDialog 16
ГЛАВА 2. РАЗРАБОТКА ПРОГРАММЫ «MyPaint» 17
Функциональная и логическая структура программы 17
Постановка задачи 17
Разработка программного продукта проекта 19
Описание алгоритма и реализация программы 19
Отладка и тестирование программы 21
2.4. Описание пользовательского интерфейса 23
2.5. Технические условия эксплуатации программы 25
ЗАКЛЮЧЕНИЕ 26
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ 27
end;
procedure setprop;
begin
image.Width:=wid;
image.Height:=het;
end;
procedure polygn(x,y:integer;col:tcolor)
begin
image.Canvas.Pen.Color:=col;
setlength(polyg,nump);
polyg[nump-1].X:=x;
polyg[nump-1].Y:=y;
image.Canvas.Polygon(polyg);
end;
procedure brushdo(x,y:integer;col:
begin
with image.Canvas do
begin
pen.Color:=col;
brush.Color:=col;
case brkind of
1 : ellipse(x-brsize,y-brsize,x+
2 : rectangle(x-brsize,y-brsize,x+
3 : begin
moveto(x-brsize,y+2*brsize);
lineto(x+brsize,y-2*brsize);
end;
4 : begin
moveto(x-brsize,y-2*brsize);
lineto(x+brsize,y+2*brsize);
end;
end;
end;
end;
end.