Разработка программы графического редактора (аналог программы Paint системы Windows)

Размещено на http://www.allbest.ru/

КУРСОВАЯ РАБОТА

по дисциплине информатика

тема: «Разработать программу простейшего графического редактора (аналог программы Paint системы Windows). Он должен писать текст в канве компонента TraintBox в указанном мышкой месте. Предусмотреть возможность измения цвета, размера, типа шрифта, сохранения рисунка в графическом файле»



ОГЛАВЛЕНИЕ

ВВЕДЕНИЕ

1. Общая характеристика работы

1.1 Цели и задачи работы

2. Структура программы

2.1 Описание

2.2 Основные составляющие

3. Структурные схемы алгоритма решения задачи

4. Текст программы

5. Работоспособность программы

ВЫВОД

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ



ВВЕДЕНИЕ

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

Для выполнения задач курсовой работы я решил использовать среду программирования Delphi7. Мой выбор обусловлен наиболее простым и понятным в использовании интерфейсом программы.



1. Общая характеристика работы

1.1 Цели и задачи работы

1) Освоение программирования;

2) Понимание структуры задачи, её построения;

3) Изучение какого-либо языка программирования. В данном случае - это язык Delphi;

4) Выявление ошибок в программировании и их устранение.



2. Структура программы

2.1 Описание

Программа представляет собой аналог графического редактора Paint в системе Windows с урезанными функциями, написана на языке программирования Delphi в программе Borland Delphi7. Программа предусматривает возможности:

1) открытие изображения в графическом редакторе;

2) сохранение изображения;

3) написание текста в любом указанном мышкой месте;

4) изменение шрифта, размера и цвета текста;

2.2 Основные составляющие

PaintBox - область, на которой производятся все основные действия программы.

Image - область, в которую помещается открываемое изображение.

Panel 1 - панель инструментов.

MainMenu - главное меню.

SpeedButton - быстрая кнопка с изображением инструмента набора текста. С помощью нее можно ввести текст в любой выбранной области.

SpeedButton - быстрая кнопка с изображением карандаша. С ее помощью можно выполнить рисунок.

OpenPicture - диалог открытия изображения.

SavePicture - диалог сохранения изображения.

FontDialog - диалог выбора размера, вида и цвета текста



3. Структурные схемы алгоритма решения задачи



4. Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ColorGrd, StdCtrls, Spin, ExtCtrls, Menus, Buttons, ExtDlgs;

type

TForm1 = class(TForm)

Image1: TImage;

MainMenu1: TMainMenu;

Panel1: TPanel;

Panel2: TPanel;

N1: TMenuItem;

SpeedButton5: TSpeedButton;

SpeedButton8: TSpeedButton;

N8: TMenuItem; программирование компьютерный delphi7 интерфейс

N10: TMenuItem;

N11: TMenuItem;

N21: TMenuItem;

OpenPictureDialog1: TOpenPictureDialog;

SavePictureDialog1: TSavePictureDialog;

Memo1: TMemo;

ColorDialog1: TColorDialog;

ScrollBox1: TScrollBox;

N2: TMenuItem;

N3: TMenuItem;

FontDialog1: TFontDialog;

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormCreate(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure SpeedButton8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const

funcpencil = 1;

funcfill = 2;

funcgetcol = 3;

funcline = 4;

funcerase = 5;

funcspray = 6;

funcrect = 7;

funcellip = 8;

funcrrect = 9;

funcwrite = 10;

funcbezier = 11;

funcpolygon = 12;

funcbrush = 13;

var

Form1 : TForm1;

func : byte;

fcol : tcolor;

bcol : tcolor;

Image : TImage;

fx,fy : integer;

stx,sty : integer;

eraser : integer;

but: TShiftState;

rad: byte;

stil : byte;

points : array [1..4] of TPoint;

NumP : byte;

wid,het : LongInt;

mastab : byte;

polyg : array of TPoint;

brkind,brsize : byte;

implementation

{$R *.dfm}

uses proc, AbPr;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

if ssLeft in shift then

case func of

funcpencil : pencil(x,y,fcol);

end;

if ssright in shift then

case func of

funcpencil : pencil(x,y,bcol);

end;

Image.Canvas.MoveTo(x,y);

end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var i:integer;

st:string;

count:integer;

begin

if ssLeft in shift then

case func of

funcwrite : begin

memo1.Font.Color:=fcol;

form1.memo1.Left:=x;

form1.memo1.Top:=y;

form1.memo1.Show;

func:=100;

end;

end;

if ssright in shift then

case func of

funcwrite : begin

memo1.Font.Color:=bcol;

form1.memo1.Left:=x;

form1.memo1.Top:=y;

form1.memo1.Show;

func:=100;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

//form2.hide;

memo1.Hide;

eraser:=3;

openpicturedialog1.FilterIndex:=4;

openpicturedialog1.InitialDir:=extractfilepath(paramstr(0));

savepicturedialog1.InitialDir:=extractfilepath(paramstr(0));

panhide;

Image:=form1.image1;

wid:=image.Width;

het:=image.Height;

image.Canvas.Pen.Mode:= pmcopy;

bcol:=clwhite;

Image.Canvas.FillRect(rect(0,0,image1.Width,image1.Height));

end;

procedure TForm1.SpeedButton5Click(Sender: TObject);

begin

func:=funcpencil;

panhide;

setprop;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

if savepicturedialog1.Execute then

begin

image.AutoSize:=true;

image.Picture.LoadFromFile(openpicturedialog1.FileName);

end;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

if FontDialog1.Execute= true then

Memo1.Font:=FontDialog1.Font;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

if openpicturedialog1.Execute then

begin

image.AutoSize:=true;

image.Picture.LoadFromFile(openpicturedialog1.FileName);

end;

end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

image.Canvas.Pen.Mode:= pmcopy;

end;

procedure TForm1.SpeedButton8Click(Sender: TObject);

begin

panhide;

setprop;

func:=funcwrite;

end;

end.



5. Работоспособность программы



ВЫВОД

По мере выполнения поставленного задания я хорошо освоил язык программирования Delphi и изучил программу Borland Delphi7, изучил поставленную задачу и принципы ее решения. Написал программу и исправил ошибки, возникшие в процессе выполнения работы.

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



СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Лафоре Р. Объектно-ориентированное программирование / Р. Лафоре - 4-е изд. - Питер.: 2010. - 654 с.

2. Давыдов В.Г. Технологии программирования. / В. Г. Давыдов - Санкт-Петербург: БХВ-Петербург, 2009. - 432 с.

3. Касюк С.Т. Конспект лекций по дисциплине «Информатика» / С. Т. Касюк - Челябинск: ЮУрГУ, 2005. - 212 с.

Размещено на Allbest.ru

...