//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "MainForm.h"
#include "ChildImg.h"
#include "FrmSet.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
TFrameSet *FrameSet;
//---------------------------------------------------------------------
__fastcall TFrameSet::TFrameSet(TComponent* AOwner)
   : TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TFrameSet::FormCreate(TObject *Sender)
{
   if (MainFrm->ActiveMDIChild == NULL)
      return;

   TChildImage *Child = (TChildImage *)MainFrm->ActiveMDIChild;
   if (Child->LEADImage1->BitmapEnableTransparency)
   {
      Check2->Checked = true;
   }
   else
      Check2->Checked = false;

   ChooseClr->Color = Child->LEADImage1->BitmapTransparentColor;      
   Text2->Text = IntToStr(Child->LEADImage1->BitmapDelay);
   Text3->Text = IntToStr(Child->LEADImage1->BitmapLeft);
   Text4->Text = IntToStr(Child->LEADImage1->BitmapTop);
   Combo1->ItemIndex = Child->LEADImage1->BitmapDisposalMethod;
}
//---------------------------------------------------------------------------

void __fastcall TFrameSet::Check2Click(TObject *Sender)
{
   Transparency->Enabled= Check2->Checked;
   ChooseClr->Enabled= Check2->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TFrameSet::OKBtnClick(TObject *Sender)
{
   if (MainFrm->ActiveMDIChild == NULL)
      return;

   TChildImage *Child = (TChildImage *)MainFrm->ActiveMDIChild;
   Child->LEADImage1->AutoRepaint = false;
   if (Check2->Checked)
      Child->LEADImage1->BitmapEnableTransparency = true;
   else
      Child->LEADImage1->BitmapEnableTransparency = false;

   int nCount;
   if (ApplyAll->Checked)
      nCount = Child->LEADImage1->BitmapListCount;
   else
      nCount = 1;

   int nCurrentIndex = Child->LEADImage1->BitmapListIndex;
   for (int i = 0; i < nCount; i++)
   {
      Child->LEADImage1->BitmapListIndex = i;
      Child->LEADImage1->BitmapTransparentColor = ChooseClr->Color;

      Child->LEADImage1->BitmapDelay = StrToInt(Text2->Text);
      Child->LEADImage1->BitmapLeft = StrToInt(Text3->Text);
      Child->LEADImage1->BitmapTop = StrToInt(Text4->Text);
      Child->LEADImage1->BitmapDisposalMethod = Combo1->ItemIndex;
   }

   Child->LEADImage1->BitmapListIndex = nCurrentIndex;
   Child->LEADImage1->AutoRepaint = true;

   ModalResult = mrOk;
}
//---------------------------------------------------------------------------

void __fastcall TFrameSet::CancelBtnClick(TObject *Sender)
{
   ModalResult = mrCancel;
}
//---------------------------------------------------------------------------

void __fastcall TFrameSet::Text2Change(TObject *Sender)
{
   if (Text2->Text.Length() == 0)
      OKBtn->Enabled = false;
   else
      OKBtn->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrameSet::Text2KeyPress(TObject *Sender, char &Key)
{
   if (!((Key >= '0') && (Key <= '9')) && (Key != '\b'))
      Key = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TFrameSet::Text3Change(TObject *Sender)
{
   if (Text3->Text.Length() == 0)
      OKBtn->Enabled = false;
   else
      OKBtn->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrameSet::Text3KeyPress(TObject *Sender, char &Key)
{
   if (!((Key >= '0') && (Key <= '9')) && (Key != '\b'))
      Key = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TFrameSet::Text4Change(TObject *Sender)
{
   if (Text4->Text.Length() == 0)
      OKBtn->Enabled = false;
   else
      OKBtn->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrameSet::Text4KeyPress(TObject *Sender, char &Key)
{
   if (!((Key >= '0') && (Key <= '9')) && (Key != '\b'))
      Key = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TFrameSet::TransparencyClick(TObject *Sender)
{
   if (ColorDialog->Execute() == true)
      ChooseClr->Color = ColorDialog->Color;
}
//---------------------------------------------------------------------------