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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include "ITSLangTransF.h"
#include "ITSMapF.h"
#include "WindowMsgF.h"
#pragma hdrstop

#include "VMSM100MF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxSpinEdit"
#pragma link "cxSplitter"
#pragma link "cxTextEdit"
#pragma link "cxTimeEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "FRAME_OpenMapF"
#pragma link "FRAME_VmsListF"
#pragma link "cxContainer"
#pragma link "cxButtons"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxSpinEdit"
#pragma link "cxSplitter"
#pragma link "cxTextEdit"
#pragma link "cxTimeEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "FRAME_OpenMapF"
#pragma link "FRAME_VmsListF"
#pragma link "cxButtons"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxSpinEdit"
#pragma link "cxSplitter"
#pragma link "cxTextEdit"
#pragma link "cxTimeEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "FRAME_OpenMapF"
#pragma link "FRAME_VmsListF"
#pragma resource "*.dfm"

TVMSM100M *VMSM100M = NULL;
//---------------------------------------------------------------------------
void TVMSM100M_MapCallback(TObject *ASender, const String AFunc, const String AArgs, const bool AFirst)
{
    try
    {
        if (!VMSM100M) return;
        VMSM100M->OpenMapCallback(ASender, AFunc, AArgs, AFirst);
    }
    catch(Exception &exception)
    {
    }
}
//---------------------------------------------------------------------------

__fastcall TVMSM100M::TVMSM100M(TComponent* Owner)
    : TForm(Owner)
{
    LangTrans->Translate(this, ITSDb_GetConnection());
    ITSSkin_Load(this);
    CMM_LoadForm(g_sFormsDir, this);

    FUpdate= false;
    FTitle = Caption;//"VMS ±âº»Á¤º¸ °ü¸®";

    //FRAMEVmsList1->Column02->Visible = false;
    FRAMEVmsList1->PnlTop->Visible = false;
    FRAMEVmsList1->PnlBottom->Visible = false;
    FRAMEVmsList1->ColumnSel->Visible = false;

    FRAMEVmsList1->Column06->Visible = true;
    FRAMEVmsList1->Column07->Visible = false;
    FRAMEVmsList1->Column08->Visible = true;
    FRAMEVmsList1->Column09->Visible = true;
    FRAMEVmsList1->Column10->Visible = true;
    FRAMEVmsList1->Column13->Visible = true;

    EdCmncPort->Visible = false;

    m_pGDC = FRAMEVmsList1->TvList->DataController;

    FLayerIdx = LyrTp_Vms;
    FRAMEOpenMap1->ChkShowNmbr->Caption = "VMS ¹øÈ£";
    FRAMEOpenMap1->LayerIdx = FLayerIdx;
    FRAMEOpenMap1->MapCallbackFunc = TVMSM100M_MapCallback;

    SeMaxPhase->Properties->MaxValue = INT_VMS_MAX_FORM;

    EditMode = false;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::CommClose()
{
    try
    {
        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::FormShow(TObject *Sender)
{
    Refresh();

    FRAMEOpenMap1->OpenMap();

    APP_FillVmsSizeType(CbType);
    //APP_FillCode(CbUsagType, "VUT");
    //APP_FillCode(CbType,     "VMP");

    VmsCtlrManager->FLists.Lock();
    try
    {
        FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
        {
            if (pObj->DEL_YN == "Y") continue;
            pObj->FData3 = NULL;
        }
    }
    __finally
    {
        VmsCtlrManager->FLists.UnLock();
    }

    FormInit();
    ChangeEditMode(1);
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::FormInit()
{
	EdNmbr->Text = "";
    EdVmsId->Text = "";
	EdVmsNm->Text = "";
    SeMaxPhase->Value = INT_VMS_MAX_FORM;

	//CbUsagType->ItemIndex = 0;
	CbType->ItemIndex = 0;

    SePosX->Value = 0;
    SePosY->Value = 0;

    EdCtlrIp->Text = "";
    EdCmncPort->Text = "";

    EdWebCamIp->Text = "";
    EdWebCamPort->Text = "";
    EdWebCamId->Text = "";
	EdWebCamPswd->Text = "";
	EdWebCamStrm->Text = "";
    ISTL_LCTN_NM->Text = "";
    ISTL_LCTN_ADDR->Text = "";

	cxTimeOn->Clear();
	cxTimeOff->Clear();
    cxTimeOn->EditValue = Now().FormatString("hh:nn");
    cxTimeOn->EditValue = "00:00";
    cxTimeOff->EditValue = Now().FormatString("hh:nn");
    cxTimeOff->EditValue = "00:00";

    FNewDb = false;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    FRAMEVmsList1->UpdateList();
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::BtnCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::FormClose(TObject *Sender, TCloseAction &Action)
{
    CommClose();
    VMSM100M = NULL;
    Action = caFree;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if (FUpdate)
    {
        POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);
    }

    FRAMEVmsList1->OnCloseQuery(CanClose);
    FRAMEOpenMap1->OnCloseQuery(CanClose);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::DisplayInfo(TVmsCtlr* AObj, bool AMoveObj/*=true*/)
{
    FormInit();

    if (!AObj) return;

    if (AMoveObj)
    {
        sJs.printf(L"selectLayerObject(%d, '%s', %d)", FLayerIdx, AObj->VMS_CTLR_NMBR.c_str(), FRAMEOpenMap1->MapZoom);
        FRAMEOpenMap1->ExecScript(sJs);
    }
	EdNmbr->Text  = String(AObj->VMS_CTLR_NMBR);
    EdVmsId->Text = AObj->VMS_CTLR_ID;
	EdVmsNm->Text = AObj->VMS_NM;

	//APP_SetCode(CbUsagType, AObj->VMS_USAG_TYPE_CD);
	APP_SetCode(CbType,     AObj->VMS_TYPE_CD);

    SePosX->Value = AObj->X_CRDN;
    SePosY->Value = AObj->Y_CRDN;

    EdCtlrIp->Text = AObj->VMS_CTLR_IP;
    //EdCmncPort->Text = AObj->VMS_CMNC_PORT;

    EdWebCamIp->Text   = AObj->WEB_CMRA_IP;
    EdWebCamPort->Text = AObj->WEB_CMRA_PORT;
    EdWebCamId->Text   = AObj->WEB_CMRA_ID;
	EdWebCamPswd->Text = AObj->WEB_CMRA_PWD;
	EdWebCamStrm->Text = AObj->STRM_SESN_NM;
    ISTL_LCTN_NM->Text = AObj->ISTL_LCTN_NM;
    ISTL_LCTN_ADDR->Text = AObj->ISTL_LCTN_ADDR;

    SeMaxPhase->Value = AObj->VMS_MAX_PHSE_NUM;

    cxTimeOn->Clear();
    cxTimeOn->EditValue = Now().FormatString("hh:nn");
    cxTimeOn->EditValue = "00:00";
    cxTimeOff->Clear();
    cxTimeOff->EditValue = Now().FormatString("hh:nn");
    cxTimeOff->EditValue = "00:00";

    try
    {
        if (AObj->PANL_ON_TIME.Length() == 4)                        // ÀüÆΰüON½Ã°¢
        {
            String sPowerOnTime  = AObj->PANL_ON_TIME;
            sPowerOnTime.Insert(":", 3);
            cxTimeOn->EditValue = sPowerOnTime;
        }
    }
    catch(Exception &e) { }
    try
    {
        if (AObj->PANL_OFF_TIME.Length() == 4)                    // Àü±¤ÆÇOFF½Ã°¢
        {
            String sPowerOffTime = AObj->PANL_OFF_TIME;
            sPowerOffTime.Insert(":", 3);
            cxTimeOff->EditValue = sPowerOffTime;
        }
    }
    catch(Exception &e) { }

//    FRAMEGisMap1->SelectObjectByPos(SePosX->Value, SePosY->Value, true);

    ChangeEditMode(3);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::UpdateIcon()
{
    if (!FRAMEOpenMap1->MapStart) return;

    sJs.printf(L"removeLayerObject(%d)", FLayerIdx);
    FRAMEOpenMap1->ExecScript(sJs);

    String arrObj = "";
    String sTemp;

    VmsCtlrManager->FLists.Lock();
    try
    {
        FOR_STL(TVmsCtlr*, pObj, VmsCtlrManager->FLists)
        {
            if (pObj->DEL_YN == "Y") continue;

            if (arrObj != "") arrObj += "|";

            sTemp.printf(L"%s,%s,%s,%.6f,%.6f,0,0,0,0", pObj->VMS_CTLR_NMBR.c_str(), pObj->VMS_CTLR_ID.c_str(), pObj->VMS_NM.c_str(), pObj->X_CRDN, pObj->Y_CRDN);
            arrObj += sTemp;
        }
    }
    __finally
    {
        VmsCtlrManager->FLists.UnLock();
        if (arrObj != "")
        {
            sJs.printf(L"addFacility(%d, '%s')", FLayerIdx, arrObj.c_str());
            FRAMEOpenMap1->ExecScript(sJs);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::BtnEditClick(TObject *Sender)
{
    String sId = EdNmbr->Text;
    TVmsCtlr *pObj = VmsCtlrManager->FLists.Find(sId);

    FNewDb = false;

    if (BtnEdit->Caption == FrmLang->lblEdit->Caption)//"ÆíÁý")
    {
        //ÆíÁý¸ðµå ½ÃÀÛ
        ChangeEditMode(0);
        if (pObj)
        {
            //½Ã¼³¹°¾ÆÀÌÄÜÀ» ÆíÁý¾ÆÀÌÄÜÀ¸·Î º¯°æ
            //function editFacilityObject(ALyrIdx, ANmbr, AComm(0:¿À·ù-ÆíÁý,1:Á¤»ó), AEdit(ÆíÁý¸ðµå:1-ÆíÁý,0-ÆíÁýÃë¼Ò))
            sJs.printf(L"editFacilityObject(%d, %s, 1, 1)", FLayerIdx, pObj->VMS_CTLR_NMBR.c_str());
            FRAMEOpenMap1->ExecScript(sJs);
        }
    }
    else
    {
        //ÆíÁý¸ðµå Ãë¼Ò
        ChangeEditMode(1);
        if (pObj)
        {
            //¿ø·¡ Á¤º¸¸¦ È­¸é¿¡ Ç¥Ãâ
            CMM_SetGridRow(FRAMEVmsList1->CxList, FRAMEVmsList1->TvList, sId, FRAMEVmsList1->Column01->Index);
            DisplayInfo(pObj, false);

#if 0
            //Áöµµ½Ã¼³¹°¾ÆÀÌÄÜÀ» ¿ø·¡¾ÆÀÌÄÜÀ¸·Î º¯°æ
            sJs.printf(L"editFacilityObject(%d, %s, 0, 0)", FLayerIdx, pObj->VMS_CTLR_NMBR.c_str());
            FRAMEOpenMap1->ExecScript(sJs);
#else
            //Ãß°¡ ¸ðµå¿¡¼­ Ãë¼ÒÇÏ´Â °æ¿ì Áöµµ¿¡ ½Å±Ô·Î Ãß°¡ÇÑ °´Ã¼¸¦ ã¾Æ¼­ »èÁ¦ÇØ ÁÖ´Â°Í º¸´Ù
            //»õ·Ó°Ô ´Ù½Ã ±×¸®ÀÚ
            UpdateIcon();
#endif
        }
        else
        {
            //°´Ã¼°¡ ¾ø´Â °æ¿ì´Â Ãß°¡ ¸ðµå¿¡¼­ Ãë¼ÒÇÑ °æ¿ìÀÓ
            sJs.printf(L"removeFacilityObject(%d, %s)", FLayerIdx, sId.c_str());
            FRAMEOpenMap1->ExecScript(sJs);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::ChangeEditMode(int AEdit)
{
    bool bEnabled = false;
    switch(AEdit)
    {
    case 0: //ÆíÁý¹öưŬ¸¯
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = false;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = true;

            BtnEdit->Caption = FrmLang->lblCancel->Caption;//"Ãë¼Ò";
            BtnEdit->Hint    = FrmLang->lblCancel->Hint;//µ¥ÀÌÅÍ ÆíÁý Ãë¼Ò";
            EditMode = true;
        }
        break;
    case 1: //ÆíÁý[Ãë¼Ò]¹öưŬ¸¯
        {
            FormInit(); //È­¸éÀ» ¸ðµÎ Áö¿î´Ù.
            BtnEdit->Enabled = false;
            BtnInsert->Enabled = true;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = false;

            BtnEdit->Caption = FrmLang->lblEdit->Caption;//"ÆíÁý";
            BtnEdit->Hint    = FrmLang->lblEdit->Hint;//µ¥ÀÌÅÍ ÆíÁý";
            //bEnabled = true;
            EditMode = false;
        }
        break;
    case 2: //Ãß°¡
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = false;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = true;

            BtnEdit->Caption = FrmLang->lblCancel->Caption;//"Ãë¼Ò";
            BtnEdit->Hint    = FrmLang->lblCancel->Hint;//µ¥ÀÌÅÍ ÆíÁý Ãë¼Ò";
            EditMode = true;
        }
        break;
    case 3: //¼öÁ¤¸ðµå
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = true;
            BtnDelete->Enabled = true;
            BtnSave->Enabled = false;

            BtnEdit->Caption = FrmLang->lblEdit->Caption;//"ÆíÁý";
            BtnEdit->Hint    = FrmLang->lblEdit->Hint;//µ¥ÀÌÅÍ ÆíÁý";
            bEnabled = true;
            EditMode = false;
        }
        break;
    }

    if (AEdit == 0 || AEdit == 2)
    {
        FRAMEVmsList1->CxList->Enabled = false;
    }
    else
    {
        FRAMEVmsList1->CxList->Enabled = true;
    }

    PnlEdit->Enabled = EditMode;

#if 0
    EdVmsId->Enabled = bEnabled;
	EdVmsNm->Enabled = bEnabled;

	CbUsagType->Enabled = bEnabled;
	CbType->Enabled = bEnabled;

    SePosX->Enabled = bEnabled;
    SePosY->Enabled = bEnabled;

    EdCtlrIp->Enabled = bEnabled;

    EdWebCamIp->Enabled = bEnabled;
    EdWebCamPort->Enabled = bEnabled;
    EdWebCamId->Enabled = bEnabled;
	EdWebCamPswd->Enabled = bEnabled;
	EdWebCamStrm->Enabled = bEnabled;

	cxTimeOn->Enabled = bEnabled;
	cxTimeOff->Enabled = bEnabled;
#endif

#if 0
	EdRseId->Properties->ReadOnly = bEnabled;
	EdRoadSpotId->Properties->ReadOnly = bEnabled;
	EdLogCnncId->Properties->ReadOnly = bEnabled;
	EdLogCnncPwd->Properties->ReadOnly = bEnabled;
	EdIstlLctnNm->Properties->ReadOnly = bEnabled;
    SePosX->Properties->ReadOnly = bEnabled;
    SePosY->Properties->ReadOnly = bEnabled;
	EdIP->Properties->ReadOnly = bEnabled;
	EdPort->Properties->ReadOnly = bEnabled;
	CbMnfcCmpyCd->Properties->ReadOnly = bEnabled;
	SeCLCT_ABNR_BASI->Properties->ReadOnly = bEnabled;
#endif
}
//---------------------------------------------------------------------------


void __fastcall TVMSM100M::BtnInsertClick(TObject *Sender)
{
    FormInit();
    //½Å±Ô¾ÆÀ̵𸦠¾ò¾î¿Í¼­ È­¸éÀ» ÃʱâÈ­ÇÑ´Ù.

    int nNmbr, nId;
    if (!VmsCtlrManager->GetNextVmsId(nNmbr, nId))
    {
        Application->MessageBox(lblText1->Caption.c_str(),//L"»õ·Î¿î VMS Á¤º¸¸¦ »ý¼ºÇÏÁö ¸øÇÏ¿´½À´Ï´Ù.\r\nÇÁ·Î±×·¥ Á¾·áÈÄ¿¡ ´Ù½Ã ½ÃµµÇØ º¸¼¼¿ä.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    EdNmbr->Text = String(nNmbr);
    SePosX->Value = FRAMEOpenMap1->CenterX;
    SePosY->Value = FRAMEOpenMap1->CenterY;

    //Áöµµ¿¡ »õ·Î¿î ½Ã¼³¹° ¾ÆÀÌÄÜ Ãß°¡Çϸ鼭 ÆíÁý¸ðµå·Î º¯°æ
    String arrObj = "";
    arrObj.printf(L"%d,New,New,%.6f,%.6f,0", nNmbr, FRAMEOpenMap1->CenterX, FRAMEOpenMap1->CenterY);
    sJs.printf(L"addFacilityObject(%d, '%s')", FLayerIdx, arrObj.c_str());
    FRAMEOpenMap1->ExecScript(sJs);

    ChangeEditMode(2);
    FNewDb = true;
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::BtnDeleteClick(TObject *Sender)
{
    if (!FRAMEOpenMap1->MapStart) return;

    int nIdx = m_pGDC->FocusedRecordIndex;
    if (nIdx < 0) return;

    String sId = EdNmbr->Text;

    if (sId.IsEmpty())
    {
        Application->MessageBox(lblText2->Caption.c_str(),//L"»èÁ¦ÇÒ VMS¸¦ ¸ñ·Ï¿¡¼­ ¼±ÅÃÇϼ¼¿ä.\r\n¸ñ·Ï¿¡¼­ ´õºíŬ¸¯ÇÏ¿© ¼±ÅÃÇÕ´Ï´Ù.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    String sMsg;
    sMsg = lblText3->Caption + ": " + sId;//"VMS¹øÈ£: " + sId;
    sMsg+= "\r\n" + lblText4->Caption;//"¼±ÅÃÇϽŠVMS Á¤º¸¸¦ »èÁ¦ÇϽðڽÀ´Ï±î?";

    if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;

	TVmsCtlr *pObj = VmsCtlrManager->FLists.Find(sId);

	if (pObj)
	{
		if (VmsCtlrManager->DeleteVms(pObj))
		{
            pObj->DEL_YN = "Y";
            FRAMEVmsList1->UpdateList();
            UpdateIcon();
		}

        FUpdate = true;

        Application->MessageBox(lblText5->Caption.c_str(),//L"VMS Á¤º¸»èÁ¦\r\nVMS Á¤º¸¸¦ »èÁ¦ ÇÏ¿´½À´Ï´Ù.",
                                FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

        FormInit();
        ChangeEditMode(1);

        UpdateIcon();
	}
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::BtnSaveClick(TObject *Sender)
{
	if (EdNmbr->Text.IsEmpty()         ||
        EdVmsId->Text.Trim().IsEmpty() ||
        EdVmsNm->Text.Trim().IsEmpty() ||
        SePosX->Value == 0             ||
        SePosY->Value == 0             ||
        CbType->Text.IsEmpty()         ||
        EdCtlrIp->Text.IsEmpty())
	{
        Application->MessageBox(FrmLang->lblNecessary->Caption.c_str(),//L"¡ÚÇ׸ñÀº Çʼö ÀÔ·Â Ç׸ñÀÔ´Ï´Ù.\r\n¸ðµÎ ÀÔ·ÂÈÄ ÁøÇàÇØ ÁÖ¼¼¿ä.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}

    String sNmbr = EdNmbr->Text;
    int    nNmbr = sNmbr.ToInt();
    String sVmsId = EdVmsId->Text.Trim();

    if (!ITSUtil_CheckIpAddress(EdCtlrIp->Text.Trim()))
    {
        Application->MessageBox(lblText6->Caption.c_str(),//L"Á¦¾î±â IP°¡ À¯È¿ÇÏÁö ¾Ê½À´Ï´Ù.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
    }

    if (EdWebCamIp->Text.Trim() != "")
    {
        if (!ITSUtil_CheckIpAddress(EdCtlrIp->Text.Trim()))
        {
            Application->MessageBox(lblText7->Caption.c_str(),//L"À¥Ä«¸Þ¶ó IP°¡ À¯È¿ÇÏÁö ¾Ê½À´Ï´Ù.",
                                    FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }
    }

    VmsCtlrManager->FLists.Lock();
    FOR_STL(TVmsCtlr*, pTmpObj, VmsCtlrManager->FLists)
    {
        if (pTmpObj->DEL_YN == "Y") continue;
        if (pTmpObj->VMS_CTLR_NMBR == sNmbr) continue; //ÀÚ±âÀÚ½Å

        if (pTmpObj->VMS_CTLR_ID == sVmsId)
        {
            Application->MessageBox(lblText8->Caption.c_str(),//L"VMS ID°¡ ÀÌ¹Ì »ç¿ë ÁßÀÔ´Ï´Ù. VMS ID¸¦ È®ÀÎÇϼ¼¿ä.",
                                    FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }
    }
    VmsCtlrManager->FLists.UnLock();

    TVmsCtlr *pObj;
    if (FNewDb)
        pObj = new TVmsCtlr();
    else
        pObj = VmsCtlrManager->FLists.Find(sNmbr);

    if (pObj)
    {
        pObj->VMS_CTLR_NMBR = nNmbr;
        pObj->VMS_CTLR_ID   = sVmsId;
        pObj->VMS_NM        = EdVmsNm->Text.Trim();

        pObj->VMS_CTLR_IP       = EdCtlrIp->Text;
        pObj->VMS_CTLR_PORT     = EdCmncPort->Text.ToIntDef(0);
        pObj->VMS_CTLR_LOCAL_NO = 0;

        pObj->VMS_TYPE_CD  = APP_GetCode(CbType);
        pObj->ISTL_LCTN_NM = ISTL_LCTN_NM->Text.Trim();
        pObj->ISTL_LCTN_ADDR = ISTL_LCTN_ADDR->Text.Trim();

        pObj->X_CRDN = SePosX->Value;
        pObj->Y_CRDN = SePosY->Value;

        pObj->WEB_CMRA_IP   = EdWebCamIp->Text;
        pObj->WEB_CMRA_PORT = EdWebCamPort->Text.ToIntDef(0);
        pObj->WEB_CMRA_ID   = EdWebCamId->Text;
        pObj->WEB_CMRA_PWD  = EdWebCamPswd->Text;
        pObj->STRM_SESN_NM  = EdWebCamStrm->Text;

        pObj->VMS_MAX_PHSE_NUM = SeMaxPhase->Value;

        pObj->PANL_ON_TIME  = cxTimeOn->Time.FormatString("HHNN");
        pObj->PANL_OFF_TIME = cxTimeOff->Time.FormatString("HHNN");



        pObj->Completed    = true;
        pObj->MEM_DEL      = "N";

        bool bResult;
        if (FNewDb)
        {
            pObj->DEL_YN = "N";
            bResult = VmsCtlrManager->InsertVms(pObj);
            if (bResult)
            {
                VmsCtlrManager->FLists.Push(sNmbr, pObj);
            }
		}
        else
		{
            bResult = VmsCtlrManager->UpdateVms(pObj);
		}

        if (bResult)
        {
            Application->MessageBox(lblText9->Caption.c_str(),//L"VMS Á¤º¸ÀúÀå\r\nVMS Á¤º¸¸¦ ÀúÀå ÇÏ¿´½À´Ï´Ù.",
                                    FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

            FUpdate = true;

            FRAMEVmsList1->UpdateList();
            UpdateIcon();
            CMM_SetGridRow(FRAMEVmsList1->CxList, FRAMEVmsList1->TvList, sNmbr, FRAMEVmsList1->Column01->Index);
            DisplayInfo(pObj, true);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::FRAMEVmsList1TvListCellDblClick(TcxCustomGridTableView *Sender,
          TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton,
          TShiftState AShift, bool &AHandled)
{
	if (!ACellViewInfo) return;
	int nRow = FRAMEVmsList1->TvList->DataController->FocusedRecordIndex;
	if( nRow <= -1 )
		return;

    int nMemPtr = FRAMEVmsList1->TvList->DataController->Values[nRow][FRAMEVmsList1->Column99->Index];
    TVmsCtlr* pObj = (TVmsCtlr*)nMemPtr;
    DisplayInfo(pObj, true);
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::EdWebCamPortKeyPress(TObject *Sender, wchar_t &Key)
{
    if (Key > '9' || Key < '0')
    {
        if (Key != VK_BACK && Key != VK_TAB && Key != '-')
            Key = 0;
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::BtnSaveAllClick(TObject *Sender)
{
    String sMsg;
    sMsg = "";
    sMsg+= "\r\n" + lblText10->Caption;//Á¦¾î±â ¼³Á¤ Á¤º¸¸¦ Àüü VMS¿¡ µ¿ÀÏÇÏ°Ô Àû¿ë ÇϽðڽÀ´Ï±î?";

    if (Application->MessageBox(sMsg.c_str(), FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;

    TVmsCtlr* pObj = NULL;
    try
    {
        pObj = new TVmsCtlr();
        pObj->PANL_ON_TIME   = cxTimeOn->Time.FormatString("HHNN");
        pObj->PANL_OFF_TIME  = cxTimeOff->Time.FormatString("HHNN");

        if (VmsCtlrManager->UpdateCtlrInfo(pObj))
        {
            FUpdate = true;

            VmsCtlrManager->FLists.Lock();
            FOR_STL(TVmsCtlr*, pTmpObj, VmsCtlrManager->FLists)
            {
                if (pTmpObj->DEL_YN == "Y") continue;

                pTmpObj->PANL_ON_TIME   = pObj->PANL_ON_TIME;
                pTmpObj->PANL_OFF_TIME  = pObj->PANL_OFF_TIME;
            }
            VmsCtlrManager->FLists.UnLock();

            Application->MessageBox(lblText11->Caption.c_str(),//L"VMS Á¦¾î±â¼³Á¤ Á¤º¸ÀúÀå\r\nÁ¦¾î±â ¼³Á¤ Á¤º¸¸¦ Àüü Á¦¾î±â¿¡ Àû¿ë ÇÏ¿´½À´Ï´Ù.",
                                    FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
        }
    }
    __finally
    {
        if (pObj)
        {
            delete pObj;
            pObj = NULL;
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMSM100M::SeMaxPhasePropertiesChange(TObject *Sender)
{
    if (((TcxSpinEdit*)Sender)->Value < ((TcxSpinEdit*)Sender)->Properties->MinValue)
        ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MinValue;
    else if(((TcxSpinEdit*)Sender)->Value > ((TcxSpinEdit*)Sender)->Properties->MaxValue &&
        ((TcxSpinEdit*)Sender)->Properties->MaxValue)
        ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MaxValue;
}
//---------------------------------------------------------------------------
void __fastcall TVMSM100M::OpenMapCallback(TObject *ASender, const String AFunc, const String AArgs, const bool AFirst)
{
    try
    {
        if (AFirst)
        {
            //Áöµµ¸¦ ÆíÁý¸ðµå·Î º¯°æ
            sJs.printf(L"setEditMode(%d, 1)", FLayerIdx);
            FRAMEOpenMap1->ExecScript(sJs);
            //½Ã¼³¹°¾ÆÀÌÄÜ µî·Ï
            UpdateIcon();
            sJs.printf(L"extentLayer(%d)", FLayerIdx);
            FRAMEOpenMap1->ExecScript(sJs);
            return;
        }

        if (AFunc.Pos("onfacilitydragend"))
        {
            TStringList *pStringList = new TStringList;
            pStringList->CommaText = AArgs;

            try
            {
                String sNmbr      = pStringList->Strings[0];
                String sCenterLat = pStringList->Strings[1];
                String sCenterLng = pStringList->Strings[2];
                SePosX->Value = sCenterLat.ToDouble();
                SePosY->Value = sCenterLng.ToDouble();
            }
            catch(Exception &e)
            {
            }
            delete pStringList;
        }
    }
    catch(Exception &exception)
    {
    }
}
//---------------------------------------------------------------------------