Графический редактор с индивидуальным заданием

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

Министерство образования и науки, молодежи и спорта Украины

Одесский Национальный политехнический университет

Кафедра «Информационных технологий проектирования в машиностроении»

КОНТОРОЛЬНАЯ РАБОТА

по алгоритмизации программирования

на тему: «Графический редактор с индивидуальным заданием»

Студента: II курса, группы МД-111

направления подготовки: ИПТДМ

специальности: Информационные технологии

Лефтер Екатерины

Руководитель: Павлышко А. В.

Одесса - 2012



Delphi является первым языком программирования, обладающим простой в использовании средой для быстрой разработки приложений, разрушающей барьеры между языками высокого уровня, и языками, на низком уровне разговаривающими с системой на языке битов и байтов.

Графический редактор

В работе с графикой в Delphi в распоряжении программиста находятся канва (холст, полотно - свойство CanvasDelphi компонентов), карандаш (свойство Pen), кисть (свойство Brush) того компонента или объекта, на котором предполагается рисовать. У карандаша Pen и кисти Brush можно менять цвет (свойство Color) и стиль (свойство Style). Доступ к шрифтам предоставляет свойство канвы Font. Эти инструменты позволяют отображать как текст, так и достаточно сложные графики математического и инженерного содержания, а также рисунки. Кроме этого, работа с графикой позволяет использовать в Delphi такие ресурсы Windows как графические и видеофайлы.

С помощью такого графического редактора можно создавать рисунки. Панель инструментов находиться с правой стороны окна. Нижняя панель позволяет выбрать подходящие настройки.

Контур:

Позволяет изменять цвет карандаша, линии, спрея, контур всех фигур.

При нажатии на Контур появляется цветовое окно, где можно выбрать подходящий цвет.

Заливка:

Позволяет изменять цвет заливки всех фигур. При нажатии на Заливку появляется такое же цветовое окно, как и для Контура.

Кисть

Позволяет изменять форму линий, она может быть круглой и квадратной.

Толщина линии

Позволяет изменять толщину линий, контура, спрея.

Инструмент Очистить: позволяет очистить рабочее поле от ранее нарисованного.

Инструмент Залить: позволяет закрасить фон определенным цветом.

1. Проектируем форму.

На форму, с панели System, кидаем PaintBoх, и в меню Object Inspector задаем ему нужные параметры.

Для панели инструментов выберем нижнюю часть окна - установим Panel из меню Standart.

Кнопки на панели - Shape, меню Additional .

Устанавливаем Panel, свойства Align=alGustom, Height=41.

На панель ставим 5 штук Shape. Подпишем три из них соответственно с помощью Label (контур, заливка, кисть). Для двух остальных Shape, в свойствах ставим выплывающую подсказку (Hint): очистка, заливка всего.

Кидаем на панель SpinEdit, подписываем его с помощью Label (толщина), задаем параметры в свойствах (MaxValue = 100, MinValue = 1).

Label1 понадобится для того, чтобы потом прописать координаты положения курсора (х, у).

Графический редактор будет содержать в себе четыре вкладки основных функций. Это Рисование, Случайность, Закономерность и последний вкладыш (не связан с раннее созданным PaintBox-ом) - построение окружности.

Для создания этих вкладышей ставим на форму TabControl из меню Win32.

На форму ставим ColorDialog из меню Dialogs, для выбора определенного цвета.

Для вкладки Рисование:

На TabControl кидаем GroupBox.

На GroupBox ставим 6 штук SpeedButton. У всех свойство GroupIndex=1. В свойствах ставим выплывающую подсказку (Hint): для первого «свободное рисование», для второго «линия», для третьего «прямоугольник», четвертый «эллипс», пятый «спрей», шестой «текст».

Для выбора насыщенности спрея кидаем Trackbar.

Вкладка Рисования предназначена для построения фигур, линий, прорисовки рисунков. На этой вкладке есть пять инструментов:

Инструмент Карандаш.

Инструмент Линия.

Инструмент Прямоугольник.

Инструмент Эллипс.

Инструмент Спрей. (Для спрея создана шкала насыщенности, получаемой распыленной линии. С помощью этого инструмента можно менять плотность точек в спреи).

Для вкладки Случайность:

На TabControl кидаем еще один GroupBox.

На GroupBox ставим 2 RadioButton (в свойствах Caption: прямоугольники, эллипсы), три SpinEdit (MaxValue = 2000, MinValue = 1) подпишем их соответственно с помощью Label (количество, размеры, от, до).

Кнопка для построения Button (в свойствах Caption пишем построить).

Вкладка Случайность предназначена для построения прямоугольников и эллипсов случайным образом, в случайном месте.

На этой вкладке можно выбрать одну из двух фигуру, задать количество и размеры желаемых фигур. При нажатии на кнопку Построить, получим результат. delphi программирование графический рисование

Для вкладки Закономерность:

На TabControl кидаем еще один GroupBox.

На GroupBox ставим 4 штуки RadioButton (в свойствах Caption: прямоугольники, эллипсы, кресты, треугольники), 6 SpinEdit (MaxValue = 2000, MinValue = 1) подпишем их соответственно с помощью Label (количество по х, количество по у, габариты по х, габариты по у, шаг по х, шаг по у ), еще нам понадобится кнопка для построения Button (в свойствах Caption пишем построить).

Вкладка Закономерность предназначена для построения прямоугольников, эллипсов, крестов и треугольников не случайным образом, а габариты и количество фигур можно указывать.

Вкладка с названием Индивидуальная (отображение текста) требует всего лишь DXDraw и программного кода, при переключении на эту вкладку появится DXDraw, а на Trackbar-е просто останется пустое место.

2. Программирование (код)

Type

TForm1 = class(TForm)

Panel1: TPanel;

TabControl1: TTabControl;

PaintBox1: TPaintBox;

Shape1: TShape;

ColorDialog1: TColorDialog;

Shape2: TShape;

Label1: TLabel;

GroupBox1: TGroupBox;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpinEdit1: TSpinEdit;

SpeedButton3: TSpeedButton;

Label2: TLabel;

SpeedButton4: TSpeedButton;

Label3: TLabel;

Label4: TLabel;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

Shape3: TShape;

Label5: TLabel;

GroupBox2: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

SpinEdit2: TSpinEdit;

SpinEdit3: TSpinEdit;

SpinEdit4: TSpinEdit;

Button1: TButton;

GroupBox3: TGroupBox;

RadioButton3: TRadioButton;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

SpinEdit5: TSpinEdit;

SpinEdit6: TSpinEdit;

SpinEdit7: TSpinEdit;

SpinEdit8: TSpinEdit;

SpinEdit9: TSpinEdit;

SpinEdit10: TSpinEdit;

Button2: TButton;

Shape4: TShape;

Shape5: TShape;

GroupBox4: TGroupBox;

TrackBar1: TTrackBar;

Label16: TLabel;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

Edit1: TEdit;

FontDialog1: TFontDialog;

DXDraw1: TDXDraw;

DXTimer1: TDXTimer;

StringGrid1: TStringGrid;

GroupBox5: TGroupBox;

Button3: TButton;

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

Y: Integer);

procedure Shape2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure SpinEdit1Change(Sender: TObject);

procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure PaintBox1Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure Shape3MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormCreate(Sender: TObject);

procedure TabControl1Change(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Shape5MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Shape4MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure TrackBar1Change(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);

procedure DXDraw1Finalize(Sender: TObject);

procedure DXDraw1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

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

Y: Integer);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

h,i,k,n,m,a,b,v,z,r:integer;

f,q:boolean;

c:tcolor;

implementation

{$R *.dfm}

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

Y: Integer);

label 5;

begin

label1.caption:='X= '+inttostr(x)+' Y= '+inttostr(y);

if n=1 then paintbox1.Canvas.Pixels[x,y]:=paintbox1.Canvas.Pen.Color;

if n=1 then

if spinedit1.value=1 then paintbox1.Canvas.Pixels[x,y]:=paintbox1.Canvas.Pen.Color

else begin

c:=paintbox1.Canvas.Brush.Color;

paintbox1.Canvas.brush.Color:=paintbox1.Canvas.Pen.Color;

paintbox1.Canvas.Pen.style:=psclear;

i:=round(spinedit1.Value/2);

if shape3.shape=stcircle then paintbox1.Canvas.Ellipse(x-i,y-i,x+i,y+i) else

paintbox1.Canvas.rectangle(x-i,y-i,x+i,y+i);

paintbox1.Canvas.pen.Color:=paintbox1.Canvas.brush.Color;

paintbox1.Canvas.Brush.Color:=c;

paintbox1.Canvas.pen.style:=pssolid; end;

if n=5 then begin

ifshape3.shape=stsquarethen h:=round(spinedit1.Value*spinedit1.Value*trackbar1.Position/100)

else h:=round((spinedit1.Value/2)*(spinedit1.Value/2)*pi*trackbar1.position/100);

a:=round(x-spinedit1.value/2);

b:=round(y-spinedit1.value/2);

for i:=1 to h do begin

5: v:=random(spinedit1.Value);

z:=random(spinedit1.Value);

if shape3.Shape=stcircle then begin

if sqrt((x-a-v)*(x-a-v)+(y-b-z)*(y-b-z))>spinedit1.Value/2 then goto 5; end;

paintbox1.Canvas.Pixels[a+v,b+z]:=paintbox1.Canvas.Pen.Color;

end; end;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

if colordialog1.Execute then begin

shape2.Brush.Color:=colordialog1.Color;

paintbox1.Canvas.brush.Color:=colordialog1.Color; end;

end;

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

paintbox1.canvas.Pen.Width:=spinedit1.Value;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

k:=x; m:=y;

if speedbutton1.Down=true then n:=1;

if speedbutton2.Down=true then n:=2;

if speedbutton3.Down=true then n:=3;

if speedbutton4.Down=true then n:=4;

if speedbutton5.Down=true then n:=5;

if speedbutton6.Down=true then n:=6;

end;

procedure TForm1.PaintBox1Click(Sender: TObject);

begin

if (n=2) and (f=false) then begin

paintbox1.Canvas.MoveTo(k,m); f:=true; exit; end;

if (n=2) and (f=true) then begin

paintbox1.Canvas.lineTo(k,m); exit; end;

if (n=3) and (f=false) then begin

i:=k; h:=m; f:=true; exit; end;

if (n=3) and (f=true) then begin

paintbox1.Canvas.rectangle(i,h,k,m); f:=false; exit; end;

if (n=4) and (f=false) then begin

i:=k; h:=m; f:=true; exit; end;

if (n=4) and (f=true) then begin

paintbox1.Canvas.Ellipse(i,h,k,m); f:=false; exit; end;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

f:=false;

if sender=speedbutton6 then groupbox4.Visible:=true else groupbox4.Visible:=false;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

if colordialog1.Execute then begin

shape1.Brush.Color:=colordialog1.Color;

paintbox1.Canvas.Pen.Color:=colordialog1.Color; end;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked=false then begin

shape1.Brush.Style:=bsbdiagonal;

paintbox1.canvas.Pen.Style:=psclear; end

else begin

shape1.Brush.Style:=bssolid;

paintbox1.canvas.Pen.Style:=pssolid; end;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

if checkbox2.Checked=false then begin

shape2.Brush.Style:=bsbdiagonal;

paintbox1.canvas.brush.Style:=bsclear; end

else begin

shape2.Brush.Style:=bssolid;

paintbox1.canvas.brush.Style:=bssolid; end;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

if shape3.Shape=stcircle then shape3.Shape:=stsquare else shape3.Shape:=stcircle;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

randomize;

groupbox1.Left:=8;

groupbox1.Top:=24;

groupbox2.Left:=8;

groupbox2.Top:=24;

groupbox3.Left:=8;

groupbox3.Top:=24;

end;

procedure TForm1.TabControl1Change(Sender: TObject);

begin

if tabcontrol1.tabindex=0 then begin

groupbox1.Visible:=true;

groupbox2.Visible:=false;

groupbox3.Visible:=false;

groupbox5.Visible:=false;

paintbox1.Visible:=true;

dxdraw1.Visible:=false;

dxtimer1.Enabled :=false; exit; end;

if tabcontrol1.tabindex=1 then begin

groupbox3.Visible:=false;

groupbox2.Visible:=true;

groupbox1.Visible:=false;

groupbox5.Visible:=false;

paintbox1.Visible:=true;

dxdraw1.Visible:=false;

dxtimer1.Enabled :=false; exit; end;

if tabcontrol1.tabindex=2 then begin

groupbox3.Visible:=true;

groupbox2.Visible:=false;

groupbox1.Visible:=false;

groupbox5.Visible:=false;

paintbox1.Visible:=true;

dxdraw1.Visible:=false;

dxtimer1.Enabled :=false; exit; end;

if tabcontrol1.tabindex=3 then begin

groupbox3.Visible:=false;

groupbox2.Visible:=false;

groupbox1.Visible:=false;

groupbox5.Visible:=true;

paintbox1.Visible:=false;

dxdraw1.Visible:=true;

dxtimer1.Enabled :=true;

exit; end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if spinedit4.value<spinedit3.Value then begin showmessage('Размеры не соответствуют');

exit; end;

for i:=1 to spinedit2.value do begin

a:=random(paintbox1.Width);

b:=random(paintbox1.Height);

k:=spinedit1.Value+random(spinedit4.Value-spinedit3.value);

m:=spinedit1.Value+random(spinedit4.Value-spinedit3.value);

if radiobutton1.Checked=true then

paintbox1.Canvas.Rectangle(a,b,a+k,b+m) else paintbox1.Canvas.ellipse(a,b,a+k,b+m);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

for i:=1 to spinedit5.Value do begin

for h:=1 to spinedit6.Value do begin

k:=10+spinedit9.Value*(i-1);

m:=10+spinedit10.Value*(h-1);

if radiobutton3.Checked=true then

paintbox1.Canvas.Rectangle(k,m,k+spinedit7.Value,m+spinedit8.Value);

if radiobutton4.Checked=true then

paintbox1.Canvas.ellipse(k,m,k+spinedit7.Value,m+spinedit8.Value);

if radiobutton5.Checked=true then begin

paintbox1.Canvas.moveto(k+round(spinedit7.Value/2),m);

paintbox1.Canvas.lineto(k+round(spinedit7.Value/2),m+spinedit8.Value);

paintbox1.Canvas.moveto(k,m+round(spinedit8.Value/2));

paintbox1.Canvas.lineto(k+spinedit7.Value,m+round(spinedit8.Value/2));

end;

if radiobutton6.Checked=true then begin

paintbox1.Canvas.moveto(k+round(spinedit7.Value/2),m);

paintbox1.Canvas.lineto(k+spinedit7.Value,m+spinedit8.Value);

paintbox1.Canvas.lineto(k,m+spinedit8.Value);

paintbox1.Canvas.lineto(k+round(spinedit7.Value/2),m);

end;

end;

end;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

if colordialog1.Execute then begin

shape5.Brush.Color:=colordialog1.Color;

c:=paintbox1.Canvas.Brush.Color;

paintbox1.Canvas.Brush.Color:=colordialog1.Color;

paintbox1.Canvas.pen.Style:=psclear;

paintbox1.Canvas.rectangle(0,0,paintbox1.Width,paintbox1.Height);

paintbox1.Canvas.Brush.Color:=c;

if checkbox1.checked=true then

paintbox1.Canvas.Pen.Style:=pssolid;

end;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

c:=paintbox1.Canvas.Brush.Color;

paintbox1.Canvas.Brush.Color:=clbtnface;

paintbox1.Canvas.Pen.Style:=psclear;

paintbox1.Canvas.Rectangle(0,0,paintbox1.Width,paintbox1.Height);

paintbox1.Canvas.Brush.Color:=c;

if checkbox1.Checked=true then

paintbox1.Canvas.Pen.Style:=pssolid;

end;

procedure TForm1.TrackBar1Change(Sender: TObject);

begin

Label16.Caption:=inttostr(trackbar1.position);

end;

procedure TForm1.SpeedButton7Click(Sender: TObject);

begin

if fontdialog1.Execute then paintbox1.Canvas.Font:=fontdialog1.Font;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);

begin

if not dxdraw1.CanDraw then exit;

dxdraw1.Surface.Fill($00000000);

with dxdraw1.Surface.Canvas do begin

pen.Color:=clwhite; brush.Style:=bsclear;

release;

dxdraw1.Flip

end;

end;

procedure TForm1.DXDraw1Finalize(Sender: TObject);

begin

dxtimer1.Enabled :=false;

end;

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

Shift: TShiftState; X, Y: Integer);

begin

if n=6 then DXDraw1.Canvas.TextOut(x,y,edit1.text);

if n<>4 then n:=0;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

f:=false;

if sender=button3 then n:=3;

end;

end.



Вывод

С помощью программы Delphi7 был написан графический редактор с функцией рисования различных фигур (круг, эллипс, прямоугольника, линия), также с функцией закрашивания фигуры, контура. С помощью программы можно задать толщину линии, цвет контура, цвет заливки, форму кисти. Графический редактор удобно использовать для создания простых рисунков.



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

1. М. К. Керман «Программирование и отладка в Delphi. Учебный курс» - Вильямс, 2004г.

2. А. Хомоненко «Delphi 7 в подлиннике» - 2003г.

3. А.Я. Архангельский «Программирование в Delphi 7 » - Бином, 2003г.

4. Н. Культин «Основы программирования в Delphi 7» -2002г.

5. Г.В. Галисеев «Программирование в среде Delphi 7. Самоучитель» - 2003г.

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

...