//===========================================================================
//                   ARRAYS OF LABELS, SHAPES and IMAGES (with drag-and-drop)
//                                                                10 May 2006
//
//                         You can create arrays of labels, shapes and images
//                 to help visualize the state of each agent in a simulation.
//
//    In this sampler, six faces are imported as six Borland Image Components
//   representing a range of emotion from happy to sad.  They are transparent
//     bitmap (.bmp) images (they could have been colored but these are not).
//
//       We then create an array of 18 images and copy the ->Picture property
//       from these 6 Borland Image Components into the ->Picture property of
//      our array of images showing that we can change the ->Picture property
//      dynamically.
//
//     We create OnMouseDown, OnMouseMove and OnMouseUp events for the images
//       in the array so that we can drag-and-drop them on the screen.  These
//        events don't discriminate between the Left and Right Mouse Buttons.
//
//    We create an OnMouseDown event for the Right Mouse Button which changes
//                               the ->Picture property in the image clicked.
//===========================================================================

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   DoubleBuffered = true;                       // helps to eliminate flicker
}
//---------------------------------------------------------------------------

//===========================================================================
//                                                                  VARIABLES
//===========================================================================

// sets up arrays of labels, shapes and images
TStaticText *text[24] = {0};
TShape *shape[24] = {0};
TImage *image[18] = {0};

// these variables coordinate drag-and-drop events
int chosenImage;
int imageDownX, imageDownY;
bool imageWasChosen = false;

//===========================================================================
//                                                                  FUNCTIONS
//===========================================================================

// I will leave these to you...

//===========================================================================
//                                                             EVENT HANDLERS
//===========================================================================

//-------------------------------------------------------------- OnFormCreate
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   randomize();              // randomizes the pseudo-random-number generator

   // defines the properties for the array of StaticText objects
   for (int i = 0; i < 24; i++) {
      text[i] = new TStaticText(this);
      text[i]->Parent = Form1;
      text[i]->Visible = true;
      text[i]->Top = random(400);
      text[i]->Left = random(400);
      text[i]->Caption = random(25);
      text[i]->Tag = i;
      text[i]->BorderStyle = sbsSunken;
      text[i]->Brush->Color = clAqua;
   }

   // defines the properties for the array of shape objects
   for (int i = 0; i < 24; i++) {
      shape[i] = new TShape(this);
      shape[i]->Parent = Form1;
      shape[i]->Visible = true;
      shape[i]->Height = random(50 + 30);
      shape[i]->Width = random(50 + 30);
      shape[i]->Top = random(400);
      shape[i]->Left = random(400);
      shape[i]->Shape = stCircle;
      shape[i]->Tag = i;
      shape[i]->Pen->Width = 2;
      shape[i]->Pen->Color = clBlack;
      shape[i]->Brush->Color = clYellow;
   }

   // defines the properties and events for the array of image objects
   for (int i = 0; i < 18; i++) {
      image[i] = new TImage(this);
      image[i]->Parent = Form1;
      image[i]->Visible = true;
      image[i]->Transparent = true;
      image[i]->Top = random(400);
      image[i]->Left = random(400);
      image[i]->Tag = i;
      image[i]->AutoSize = true;
      // here we copy the pictures from the original 6 invisible images
      if (i < 3) {
         image[i]->Picture = Form1->Image1->Picture;
      }
      if (i > 2 && i < 6) {
         image[i]->Picture = Form1->Image2->Picture;
      }
      if (i > 5 && i < 9) {
         image[i]->Picture = Form1->Image3->Picture;
      }
      if (i > 8 && i < 12) {
         image[i]->Picture = Form1->Image4->Picture;
      }
      if (i > 11 && i < 15) {
         image[i]->Picture = Form1->Image5->Picture;
      }
      if (i > 14) {
         image[i]->Picture = Form1->Image6->Picture;
      }
      // and here we associate the images with event handlers
      image[i]->OnMouseDown = ImageMouseDown;
      image[i]->OnMouseMove = ImageMouseMove;
      image[i]->OnMouseUp = ImageMouseUp;
   }
}

//---------------------------------------------------------------------------
// We must write the following event handlers ourselves here in Unit1.cpp
// We must also write references to them in Unit1.h
//---------------------------------------------------------------------------

//------------------------------------------------------- On Image Mouse Down
void __fastcall TForm1::ImageMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   TImage *image = dynamic_cast<TImage*>(Sender);
   if (Button == 0) {                                        // if left click
      chosenImage = image->Tag;
      imageWasChosen = true;
      imageDownX = X;
      imageDownY = Y;
   }                                                        
   else {                                                   // if right click
      if (random(2)) {                      // happy to sad
         image->Picture = Image1->Picture;
         Application->ProcessMessages();
         Sleep(500);
         image->Picture = Image2->Picture;
         Application->ProcessMessages();
         Sleep(100);
         image->Picture = Image3->Picture;
         Application->ProcessMessages();
         Sleep(100);
         image->Picture = Image4->Picture;
         Application->ProcessMessages();
         Sleep(100);
         image->Picture = Image5->Picture;
         Application->ProcessMessages();
         Sleep(100);
         image->Picture = Image6->Picture;
         Application->ProcessMessages();
         Sleep(100);
      }
      else {                                // sad to happy
         image->Picture = Image6->Picture;
         Application->ProcessMessages();
         Sleep(500);
         image->Picture = Image5->Picture;
         Application->ProcessMessages();
         Sleep(100);
         image->Picture = Image4->Picture;
         Application->ProcessMessages();
         Sleep(100);
         image->Picture = Image3->Picture;
         Application->ProcessMessages();
         Sleep(100);
         image->Picture = Image2->Picture;
         Application->ProcessMessages();
         Sleep(100);
         image->Picture = Image1->Picture;
         Application->ProcessMessages();
         Sleep(100);
      }
   }
}

//------------------------------------------------------- On Image Mouse Move
void __fastcall TForm1::ImageMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
   TImage *image = dynamic_cast<TImage*>(Sender);
   if (imageWasChosen) {
      image->Left = image->Left + X - imageDownX;
      image->Top  = image->Top + Y - imageDownY;
   }
}

//--------------------------------------------------------- On Image Mouse Up
void __fastcall TForm1::ImageMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   //TImage *image = dynamic_cast<TImage*>(Sender);
   imageWasChosen = false;
}

//---------------------------------------------------------- That's All Folks