Animacie

unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
  semaforStop: TButton;
  semaforStart: TButton;
  diskotekaStart: TButton;
  diskotekaStop: TButton;
    gulickaStop: TButton;
    gulickaStart: TButton;
    gulicka: TShape;
    gulickaT: TTimer;
    diskotekaT: TTimer;
    Panel1: TPanel;
    Shape1: TShape;
    Shape2: TShape;
    Shape3: TShape;
    semaforT: TTimer;
    procedure diskotekaStartClick(Sender: TObject);
    procedure diskotekaStopClick(Sender: TObject);
    procedure diskotekaTTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure gulickaStartClick(Sender: TObject);
    procedure gulickaStopClick(Sender: TObject);
    procedure gulickaTTimer(Sender: TObject);
    procedure semaforStartClick(Sender: TObject);
    procedure semaforStopClick(Sender: TObject);
    procedure semaforTTimer(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  sec:byte;
  dole:boolean;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.gulickaStartClick(Sender: TObject);
begin
  gulickaT.Enabled:=true;
end;

procedure TForm1.gulickaStopClick(Sender: TObject);
begin
  gulickaT.Enabled:=false;
end;

procedure TForm1.gulickaTTimer(Sender: TObject);
begin
  if gulicka.Top + gulicka.Height = Form1.Height then dole:=true;
  if gulicka.Top = 0 then dole:=false;
  if dole = true then gulicka.Top:=gulicka.Top-1;
  if dole = false then gulicka.Top:=gulicka.Top+1;
end;

procedure TForm1.diskotekaStartClick(Sender: TObject);
begin
  diskotekaT.Enabled:=true;
end;

procedure TForm1.diskotekaStopClick(Sender: TObject);
begin
  diskotekaT.Enabled:=false;
  Form1.Color:=clDefault;
end;

procedure TForm1.diskotekaTTimer(Sender: TObject);
begin
  randomize;
  Form1.Color:=random(16000000);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 dole:=false;
end;

procedure TForm1.semaforStartClick(Sender: TObject);
begin
  semaforT.Enabled:=true;
  sec:=0;
end;

procedure TForm1.semaforStopClick(Sender: TObject);
begin
  semaforT.Enabled:=false;
end;

procedure TForm1.semaforTTimer(Sender: TObject);
begin
  inc(sec);
  if sec = 12 then sec:=0;
  if sec < 6 then
   begin
     Shape1.Visible:=True;
     Shape2.Visible:=False;
     Shape3.Visible:=False;
   end;
  if sec = 7 then
   begin
     Shape1.Visible:=False;
     Shape2.Visible:=True;
     Shape3.Visible:=False;
   end;
  if sec > 7 then
   begin
     Shape1.Visible:=False;
     Shape2.Visible:=False;
     Shape3.Visible:=True;
   end;
end;


end.