37768

Розробка складних додатків з використанням графіки

Лабораторная работа

Информатика, кибернетика и программирование

ps unit Unit1; {mode objfpc}{H} interfce uses Clsses SysUtils FileUtil LResources Forms Controls Grphics Dilogs Menus StdCtrls ExtCtrls Spin; type { TForm1 } TForm1 = clssTForm Button1: TButton; Button2: TButton; Button3: TButton; ColorDilog1: TColorDilog; MinMenu1: TMinMenu; MenuItem1: TMenuItem; MenuItem2: TMenuItem; MenuItem3: TMenuItem; MenuItem4: TMenuItem; MenuItem5: TMenuItem; MenuItem6: TMenuItem; MenuItem7: TMenuItem; MenuItem8: TMenuItem; MenuItem9:...

Украинкский

2013-09-25

1.16 MB

1 чел.

7

Міністерство освіти і науки України

Хмельницький національний університет

Кафедра системного програмування

Лабораторна робота №6

з програмування

на тему:

«Розробка складних додатків з використанням графіки»

Виконав:

Студент групи КІ-10-1

Ноль М.Г.

Перевірив:

Мостовий С.В.

Хмельницький

2011

Лабораторна робота №6

Тема: Розробка складних додатків з використанням графіки.

Мета:ознайомитись з графічними можливостями середовища Delphi та навчитись їх застосовувати за призначенням.

Завдання

Розробити графічний редактор з можливостями кисті та заливки, який може працювати з графічними файлами (відкрити, зберегти) та  містить головне меню з пунктами “Файл”, “Формат ”, “Про програму”. Пункт меню “Файл” містить підпункти “Відкрити”, “Зберегти”, “Вихід”. Пункт меню “Формат” містить підпункти редагування розміру кисті та кольору.

Project1.lpr

program project1;

{$mode objfpc}{$H+}

uses

 {$IFDEF UNIX}{$IFDEF UseCThreads}

 cthreads,

 {$ENDIF}{$ENDIF}

 Interfaces, // this includes the LCL widgetset

 Forms, Unit1, LResources, Printer4Lazarus

 { you can add units after this };

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

begin

 {$I project1.lrs}

 Application.Title:='Текстовий редактор';

 Application.Initialize;

 Application.CreateForm(TForm1, Form1);

 Application.Run;

end.  


Unit1.pas

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, Menus, StdCtrls, ExtCtrls, Spin;

type

 { TForm1 }

 TForm1 = class(TForm)

   Button1: TButton;  Button2: TButton;  Button3: TButton;

   ColorDialog1: TColorDialog;

   MainMenu1: TMainMenu;

   MenuItem1: TMenuItem;   MenuItem2: TMenuItem;   MenuItem3: TMenuItem;

   MenuItem4: TMenuItem;   MenuItem5: TMenuItem;   MenuItem6: TMenuItem;

   MenuItem7: TMenuItem;   MenuItem8: TMenuItem;   MenuItem9: TMenuItem;

   MenuItem10: TMenuItem;  MenuItem11: TMenuItem;  MenuItem12: TMenuItem;

   MenuItem13: TMenuItem;  MenuItem14: TMenuItem;  MenuItem15: TMenuItem;

   MenuItem16: TMenuItem;  MenuItem17: TMenuItem;  MenuItem18: TMenuItem;

   OpenDialog1: TOpenDialog;   SaveDialog1: TSaveDialog;

   PaintBox1: TPaintBox;

   SpinEdit1: TSpinEdit;

   procedure Button1Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);

   procedure FormCreate(Sender: TObject);

   procedure MenuItem10Click(Sender: TObject);

   procedure MenuItem11Click(Sender: TObject);

   procedure MenuItem12Click(Sender: TObject);

   procedure MenuItem13Click(Sender: TObject);

   procedure MenuItem14Click(Sender: TObject);

   procedure MenuItem15Click(Sender: TObject);

   procedure MenuItem16Click(Sender: TObject);

   procedure MenuItem17Click(Sender: TObject);

   procedure MenuItem18Click(Sender: TObject);

   procedure MenuItem4Click(Sender: TObject);

   procedure MenuItem5Click(Sender: TObject);

   procedure MenuItem6Click(Sender: TObject);

   procedure MenuItem9Click(Sender: TObject);

   procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

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

   procedure PaintBox1Paint(Sender: TObject);

   procedure SpinEdit1Change(Sender: TObject);

 private

   { private declarations }

 public

   { public declarations }

 end;

var  Form1: TForm1; StartX, StartY,a:integer;

 pn,sv:boolean;  clr:TColor; BM,BMt:TBitmap;

 FName,FLoad:string;  SRect, DRect: TRect;

implementation

{ TForm1 }

procedure TForm1.MenuItem4Click(Sender: TObject); //відкрити

begin

if not sv then MenuItem5Click(Sender);

OpenDialog1.Filter:='Bitmap|*.bmp|All|*.*';

 if OpenDialog1.Execute then

begin sv:=false;

FLoad:=OpenDialog1.FileName;

BMt:=TBitmap.Create;

BMt.LoadFromFile(FLoad);

PaintBox1.Canvas.Clear; BM.LoadFromFile(FLoad);

PaintBox1.Width:=BMt.Width;

PaintBox1.Height:=BMt.Height;

PaintBox1.Canvas.Draw(0,0,BM);

BMt.Free;

end;

end;

procedure TForm1.MenuItem5Click(Sender: TObject);  //зберегти

begin

BMt:=TBitmap.Create;

BMt.Width:=PaintBox1.Width;

BMt.Height:=PaintBox1.Height;

DRect:=Rect(0,0,PaintBox1.Width,PaintBox1.Height);

SRect:=Rect(0,0,BMt.Width,BMt.Height);

BMt.Canvas.CopyRect(SRect,PaintBox1.Canvas,DRect);

SaveDialog1.Filter:='Bitmap|*.bmp|All|*.*';

if SaveDialog1.Execute then

begin

FName:=(SaveDialog1.FileName);

BMt.SaveToFile(FName+'.bmp');

sv:=True; BMt.Free;

end;

end;

procedure TForm1.MenuItem6Click(Sender: TObject);  //закрити

begin

 Form1.Close;

end;

procedure TForm1.MenuItem9Click(Sender: TObject);  //зменшити кисть

begin

PaintBox1.Canvas.Pen.Width:=PaintBox1.Canvas.Pen.Width-1;

if PaintBox1.Canvas.Pen.Width=1 then exit;

end;

procedure TForm1.MenuItem10Click(Sender: TObject);  //збільшити кисть

begin

PaintBox1.Canvas.Pen.Width:=PaintBox1.Canvas.Pen.Width+1;

if PaintBox1.Canvas.Pen.Width>=100 then exit;

end;

procedure TForm1.MenuItem11Click(Sender: TObject);  //вказати розмір

begin

a:=StrToInt(InputBox('Зміна розміру кисті','Введіть значення:',''));

a:=a div 1;

if a<1 then PaintBox1.Canvas.Pen.Width:=1 else

if a>100 then PaintBox1.Canvas.Pen.Width:=100 else

PaintBox1.Canvas.Pen.Width:=a;

end;

procedure TForm1.MenuItem12Click(Sender: TObject); //чорний

begin

 clr:=clBlack;

end;

procedure TForm1.MenuItem13Click(Sender: TObject); //червоний

begin

 clr:=clRed;

end;

procedure TForm1.MenuItem14Click(Sender: TObject); //синій

begin

 clr:=clBlue;

end;

procedure TForm1.MenuItem15Click(Sender: TObject); //зелений

begin

 clr:=clGreen;

end;

procedure TForm1.MenuItem16Click(Sender: TObject); //білий

begin

 clr:=clWhite;

end;

procedure TForm1.MenuItem17Click(Sender: TObject); //вказати колір

begin

 if ColorDialog1.Execute then clr:=ColorDialog1.Color;

end;

procedure TForm1.MenuItem18Click(Sender: TObject);  //Про програму

begin

 ShowMessage('Графічний редактор призначений для створення і збереження малюнків в форматі .bmp.'+#13+'При малюванні можна змінювати розмір та колір кисті для малювання.'+#13+'Розробник: Ноль М.Г., КІ-10-1.');

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

StartX:=X; StartY:=Y;

if pn=True then

begin

PaintBox1.Canvas.Brush.Color:=clr;

PaintBox1.Canvas.FloodFill(X,Y,PaintBox1.Canvas.Pixels[X,Y],fsSurface);

sv:=False;

BM.Width:=PaintBox1.Width;

BM.Height:=PaintBox1.Height;

DRect:=Rect(0,0,PaintBox1.Width,PaintBox1.Height);

SRect:=Rect(0,0,BM.Width,BM.Height);

BM.Canvas.CopyRect(SRect,PaintBox1.Canvas,DRect);

end else

PaintBox1.Canvas.Pen.Color:=clr;

end;

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

begin

 if not (ssLeft in Shift) then

Exit;

with PaintBox1.Canvas do begin

MoveTo(StartX,StartY);

LineTo(X,Y);

end;

StartX:=X;

StartY:=Y;

sv:=False;

BM.Width:=PaintBox1.Width;

BM.Height:=PaintBox1.Height;

DRect:=Rect(0,0,PaintBox1.Width,PaintBox1.Height);

SRect:=Rect(0,0,BM.Width,BM.Height);

BM.Canvas.CopyRect(SRect,PaintBox1.Canvas,DRect);

end;

procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

if not sv then begin PaintBox1.Canvas.Clear; PaintBox1.Canvas.Draw(0,0,BM); end;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);

begin

BMt:=TBitmap.Create;

BMt.Width:=PaintBox1.Width;

BMt.Height:=PaintBox1.Height;

DRect:=Rect(0,0,PaintBox1.Width,PaintBox1.Height);

SRect:=Rect(0,0,BMt.Width,BMt.Height);

BMt.Canvas.CopyRect(SRect,PaintBox1.Canvas,DRect);

 CanClose:=MessageDlg('Графічний редактор','Дійсно закрити?',mtConfirmation,[mbYes,mbNo],0)=mrYes;

 if CanClose and not sv then if (MessageDlg('Графічний редактор','Зберегти перед виходом ?',mtConfirmation,[mbYes,mbNo],0)=mrYes) then

 begin

 SaveDialog1.Filter:='Bitmap|*.bmp|All|*.*';

 if SaveDialog1.Execute then

    begin     FName:=(SaveDialog1.FileName);

    BMt.SaveToFile(FName+'.bmp');     sv:=True;

    end;

 end;

BMt.Free;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 pn:=False;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 pn:=True;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

PaintBox1.Canvas.Brush.Color:=clWhite;

PaintBox1.Canvas.Clear;

PaintBox1.Color:=clWhite;

BM.Width:=PaintBox1.Width;

BM.Height:=PaintBox1.Height;

DRect:=Rect(0,0,PaintBox1.Width,PaintBox1.Height);

SRect:=Rect(0,0,BM.Width,BM.Height);

BM.Canvas.CopyRect(SRect,PaintBox1.Canvas,DRect);

pn:=False;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

PaintBox1.Canvas.Pen.Width:=1;

PaintBox1.Canvas.Pen.Color:=clBlack;

sv:=True;

BM:=TBitmap.Create;

BM.Width:=PaintBox1.Width;

BM.Height:=PaintBox1.Height;

end;

initialization

 {$I unit1.lrs}

end.

Висновок.  Виконавши лабораторну роботу, я освоїв роботу програм з такими графічними компонентами як TPaintBox та його властивістю Canvas, яка дає можливість малювати на компоненті. Розглянув принципи роботи з властивостями канви Pen та Brush, її методами Rect, CopyRect, Clear та інші. Також закріпив навички роботи з компонентами середовища Delphi TMainMenu та діалогами TOpenDialog TSaveDialog, зрозумів основні принципи створення графічного редактора.


 

А также другие работы, которые могут Вас заинтересовать

51488. Полная экологическая характеристика Новгородской области 137 KB
  Основное богатство области - лес.Лесная зона Новгородской области делится на две подзоны - тайга и смешанные леса, граница между которыми выражена не резко. В настоящее время леса занимают около 40 % территории области и представлены тремя типами: хвойные...
51493. Установка нескольких операционных систем на один жесткий диск 152.5 KB
  Если хотите использовать только операционные системы семейства Windows в том числе Windows 2000 или Windows XP то без менеджера загрузки можно обойтись каждая из этих ОС имеет встроенный менеджер загрузки который в начальной стадии запуска компьютера предлагает меню для выбора запускаемой операционной системы. Если же кроме Windows хотите использовать другие операционные системы например Linux то без менеджера загрузки вам не обойтись. Windows NT 2000 XP Различные версии Windows NT и Windows 2000 имеют следующие ограничения:...
51494. Установка нескольких операционных систем на разные жесткие диски 61 KB
  Предположим что в компьютере уже есть жесткий диск № 1 с тремя операционными системами: Windows 2000 в первом первичном разделе; Windows ХР во втором первичном разделе; Linux в логическом разделе. Допустим требуется подключить еще один чистый жесткий диск № 2 и установить на него следующие операционные системы: Windows XP в первый первичный раздел; Windows 2000 во второй первичный раздел Linux другую разновидность в логический раздел. Первичный раздел №1 Первичный раздел №2 Логические разделы Windows 2000 Windows XP Linux...
51495. Установка и настройка сервера Lotus Domino 1.55 MB
  Lotus Notes является платформой для построения приложений автоматизации управленческих и документных процессов. Особенностью системы является объектно-ориентированная архитектура, благодаря которой возможно создание информационных систем, автоматизирующих работу со сложно-структурированными данными и неформализованными динамическими процессами.
51496. Основы маркетинга 243.5 KB
  ОТКРЫТИЕ МАРКЕТИНГА Вступительная статья Это что ирония Отнюдь. На такой вывод наталкивает сам факт появления книги Основы маркетинга с переводом которой знакомит советского читателя издательство Прогресс. Ее автор Филип Котлер профессор маркетинга Северо-Западного университета США один из активных деятелей Американской ассоциации маркетинга.