Обоснование среды разработки

В настоящее существует множество разработки, таких как EmbarcaderoRADStudio, MicrosoftVisualStudio, MonoDevelop, Sharpdevelop и

Embarcadero RAD представляет собой средств разработки который позволяет приложения с пользовательским интерфейсом для Mac OS X, PHP и

Мой выбор пал на Lazarus.Он больше подходит новичкам только начинают путь по программирования. Его можно использовать с разных форм в Lazarus. Удобный и при компонентов(кнопок для создается код.

Структура программного комплекса

Для того определения структуры разрабатываемой программной утилитыразработана диаграмма вариантов использования (рис. 2.1)

Рис. 2.1. Диаграмма вариантов использования графической утилиты

Разработка форм и их взаимосвязей

Главная форма на рисунке 2.2, разработанная на основе диаграммы вариантов использования.

 

Рисунок 2.2. форма графической утилиты.

Рассмотрим более главную форму (Form1).

На форме следующие компоненты:

- Компонент типа TImage – для создания изображения и текущего цвета;

- Компонент типа TMainMenu – для меню программы;

- 9 компонентов TSpeedButton – в себе с различными

Задачи компонентов TSpeedButton:

- Использование инструмента

- Использование инструмента

- Использование инструмента

- Использование инструмента

- Использование инструмента

- Использование инструмента

- Использование инструмента цвета»;

- Открытие новой «Выбор цвета»;

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

Рисование производится с компонента TImage, запрограммированное на определенно выбранной из инструментов с нажатия кнопки

Описание процедур и функций

Открытие и файла (рис. 2.3) производится по копирования содержимого и уже существующего так как в не допускается файла-оригинала. Если при файла программа считывает все о файле, то при приходится эти «перезаписывать». Ниже приводится код процедуры, обеспечивающий сохранения файла с изображением.

 

Рисунок 2.3.окно «Сохранить».

 

//Процедура кнопки сохранения рисунка

procedure TForm1.MenuItem3Click(Sender: TObject);

begin

SavePictureDialog1.Filter:='All files | *.jpg';

if SavePictureDialog1.Execute then

Image1.Picture.SaveToFile(SavePictureDialog1.FileName);

end;   

 

Такжерассмотримпечать (рис. 2.4), код реализации функции печати приведен ниже.

//Процедура кнопки "Печать"

procedure TForm1.MenuItem7Click(Sender: TObject);

var

printerDialog: TPrintDialog;

myPrinter: TPrinter;

begin

// Создание диалога для выбора принтера

printerDialog:=TPrintDialog.Create(Form1);

 

// Вызываем диалог выбора принтера

if printerDialog.Execute then

begin

// Получаем доступ к глобальному объекту Printer

myPrinter:= Printer;

with myPrinter do

begin

// Началопечати

BeginDoc;

EndDoc;

end;

end;

end;

Если нам распечатать изображение в редакторе, то в меню потом «печать» то окно: 

 

Рисунок 2.4. печати.

Далее, рассмотрим выбора цвета (рис. 2.5). Оно собой общее окно, которое при помощи новой формыи объекта ColorDialog.

 

Рис. 2.5. Выбор палитры

Код процедуры выбора палитры представлен ниже:

//Процедура цвета для карандаша,линии,круга,прямоугольника

procedure TForm1.PenColorShapeChangeBounds(Sender: TObject);

begin

if ColorDialog1.Execute then

begin

PenColorShape.Brush.Color:= ColorDialog1.Color;

Image1.Canvas.Pen.Color:= ColorDialog1.Color;

end;

end;

//Процедура цвета для заливки,ластика

procedure TForm1.PenColorShapeMouseDown(Sender: TObject;

Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if ColorDialog1.Execute then

begin

PenColorShape.Brush.Color:= ColorDialog1.Color;

Image1.Canvas.Pen.Color:= ColorDialog1.Color;

end;

end;       

Отображение цвета с помощью компонента PenColorShape, находящийся под инструментов. Онсвой цвет на пользователем.

Также, как и выбора цвета, диалоговыми окнами окна Открыть и (рис. 2.5). 

Рисунок 2.6. окно «Открыть».

Код процедуры выбора кнопки «Открыть» представлен ниже:

//Процедуракнопкиоткрытиярисунка

procedure TForm1.MenuItem2Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute then

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;