Создание простейших графических примитивов в Delphi - Delphi - Ответ 3814050

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
var
  a,b, h, x1, y1, x2, y2:integer;
  point: array[1..4] of TPoint;
  p:array[1..4] of TPoint; x,y:integer;c:TCanvas;
implementation
{$R *.dfm}
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
//координаты вершин многоугольника
point: array[1..25]of TPoint;
 
begin
case Button of 
mbLeft:
begin
//Координаты первой точки
point[1].X:=20+X; point[1].Y:=20+Y;
//Координаты второй точки
point[2].X:=30+X; point[2].Y:=20+Y;
//Координаты третьей точки
point[3].X:=40+X; point[3].Y:=0+Y;
//Координаты четвертой точки
point[4].X:=50+X; point[4].Y:=20+Y;
point[5].X:=130+X; point[5].Y:=20+Y;
point[6].X:=140+X; point[6].Y:=0+Y;
point[7].X:=150+X; point[7].Y:=20+Y;
point[8].X:=160+X; point[8].Y:=20+Y;
point[9].X:=120+X; point[9].Y:=100+Y;
point[10].X:=160+X; point[10].Y:=210+Y;
point[11].X:=200+X; point[11].Y:=80+Y;
point[12].X:=240+X; point[12].Y:=120+Y;
point[13].X:=160+X; point[13].Y:=210+Y;
point[14].X:=170+X; point[14].Y:=240+Y;
point[15].X:=140+X; point[15].Y:=240+Y;
point[16].X:=150+X; point[16].Y:=260+Y;
point[17].X:=130+X; point[17].Y:=260+Y;
point[18].X:=120+X; point[18].Y:=240+Y;
point[19].X:=50+X; point[19].Y:=240+Y;
point[20].X:=40+X; point[20].Y:=260+Y;
point[21].X:=20+X; point[21].Y:=260+Y;
point[22].X:=30+X; point[22].Y:=240+Y;
point[23].X:=0+X; point[23].Y:=240+Y;
point[24].X:=60+X; point[24].Y:=100+Y;
point[25].X:=20+X; point[25].Y:=20+Y;
Form1.Canvas.Polygon(point);
form1.Canvas.MoveTo(20+X,20+y); // Задаем начальную точку
form1.Canvas.LineTo(160+X,20+y); // Рисуем первую линию
form1.Canvas.MoveTo(0+X,240+y); // Задаем начальную точку
form1.Canvas.LineTo(170+X,240+y); // Рисуем первую линию
 // левый глаз
form1.Canvas.MoveTo(50+X,50+y); // Задаем начальную точку
form1.Canvas.LineTo(60+X,40+y); // Рисуем первую линию
form1.Canvas.LineTo(70+X,50+y); // Рисуем первую линию
form1.Canvas.LineTo(60+X,60+y); // Рисуем первую линию
form1.Canvas.LineTo(50+X,50+y); // Рисуем первую линию
 
 // правый глаз
form1.Canvas.MoveTo(110+X,50+y); // Задаем начальную точку
form1.Canvas.LineTo(120+X,40+y); // Рисуем первую линию
form1.Canvas.LineTo(130+X,50+y); // Рисуем первую линию
form1.Canvas.LineTo(120+X,60+y); // Рисуем первую линию
form1.Canvas.LineTo(110+X,50+y); // Рисуем первую линию
 
//нос
form1.Canvas.MoveTo(80+X,70+y); // Задаем начальную точку
form1.Canvas.LineTo(100+X,70+y); // Рисуем первую линию
form1.Canvas.LineTo(90+X,80+y); // Рисуем первую линию
form1.Canvas.LineTo(80+X,70+y); // Рисуем первую линию
 
form1.Canvas.MoveTo(80+X,80+y); // Задаем начальную точку
form1.Canvas.LineTo(10+X,60+y); // Рисуем первую линию
form1.Canvas.MoveTo(80+X,80+y); // Задаем начальную точку
form1.Canvas.LineTo(20+X,90+y); // Рисуем первую линию
 
form1.Canvas.MoveTo(100+X,80+y); // Задаем начальную точку
form1.Canvas.LineTo(160+X,60+y); // Рисуем первую линию
form1.Canvas.MoveTo(100+X,80+y); // Задаем начальную точку
form1.Canvas.LineTo(150+X,90+y); // Рисуем первую линию
end;
end;
end;
 
end.