//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Animate"
#pragma link "GIFCtrl"
#pragma link "RxGIF"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  item = 0;

//  bgImage->Visible = true;
  back->Visible = false;

  MainImage->Visible = true;
  newImage->Visible = true;
  leftImage->Visible = true;
  rightImage->Visible = true;

  SelectImage->Visible = false;
  title->Visible = false;
  womanImage->Visible = false;
  manImage->Visible = false;
  childbabyImage->Visible = false;

  ShowPanel->Visible = false;
  MediaPlayer1->Visible = false;

  Path = ExtractFileDir(Application->ExeName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if(item == 1){
    if(MediaPlayer1->Position == 175){
      item = 0;
      back->Visible = true;

      SelectImage->Visible = true;
      title->Visible = true;
      womanImage->Visible = true;
      manImage->Visible = true;
      childbabyImage->Visible = true;

      ShowPanel->Visible = false;
    }
  }else if(item == 2){
    if(MediaPlayer1->Position == 175){
      item = 0;
      back->Visible = true;

      SelectImage->Visible = true;
      title->Visible = true;
      womanImage->Visible = true;
      manImage->Visible = true;
      childbabyImage->Visible = true;

      ShowPanel->Visible = false;
    }
  }else if(item == 3){
    if(MediaPlayer1->Position == 175){
      item = 0;
      back->Visible = true;

      SelectImage->Visible = true;
      title->Visible = true;
      womanImage->Visible = true;
      manImage->Visible = true;
      childbabyImage->Visible = true;

      ShowPanel->Visible = false;
    }
  }else if(item == 4){
    if(MediaPlayer1->Position == 493){
      item = 0;
      back->Visible = true;

      SelectImage->Visible = true;
      title->Visible = true;
      womanImage->Visible = true;
      manImage->Visible = true;
      childbabyImage->Visible = true;

      ShowPanel->Visible = false;
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::leftImageClick(TObject *Sender)
{
  back->Visible = true;

  MainImage->Visible = false;
  newImage->Visible = false;
  leftImage->Visible = false;
  rightImage->Visible = false;

  SelectImage->Visible = true;
  title->Visible = true;
  womanImage->Visible = true;
  manImage->Visible = true;
  childbabyImage->Visible = true;

  ShowPanel->Visible = false;
  MediaPlayer1->Visible = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::rightImageClick(TObject *Sender)
{
/*
  bool check;
  AnsiString zipfile;
  AnsiString FileName, ext;

  if (Save->Execute()){
    Form1->Cursor = crHourGlass;
    Application->ProcessMessages();
    zipfile = Path+"\\05vol1.zip";
    ext = ".zip";
    FileName = Save->FileName;
    FileName = GetFullFileNameExt(FileName, ext);
    check = CopyFile(zipfile.c_str(),FileName.c_str(),false);
    Form1->Cursor = crDefault;
  }
*/
  AnsiString InstallFileName;
  InstallFileName = Path + "\\StyleDataInstaller.exe";
  WinExec(InstallFileName.c_str(),SW_SHOWNORMAL);
//  ShellExecute(0, "open", InstallFileName.c_str(), "", "", SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::womanImageClick(TObject *Sender)
{
  item = 1;

  back->Visible = true;

  MainImage->Visible = false;
  newImage->Visible = false;
  leftImage->Visible = false;
  rightImage->Visible = false;

  SelectImage->Visible = false;
  title->Visible = false;
  womanImage->Visible = false;
  manImage->Visible = false;
  childbabyImage->Visible = false;

  ShowPanel->Visible = true;

  MediaPlayer1->FileName = Path + "\\Movie1.avi";
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::manImageClick(TObject *Sender)
{
  item = 2;

  back->Visible = true;

  MainImage->Visible = false;
  newImage->Visible = false;
  leftImage->Visible = false;
  rightImage->Visible = false;

  SelectImage->Visible = false;
  title->Visible = false;
  womanImage->Visible = false;
  manImage->Visible = false;
  childbabyImage->Visible = false;

  ShowPanel->Visible = true;

  MediaPlayer1->FileName =  Path + "\\Movie2.avi";
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::childbabyImageClick(TObject *Sender)
{
  item = 3;

  back->Visible = true;

  MainImage->Visible = false;
  newImage->Visible = false;
  leftImage->Visible = false;
  rightImage->Visible = false;

  SelectImage->Visible = false;
  title->Visible = false;
  womanImage->Visible = false;
  manImage->Visible = false;
  childbabyImage->Visible = false;

  ShowPanel->Visible = true;

  MediaPlayer1->FileName =  Path + "\\Movie3.avi";
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::backClick(TObject *Sender)
{
  if(item == 0){
//    bgImage->Visible = true;
    back->Visible = false;

    MainImage->Visible = true;
    newImage->Visible = true;
    leftImage->Visible = true;
    rightImage->Visible = true;

    SelectImage->Visible = false;
    title->Visible = false;
    womanImage->Visible = false;
    manImage->Visible = false;
    childbabyImage->Visible = false;

    ShowPanel->Visible = false;
    MediaPlayer1->Visible = false;
  }else {
    item = 0;
    back->Visible = true;

    MainImage->Visible = false;
    newImage->Visible = false;
    leftImage->Visible = false;
    rightImage->Visible = false;

    SelectImage->Visible = true;
    title->Visible = true;
    womanImage->Visible = true;
    manImage->Visible = true;
    childbabyImage->Visible = true;

    ShowPanel->Visible = false;
    MediaPlayer1->Visible = false;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::titleClick(TObject *Sender)
{
  item = 4;

  back->Visible = true;

  MainImage->Visible = false;
  newImage->Visible = false;
  leftImage->Visible = false;
  rightImage->Visible = false;

  SelectImage->Visible = false;
  title->Visible = false;
  womanImage->Visible = false;
  manImage->Visible = false;
  childbabyImage->Visible = false;

  ShowPanel->Visible = true;

  MediaPlayer1->FileName =  Path + "\\Movie4.avi";
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TForm1::GetFullFileNameExt(AnsiString FullFileName, AnsiString ext)
{
  int len;
  AnsiString FileName, str;
  FileName = FullFileName;
  len = FileName.Length();
  if (len > 4){
    str = FileName.SubString(len - 3, 4);
    if (str.LowerCase() == ext.LowerCase())
      return FileName;
    else
      return (FileName + ext);
  } else return (FileName + ext);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{

  MainImage->Height = Form1->Height - 36;                            //Form->  998   1288 MainImage->  962   1279   Â÷ÀÌ  36  9
  MainImage->Width = Form1->Width - 9;


  newImage->Left = (MainImage->Width - newImage->Width)/2;          //newImage->Left      401(427) 154(84)
  newImage->Top = (MainImage->Height - newImage->Height)/2;
  leftImage->Left = newImage->Left + 37;                            //leftImage->Left     438(464) 748(678)
  leftImage->Top = newImage->Top + 594;
  rightImage->Left = newImage->Left + 251;                          //rightImage->Left    652(678) 747(677)
  rightImage->Top = newImage->Top + 593;

  SelectImage->Left = (MainImage->Width - SelectImage->Width)/2;    //SelectImage->Left      204 168
  SelectImage->Top = (MainImage->Height- ShowPanel->Height)/2;
  title->Left = SelectImage->Left + 272;                            //title->Left            476 465
  title->Top = SelectImage->Top + 297;
  womanImage->Left = SelectImage->Left + 436;                       //womanImage->Left       640 550
  womanImage->Top = SelectImage->Top + 382;
  manImage->Left = SelectImage->Left + 436;                         //manImage->Left         640 590
  manImage->Top = SelectImage->Top + 422;
  childbabyImage->Left = SelectImage->Left + 436;                   //childbabyImage->Left   640 634
  childbabyImage->Top = SelectImage->Top + 466;

  ShowPanel->Left = (MainImage->Width - ShowPanel->Width)/2;
  ShowPanel->Top = (MainImage->Height- ShowPanel->Height)/2;

  back->Left = (MainImage->Width - back->Width)/2;
  back->Top = ShowPanel->Top + 656;                                 //824 - 168 = 656

}
//---------------------------------------------------------------------------