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

#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;
  Korean = true;

//========= 1 page
  start->Visible = true;
  b_korean->Visible = true;
  b_english->Visible = true;

//  bgImage->Visible = true;
//========= all Visible true
  back->Enabled = false;
  MainImage->Visible = true;

//========= select play page
  SelectImage->Visible = false;
  title->Visible = false;
  womanImage->Visible = false;
  manImage->Visible = false;
  childbabyImage->Visible = false;
  childbabyImage1->Visible = false;

  SelectImage_eng->Visible = false;
  title_eng->Visible = false;
  womanImage_eng->Visible = false;
  manImage_eng->Visible = false;
  childbabyImage_eng->Visible = false;
  childbabyImage1_eng->Visible = false;
//========= show page
  ShowPanel->Visible = false;

//========= all Visible false
  MediaPlayer1->Visible = false;

  Path = ExtractFileDir(Application->ExeName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::b_koreanClick(TObject *Sender)
{
  Korean = true;    //language = KOREAN

  item = 1;

//========= 1 page
  start->Visible = false;
  b_korean->Visible = false;
  b_english->Visible = false;

//========= show page
  ShowPanel->Visible = true;

  back->Enabled = true;

  MediaPlayer1->FileName =  Path + "\\main.avi";
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::b_englishClick(TObject *Sender)
{
  Korean = false;   //language = ENGLISH

  item = 2;

//========= 1 page
  start->Visible = false;
  b_korean->Visible = false;
  b_english->Visible = false;

//========= show page
  ShowPanel->Visible = true;

  back->Enabled = true;

  MediaPlayer1->FileName =  Path + "\\main_eng.avi";
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//  item => 1 : KOREAN first      2 : ENGLISH first
//          3 : Man               4 : Woman
//          5 : Child & Baby      6 : All
  if(item == 1){
    if(MediaPlayer1->Position == 494){
      item = 0;

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

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

      SelectImage_eng->Visible = true;
      title_eng->Visible = true;
      womanImage_eng->Visible = true;
      manImage_eng->Visible = true;
      childbabyImage_eng->Visible = true;
      childbabyImage1_eng->Visible = true;

      ShowPanel->Visible = false;
    }
  }else if(item == 3 || item == 4 || item == 5){
    if(Korean){
      if(MediaPlayer1->Position == 849){
        item = 0;

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

        ShowPanel->Visible = false;
      }
    }else {
      if(MediaPlayer1->Position == 592){
        item = 0;
        
        SelectImage_eng->Visible = true;
        title_eng->Visible = true;
        womanImage_eng->Visible = true;
        manImage_eng->Visible = true;
        childbabyImage_eng->Visible = true;
        childbabyImage1_eng->Visible = true;

       ShowPanel->Visible = false;
      }
    }
  }else if(item == 6){
    if(Korean){
      if(MediaPlayer1->Position == 1485){
        item = 0;

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

        ShowPanel->Visible = false;
      }
    }else {
      if(MediaPlayer1->Position == 1228){
        item = 0;

        SelectImage_eng->Visible = true;
        title_eng->Visible = true;
        womanImage_eng->Visible = true;
        manImage_eng->Visible = true;
        childbabyImage_eng->Visible = true;
        childbabyImage1_eng->Visible = true;

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

//  MainImage->Visible = false;

  if(Korean){
    SelectImage->Visible = false;
    title->Visible = false;
    womanImage->Visible = false;
    manImage->Visible = false;
    childbabyImage->Visible = false;
    childbabyImage1->Visible = false;
  }else {
    SelectImage_eng->Visible = false;
    title_eng->Visible = false;
    womanImage_eng->Visible = false;
    manImage_eng->Visible = false;
    childbabyImage_eng->Visible = false;
    childbabyImage1_eng->Visible = false;
  }

  ShowPanel->Visible = true;

  if(Korean){
    MediaPlayer1->FileName =  Path + "\\man.avi";
  }else {
    MediaPlayer1->FileName =  Path + "\\man_eng.avi";
  }
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::womanImageClick(TObject *Sender)
{
  item = 4;

//  MainImage->Visible = false;

  if(Korean){
    SelectImage->Visible = false;
    title->Visible = false;
    womanImage->Visible = false;
    manImage->Visible = false;
    childbabyImage->Visible = false;
    childbabyImage1->Visible = false;
  }else {
    SelectImage_eng->Visible = false;
    title_eng->Visible = false;
    womanImage_eng->Visible = false;
    manImage_eng->Visible = false;
    childbabyImage_eng->Visible = false;
    childbabyImage1_eng->Visible = false;
  }

  ShowPanel->Visible = true;

  if(Korean){
    MediaPlayer1->FileName = Path + "\\woman.avi";
  }else {
    MediaPlayer1->FileName = Path + "\\woman_eng.avi";
  }
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::childbabyImageClick(TObject *Sender)
{
  item = 5;

//  MainImage->Visible = false;

  if(Korean){
    SelectImage->Visible = false;
    title->Visible = false;
    womanImage->Visible = false;
    manImage->Visible = false;
    childbabyImage->Visible = false;
    childbabyImage1->Visible = false;
  }else {
    SelectImage_eng->Visible = false;
    title_eng->Visible = false;
    womanImage_eng->Visible = false;
    manImage_eng->Visible = false;
    childbabyImage_eng->Visible = false;
    childbabyImage1_eng->Visible = false;
  }

  ShowPanel->Visible = true;

  if(Korean){
    MediaPlayer1->FileName =  Path + "\\baby_child.avi";
  }else {
    MediaPlayer1->FileName =  Path + "\\baby_child_eng.avi";
  }
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::titleClick(TObject *Sender)
{
  item = 6;

//  MainImage->Visible = false;

  if(Korean){
    SelectImage->Visible = false;
    title->Visible = false;
    womanImage->Visible = false;
    manImage->Visible = false;
    childbabyImage->Visible = false;
    childbabyImage1->Visible = false;
  }else {
    SelectImage_eng->Visible = false;
    title_eng->Visible = false;
    womanImage_eng->Visible = false;
    manImage_eng->Visible = false;
    childbabyImage_eng->Visible = false;
    childbabyImage1_eng->Visible = false;
  }

  ShowPanel->Visible = true;

  if(Korean){
    MediaPlayer1->FileName =  Path + "\\all.avi";
  }else {
    MediaPlayer1->FileName =  Path + "\\all_eng.avi";
  }
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::backClick(TObject *Sender)
{
  if(item == 0){
//========= 1 page
    start->Visible = true;
    b_korean->Visible = true;
    b_english->Visible = true;
    
//    bgImage->Visible = true;
    back->Enabled = false;

    if(Korean){
      SelectImage->Visible = false;
      title->Visible = false;
      womanImage->Visible = false;
      manImage->Visible = false;
      childbabyImage->Visible = false;
      childbabyImage1->Visible = false;
    }else {
      SelectImage_eng->Visible = false;
      title_eng->Visible = false;
      womanImage_eng->Visible = false;
      manImage_eng->Visible = false;
      childbabyImage_eng->Visible = false;
      childbabyImage1_eng->Visible = false;
    }

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

//    MainImage->Visible = false;

    if(Korean){
      SelectImage->Visible = true;
      title->Visible = true;
      womanImage->Visible = true;
      manImage->Visible = true;
      childbabyImage->Visible = true;
      childbabyImage1->Visible = true;
    }else {
      SelectImage_eng->Visible = true;
      title_eng->Visible = true;
      womanImage_eng->Visible = true;
      manImage_eng->Visible = true;
      childbabyImage_eng->Visible = true;
      childbabyImage1_eng->Visible = true;
    }

    ShowPanel->Visible = false;
    MediaPlayer1->Visible = false;
  }
}
//---------------------------------------------------------------------------
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;
  MainImage->Width = Form1->Width - 9;

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

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

  b_korean->Left = control->Left + 326;
  b_korean->Top = control->Top + 448;
  b_english->Left = control->Left + 493;
  b_english->Top = control->Top + 448;

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

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

  title->Left = control->Left + 396;
  title->Top = control->Top + 456;
  manImage->Left = control->Left + 369;
  manImage->Top = control->Top + 507;
  womanImage->Left = control->Left + 521;
  womanImage->Top = control->Top + 507;
  childbabyImage->Left = control->Left + 369;
  childbabyImage->Top = control->Top + 535;
  childbabyImage1->Left = control->Left + 521;
  childbabyImage1->Top = control->Top + 535;

  title_eng->Left = control->Left + 409;
  title_eng->Top = control->Top + 461;
  manImage_eng->Left = control->Left + 457;
  manImage_eng->Top = control->Top + 504;
  womanImage_eng->Left = control->Left + 563;
  womanImage_eng->Top = control->Top + 504;
  childbabyImage_eng->Left = control->Left + 457;
  childbabyImage_eng->Top = control->Top + 523;
  childbabyImage1_eng->Left = control->Left + 563;
  childbabyImage1_eng->Top = control->Top + 523;


  back->Left = control->Left + 192;
  back->Top = control->Top + 651;
  close->Left = control->Left + 402;
  close->Top = control->Top + 651;

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

void __fastcall TForm1::closeClick(TObject *Sender)
{
  Application->Terminate();
}
//---------------------------------------------------------------------------