//---------------------------------------------------------------------
#include "all.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TAnimtionStng *AnimtionStng;
//--------------------------------------------------------------------- 
__fastcall TAnimtionStng::TAnimtionStng(TComponent* AOwner)
   : TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TAnimtionStng::OnShow(TObject *Sender)
{
   DisplayColorValue();
   ColorBtn->Enabled = TransparentChk->Checked;
   DisposalComboBox->ItemIndex  = m_nDisposalMethod;
}
//---------------------------------------------------------------------------

void __fastcall TAnimtionStng::TransparentChkClick(TObject *Sender)
{
   DisplayColorValue();
   ColorBtn->Enabled = TransparentChk->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TAnimtionStng::ColorBtnClick(TObject *Sender)
{
   if(MainForm->ColorDialog->Execute())
   {
      m_crTransparent = MainForm->ColorDialog->Color;
      DisplayColorValue();
   }
}
void TAnimtionStng::DisplayColorValue()
{
   char szTemp[100];

   memset(szTemp,0,sizeof(szTemp));

   if (TransparentChk->Checked)
      wsprintf(szTemp, "%08X", m_crTransparent);
   else
         szTemp[0]='\0';

   TransparentEdit->Text = szTemp;
}

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


void __fastcall TAnimtionStng::DelayEditChange(TObject *Sender)
{
   L_INT nValue = 0;
   if(DelayEdit->GetTextLen()>0)
      nValue=DelayEdit->Text.ToInt();
   else
      DelayEdit->Text = 0;

   if( nValue !=  DelayEdit->Text.ToInt())
      DelayEdit->Text = nValue;
}
//---------------------------------------------------------------------------

void __fastcall TAnimtionStng::LeftEditChange(TObject *Sender)
{
   L_INT nValue = 0;
   if(LeftEdit->GetTextLen()>0)
      nValue=LeftEdit->Text.ToInt();
   else
      LeftEdit->Text = 0;

   if( nValue !=  LeftEdit->Text.ToInt())
      LeftEdit->Text = nValue;
}
//---------------------------------------------------------------------------

void __fastcall TAnimtionStng::TopEditChange(TObject *Sender)
{
   L_INT nValue = 0;
   if(TopEdit->GetTextLen()>0)
      nValue=TopEdit->Text.ToInt();
   else
      TopEdit->Text = 0;

   if( nValue !=  TopEdit->Text.ToInt())
      LeftEdit->Text = nValue;
}
//---------------------------------------------------------------------------


void __fastcall TAnimtionStng::OKBtnClick(TObject *Sender)
{
   m_nDisposalMethod = DisposalComboBox->ItemIndex;
}
//---------------------------------------------------------------------------