Графические примитивы (лаба) / Unit2

unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
TForm2 = class(TForm)
Timer1: TTimer;
procedure FormPaint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;


implementation

{$R *.dfm}

var
fl:boolean;

procedure TForm2.FormPaint(Sender: TObject);
var
parray:array [1..3] of tpoint;
marray:array [1..3] of tpoint;
m1array:array [1..3] of tpoint;
m2array:array [1..3] of tpoint;
m3array:array [1..3] of tpoint;
begin
with canvas do begin
Brush.Color := clYellow;
Brush.Color := RGB(Random(255),Random(255),Random(255));
form2.Canvas.Ellipse(60,150,70,200);
form2.Canvas.Ellipse(80,140,90,200);
form2.Canvas.Ellipse(110,150,120,200);
form2.Canvas.Ellipse(130,150,140,200);
form2.Canvas.Ellipse(95,150,105,220);
pen.color:=clYellow;
parray [1].X:=90;
parray [1].Y:=60;
parray [2].X:=100;
parray [2].Y:=20;
parray [3].X:=110;
parray [3].Y:=60;
brush.color:=clYellow;
Brush.Color := RGB(Random(255),Random(255),Random(255));
form2.Canvas.polygon(parray);
pen.color:=clBlack;
brush.color:=clBlack;
Brush.Color := RGB(Random(255),Random(255),Random(255));
form2.Canvas.RoundRect(160,60,40,180,100,100);
brush.color:=clRed;
form2.Canvas.ellipse(70,70,90,90);
brush.color:=clBlack;
Brush.Color := RGB(Random(255),Random(255),Random(255));
form2.Canvas.ellipse(85,85,75,75);
brush.color:=clRed;
Brush.Color := RGB(Random(255),Random(255),Random(255));
form2.Canvas.ellipse(110,70,130,90);
brush.color:=clBlack;
Brush.Color := RGB(Random(255),Random(255),Random(255));
form2.Canvas.ellipse(125,85,115,75);
pen.color:=clYellow;
brush.color:=clYellow;
Brush.Color := RGB(Random(255),Random(255),Random(255));
form2.Canvas.Rectangle(40,110,160,130);
brush.color:=clYellow;
Brush.Color := RGB(Random(255),Random(255),Random(255));
marray [1].X:=70;
marray [1].Y:=100;
marray [2].X:=100;
marray [2].Y:=110;
marray [3].X:=70;
marray [3].Y:=110;
form2.Canvas.polygon(marray);
m1array [1].X:=110;
m1array [1].Y:=110;
m1array [2].X:=140;
m1array [2].Y:=100;
m1array [3].X:=140;
m1array [3].Y:=110;
form2.Canvas.polygon(m1array);
m2array [1].X:=70;
m2array [1].Y:=130;
m2array [2].X:=70;
m2array [2].Y:=140;
m2array [3].X:=100;
m2array [3].Y:=130;
form2.Canvas.polygon(m2array);
m3array [1].X:=110;
m3array [1].Y:=130;
m3array [2].X:=140;
m3array [2].Y:=130;
m3array [3].X:=140;
m3array [3].Y:=140;

form2.Canvas.polygon(m3array);
Brush.Color := clPurple;
Brush.Color := RGB(Random(255),Random(255),Random(255));
pen.Color := clPurple;
form2.Canvas.Ellipse(95,95,110,110);
brush.color:=RGb(215,96,219);
Brush.Color := RGB(Random(255),Random(255),Random(255));
form2.canvas.ellipse(99,99,105,105);
Brush.Color := clBlack;
Brush.Color := RGB(Random(255),Random(255),Random(255));
pen.Color := clBlack;
form2.canvas.ellipse(50,220,150,240);
end;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
Repaint;
end;
end.