Курсовая по Делфи

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus,ShellAPI, StdCtrls,Unit2;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Button5: TButton;
    Panel2: TPanel;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N3: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
 
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  masx,masy: integer;
  x,y,i,cur,vsego: integer;
  koef:real;
  flag:bool;
 
implementation
 
{$R *.dfm}
 
    procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     masx:=x+10;
masy:=y+10;
     Image1.Canvas.FillRect(rect(0, 0, image1.width,image1.height));
   Image1.Canvas.MoveTo(masx+round(koef*(50+x)),masy+round(koef*(10+y))); // стержень
    Image1.Canvas.LineTo(masx+round(koef*(50+x)),masy+round(koef*(100+y)));  // стержень
      Image1.Canvas.MoveTo(masx+round(koef*(30+x)),masy+round(koef*(30+y))); //  верхняя палочка
    Image1.Canvas.LineTo(masx+round(koef*(70+x)),masy+round(koef*(30+y)));  // верхняя палочка
     Image1.Canvas.MoveTo(masx+round(koef*(30+x)),masy+round(koef*(30+y)));  //  левая веточка
    Image1.Canvas.LineTo(masx+round(koef*(50+x)),masy+round(koef*(50+y)));    //  левая веточка
     Image1.Canvas.MoveTo(masx+round(koef*(70+x)),masy+round(koef*(30+y)));   //  правая веточка
     Image1.Canvas.LineTo(masx+round(koef*(50+x)),masy+round(koef*(50+y)));   //    правая веточка
       Image1.Canvas.MoveTo(masx+round(koef*(30+x)),masy+round(koef*(50+y))); //  нижняя палочка
    Image1.Canvas.LineTo(masx+round(koef*(70+x)),masy+round(koef*(50+y)));    // нижняя палочка
      Image1.Canvas.MoveTo(masx+round(koef*(75+x)),masy+round(koef*(50+y))); // стрелочка 1
    Image1.Canvas.LineTo(masx+round(koef*(90+x)),masy+round(koef*(40+y)));  //  стрелочка 1
       Image1.Canvas.MoveTo(masx+round(koef*(80+x)),masy+round(koef*(40+y))); // стрелочка  1
    Image1.Canvas.LineTo(masx+round(koef*(90+x)),masy+round(koef*(40+y)));  //  стрелочка  1
      Image1.Canvas.MoveTo(masx+round(koef*(90+x)),masy+round(koef*(47+y))); // стрелочка 1
    Image1.Canvas.LineTo(masx+round(koef*(90+x)),masy+round(koef*(40+y)));  //  стрелочка 1
     Image1.Canvas.MoveTo(masx+round(koef*(75+x)),masy+round(koef*(30+y))); // стрелочка  2
    Image1.Canvas.LineTo(masx+round(koef*(90+x)),masy+round(koef*(20+y)));  //  стрелочка  2
       Image1.Canvas.MoveTo(masx+round(koef*(80+x)),masy+round(koef*(20+y))); // стрелочка  2
    Image1.Canvas.LineTo(masx+round(koef*(90+x)),masy+round(koef*(20+y)));  //  стрелочка  2
      Image1.Canvas.MoveTo(masx+round(koef*(90+x)),masy+round(koef*(27+y))); // стрелочка  2
    Image1.Canvas.LineTo(masx+round(koef*(90+x)),masy+round(koef*(20+y)));  //  стрелочка  2
    Image1.Canvas.TextOut(masx+round(koef*(70+x)),masy+round(koef*(80+y)),'VD'+IntToStr(vsego));
end;
 
procedure TForm1.Button1Click(Sender: TObject); // увеличение объекта
begin
koef:=koef+0.1;
end;
 
procedure TForm1.N2Click(Sender: TObject); // открытие программы
begin
koef:=1;
vsego:=1;
 Image1.Canvas.FillRect(rect(0, 0, image1.width,image1.height));
   Image1.Canvas.MoveTo(50+x,10+y); // стержень
    Image1.Canvas.LineTo(50+x,100+y);  // стержень
      Image1.Canvas.MoveTo(30+x,30+y); //  верхняя палочка
    Image1.Canvas.LineTo(70+x,30+y);  // верхняя палочка
     Image1.Canvas.MoveTo(30+x,30+y);  //  левая веточка
    Image1.Canvas.LineTo(50+x,50+y);    //  левая веточка
     Image1.Canvas.MoveTo(70+x,30+y);   //  правая веточка
     Image1.Canvas.LineTo(50+x,50+y);   //    правая веточка
       Image1.Canvas.MoveTo(30+x,50+y); //  нижняя палочка
    Image1.Canvas.LineTo(70+x,50+y);    // нижняя палочка
      Image1.Canvas.MoveTo(75+x,50+y); // стрелочка 1
    Image1.Canvas.LineTo(90+x,40+y);  //  стрелочка 1
       Image1.Canvas.MoveTo(80+x,40+y); // стрелочка  1
    Image1.Canvas.LineTo(90+x,40+y);  //  стрелочка  1
      Image1.Canvas.MoveTo(90+x,47+y); // стрелочка 1
    Image1.Canvas.LineTo(90+x,40+y);  //  стрелочка 1
     Image1.Canvas.MoveTo(75+x,30+y); // стрелочка  2
    Image1.Canvas.LineTo(90+x,20+y);  //  стрелочка  2
       Image1.Canvas.MoveTo(80+x,20+y); // стрелочка  2
    Image1.Canvas.LineTo(90+x,20+y);  //  стрелочка  2
      Image1.Canvas.MoveTo(90+x,27+y); // стрелочка  2
    Image1.Canvas.LineTo(90+x,20+y);  //  стрелочка  2
    Image1.Canvas.TextOut(70+x,80+y,'VD'+IntToStr(vsego));
end;
 
procedure TForm1.Button2Click(Sender: TObject); // уменьшение
begin
 koef:=koef-0.1;
end;
 
procedure TForm1.Button3Click(Sender: TObject);  // добавление
begin
 vsego:=vsego+1;
end;
 
procedure TForm1.Button4Click(Sender: TObject); // удаление
begin
 vsego:=vsego-1;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);  // перемещение по форме
begin
if key=vk_Shift then begin  masx:=x+10;end;
if key=vk_Space then begin masy:=y+10; end;
end;
 
procedure TForm1.N6Click(Sender: TObject); // показ титульника
begin
Form2.Show;
end;
 
procedure TForm1.N8Click(Sender: TObject); //добавление
begin
  vsego:=vsego+1;
end;
 
procedure TForm1.N9Click(Sender: TObject); //удаление
begin
  vsego:=vsego-1;
end;
 
procedure TForm1.N10Click(Sender: TObject); //уменьшить
begin
 koef:=koef-0.1;
end;
 
procedure TForm1.N11Click(Sender: TObject);  //увеличить
begin
koef:=koef+0.1;
end;
 
end.