///////////////////////////////////////////////////////////
//                      MobSurgeon                       //
//          Редактор mob-ов для Проклятых Земель         //
//           Copyright (C) 2005-2007 Gipat Group         //
//              Распространяется на условиях             //
//    Gipat Group's opened EI-editor-utility license     //
//                      версии 1.0                       //
//                                                       //
//                  www.gipatgroup.org                   //
///////////////////////////////////////////////////////////

//К работе над данным файлом приложили руки, ноги.... короче аффтары:
// 1) Sagrer (sagrer@yandex.ru)

////////////////////////////////////////////////////////////////////////

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

#include <vcl.h>
#pragma hdrstop

#include "SearchRepForm.h"
#include "MainForm.h"
#include "initer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSearchRepF *SearchRepF;
//---------------------------------------------------------------------------
__fastcall TSearchRepF::TSearchRepF(TComponent* Owner)
        : TForm(Owner)
{
  FirstShowed = false;
  SearchDialCanceled = true;
}
//---------------------------------------------------------------------------

void TSearchRepF::UpdateInterf()
//Типа обновляет интерфейс окна в зависимости от ситуевины :).
{
  //В зависимости от состояния чекбокса - заблокировать\разблокировать поле замены.
  if (RepCB->Checked == true)
  {
    RepEd->Enabled = true;
  }
  else
  {
    RepEd->Enabled = false;
  };
};
//---------------------------------------------------------------------------

void __fastcall TSearchRepF::RepCBClick(TObject *Sender)
{
  UpdateInterf();
}
//---------------------------------------------------------------------------

void __fastcall TSearchRepF::CancelButClick(TObject *Sender)
{
  Close();  //Просто закрыть нафиг :).        
}
//---------------------------------------------------------------------------

void __fastcall TSearchRepF::GoButClick(TObject *Sender)
{
  //Собсно выполнить поиск... после того как окно будет закрыто...
  SearchDialCanceled = false;  //Типа если не отменили значит окнули
  Close();
  SaveInfo();

  /*TSynSearchOptions SO;
  //SO << ssoMatchCase;
  if (RepCB->Checked == true)
  {
    SO << ssoReplace;  //Если надо заменять - заменять.
    MainF->ScriptEd->SearchReplace(SearchEd->Text,RepEd->Text,SO);
  }
  else
  {
    //Просто поиск.
    MainF->ScriptEd->SearchReplace(SearchEd->Text,NULL,SO);
  };*/

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

void TSearchRepF::LoadInfo()
//Типа грузит инфу в интерфейс
{
  SearchEd->Text = SearchStr;
  RepEd->Text = RepStr;
  RepCB->Checked = MakeReplace;
  UpdateInterf();
};
//---------------------------------------------------------------------------

void TSearchRepF::SaveInfo()
//Типа савит инфу в интерфейс
{
  SearchStr = SearchEd->Text;
  RepStr = RepEd->Text;
  MakeReplace = RepCB->Checked;
  MainIni->UpdateFile(); //Зафиксировать изменения на случай win9x.
};
//---------------------------------------------------------------------------

void __fastcall TSearchRepF::FormShow(TObject *Sender)
{
  if (FirstShowed == false)
  {
    //Типа при первом показе...
    LoadInfo();
  };        
}
//---------------------------------------------------------------------------



void __fastcall TSearchRepF::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  //Обработчик событий с клавы

  if (Key == VK_RETURN)
  {
    //Типа окнуть :)
    GoButClick(Sender);

    //И обнулить полученный кей :)
    Key = NULL;
  };

  if (Key == VK_ESCAPE	)
  {
    //Типа кансельнуть :)
    CancelButClick(Sender);

    //И обнулить полученный кей :)
    Key = NULL;
  };           
}
//---------------------------------------------------------------------------