Unit1

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem10: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItem9: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure MenuItem10Click(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
    procedure MenuItem7Click(Sender: TObject);
    procedure MenuItem8Click(Sender: TObject);
    procedure MenuItem9Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  qw,qy:integer;

implementation
uses Unit2,Unit3;
{$R *.lfm}
    var    mycircl:tcircle;
           myrectangle:trectangle;
           mycirclmas:array[1..10] of tcircle;
           myrectanglemas:array[1..10] of trectangle;
{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Canvas.Pen.Mode:=pmnotxor;
end;

procedure TForm1.MenuItem10Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 10 do
myrectanglemas[i].moveto(random(101)-100,random(101)-100);

end;

procedure TForm1.MenuItem1Click(Sender: TObject);
begin

end;

procedure TForm1.MenuItem2Click(Sender: TObject);
begin

end;

procedure TForm1.MenuItem3Click(Sender: TObject);
begin
 myrectangle:=trectangle.create(random(image1.Width-40)+20,random(image1.Height-20)+20,random(100)-50,50);
  myrectangle.show;
end;

procedure TForm1.MenuItem4Click(Sender: TObject);
begin
  mycircl.moveto(random(101)-100,random(101)-100);

end;

procedure TForm1.MenuItem5Click(Sender: TObject);
begin
  mycircl:=tcircle.create(random(image1.Width-40)+20,random(image1.Height-20)+20,40);
  mycircl.show;
end;

procedure TForm1.MenuItem6Click(Sender: TObject);
begin
  myrectangle.moveto(random(101)-100,random(101)-100);
end;

procedure TForm1.MenuItem7Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to 10 do begin
  mycirclmas[i]:=tcircle.create(random(image1.Width-40)+20,random(image1.Height-20)+20,40);
  mycirclmas[i].show;end;
end;

procedure TForm1.MenuItem8Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to 10 do begin
  myrectanglemas[i]:=trectangle.create(random(image1.Width-40)+20,random(image1.Height-20)+20,random(100)-10,50);
  myrectanglemas[i].show;
 end;
end;

procedure TForm1.MenuItem9Click(Sender: TObject);
var i:integer;
begin
  for i:=0 to 10 do
  mycirclmas[i].moveto(random(101)-100,random(101)-100);
  end;


end.