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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Mystd"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}

//----------------------------------------------------------------- Variables
bool isPresentVisible = false;
bool isCretaceousVisible = false;
bool isJurassicVisible = false;
bool isTriassicVisible = false;
bool isPermianVisible = false;
bool isDrawVisible = false;
bool isTimerOn = false;
int slide;

//------------------------------------------------------------- Code Examples
//   Form1->ImageAcetate->Picture->Bitmap->TransparentColor = clWhite;
// ->TransparentMode = tmAuto;    DEFAULT (color of bottom-left-most pixel)
// ->TransparentMode = tmFixed;   (color of TransparentColor)
// ->TransparentColor = clWhite;  (sets color for tmFixed)

//---------------------------------------------------------- Present Function
void present (void) {
   Form1->ImagePresent->Visible = true;
   Form1->ImageCretaceous->Visible = false;
   Form1->ImageJurassic->Visible = false;
   Form1->ImageTriassic->Visible = false;
   Form1->ImagePermian->Visible = false;
}

//------------------------------------------------------- Cretaceous Function
void cretaceous (void) {
   Form1->ImagePresent->Visible = false;
   Form1->ImageCretaceous->Visible = true;
   Form1->ImageJurassic->Visible = false;
   Form1->ImageTriassic->Visible = false;
   Form1->ImagePermian->Visible = false;
}

//--------------------------------------------------------- Jurassic Function
void jurassic (void) {
   Form1->ImagePresent->Visible = false;
   Form1->ImageCretaceous->Visible = false;
   Form1->ImageJurassic->Visible = true;
   Form1->ImageTriassic->Visible = false;
   Form1->ImagePermian->Visible = false;
}

//--------------------------------------------------------- Triassic Function
void triassic (void) {
   Form1->ImagePresent->Visible = false;
   Form1->ImageCretaceous->Visible = false;
   Form1->ImageJurassic->Visible = false;
   Form1->ImageTriassic->Visible = true;
   Form1->ImagePermian->Visible = false;
}

//---------------------------------------------------------- Permian Function
void permian (void) {
   Form1->ImagePresent->Visible = false;
   Form1->ImageCretaceous->Visible = false;
   Form1->ImageJurassic->Visible = false;
   Form1->ImageTriassic->Visible = false;
   Form1->ImagePermian->Visible = true;
}

//------------------------------------------------------------ Present Button
void __fastcall TForm1::ButtonPresentClick(TObject *Sender)
{
   present();
}

//--------------------------------------------------------- Cretaceous Button
void __fastcall TForm1::ButtonCretaceousClick(TObject *Sender)
{
   cretaceous();
}

//----------------------------------------------------------- Jurassic Button
void __fastcall TForm1::ButtonJurassicClick(TObject *Sender)
{
   jurassic();
}

//----------------------------------------------------------- Triassic Button
void __fastcall TForm1::ButtonTriassicClick(TObject *Sender)
{
   triassic();
}

//------------------------------------------------------------ Permian Button
void __fastcall TForm1::ButtonPermianClick(TObject *Sender)
{
   permian();
}

//--------------------------------------------------------- Slide Show Button
void __fastcall TForm1::ButtonSlideShowClick(TObject *Sender)
{
   isTimerOn = !isTimerOn;
   if (isTimerOn) {
      present();
      slide = 1;
      Timer1->Enabled = true;
   }
   else {
      Timer1->Enabled = false;
   }
}

//------------------------------------------------------ Timer Interval Event
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   slide ++;
   if (slide == 6) slide = 1;
   switch (slide) {
      case 1: {
         present();
         break;
      }
      case 2: {
         cretaceous();
         break;
      }
      case 3: {
         jurassic();
         break;
      }
      case 4: {
         triassic();
         break;
      }
      case 5: {
         permian();
         break;
      }
   }
}

//----------------------------------------------------------------------- End