Курсовые / Курсач по ОВП / ishodn / delphi / UNIT1

unit Unit1;

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    TGlav: TImage;
    bug1: TImage;
    bug2: TImage;
    GorLine1: TImage;
    VertLine1: TImage;
    VertLine2: TImage;
    GorLine2: TImage;
    Timer1: TTimer;
    Button1: TButton;
    run2: TImage;
    run4: TImage;
    run5: TImage;
    run3: TImage;
    Pusto: TImage;
    Text1: TStaticText;
    Image1: TImage;
    procedure Bug1Click(Sender: TObject);
    procedure Bug2Click(Sender: TObject);
    procedure starting(Sender: TObject);
    procedure Pr1(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Nashresize(Sender: TObject);
    procedure nashclose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t1,t2:TDateTime;
  n,x:integer;
  tim,b:boolean;
  implementation

{$R *.DFM}

procedure TForm1.Bug1Click(Sender: TObject);
begin
t1:=Time;
Timer1.Enabled:=True;
Label1.Caption:='0:00:00';
Bug2.Visible:=True;
Bug1.Visible:=False;
b:=true;
end;

procedure TForm1.Bug2Click(Sender: TObject);
begin
t2:=Time;
Timer1.Interval:=50;
Bug2.Visible:=false;
Bug1.Visible:=True;
Timer1.Enabled:=False;
Label1.Caption:=TimeToStr(t2-t1);
end;

procedure TForm1.starting(Sender: TObject);
begin
if Form1.Width<350 then Form1.Width:=370;
if Form1.height<340 then Form1.Height:=340;
run2.Visible:=False;
run3.Visible:=False;
run4.Visible:=False;
run5.Visible:=False;
TGlav.left:=(Form1.Width-350) div 2;
Label1.left:=(Form1.Width-42) div 2;
GorLine1.Top:=Label1.Top+19;
GorLine1.Left:=(Form1.Width-100) div 2;
VertLine1.Top:=GorLine1.Top-31;
VertLine1.Left:=GorLine1.Left-3;
VertLine2.Top:=GorLine1.Top-31;
VertLine2.Left:=GorLine1.Left+100;
GorLine2.Left:=(Form1.Width-100) div 2;
GorLine2.Top:=VertLine1.Top;
Bug1.Left:=10;
Bug2.Left:=Form1.Width-15-100;
Button1.Left:=(Form1.Width-Button1.Width) div 2;
n:=2;
x:=0;
tim:=false;
b:=false;
Timer1.interval:=1;
end;

procedure TForm1.Pr1(Sender: TObject);
begin
t2:=Time;
Label1.Caption:=TimeToStr(t2-t1);
if Timer1.Interval>100 then Timer1.Interval:=1;
if b then
 begin
  if x+14>form1.Width-5 then x:=0;
  if n=5 then
   begin
    n:=2;
    run5.visible:=false;
    run2.left:=x;
    run2.visible:=true;
    tim:=true;
   end;
  if n=4 then
   begin
    n:=5;
    run4.visible:=false;
    run5.left:=x;
    run5.visible:=true;
   end;
  if n=3 then
   begin
    n:=4;
    run3.visible:=false;
    run4.left:=x;
    run4.visible:=true;
   end;
  if (n=2) and (not tim) then
   begin
    n:=3;
    run2.visible:=false;
    run3.left:=x;
    run3.visible:=true;
    tim:=true;
   end;
  tim:=false;
  pusto.left:=x-10;
  x:=x+9;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if timer1.enabled then timer1.Interval:=5000;
end;

procedure TForm1.Nashresize(Sender: TObject);
begin
if Form1.Width<350 then Form1.Width:=390;
if Form1.height<340 then Form1.Height:=360;
TGlav.left:=(Form1.Width-350) div 2;
Label1.left:=(Form1.Width-42) div 2;
GorLine1.Top:=Label1.Top+19;
GorLine1.Left:=(Form1.Width-100) div 2;
VertLine1.Top:=GorLine1.Top-31;
VertLine1.Left:=GorLine1.Left-3;
VertLine2.Top:=GorLine1.Top-31;
VertLine2.Left:=GorLine1.Left+100;
GorLine2.Left:=(Form1.Width-100) div 2;
GorLine2.Top:=VertLine1.Top;
Bug1.Left:=10;
Bug2.Left:=Form1.Width-15-100;
Button1.Left:=(Form1.Width-Button1.Width) div 2;
Text1.left:=(form1.width-243) div 2;
Text1.top:=gorline1.top+20+20;
end;

procedure TForm1.nashclose(Sender: TObject; var Action: TCloseAction);
begin
Image1.Visible:=True;
end;

end.