Міністерство освіти науки молоді та спорту Національний університет «Львівська політехніка» КОНТРОЛЬНА РОБОТА на тему “Створення проекту з елементами графіки” Мета: Створити проект Delphi для побудови рухомих графічних зображень. Основні елементи зображення розглядати як об’єкти класів, які необхідно ввести та описати. Рух або зміну об’єктів реалізувати за допомогою відповідних методів класів. Завдання: Файл копіюється(політ); Код програми: unit unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Unit2,Unit3; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1 : TForm1; tf : TFile; tr : TRamka; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i,j,p,h,n:Integer; begin with Canvas do begin tr.PainR(Form1.Canvas); tf.PainM(Form1.Canvas); end; end; procedure TForm1.Button2Click(Sender: TObject); begin Close; end; end. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFile=class procedure PainF(x1:Integer;y1:Integer;x2:Integer;y2:Integer;BColor:LongInt;PColor:LongInt;c:TCanvas); procedure PainM(c:TCanvas); end; var tf : TFile; implementation procedure TFile.PainF(x1:Integer;y1:Integer;x2:Integer;y2:Integer;BColor:Longint;PColor:LongInt;c:TCanvas); begin with c do begin Brush.Color:=BColor; Pen.Color:=PColor; Rectangle(x1,y1,x2,y2); end; end; procedure TFile.PainM(c:TCanvas); var h,p,i,n:Integer; begin with c do begin h:=-1; Brush.Color:=16119000; for p:=1 to 2 do begin for i:=1 to 190 do begin tf.PainF(105+i-1,50,135+i-1,80,16119000,16119000,c); tf.PainF(105+i,50,135+i,80,clWhite,clGray,c); if h>=0 then n:=i+190 else n:=i; if n<369 then begin Pen.Color:=clBlue; MoveTo(30+n,130); LineTo(30+n,140); end; sleep(12); end; h:=1; Pen.Color:=16119000; Brush.Color:=16119000; Rectangle(104+i,50,135+i,80); sleep(20); end; Pen.Color:=16119000; Brush.Color:=16119000; Rectangle(35,110,215,130); TextOut(37,110,'виконано'); end; end; end. unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TRamka=class procedure PainR(c:TCanvas); end; implementation procedure TRamka.PainR(c:TCanvas); begin with c do begin Pen.Color := clBlue; Brush.Color := 16119000; Rectangle(30,20,400,200); MoveTo(30,42); LineTo(400,42); TextOut(37,25,'копіювання...'); MoveTo(30,90); LineTo(400,90); Rectangle(30,130,400,140); TextOut(37,170,'Опрацювання: Файл1.exe'); Rectangle(300,167,385,188); TextOut(315,170,'Скасувати'); //папки Pen.Color:=clOlive; Brush.Color := clOlive; //1 папка MoveTo(70,50); LineTo(100,54); LineTo(100,84); LineTo(70,79); LineTo(70,50); FloodFill(80,60,clOlive,fsBorder); //2 папка MoveTo(330,50); LineTo(360,54); LineTo(360,84); LineTo(330,79); LineTo(330,50); FloodFill(350,60,clOlive,fsBorder); //лінія розділення Pen.Color:=clGray; MoveTo(30,155); LineTo(400,155); //Brush.Color:=clBlue; //Rectangle(30,130,235,140); Pen.Color := clred; Brush.Color:=clRed; Rectangle(360,20,400,43); //хрестик Pen.Color := clWhite; MoveTo(370,27); LineTo(390,37);