uFrmJogos.pas

unit uFrmJogos;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts, FMX.Ani, uFancyDialog;

type
  TFrmJogos = class(TForm)
    Layout1: TLayout;
    Label1: TLabel;
    Label2: TLabel;
    Layout2: TLayout;
    LytBotoes: TLayout;
    Rectangle1: TRectangle;
    Rectangle2: TRectangle;
    Label3: TLabel;
    Label4: TLabel;
    Image1: TImage;
    RecMenuFundo: TRectangle;
    Layout51: TLayout;
    Label12: TLabel;
    Image2: TImage;
    Layout52: TLayout;
    Layout53: TLayout;
    Image3: TImage;
    Label13: TLabel;
    Layout54: TLayout;
    Image4: TImage;
    Label14: TLabel;
    Layout55: TLayout;
    Image5: TImage;
    Label15: TLabel;
    Layout56: TLayout;
    Image6: TImage;
    Label16: TLabel;
    Layout57: TLayout;
    Image7: TImage;
    Label17: TLabel;
    WidthAnimation: TFloatAnimation;
    WidthAnimation2: TFloatAnimation;
    Layout4: TLayout;
    Image8: TImage;
    LBLINICIO: TLabel;
    procedure Image1Click(Sender: TObject);
    procedure WidthAnimationFinish(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Label13Click(Sender: TObject);
    procedure Label15Click(Sender: TObject);
    procedure Label17Click(Sender: TObject);
    procedure Label16Click(Sender: TObject);
    procedure Label14Click(Sender: TObject);
    procedure LBLINICIOClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    diag : TFancyDialog;
  end;

var
  FrmJogos: TFrmJogos;

implementation

{$R *.fmx}

uses
Loading, math, uDmPrincipal, uFrmVencedores, uFrmTabela, uFrmPrincipal, uFrmLotomania, uFrmInicial
,uOpenViewUrl;

procedure TFrmJogos.FormCreate(Sender: TObject);
begin
  diag := TFancyDialog.Create(FrmJogos);
end;

procedure TFrmJogos.Image1Click(Sender: TObject);
begin
   TThread.Synchronize(nil,procedure
    begin
      RecMenuFundo.Visible := true;

      WidthAnimation.Start;
    end);
end;

procedure TFrmJogos.Image2Click(Sender: TObject);
begin
   TThread.Synchronize(nil,procedure
    begin
      WidthAnimation2.Start;
    end);

    TThread.Synchronize(nil,procedure
    begin
      image2.HitTest := false;
      label12.Visible := false;
      layout52.Visible := false;
    end);
end;

procedure TFrmJogos.Label13Click(Sender: TObject);
begin
  Application.CreateForm(TFrmPrincipal,frmPrincipal);
  frmPrincipal.Show;

  frmPrincipal.geraNumeros(FrmPrincipal);
end;

procedure TFrmJogos.Label14Click(Sender: TObject);
begin
  Application.CreateForm(TFrmVencedores, frmVencedores);
  frmVencedores.Show;
end;

procedure TFrmJogos.Label15Click(Sender: TObject);
begin
  if not frmInicial.liberado then
    begin
      diag.Show(TIconDialog.Error,'Ops','Você ainda não tem acesso à esse bônus');
    end
    else
    begin
      Application.CreateForm(TFrmLotomania,FrmLotomania);
      FrmLotomania.Show;

      FrmLotomania.geraLotomaniaUm(FrmLotomania);
      FrmLotomania.geraLotomaniaDois(FrmLotomania);
      FrmLotomania.geraLotomaniaTres(FrmLotomania);
    end;
end;

procedure TFrmJogos.Label16Click(Sender: TObject);
begin
  if not frmInicial.liberado then
    begin
      diag.Show(TIconDialog.Error,'Ops','Você ainda não tem acesso à esse bônus');
    end
    else
    begin
      Application.CreateForm(TFrmTabela, FrmTabela);
      frmTabela.Show;
    end;
end;

procedure TFrmJogos.Label17Click(Sender: TObject);
begin
  TThread.Synchronize(nil,procedure
    begin
      WidthAnimation2.Start;
    end);

    TThread.Synchronize(nil,procedure
    begin
      image2.HitTest := false;
      label12.Visible := false;
      layout52.Visible := false;
    end);
end;

procedure TFrmJogos.Label3Click(Sender: TObject);
begin
  OpenUrl('https://www.youtube.com/watch?v=KErm6-U45aQ');
end;

procedure TFrmJogos.Label4Click(Sender: TObject);
begin
  OpenUrl('https://www.loteriasonline.caixa.gov.br/silce-web/#/lotofacil');
end;

procedure TFrmJogos.LBLINICIOClick(Sender: TObject);
begin
  Application.CreateForm(TFrmInicial, FrmInicial);
  FrmInicial.Show;
end;

procedure TFrmJogos.WidthAnimationFinish(Sender: TObject);
begin
  TThread.Synchronize(nil,procedure
    begin
      image2.HitTest := true;
      label12.Visible := true;
      layout52.Visible := true;
    end);
end;

end.