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

#include <vcl.h>
#pragma hdrstop

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TCanvas *pCanvas = Image2->Canvas;
    TCanvas *pCanvas2 = Image3->Canvas;

    pCanvas->Brush->Color = clRed;
    pCanvas->Brush->Style = bsSolid;
    //pCanvas->Ellipse(0,0,Image2->Width, Image2->Height);
    pCanvas->Rectangle(0,0,Image2->Width, Image2->Height);

    Image1->Canvas->Pen->Mode = pmNotXor;
    Image1->Canvas->Pen->Style = psSolid;
    Image1->Canvas->Pen->Color = 0x008080FF;
    Image1->Canvas->Pen->Width = 2;
    Image1->Canvas->MoveTo(Image2->Left + Image2->Width/2, Image2->Top + Image2->Height);
    Image1->Canvas->LineTo(Image3->Left + Image3->Width/2, Image3->Top );

    /*
    TRect rect;

     rect.Left = Image2->Left + Image2->Width/2;
     rect.Top = Image2->Top + Image2->Height;
     rect.Right = Image3->Left + Image3->Width/2;
     rect.Bottom = Image3->Top;

     Image1->Picture->Bitmap->Width = rect.Width();
     Image1->Picture->Bitmap->Height = rect.Height();
     Image1->Picture->Bitmap->Canvas->Brush->Color = clWhite;
     Image1->Picture->Bitmap->Canvas->Brush->Style = bsSolid;
     Image1->Picture->Bitmap->Canvas->FillRect(rect);

     Image1->Canvas->Brush->Color = clWhite;
     //Image1->Canvas->FillRect(rect);
    */

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image3MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    push = true;
    posX = X;
    posY = Y;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image3MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if (push && Shift.Contains(ssLeft)) {
        Image3->Left = Image3->Left + X - posX;
        Image3->Top = Image3->Top + Y - posY;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Image3MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    push = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    TCanvas *pCanvas = Image2->Canvas;
    TCanvas *pCanvas2 = Image3->Canvas;

    pCanvas->Brush->Color = clGreen;
    pCanvas->Brush->Style = bsSolid;
    //pCanvas->Brush->Style = bsClear;
    //pCanvas->Ellipse(0,0,Image2->Width, Image2->Height);
    pCanvas->Rectangle(0,0,Image2->Width, Image2->Height);

    pCanvas2->Brush->Color = clGreen;
    pCanvas2->Brush->Style = bsSolid;
    pCanvas2->Rectangle(0,0,Image3->Width, Image3->Height);

    Image1->Canvas->Pen->Mode   = pmCopy;
    //Image1->Canvas->Pen->Mode   = pmNotXor;
    Image1->Canvas->Pen->Style = psSolid;
    Image1->Canvas->Pen->Color = clBlack;
    Image1->Canvas->Pen->Width = 2;

    Image1->Canvas->MoveTo(Image2->Left + Image2->Width/2, Image2->Top + Image2->Height);
    Image1->Canvas->LineTo(Image3->Left + Image3->Width/2, Image3->Top );

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


void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Form2 = new TForm2(Application);
    Form2->Show();
}
//---------------------------------------------------------------------------