Создание графических приложений

Таким образом, PaintBox будет получать лишь нарисованный результат.

Для этого необходимо объявить глобальные переменные:

img, buffer: TBitmap;

x0,y0: integer;

Далее, нужно объявить переменную dwn: boolean, которая будет информировать о том, нажата левая кнопка или нет (рисовать или нет).

Для упрощения работы, можно объявить тип TShape = (sPen, sRect, sEllipse, sPoly, sFill), содержащий все возможные формы рисования (карандаш, прямоугольник, эллипс, многоугольник и заливка).

Так же требуется объявить глобальную переменную nowdrawing: TShape. В ней будет хранится тип фигуры, для рисования.

В событии формы OnCreate необходимо инициализировать объекты, задав начальные значения всем переменным. По-умолчанию, форма рисования устанавливается как карандаш, кнопка dwn отжата. Так же здесь инициализируются объекты img и buffer и задаются их размеры в соответствии с размерами PaintBox.

В событии OnMouseDown элемента PaintBox нужно проверить, нажата ли левая кнопка и, если это так, требуется установить значение nowdrawing, а также сохранить текущую картинку и начальные координаты мыши.

Нужно так же учесть, что если выбран инструмент «Заливка», то движения мыши учитывать не нужно, а требуется только одно нажатие. Поэтому флаг dwn в случае заливки надо снять, чтобы не реагировать на движения.

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

Так же следует переписать начальные координаты (x0, y0), если левая кнопка не нажата.

В событии OnMouseMove (движение мыши) компонента PaintBox нужно проверять состояние флага dwn (мышь нажата). Если он не включён, то следует завершить обработку события.

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

В событии OnMouseUp (отпускания клавиши мыши) нужно сбросить флаг dwn, если нажата левая клавиша мыши.

И, в заключение, в событии OnPaint компонента PaintBox нужно добавить прорисовку картинки из буфера.

Листинг программы приведён в приложении 1.

Заключение

В ходе научной работы были выполнены следующие действия:

— определены объект и предмет исследования;

— подобрана литература и спланирован отчёт в соответствии с поставленной темой;

— проанализирована и структурирована информация;

— разработан практический пример.

Таким образом, поставленные задачи выполнены, и, соответственно, достигнуты цели, которые были представлены во введении данного отчёта.

Из вышеизложенного следует, что тема раскрыта и работа выполнена.

Список литературы

Комьютерная графика. Википедия. Свободная энциклопедия. [Электронный ресурс]. URL:

http://ru.wikipedia.org/wiki/Компьютерная_графика (дата обращения: 18.

05.2014).

Тюкачев Н., Илларионов И., Хлебостроев В. Программирование графики в Delphi. — СПб.: БХВ-Петербург, 2008 г. — 784 с.

Работа с графикой в Delphi (GDI). [Электронный ресурс]. URL:

http://codingrus.ru/readarticle.php?article_id=1829 (дата обращения: 18.

05.2014).

Бейкер П., Херн Д. Компьютерная графика и стандарт OpenGL. — М.: Издательский дом «Вильямс», 2005. — 1168 с.

Есенин С. DirectX и Delphi. Разработка графических и мультимедийных приложений — СПб: БХВ-Петербург, 2006. — 512 с.

Приложение 1 — Листинг программы

unit main;

interface

uses

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

Dialogs, Buttons, ExtCtrls, StdCtrls, Menus;

type

TShape = (sPen, sRect, sEllipse, sPoly, sFill); // перечисление типов фигуры, которые можно нарисовать

var

nowdrawing: TShape; // тип фигуры, которая рисуется

img, buffer: TBitmap; // создаваемый рисунок и буфер

x0,y0: integer; // начальные координаты

dwn: boolean; // для проверки, нажата ли клавиша мыши (для рисования)

type

TForm1 = class (TForm) // визуальные компоненты

Panel1: TPanel;

sbPen: TSpeedButton;

sbRectangle: TSpeedButton;

sbEllipse: TSpeedButton;

sbPoly: TSpeedButton;

sbFill: TSpeedButton;

cbColor: TColorBox;

cbFill: TColorBox;

Label1: TLabel;

Label2: TLabel;

ScrollBox1: TScrollBox;

PaintBox1: TPaintBox;

MainMenu1: TMainMenu;

N1: TMenuItem;

N4: TMenuItem;

procedure FormCreate (Sender: TObject);

procedure PaintBox1MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

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

Y: Integer);

procedure PaintBox1MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure N4Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1. FormCreate (Sender: TObject);

begin // инициализация переменных

Img:=TBitmap.Create; // создание переменной для хранения картинки

buffer:=TBitmap.Create; // и буфера

img.Width:=PaintBox1.ClientWidth; // размеры картинки

buffer.Width:=PaintBox1.ClientWidth; // и буфера

img.Height:=PaintBox1.ClientHeight; // приравниваются

buffer.Height:=PaintBox1.ClientHeight; // к размерам PaintBox

nowdrawing:=sPen; // Выбранный инструмент — карандаш

dwn:=false; // кнопка мыши не нажата

end;

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

Shift: TShiftState; X, Y: Integer);

begin

// обработчик события нажатия кнопки на компоненте PaintBox

if button=mbLeft then begin // если нажата левая клавиша мыши

img.assign (buffer); // инициализация img. привязка его к bufrer

x0:=X; y0:=Y; // установка начальных значений

if sbPen. Down then begin // если нажата кнопка рисования карандашом

nowdrawing:=sPen; // устанавливаем инструмент рисования карандаш

img.canvas.MoveTo (x, y); // перемещаемся x, y

end

else

if sbEllipse. Down then // если нажата кнопка рисования эллипса

nowdrawing:=sEllipse

else

if sbRectangle. Down then // если нажата кнопка рисования прямоугольника

nowdrawing:=sRect

else

if sbPoly. Down then // если нажата кнопка рисования многоугольника

nowdrawing:=sPoly

else

if sbFill. Down then // если нажата кнопка заливки

nowdrawing:=sFill;

dwn:=true; // устанавливаем флаг нажатой кнопки

img.Canvas.Pen.Color:=cbColor.Selected; // устанавливаем цвет карандаша

img.Canvas.Brush.Color:=cbFill.Selected; // устанавливаем цвет кисти (заливка)

if nowdrawing = sFill then begin // если выбран инструмент заливки

img.Canvas.FloodFill (x0,y0,img.Canvas.Pixels[x, y], fsSurface); // заливаем

buffer.Assign (img); // копируем в буфер

dwn:=false; // отпускаем кнопку

end

end

else begin // во всех остальных случаях

if (dwn)and (nowdrawing=sPoly) then begin // если полигон

x0:=x; // начальные координаты установлены

y0:=y;

buffer.Assign (img); // копирование из img в buffer

end;

end;

paintbox1.Canvas.CopyRect (bounds (0,0,img.Width, img. Height),

img.Canvas, bounds (0,0,img.Width, img. Height)); // копируем рисунок на канву

end;

procedure TForm1. PaintBox1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin // обработчик события перемещения мыши

if not dwn then

exit; // если клавиша мыши не нажата — выход

img.assign (buffer); // копируем картинку из буфера в img

case nowdrawing of // проверяем, какой инструмент выбран

sPen:begin // карандаш

img.Canvas.LineTo (x, y); // рисуем линию

buffer.Assign (img); // копируем в буфер

end;

sRect:begin // если прямоугольник

img.Canvas.Rectangle (x0,y0,x, y); // рисуем прямоугольник

end;

sEllipse:begin

img.Canvas.Ellipse (x0,y0,x, y); // эллипс

end;

sPoly:begin // многоугольник

img.Canvas.MoveTo (x0,y0); // перемещаем курсор

img.Canvas.LineTo (x, y); // рисуем линию

end;

sFill:begin

//nothing. // если заливка — ничего не делать

end;

end;

paintbox1.Canvas.CopyRect (bounds (0,0,img.Width, img. Height),

img.Canvas, bounds (0,0,img.Width, img. Height)); // копируем на канву

end;

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

Shift: TShiftState; X, Y: Integer);

begin // обработчик события отпускания клавиши мыши

if button=mbLeft then // если клавиша левая

dwn:=false; // сбрасываем флаг нажатия клавиши

buffer.Assign (img); // копируем в буфер картинку

end;

procedure TForm1. N4Click (Sender: TObject);

begin

Close;

end;

end.