root/trunk/MainForm.cpp

///////////////////////////////////////////////////////////
//                      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 "MainForm.h"
#include "initer.h"
#include "AboutForm.h"
#include "SettsForm.h"
#include "MobFormat.h"
#include "winuser.h"
#include "SearchRepForm.h"
#include "math.h"
#include "KeyChangerForm.h"
#include "MySys.hpp"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SynEdit"
#pragma link "SynEditHighlighter"
#pragma link "SynHighlighterEIScript"
#pragma link "OrientatorFrame"
#pragma link "SynEditMiscClasses"
#pragma link "SynEditSearch"
#pragma resource "*.dfm"
TMainF *MainF;
//---------------------------------------------------------------------------
__fastcall TMainF::TMainF(TComponent* Owner)
        : TForm(Owner)
{
  FirstShowed = false;
  ObjEditorChanging = false;
  ObjEditorActive = false;
}
//---------------------------------------------------------------------------
void __fastcall TMainF::FormShow(TObject *Sender)
{
  if (FirstShowed == false)
  {
    Caption = MobSurgeon_AppName;
    PLastFocus = NULL;
    BlockingInterfNow = false;

    //Ïî óìîë÷àíèþ ïåðâîé âñåãäà îòêðûòà âêëàäêà ñêðèïòà.
    MainF_PK->ActivePage = ScriptSh;

    //Íàñòðîéêà èíòåðôåéñà...
    UpdateMainInterf();  //Îáíîâèòü îñíîâíóþ ÷àñòü èíòåðôåéñà.
    Set_MC_Interf();    //Âûñòàâèòü ïàðàìåòðû èíòåðôåéñà ìàññîâûõ èçìåíåíèé.
    if ((VitInfo->Status == VIT_Status_ReleaseCandidat) || (VitInfo->Status == VIT_Status_Release))
    {
      //Åñëè ýòî ïðåòåíçèÿ íà ðåëèç - ñïðÿòàòü òåñòîâóþ ìåíþõó.
      TestMenuMenu->Visible = false;
    };


    //Îáðàáîòàòü ïàðàìåòðû êîìàíäíîé ñòðîêè åñëè îíè åñòü...
    if (ParamCount() > 0)
    {
      //Åñëè îíè åñòü, ïàðàìåòðû åòè...
      OpenMobComm(ParamStr(1));
    };
  }
}
//---------------------------------------------------------------------------

void __fastcall TMainF::ExitMenuClick(TObject *Sender)
{
  Close();  //Ïðîñòî çàêðûòü ãëàâíîå îêíî -->> âûéòè èç ïðîãè.
}
//---------------------------------------------------------------------------

void __fastcall TMainF::AboutMenuClick(TObject *Sender)
{
  AboutF = new TAboutF(this);
  AboutF->ShowModal();
  delete AboutF;
}
//---------------------------------------------------------------------------

void __fastcall TMainF::TestMenuMenuClick(TObject *Sender)
{
  //Íó òèïà òóò áóäó âñÿêèå òåñòû...

  //Ðóãàëêà. Ïðè òåñòèðîâàíèè åå ìîæíî çàêîììåíòèòü ÷òîá íå ìåøàëà.
  //Ïîñëå çàâåðøåíèÿ òåñòèðîâàíèÿ - òåñòû çàêîììåíòèòü
  //à ðóãàëêó åññíî ðàñêîììåíòèòü :).
  //ShowMessage("Âîò ëþäè.... íó íàôèãà æìàòü êóäà íå íàäî à?! À åñëè ÿ òå âèíò ôîðìàòíó? Èëè ïðîö ïðîæãó à? Ñêàçàíî æå - íå æìàòü.... ìëÿ, âîò ëþäè åïò....");

  //SynEIScriptSyn = TSynEIScriptSyn->Create();
  //SynEIScriptSyn->
  //ScriptEd->Highlighter = SynEIScriptSyn;
  //Íó à íèæå åòîãî êîììåíòà óæå ìîæíî ïèñàòü âñÿêèå òåñòû :).

  //ShowMessage(IntToStr(MobSignature));

  //Òåñò êëàññà, ðàáîòàþùåãî ñ ìîáàìè...
  //MobInMm1->LoadMob("startzone.mob");

  //Òåñò ñîõðàíÿëêè...
  /*MobInMem1->UsingThread = true;  //Îòêðûâàòü â îòäåëüíîé íèòêå.
  MobInMem1->LogEd = MainF->LogEd;
  MobInMem1->SaveMob(ProgPath+"TestSaveMob.mob");*/

  //__int32 Test = 0;
  //Test = -1;
  //ShowMessage(Test);

  //SUnitObjBlock teststruct;
  //teststruct.Armour = new DynamicArray <String>;
  //teststruct.Armour->Length = 0;

  /*TFileStream *File1;
  File1 = new TFileStream("test1.txt",fmCreate);

  //ShowMessage(MobInMem1->ScriptText.Length());

  //Ïèøåì èíôó â ôàéë...
  File1->Write(&MobInMem1->ScriptText[1],MobInMem1->ScriptText.Length());

  //Çàêðûâàåì ôàéë...
  delete File1;*/

  //ScriptEd->Enabled = false;
  //ShowMessage(DecimalSeparator);

  //ShowMessage(pow(2,4));

  //ShowMessage(Norm_StrCommaList("1  ,  2  ,3,  4,  5"));

  //this->ValuesEditor->Selection = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TMainF::OpenMobMenuClick(TObject *Sender)
{
  //Ýòîò ïóíêò ìåíþ îòêðûâàåò ìîá.
  OpenMobComm("NULL");
}
//---------------------------------------------------------------------------

void __fastcall TMainF::SaveMob_menuClick(TObject *Sender)
{
  //Ýòîò ïóíêò ìåíþ ñåéâèò ìîá.
  if (MobLoaded == true)
  {
    //Åñëè ðåäàêòèðîâàëîñü çíà÷åíèå â ðåäàêòîðå îáúåêòîâ...
    if (ObjEditorActive == true)
    {
      //Îáðàáîòêà áóäòî îí ôîêóñ ïîòåðÿë - ÷òîá èíôà ñîõðàíèëàñü....
      this->ValuesEditorExit(Sender);
      ObjEditorActive = true;
    };
    SaveMobComm();
  };
}
//---------------------------------------------------------------------------


void __fastcall TMainF::SaveAsMobMenuClick(TObject *Sender)
{
  //Ýòîò ïóíêò ìåíþ ïûòàåòñÿ çàñåéâèòü ìîá ïîä äðóãèì èìåíåì.
  //Åñëè ðåäàêòèðîâàëîñü çíà÷åíèå â ðåäàêòîðå îáúåêòîâ...
  if (ObjEditorActive == true)
  {
    //Îáðàáîòêà áóäòî îí ôîêóñ ïîòåðÿë - ÷òîá èíôà ñîõðàíèëàñü....
    this->ValuesEditorExit(Sender);
    ObjEditorActive = true;
  };
  SaveAsMobComm();
}
//---------------------------------------------------------------------------


void __fastcall TMainF::LogShShow(TObject *Sender)
{
  //Òèïà ïðè ïîêàçå òàáà.

  //Ïîñòàâèòü ôîêóñ íà ïîëå ñ ëîãîì...
  LogEd->SetFocus();
  //Ïîñòàâèòü êóðñîð âíèç
  LogEd->SelStart = LogEd->Lines->Text.Length()-1;
  //È ïðîêðóòèòü äî ñàìîãî íèçà :)
  LogEd->Perform(WM_VSCROLL,SB_BOTTOM,0);
  
}
//---------------------------------------------------------------------------

void __fastcall TMainF::FormClose(TObject *Sender, TCloseAction &Action)
{
  //Òèïà ïî çàêðûòèþ îêíà...

  //Ïåðåìåííûå.
  bool AllOk; 

  //Çàêðûòü ìîá.
  AllOk = CloseMobComm();

  //Åñëè ìîá çàêðûò óñïåøíî - ïðîäîëæèòü ïðîöåäóðó çàêðûòèÿ ïðîãè.
  if (AllOk == true)
  {
    //Çàñàâèòü èçìåíåíèÿ â èíòåðôåéñå...
    Save_MC_Interf();  //Ìàññîâûå èçìåíåíèÿ...

    //Äåèíèöèàëèçàöèÿ OGL...
    ObjectOrientator->GLDeInitialize();
  }
  else
  {
    //Íååå, íèôèããà, çàêðûâàööî íåëüçÿ ).
    Action = caNone;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::ProgSettsMenuClick(TObject *Sender)
{
  SettsF = new TSettsF(this);
  SettsF->ShowModal();
  delete SettsF;
}
//---------------------------------------------------------------------------

void TMainF::BlockInterf()
//Òèïà çàáëîêèðîâàòü èíòåðôåéñ...
{
  // òàãàõ - ñàâèì òèïà ïðåäûäóùåå çíà÷åíèå :).

  BlockingInterfNow = true;

  //Ðåäàêòîð ñêðèïòà
  ScriptEd->Tag = ScriptEd->Enabled;
  ScriptEd->Enabled = false;
  //Ìåíþõè
  FileMenu->Tag = FileMenu->Enabled;
  FileMenu->Enabled = false;
  HelpMenu->Tag = HelpMenu->Enabled;
  HelpMenu->Enabled = false;
  //Âêëàäêà ðåäàêòîðà îáúåêòîâ...
  ObjectsTree->Tag = ObjectsTree->Enabled;
  ObjectsTree->Enabled = false;
  ValuesEditor->Tag = ValuesEditor->Enabled;
  ValuesEditor->Enabled = false;
  //Âêëàäêà ìàññîâûõ èçìåíåíèé
  MC_KR_Param_Name1CB->Tag = MC_KR_Param_Name1CB->Enabled;
  MC_KR_Param_Name1CB->Enabled = false;
  MC_KR_Param_Name1Ed->Tag = MC_KR_Param_Name1Ed->Enabled;
  MC_KR_Param_Name1Ed->Enabled = false;
  MC_KR_Param_Name2CB->Tag = MC_KR_Param_Name2CB->Enabled;
  MC_KR_Param_Name2CB->Enabled = false;
  MC_KR_Param_Name2Ed->Tag = MC_KR_Param_Name2Ed->Enabled;
  MC_KR_Param_Name2Ed->Enabled = false;
  MC_KR_Param_ScriptVariableNameCB->Tag = MC_KR_Param_ScriptVariableNameCB->Enabled;
  MC_KR_Param_ScriptVariableNameCB->Enabled = false;
  MC_KR_Param_ScriptVariableNameEd->Tag = MC_KR_Param_ScriptVariableNameEd->Enabled;
  MC_KR_Param_ScriptVariableNameEd->Enabled = false;
  MC_KR_Param_Model3dCB->Tag = MC_KR_Param_Model3dCB->Enabled;
  MC_KR_Param_Model3dCB->Enabled = false;
  MC_KR_Param_Model3dEd->Tag = MC_KR_Param_Model3dEd->Enabled;
  MC_KR_Param_Model3dEd->Enabled = false;
  MC_KR_Param_FirstTextureCB->Tag = MC_KR_Param_FirstTextureCB->Enabled;
  MC_KR_Param_FirstTextureCB->Enabled = false;
  MC_KR_Param_FirstTextureEd->Tag = MC_KR_Param_FirstTextureEd->Enabled;
  MC_KR_Param_FirstTextureEd->Enabled = false;
  MC_KR_Param_SecondTextureCB->Tag = MC_KR_Param_SecondTextureCB->Enabled;
  MC_KR_Param_SecondTextureCB->Enabled = false;
  MC_KR_Param_SecondTextureEd->Tag = MC_KR_Param_SecondTextureEd->Enabled;
  MC_KR_Param_SecondTextureEd->Enabled = false;
  MC_KR_Param_PlayerNumberCB->Tag = MC_KR_Param_PlayerNumberCB->Enabled;
  MC_KR_Param_PlayerNumberCB->Enabled = false;
  MC_KR_Param_PlayerNumberEd->Tag = MC_KR_Param_PlayerNumberEd->Enabled;
  MC_KR_Param_PlayerNumberEd->Enabled = false;
  MC_KR_Coords_PramouglCB->Tag = MC_KR_Coords_PramouglCB->Enabled;
  MC_KR_Coords_PramouglCB->Enabled = false;
  MC_KR_Coords_Pramougl_X1Ed->Tag = MC_KR_Coords_Pramougl_X1Ed->Enabled;
  MC_KR_Coords_Pramougl_X1Ed->Enabled = false;
  MC_KR_Coords_Pramougl_Y1Ed->Tag = MC_KR_Coords_Pramougl_Y1Ed->Enabled;
  MC_KR_Coords_Pramougl_Y1Ed->Enabled = false;
  MC_KR_Coords_Pramougl_X2Ed->Tag = MC_KR_Coords_Pramougl_X2Ed->Enabled;
  MC_KR_Coords_Pramougl_X2Ed->Enabled = false;
  MC_KR_Coords_Pramougl_Y2Ed->Tag = MC_KR_Coords_Pramougl_Y2Ed->Enabled;
  MC_KR_Coords_Pramougl_Y2Ed->Enabled = false;
  MC_KR_Coords_KrugCB->Tag = MC_KR_Coords_KrugCB->Enabled;
  MC_KR_Coords_KrugCB->Enabled = false;
  MC_KR_Coords_Krug_XEd->Tag = MC_KR_Coords_Krug_XEd->Enabled;
  MC_KR_Coords_Krug_XEd->Enabled = false;
  MC_KR_Coords_Krug_YEd->Tag = MC_KR_Coords_Krug_YEd->Enabled;
  MC_KR_Coords_Krug_YEd->Enabled = false;
  MC_KR_Coords_Krug_RadEd->Tag = MC_KR_Coords_Krug_RadEd->Enabled;
  MC_KR_Coords_Krug_RadEd->Enabled = false;
  MC_KR_Type_UnitCB->Tag = MC_KR_Type_UnitCB->Enabled;
  MC_KR_Type_UnitCB->Enabled = false;
  MC_KR_Type_ObjectCB->Tag = MC_KR_Type_ObjectCB->Enabled;
  MC_KR_Type_ObjectCB->Enabled = false;
  MC_KR_Type_LeverCB->Tag = MC_KR_Type_LeverCB->Enabled;
  MC_KR_Type_LeverCB->Enabled = false;
  MC_KR_Type_TrapCB->Tag = MC_KR_Type_TrapCB->Enabled;
  MC_KR_Type_TrapCB->Enabled = false;
  MC_KR_Type_FlameCB->Tag = MC_KR_Type_FlameCB->Enabled;
  MC_KR_Type_FlameCB->Enabled = false;
  MC_KR_Type_Particle1CB->Tag = MC_KR_Type_Particle1CB->Enabled;
  MC_KR_Type_Particle1CB->Enabled = false;
  MC_KR_Type_Particle2CB->Tag = MC_KR_Type_Particle2CB->Enabled;
  MC_KR_Type_Particle2CB->Enabled = false;
  MC_KR_Type_Particle3CB->Tag = MC_KR_Type_Particle3CB->Enabled;
  MC_KR_Type_Particle3CB->Enabled = false;
  MC_AS_Obj_DelRB->Tag = MC_AS_Obj_DelRB->Enabled;
  MC_AS_Obj_DelRB->Enabled = false;
  MC_AS_Obj_CopyRB->Tag = MC_AS_Obj_CopyRB->Enabled;
  MC_AS_Obj_CopyRB->Enabled = false;
  MC_AS_Obj_MoveRB->Tag = MC_AS_Obj_MoveRB->Enabled;
  MC_AS_Obj_MoveRB->Enabled = false;
  MC_AS_Obj_TargetMobSelBut->Tag = MC_AS_Obj_TargetMobSelBut->Enabled;
  MC_AS_Obj_TargetMobSelBut->Enabled = false;
  MC_AS_Obj_TargetMobEd->Tag = MC_AS_Obj_TargetMobEd->Enabled;
  MC_AS_Obj_TargetMobEd->Enabled = false;
  MC_AS_Obj_ReplaceCB->Tag = MC_AS_Obj_ReplaceCB->Enabled;
  MC_AS_Obj_ReplaceCB->Enabled = false;
  MC_AS_Params_Name1CB->Tag = MC_AS_Params_Name1CB->Enabled;
  MC_AS_Params_Name1CB->Enabled = false;
  MC_AS_Params_Name1Ed->Tag = MC_AS_Params_Name1Ed->Enabled;
  MC_AS_Params_Name1Ed->Enabled = false;
  MC_AS_Params_Name2CB->Tag = MC_AS_Params_Name2CB->Enabled;
  MC_AS_Params_Name2CB->Enabled = false;
  MC_AS_Params_Name2Ed->Tag = MC_AS_Params_Name2Ed->Enabled;
  MC_AS_Params_Name2Ed->Enabled = false;
  MC_AS_Params_ScriptVariableNameCB->Tag = MC_AS_Params_ScriptVariableNameCB->Enabled;
  MC_AS_Params_ScriptVariableNameCB->Enabled = false;
  MC_AS_Params_ScriptVariableNameEd->Tag = MC_AS_Params_ScriptVariableNameEd->Enabled;
  MC_AS_Params_ScriptVariableNameEd->Enabled = false;
  MC_AS_Params_Model3dCB->Tag = MC_AS_Params_Model3dCB->Enabled;
  MC_AS_Params_Model3dCB->Enabled = false;
  MC_AS_Params_Model3dEd->Tag = MC_AS_Params_Model3dEd->Enabled;
  MC_AS_Params_Model3dEd->Enabled = false;
  MC_AS_Params_FirstTextureCB->Tag = MC_AS_Params_FirstTextureCB->Enabled;
  MC_AS_Params_FirstTextureCB->Enabled = false;
  MC_AS_Params_FirstTextureEd->Tag = MC_AS_Params_FirstTextureEd->Enabled;
  MC_AS_Params_FirstTextureEd->Enabled = false;
  MC_AS_Params_SecondTextureCB->Tag = MC_AS_Params_SecondTextureCB->Enabled;
  MC_AS_Params_SecondTextureCB->Enabled = false;
  MC_AS_Params_SecondTextureEd->Tag = MC_AS_Params_SecondTextureEd->Enabled;
  MC_AS_Params_SecondTextureEd->Enabled = false;
  MC_AS_Params_OffsetCB->Tag = MC_AS_Params_OffsetCB->Enabled;
  MC_AS_Params_OffsetCB->Enabled = false;
  MC_AS_Params_OffsetXEd->Tag = MC_AS_Params_OffsetXEd->Enabled;
  MC_AS_Params_OffsetXEd->Enabled = false;
  MC_AS_Params_OffsetYEd->Tag = MC_AS_Params_OffsetYEd->Enabled;
  MC_AS_Params_OffsetYEd->Enabled = false;
  MC_AS_Params_PlayerNumberCB->Tag = MC_AS_Params_PlayerNumberCB->Enabled;
  MC_AS_Params_PlayerNumberCB->Enabled = false;
  MC_AS_Params_PlayerNumberEd->Tag = MC_AS_Params_PlayerNumberEd->Enabled;
  MC_AS_Params_PlayerNumberEd->Enabled = false;
  MC_ResetBut->Tag = MC_ResetBut->Enabled;
  MC_ResetBut->Enabled = false;
  MC_GoBut->Tag = MC_GoBut->Enabled;
  MC_GoBut->Enabled = false;
  MC_AS_Obj_OnlyParamsRB->Tag = MC_AS_Obj_OnlyParamsRB->Enabled;
  MC_AS_Obj_OnlyParamsRB->Enabled = false;

  BlockingInterfNow = false;

};
//---------------------------------------------------------------------------

void TMainF::UnBlockInterf()
//Òèïà ðàçáëîêèðîâàòü èíòåðôåéñ...
{
  //Ðåäàêòîð ñêðèïòà
  ScriptEd->Enabled = ScriptEd->Tag;
  //Ìåíþõè
  FileMenu->Enabled = FileMenu->Tag;
  HelpMenu->Enabled = HelpMenu->Tag;
  //Âêëàäêà ðåäàêòîðà îáúåêòîâ...
  ObjectsTree->Enabled = ObjectsTree->Tag;
  ValuesEditor->Enabled = ValuesEditor->Tag;
  //Âêëàäêà ìàññîâûõ èçìåíåíèé
  MC_KR_Param_Name1CB->Enabled = MC_KR_Param_Name1CB->Tag;
  MC_KR_Param_Name1Ed->Enabled = MC_KR_Param_Name1Ed->Tag;
  MC_KR_Param_Name2CB->Enabled = MC_KR_Param_Name2CB->Tag;
  MC_KR_Param_Name2Ed->Enabled = MC_KR_Param_Name2Ed->Tag;
  MC_KR_Param_ScriptVariableNameCB->Enabled = MC_KR_Param_ScriptVariableNameCB->Tag;
  MC_KR_Param_ScriptVariableNameEd->Enabled = MC_KR_Param_ScriptVariableNameEd->Tag;
  MC_KR_Param_Model3dCB->Enabled = MC_KR_Param_Model3dCB->Tag;
  MC_KR_Param_Model3dEd->Enabled = MC_KR_Param_Model3dEd->Tag;
  MC_KR_Param_FirstTextureCB->Enabled = MC_KR_Param_FirstTextureCB->Tag;
  MC_KR_Param_FirstTextureEd->Enabled = MC_KR_Param_FirstTextureEd->Tag;
  MC_KR_Param_SecondTextureCB->Enabled = MC_KR_Param_SecondTextureCB->Tag;
  MC_KR_Param_SecondTextureEd->Enabled = MC_KR_Param_SecondTextureEd->Tag;
  MC_KR_Param_PlayerNumberCB->Enabled = MC_KR_Param_PlayerNumberCB->Tag;
  MC_KR_Param_PlayerNumberEd->Enabled = MC_KR_Param_PlayerNumberEd->Tag;
  MC_KR_Coords_PramouglCB->Enabled = MC_KR_Coords_PramouglCB->Tag;
  MC_KR_Coords_Pramougl_X1Ed->Enabled = MC_KR_Coords_Pramougl_X1Ed->Tag;
  MC_KR_Coords_Pramougl_Y1Ed->Enabled = MC_KR_Coords_Pramougl_Y1Ed->Tag;
  MC_KR_Coords_Pramougl_X2Ed->Enabled = MC_KR_Coords_Pramougl_X2Ed->Tag;
  MC_KR_Coords_Pramougl_Y2Ed->Enabled = MC_KR_Coords_Pramougl_Y2Ed->Tag;
  MC_KR_Coords_KrugCB->Enabled = MC_KR_Coords_KrugCB->Tag;
  MC_KR_Coords_Krug_XEd->Enabled = MC_KR_Coords_Krug_XEd->Tag;
  MC_KR_Coords_Krug_YEd->Enabled = MC_KR_Coords_Krug_YEd->Tag;
  MC_KR_Coords_Krug_RadEd->Enabled = MC_KR_Coords_Krug_RadEd->Tag;
  MC_KR_Type_UnitCB->Enabled = MC_KR_Type_UnitCB->Tag;
  MC_KR_Type_ObjectCB->Enabled = MC_KR_Type_ObjectCB->Tag;
  MC_KR_Type_LeverCB->Enabled = MC_KR_Type_LeverCB->Tag;
  MC_KR_Type_TrapCB->Enabled = MC_KR_Type_TrapCB->Tag;
  MC_KR_Type_FlameCB->Enabled = MC_KR_Type_FlameCB->Tag;
  MC_KR_Type_Particle1CB->Enabled = MC_KR_Type_Particle1CB->Tag;
  MC_KR_Type_Particle2CB->Enabled = MC_KR_Type_Particle2CB->Tag;
  MC_KR_Type_Particle3CB->Enabled = MC_KR_Type_Particle3CB->Tag;
  MC_AS_Obj_DelRB->Enabled = MC_AS_Obj_DelRB->Tag;
  MC_AS_Obj_CopyRB->Enabled = MC_AS_Obj_CopyRB->Tag;
  MC_AS_Obj_MoveRB->Enabled = MC_AS_Obj_MoveRB->Tag;
  MC_AS_Obj_TargetMobSelBut->Enabled = MC_AS_Obj_TargetMobSelBut->Tag;
  MC_AS_Obj_TargetMobEd->Enabled = MC_AS_Obj_TargetMobEd->Tag;
  MC_AS_Obj_ReplaceCB->Enabled = MC_AS_Obj_ReplaceCB->Tag;
  MC_AS_Params_Name1CB->Enabled = MC_AS_Params_Name1CB->Tag;
  MC_AS_Params_Name1Ed->Enabled = MC_AS_Params_Name1Ed->Tag;
  MC_AS_Params_Name2CB->Enabled = MC_AS_Params_Name2CB->Tag;
  MC_AS_Params_Name2Ed->Enabled = MC_AS_Params_Name2Ed->Tag;
  MC_AS_Params_ScriptVariableNameCB->Enabled = MC_AS_Params_ScriptVariableNameCB->Tag;
  MC_AS_Params_ScriptVariableNameEd->Enabled = MC_AS_Params_ScriptVariableNameEd->Tag;
  MC_AS_Params_Model3dCB->Enabled = MC_AS_Params_Model3dCB->Tag;
  MC_AS_Params_Model3dEd->Enabled = MC_AS_Params_Model3dEd->Tag;
  MC_AS_Params_FirstTextureCB->Enabled = MC_AS_Params_FirstTextureCB->Tag;
  MC_AS_Params_FirstTextureEd->Enabled = MC_AS_Params_FirstTextureEd->Tag;
  MC_AS_Params_SecondTextureCB->Enabled = MC_AS_Params_SecondTextureCB->Tag;
  MC_AS_Params_SecondTextureEd->Enabled = MC_AS_Params_SecondTextureEd->Tag;
  MC_AS_Params_OffsetCB->Enabled = MC_AS_Params_OffsetCB->Tag;
  MC_AS_Params_OffsetXEd->Enabled = MC_AS_Params_OffsetXEd->Tag;
  MC_AS_Params_OffsetYEd->Enabled = MC_AS_Params_OffsetYEd->Tag;
  MC_AS_Params_PlayerNumberCB->Enabled = MC_AS_Params_PlayerNumberCB->Tag;
  MC_AS_Params_PlayerNumberEd->Enabled = MC_AS_Params_PlayerNumberEd->Tag;
  MC_ResetBut->Enabled = MC_ResetBut->Tag;
  MC_GoBut->Enabled = MC_GoBut->Tag;
  MC_AS_Obj_OnlyParamsRB->Enabled = MC_AS_Obj_OnlyParamsRB->Tag;

  //È âåðíóòü ôîêóñ òóäà ãäå îí áûë...
  ReturnFocus();
};
//---------------------------------------------------------------------------

void TMainF::ReturnFocus()
//Âîçâðàùàåò ôîêóñ ïîñëåäíåìó ôîêóñèðîâàâøåìóñÿ ýëåìåíòó :).
{
  //Ïðîñòî çàôîêóñèòü åãî :).
  if (PLastFocus != NULL)
  {
      PLastFocus->SetFocus();
  };  
};
//---------------------------------------------------------------------------
void __fastcall TMainF::ScriptEdEnter(TObject *Sender)
{
  //Òèïà ôîêóñ ñþäà ïîñëåäíèé...
  PLastFocus = ScriptEd;
  UpdateEditMenu();
}
//---------------------------------------------------------------------------

void __fastcall TMainF::ScriptEdExit(TObject *Sender)
{
  if (BlockingInterfNow == false)
  {
    //Íî òîêà åñëè ýòî ïðîèñõîäèò íå ïðè áëîêèðîâêå èíòåðôåéñà...
    PLastFocus = NULL;   //Òèïà ôîêóñà íåòó íèôèãà.
  };

  UpdateEditMenu();  
}
//---------------------------------------------------------------------------

void TMainF::UpdateMainInterf()
//Îáíîâëÿåò îñíîâíóþ ÷àñòü èíòåðôåéñà â ñîîòâ. ñ èçìåíèâøèìèñÿ óñëîâèÿìè :).
{
  //Íó òèïà... â îáùåì òàê - â íà÷àëå âûâåñòè èìåíà çàãðóæåíûõ ôàéëîâ.
  Caption = MobSurgeon_AppName;
  Application->Title = MobSurgeon_AppName;
  UpdateEditMenu();  //ìåíþõà ðåäàêòèðîâàíèÿ.
  if (MobLoaded == true)
  {
    //Ìîá çàãðóæåí - âûâåñòè åãî èìÿ ôàéëà...
    Caption = Caption + ' ' + ExtractFileName(MobFileName);
    if (MobModified == true) Caption = Caption + " *";    //Îòìåòêà î ìîäèôèöèðîâàííîñòè ôàéëà.
    Application->Title = ExtractFileName(MobFileName);
  };

  //Òåïåðü - áëîêèðîâêà ýëåìåíòîâ èíòåðôåéñà â çàâèñèìîñòè îò òîãî êàêèå ôàéëû áûëè îòêðûòû...
  if (MobLoaded == true)
  {
    //Ìîá çàãðóæåí.

    //Ðàçáëîêèðîâàòü ìåíþõó...
    SaveMob_menu->Enabled = true;
    SaveAsMobMenu->Enabled = true;
    BackupMobMenu->Enabled = true;
    CloseMobMenu->Enabled = true;

    //Ðàçáëîêèðîâàòü ðåäàêòîð ñêðèïòà...
    ScriptEd->Enabled = true;
    if (MainF_PK->ActivePage == ScriptSh)
    {
      PLastFocus = ScriptEd;
      ReturnFocus();
      UpdateEditMenu();  //ìåíþõà ðåäàêòèðîâàíèÿ.
    };

    //Ðàçáëîêèðîâàòü èíòåðôåéñ ðåäàêòîðà îáúåêòîâ...
    ObjectsTree->Enabled = true;
    ValuesEditor->Enabled = true;

    //Ðàçáëîêèðîâàòü èíòåðôåéñ âêëàäêè ìàññîâûõ èçìåíåíèé
    MC_KR_Param_Name1CB->Enabled = true;
    MC_KR_Param_Name1Ed->Enabled = true;
    MC_KR_Param_Name2CB->Enabled = true;
    MC_KR_Param_Name2Ed->Enabled = true;
    MC_KR_Param_ScriptVariableNameCB->Enabled = true;
    MC_KR_Param_ScriptVariableNameEd->Enabled = true;
    MC_KR_Param_Model3dCB->Enabled = true;
    MC_KR_Param_Model3dEd->Enabled = true;
    MC_KR_Param_FirstTextureCB->Enabled = true;
    MC_KR_Param_FirstTextureEd->Enabled = true;
    MC_KR_Param_SecondTextureCB->Enabled = true;
    MC_KR_Param_SecondTextureEd->Enabled = true;
    MC_KR_Param_PlayerNumberCB->Enabled = true;
    MC_KR_Param_PlayerNumberEd->Enabled = true;
    MC_KR_Coords_PramouglCB->Enabled = true;
    MC_KR_Coords_Pramougl_X1Ed->Enabled = true;
    MC_KR_Coords_Pramougl_Y1Ed->Enabled = true;
    MC_KR_Coords_Pramougl_X2Ed->Enabled = true;
    MC_KR_Coords_Pramougl_Y2Ed->Enabled = true;
    MC_KR_Coords_KrugCB->Enabled = true;
    MC_KR_Coords_Krug_XEd->Enabled = true;
    MC_KR_Coords_Krug_YEd->Enabled = true;
    MC_KR_Coords_Krug_RadEd->Enabled = true;
    MC_KR_Type_UnitCB->Enabled = true;
    MC_KR_Type_ObjectCB->Enabled = true;
    MC_KR_Type_LeverCB->Enabled = true;
    MC_KR_Type_TrapCB->Enabled = true;
    MC_KR_Type_FlameCB->Enabled = true;
    MC_KR_Type_Particle1CB->Enabled = true;
    MC_KR_Type_Particle2CB->Enabled = true;
    MC_KR_Type_Particle3CB->Enabled = true;
    MC_AS_Obj_DelRB->Enabled = true;
    MC_AS_Obj_CopyRB->Enabled = true;
    MC_AS_Obj_MoveRB->Enabled = true;
    MC_AS_Obj_TargetMobSelBut->Enabled = true;
    MC_AS_Obj_TargetMobEd->Enabled = true;
    MC_AS_Obj_ReplaceCB->Enabled = true;
    MC_AS_Params_Name1CB->Enabled = true;
    MC_AS_Params_Name1Ed->Enabled = true;
    MC_AS_Params_Name2CB->Enabled = true;
    MC_AS_Params_Name2Ed->Enabled = true;
    MC_AS_Params_ScriptVariableNameCB->Enabled = true;
    MC_AS_Params_ScriptVariableNameEd->Enabled = true;
    MC_AS_Params_Model3dCB->Enabled = true;
    MC_AS_Params_Model3dEd->Enabled = true;
    MC_AS_Params_FirstTextureCB->Enabled = true;
    MC_AS_Params_FirstTextureEd->Enabled = true;
    MC_AS_Params_SecondTextureCB->Enabled = true;
    MC_AS_Params_SecondTextureEd->Enabled = true;
    MC_AS_Params_OffsetCB->Enabled = true;
    MC_AS_Params_OffsetXEd->Enabled = true;
    MC_AS_Params_OffsetYEd->Enabled = true;
    MC_AS_Params_PlayerNumberCB->Enabled = true;
    MC_AS_Params_PlayerNumberEd->Enabled = true;
    MC_ResetBut->Enabled = true;
    MC_GoBut->Enabled = true;
    MC_AS_Obj_OnlyParamsRB->Enabled = true;
    MC_AS_UpdDel();  //Îáíîâèòü èíòåðôåéñ â çàâèñèìîñòè îò íàñòðîåê óäàëåíèÿ îáúåêòîâ â ìàññîâûõ èçìåíåíèÿõ.

  }
  else
  {
    //Íèêóà îí íå çàãðóæåí (ìîá).

    //Çàáëîêèðîâàòü ìåíþõó...
    SaveMob_menu->Enabled = false;
    SaveAsMobMenu->Enabled = false;
    BackupMobMenu->Enabled = false;
    CloseMobMenu->Enabled = false;

    //Çàáëîêèðîâàòü ðåäàêòîð ñêðèïòà...
    ScriptEd->Enabled = false;

    //Çàáëîêèðîâàòü èíòåðôåéñ ðåäàêòîðà îáúåêòîâ...
    ObjectsTree->Enabled = false;
    ValuesEditor->Enabled = false;

    //Çàáëîêèðîâàòü èíòåðôåéñ âêëàäêè ìàññîâûõ èçìåíåíèé
    MC_KR_Param_Name1CB->Enabled = false;
    MC_KR_Param_Name1Ed->Enabled = false;
    MC_KR_Param_Name2CB->Enabled = false;
    MC_KR_Param_Name2Ed->Enabled = false;
    MC_KR_Param_ScriptVariableNameCB->Enabled = false;
    MC_KR_Param_ScriptVariableNameEd->Enabled = false;
    MC_KR_Param_Model3dCB->Enabled = false;
    MC_KR_Param_Model3dEd->Enabled = false;
    MC_KR_Param_FirstTextureCB->Enabled = false;
    MC_KR_Param_FirstTextureEd->Enabled = false;
    MC_KR_Param_SecondTextureCB->Enabled = false;
    MC_KR_Param_SecondTextureEd->Enabled = false;
    MC_KR_Param_PlayerNumberCB->Enabled = false;
    MC_KR_Param_PlayerNumberEd->Enabled = false;
    MC_KR_Coords_PramouglCB->Enabled = false;
    MC_KR_Coords_Pramougl_X1Ed->Enabled = false;
    MC_KR_Coords_Pramougl_Y1Ed->Enabled = false;
    MC_KR_Coords_Pramougl_X2Ed->Enabled = false;
    MC_KR_Coords_Pramougl_Y2Ed->Enabled = false;
    MC_KR_Coords_KrugCB->Enabled = false;
    MC_KR_Coords_Krug_XEd->Enabled = false;
    MC_KR_Coords_Krug_YEd->Enabled = false;
    MC_KR_Coords_Krug_RadEd->Enabled = false;
    MC_KR_Type_UnitCB->Enabled = false;
    MC_KR_Type_ObjectCB->Enabled = false;
    MC_KR_Type_LeverCB->Enabled = false;
    MC_KR_Type_TrapCB->Enabled = false;
    MC_KR_Type_FlameCB->Enabled = false;
    MC_KR_Type_Particle1CB->Enabled = false;
    MC_KR_Type_Particle2CB->Enabled = false;
    MC_KR_Type_Particle3CB->Enabled = false;
    MC_AS_Obj_DelRB->Enabled = false;
    MC_AS_Obj_CopyRB->Enabled = false;
    MC_AS_Obj_MoveRB->Enabled = false;
    MC_AS_Obj_TargetMobSelBut->Enabled = false;
    MC_AS_Obj_TargetMobEd->Enabled = false;
    MC_AS_Obj_ReplaceCB->Enabled = false;
    MC_AS_Params_Name1CB->Enabled = false;
    MC_AS_Params_Name1Ed->Enabled = false;
    MC_AS_Params_Name2CB->Enabled = false;
    MC_AS_Params_Name2Ed->Enabled = false;
    MC_AS_Params_ScriptVariableNameCB->Enabled = false;
    MC_AS_Params_ScriptVariableNameEd->Enabled = false;
    MC_AS_Params_Model3dCB->Enabled = false;
    MC_AS_Params_Model3dEd->Enabled = false;
    MC_AS_Params_FirstTextureCB->Enabled = false;
    MC_AS_Params_FirstTextureEd->Enabled = false;
    MC_AS_Params_SecondTextureCB->Enabled = false;
    MC_AS_Params_SecondTextureEd->Enabled = false;
    MC_AS_Params_OffsetCB->Enabled = false;
    MC_AS_Params_OffsetXEd->Enabled = false;
    MC_AS_Params_OffsetYEd->Enabled = false;
    MC_AS_Params_PlayerNumberCB->Enabled = false;
    MC_AS_Params_PlayerNumberEd->Enabled = false;
    MC_ResetBut->Enabled = false;
    MC_GoBut->Enabled = false;
    MC_AS_Obj_OnlyParamsRB->Enabled = false;
    
  };

};
//---------------------------------------------------------------------------


void __fastcall TMainF::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  //Îáðàáîò÷èê ñîáûòèé ñ êëàâû
  if ( (Key == 'S') && ( Shift.Contains(ssCtrl)) && (Shift.Contains(ssShift) == false))
  {
    //Òèïà ñàâ äëÿ ìîáà...
    if (SaveMob_menu->Enabled == true)
    {
      SaveMob_menuClick(Sender);
    };

    //È îáíóëèòü ïîëó÷åííûé êåé :)
    Key = NULL;
  };

  if ( (Key == 'S') && ( Shift.Contains(ssCtrl)) && (Shift.Contains(ssShift)) )
  {
    //Òèïà ñàâ àç äëÿ ìîáà...
    if (SaveAsMobMenu->Enabled == true)
    {
      SaveAsMobMenuClick(Sender);
    };

    //È îáíóëèòü ïîëó÷åííûé êåé :)
    Key = NULL;
  };

  if ( (Key == 'O') && ( Shift.Contains(ssCtrl)) )
  {
    //Òèïà ëîàä äëÿ ìîáà...
    if (OpenMobMenu->Enabled == true)
    {
      OpenMobMenuClick(Sender);
    };

    //È îáíóëèòü ïîëó÷åííûé êåé :)
    Key = NULL;
  };

  if ( (Key == 'F') && ( Shift.Contains(ssCtrl)) )
  {
    //Òèïà ïîèñê.
    if (SearchRepMenu->Enabled == true)
    {
      SearchRepMenuClick(Sender);
    };

    //È îáíóëèòü ïîëó÷åííûé êåé :)
    Key = NULL;
  };

  if (Key == VK_F3)
  {
    //Òèïà ïîèñê äàëåå.
    if (SearchNextMenu->Enabled == true)
    {
      SearchNextMenuClick(Sender);
    };

    //È îáíóëèòü ïîëó÷åííûé êåé :)
    Key = NULL;
  };

  if ( (Key == 'R') && ( Shift.Contains(ssCtrl)) )
  {
    //Òèïà çàìåíà...
    if (ReplaceNextMenu->Enabled == true)
    {
      ReplaceNextMenuClick(Sender);
    };

    //È îáíóëèòü ïîëó÷åííûé êåé :)
    Key = NULL;
  };

  if ( (Key == 'K') && ( Shift.Contains(ssCtrl)) && (Shift.Contains(ssShift)) && (Shift.Contains(ssAlt)) )
  {
    if (MobLoaded == true)
    {
      //Òèïà çàìåíà êëþ÷à ñêðèïòà.
      KeyChangerF = new TKeyChangerF(this);
      KeyChangerF->KeyEditF->Text = IntToStr(MobInMem1->ScriptKey);
      KeyChangerF->ShowModal();
      if (KeyChangerF->ModalResult == mrOk)
      {
        //Ââåäåí êëþ÷ - ìîæíî ñìåíèòü.
        MobInMem1->ScriptKey = StrToInt(KeyChangerF->KeyEditF->Text);
      };
      delete KeyChangerF;
    };

    //È îáíóëèòü ïîëó÷åííûé êåé :)
    Key = NULL;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::BackupMobMenuClick(TObject *Sender)
{
  //Çàáåêàïèòü ìîá¹1
  MakeUserBackup(MobFileName);
}
//---------------------------------------------------------------------------

void TMainF::UpdateEditMenu()
//Îáíîâëÿåò èíòåðôåéñ ìåíþõè ðåäàêòèðîâàíèÿ :).
{
  if (PLastFocus == ScriptEd)
  {
    //Åñëè ôîêóñèðîâêà íà ðåäàêòîðå ñêðèïòà.
    UndoMenu->Enabled = true;
    RedoMenu->Enabled = true;
    CopyMenu->Enabled = true;
    CutMenu->Enabled = true;
    PasteMenu->Enabled = true;
    SelectAllMenu->Enabled = true;
    SearchRepMenu->Enabled = true;
    SearchNextMenu->Enabled = true;
    ReplaceNextMenu->Enabled = true;
  }
  else
  {
    //åñëè íèôèããà...
    UndoMenu->Enabled = false;
    RedoMenu->Enabled = false;
    CopyMenu->Enabled = false;
    CutMenu->Enabled = false;
    PasteMenu->Enabled = false;
    SelectAllMenu->Enabled = false;
    SearchRepMenu->Enabled = false;
    SearchNextMenu->Enabled = false;
    ReplaceNextMenu->Enabled = false;
  };
};
//---------------------------------------------------------------------------

void __fastcall TMainF::SearchRepMenuClick(TObject *Sender)
{
  //Âûçâàòü äèàëîã ñ çàïðîñîì...
  SearchRepF = new TSearchRepF(this);
  SearchRepF->ShowModal();
  delete SearchRepF;

  //Åñëè â äèàëîãå îêàëè - òî âûïîëíèòü çàïðîñ :)
  if (SearchDialCanceled == false)
  {
    if (MakeReplace == false)
    {
      //Íàäî ñäåëàòü ïîèñê.
      MakeASearch();
    }
    else
    {
      //Íàäî ñäåëàòü çàìåíó...
      MakeAReplace();
    };
  };
}
//---------------------------------------------------------------------------

void TMainF::MakeASearch()
//Âûïîëíÿåò ïîèñê ïî óæå ëåæàùèì â ïàìÿòè ïåðåìåííûì
{
  if (SearchStr.Length() != 0)
  {
    //Åñëè åñòü ÷åãî èñêàòü...
    TSynSearchOptions SO;
    ScriptEd->SearchReplace(SearchStr,NULL,SO);
  };
};
//---------------------------------------------------------------------------

void TMainF::MakeAReplace()
//Âûïîëíÿåò çàìåíó ïî óæå ëåæàùèì â ïàìÿòè ïåðåìåííûì
{
  if ( (SearchStr.Length() != 0) && (RepStr.Length() != 0) && (MakeReplace == true) )
  {
    //Åñëè åñòü ÷åãî èñêàòü, íà ÷òî çàìåíÿòü è âîîáùå ðàçðåøåíî...
    TSynSearchOptions SO;
    SO << ssoReplace;
    SO << ssoPrompt;
    ScriptEd->SearchReplace(SearchStr,RepStr,SO);
  };
};
//---------------------------------------------------------------------------

void __fastcall TMainF::UndoMenuClick(TObject *Sender)
{
  ScriptEd->Undo();        
}
//---------------------------------------------------------------------------

void __fastcall TMainF::RedoMenuClick(TObject *Sender)
{
  ScriptEd->Redo();        
}
//---------------------------------------------------------------------------

void __fastcall TMainF::CopyMenuClick(TObject *Sender)
{
  ScriptEd->CopyToClipboard();        
}
//---------------------------------------------------------------------------

void __fastcall TMainF::CutMenuClick(TObject *Sender)
{
  ScriptEd->CutToClipboard();
}
//---------------------------------------------------------------------------

void __fastcall TMainF::PasteMenuClick(TObject *Sender)
{
  ScriptEd->PasteFromClipboard();
}
//---------------------------------------------------------------------------

void __fastcall TMainF::SelectAllMenuClick(TObject *Sender)
{
  ScriptEd->SelectAll();        
}
//---------------------------------------------------------------------------

void __fastcall TMainF::SearchNextMenuClick(TObject *Sender)
{
  //Çàïóñòèòü ïîèñê ñëåäóþùåãî ýëåìåíòà...
  MakeASearch();        
}
//---------------------------------------------------------------------------

void __fastcall TMainF::ReplaceNextMenuClick(TObject *Sender)
{
  //Çàïóñòèòü ðèïëåéñ äëÿ ñëåäóþùåãî ýëåìåíòà...
  MakeAReplace();
}
//---------------------------------------------------------------------------


void __fastcall TMainF::MC_KR_Param_Name1EdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_KR_Param_Name1Ed->Text.Length() == 0)
  {
    MC_KR_Param_Name1CB->Checked = false;
  }
  else
  {
    MC_KR_Param_Name1CB->Checked = true;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Param_Name2EdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_KR_Param_Name2Ed->Text.Length() == 0)
  {
    MC_KR_Param_Name2CB->Checked = false;
  }
  else
  {
    MC_KR_Param_Name2CB->Checked = true;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Param_ScriptVariableNameEdChange(
      TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_KR_Param_ScriptVariableNameEd->Text.Length() == 0)
  {
    MC_KR_Param_ScriptVariableNameCB->Checked = false;
  }
  else
  {
    MC_KR_Param_ScriptVariableNameCB->Checked = true;
  };        
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Param_Model3dEdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_KR_Param_Model3dEd->Text.Length() == 0)
  {
    MC_KR_Param_Model3dCB->Checked = false;
  }
  else
  {
    MC_KR_Param_Model3dCB->Checked = true;
  };        
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Param_FirstTextureEdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_KR_Param_FirstTextureEd->Text.Length() == 0)
  {
    MC_KR_Param_FirstTextureCB->Checked = false;
  }
  else
  {
    MC_KR_Param_FirstTextureCB->Checked = true;
  };        
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Param_SecondTextureEdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_KR_Param_SecondTextureEd->Text.Length() == 0)
  {
    MC_KR_Param_SecondTextureCB->Checked = false;
  }
  else
  {
    MC_KR_Param_SecondTextureCB->Checked = true;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Coords_Pramougl_X1EdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if ( (MC_KR_Coords_Pramougl_X1Ed->Text.Length() == 0) ||
    (MC_KR_Coords_Pramougl_Y1Ed->Text.Length() == 0) ||
    (MC_KR_Coords_Pramougl_X2Ed->Text.Length() == 0) ||
    (MC_KR_Coords_Pramougl_Y2Ed->Text.Length() == 0) )
  {
    MC_KR_Coords_PramouglCB->Checked = false;
  };
  if ( (MC_KR_Coords_Pramougl_X1Ed->Text.Length() != 0) &&
    (MC_KR_Coords_Pramougl_Y1Ed->Text.Length() != 0) &&
    (MC_KR_Coords_Pramougl_X2Ed->Text.Length() != 0) &&
    (MC_KR_Coords_Pramougl_Y2Ed->Text.Length() != 0) )
  {
    MC_KR_Coords_PramouglCB->Checked = true;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Coords_Pramougl_Y1EdChange(TObject *Sender)
{
  MC_KR_Coords_Pramougl_X1EdChange(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Coords_Pramougl_X2EdChange(TObject *Sender)
{
  MC_KR_Coords_Pramougl_X1EdChange(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Coords_Pramougl_Y2EdChange(TObject *Sender)
{
  MC_KR_Coords_Pramougl_X1EdChange(Sender);        
}
//---------------------------------------------------------------------------


void __fastcall TMainF::MC_KR_Coords_Krug_XEdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if ( (MC_KR_Coords_Krug_XEd->Text.Length() == 0) ||
    (MC_KR_Coords_Krug_YEd->Text.Length() == 0) ||
    (MC_KR_Coords_Krug_RadEd->Text.Length() == 0) )
  {
    MC_KR_Coords_KrugCB->Checked = false;
  };
  if ( (MC_KR_Coords_Krug_XEd->Text.Length() != 0) &&
    (MC_KR_Coords_Krug_YEd->Text.Length() != 0) &&
    (MC_KR_Coords_Krug_RadEd->Text.Length() != 0) )
  {
    MC_KR_Coords_KrugCB->Checked = true;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Coords_Krug_YEdChange(TObject *Sender)
{
  MC_KR_Coords_Krug_XEdChange(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_KR_Coords_Krug_RadEdChange(TObject *Sender)
{
  MC_KR_Coords_Krug_XEdChange(Sender);        
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_AS_Params_Name1EdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_AS_Params_Name1Ed->Text.Length() == 0)
  {
    MC_AS_Params_Name1CB->Checked = false;
  }
  else
  {
    MC_AS_Params_Name1CB->Checked = true;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_AS_Params_Name2EdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_AS_Params_Name2Ed->Text.Length() == 0)
  {
    MC_AS_Params_Name2CB->Checked = false;
  }
  else
  {
    MC_AS_Params_Name2CB->Checked = true;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_AS_Params_ScriptVariableNameEdChange(
      TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_AS_Params_ScriptVariableNameEd->Text.Length() == 0)
  {
    MC_AS_Params_ScriptVariableNameCB->Checked = false;
  }
  else
  {
    MC_AS_Params_ScriptVariableNameCB->Checked = true;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_AS_Params_Model3dEdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_AS_Params_Model3dEd->Text.Length() == 0)
  {
    MC_AS_Params_Model3dCB->Checked = false;
  }
  else
  {
    MC_AS_Params_Model3dCB->Checked = true;
  }; 
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_AS_Params_FirstTextureEdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_AS_Params_FirstTextureEd->Text.Length() == 0)
  {
    MC_AS_Params_FirstTextureCB->Checked = false;
  }
  else
  {
    MC_AS_Params_FirstTextureCB->Checked = true;
  };         
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_AS_Params_SecondTextureEdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if (MC_AS_Params_SecondTextureEd->Text.Length() == 0)
  {
    MC_AS_Params_SecondTextureCB->Checked = false;
  }
  else
  {
    MC_AS_Params_SecondTextureCB->Checked = true;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_AS_Params_OffsetXEdChange(TObject *Sender)
{
  //Ñòàâèò èëè óáèðàåò ñîîòâ. ãàëêó
  if ( (MC_AS_Params_OffsetXEd->Text.Length() == 0) ||
    (MC_AS_Params_OffsetYEd->Text.Length() == 0) )
  {
    MC_AS_Params_OffsetCB->Checked = false;
  };
  if ( (MC_AS_Params_OffsetXEd->Text.Length() != 0) &&
    (MC_AS_Params_OffsetYEd->Text.Length() != 0) )
  {
    MC_AS_Params_OffsetCB->Checked = true;
  };
}
//---------------------------------------------------------------------------

void __fastcall TMainF::MC_AS_Params_OffsetYEdChange(TObject *Sender)
{
  MC_AS_Params_OffsetXEdChange(Sender);        
}
//---------------------------------------------------------------------------

void TMainF::MC_AS_UpdDel()
//Â çàâèñèìîñòè îò òîãî óäàëÿþòñÿ èëè íåò îáúåêòû â äåéñòâèÿõ ïðè ìàññîâîì
//èçìåíåíèè - áëîêèðóåò \ ðàçáëîêèðóåò èíòåðôåéñ.
{
  if (MobLoaded == true)
  {
    //Òîêà åñëè ìîá-1 çàãðóæåí.
    if (MC_AS_Obj_DelRB->Checked == true)
    {
      //çàáëîêèðîâàòü âñå äåéñòâèÿ íàä ïàðàìåòðàìè...
      MC_AS_Params_Name1CB->Enabled = false;
      MC_AS_Params_Name1Ed->Enabled = false;
      MC_AS_Params_Name2CB->Enabled = false;
      MC_AS_Params_Name2Ed->Enabled = false;
      MC_AS_Params_ScriptVariableNameCB->Enabled = false;
      MC_AS_Params_ScriptVariableNameEd->Enabled = false;
      MC_AS_Params_Model3dCB->Enabled = false;
      MC_AS_Params_Model3dEd->Enabled = false;
      MC_AS_Params_FirstTextureCB->Enabled = false;
      MC_AS_Params_FirstTextureEd->Enabled = false;