ITS_OP/SRC/PLUGIN/01.TRAFFIC/ITS0000M/GIS/ITS0000MF.cpp

/****************************************************************************
 * @source      : 
 * @description : 
 ****************************************************************************
 * DATE         AUTHOR    DESCRIPTION
 * --------------------------------------------------------------------------
 * 2011/12/24   정승호    최초작성
 *
 ****************************************************************************/
//---------------------------------------------------------------------------

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "WindowMsgF.h"
#include "CDSFacilityF.h"
#include "CDSIncidentF.h"
#include "FrmMainF.h"
#pragma hdrstop

#include "ITS0000MF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "FRAME_FacilityStatusListF"
#pragma link "FRAME_ProcessStatusListF"
#pragma link "FRAME_UtisStatusListF"
#pragma link "FRAME_IncidentListF"
#pragma link "FRAME_RepeatCongestListF"
#pragma link "FRAME_TrafficMissLinkListF"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxSplitter"
#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 "dxSkinscxPCPainter"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "FRAME_IncidentAutoListF"
#pragma resource "*.dfm"
TITS0000M *ITS0000M = NULL;

//---------------------------------------------------------------------------
__fastcall TITS0000M::TITS0000M(TComponent* Owner)
    : TForm(Owner)
{
    ITSSkin_Load(this);
    LoadLocalSkin();
    CMM_LoadForm(g_sFormsDir, this);

    TsIncidentAuto->Visible = false;
    TsIncidentAuto->TabVisible = false;

    GrpUtis->Visible = false;
    splUtis->Visible = false;

    PgSystem->Properties->ActivePage = TsIncident;
    GrpSystem->Caption = "▶ 시스템 운영 정보 - " + TsIncident->Caption;

    FRAMEFacilityStatusList1->PnlBottom->Visible = false;

    FrmMain->dxStatusBar->Panels->Items[isbGisPos]->Visible = true;
    ITS00MAP = new TITS00MAP(PnlMapBack, (TForm*)this);
}
//---------------------------------------------------------------------------

/*
 * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
 * Form과 DataModule class를 delete시킨다.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TITS0000M::CommClose()
{
    try
    {
        FrmMain->dxStatusBar->Panels->Items[isbGisPos]->Visible = false;
        if (ITS00MAP)
        {
            delete ITS00MAP;
            ITS00MAP = NULL;
        }

        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

/*
 * Form이 메모리에서 생성될때 호출되는 생성자 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TITS0000M::FormCreate(TObject *Sender)
{
    if (ITS00MAP)
    {
        ITS00MAP->Parent = PnlMapBack;
        ITS00MAP->Show();
    }
}
//---------------------------------------------------------------------------

/*
 * Form을 보여줄때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TITS0000M::FormShow(TObject *Sender)
{
    Refresh();
    Application->ProcessMessages();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

/*
 * Form의 Skin 초기화 작업을 수행한다.
 *  arguments
 *      void
 *  return
 *      void
 */
void __fastcall TITS0000M::LoadLocalSkin()
{
#define     MAX_VIEW        8

    TcxGridTableView *pView[MAX_VIEW];
    TcxGrid *pGrid[MAX_VIEW];

    pGrid[ 0] = FRAMEProcessStatusList1->CxList;    //프로세스상태
    pGrid[ 1] = FRAMEFacilityStatusList1->CxList;   //시설물상태
    pGrid[ 2] = FRAMEUtisStatusList1->CxUtisRun;    //UTIS현황-운영현황
    pGrid[ 3] = FRAMEUtisStatusList1->CxUtisRse;    //UTIS현황-RSE상태현황
    pGrid[ 4] = FRAMEIncidentList1->CxList;         //돌발
    pGrid[ 5] = FRAMERepeatCongestList1->CxList;    //반복정체구간
    pGrid[ 6] = FRAMETrafficMissLinkList1->CxList;  //소통정보결측구간
    pGrid[ 7] = FRAMEIncidentAutoList1->CxList2;    //소통정보결측구간

    pView[ 0] = FRAMEProcessStatusList1->TvList;
    pView[ 1] = FRAMEFacilityStatusList1->TvList;
    pView[ 2] = FRAMEUtisStatusList1->TvUtisRun;
    pView[ 3] = FRAMEUtisStatusList1->TvUtisRse;
    pView[ 4] = FRAMEIncidentList1->TvList;
    pView[ 5] = FRAMERepeatCongestList1->TvList;
    pView[ 6] = FRAMETrafficMissLinkList1->TvList;
    pView[ 7] = FRAMEIncidentAutoList1->TvList2;

    for (int ii = 0; ii < MAX_VIEW; ii++)
    {
        //pGrid[ii]->LookAndFeel->SkinName = "McSkin";
        pView[ii]->Styles->Inactive   = NULL;
        pView[ii]->Styles->ContentOdd = NULL;
        pView[ii]->Styles->ContentEven= NULL;
        pView[ii]->Styles->Selection  = NULL;
        pView[ii]->OptionsSelection->CellSelect = false;
    }
}
//---------------------------------------------------------------------------

/*
 * Form이 Show되고 난 후 최초 1회 수행되는 타이머 이벤트
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TITS0000M::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;

    // 리스트 항목을 초기화한다.
    InitListData();
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::InitListData()
{
    FIncidentCnt  = 0;
    FRrCongestCnt = 0;
    FMissLinkCnt  = 0;

    FRAMEFacilityStatusList1->UpdateList();
    FRAMEProcessStatusList1->UpdateList();
    if (splUtis->Visible) FRAMEUtisStatusList1->UpdateList();

    FRAMEIncidentList1->UpdateList();
    FRAMERepeatCongestList1->UpdateList();
    FRAMETrafficMissLinkList1->UpdateList();
    FRAMEIncidentAutoList1->UpdateList();

    UpdateAlarmStatus();
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::UpdateAlarmStatus()
{
    String sAlarmMsg = "";

    FIncidentCnt  = FRAMEIncidentList1->TvList->DataController->RecordCount;
    FRrCongestCnt = FRAMERepeatCongestList1->TvList->DataController->RecordCount;
    FMissLinkCnt  = FRAMETrafficMissLinkList1->TvList->DataController->RecordCount;
    FIncidentAutoCnt = FRAMEIncidentAutoList1->TvList2->DataController->RecordCount;

    if (FIncidentCnt > 0)
    {
        sAlarmMsg += "돌발상황(" + String(FIncidentCnt) + ")  ";
        TsIncident->ImageIndex = 1;
    }
    else
        TsIncident->ImageIndex = 2;

    if (FRrCongestCnt > 0)
    {
        sAlarmMsg += "반복정체구간(" + String(FRrCongestCnt) + ")  ";
        TsRrCongest->ImageIndex = 1;
    }
    else
        TsRrCongest->ImageIndex = 2;

    if (FMissLinkCnt > 0)
    {
        sAlarmMsg += "결측구간(" + String(FMissLinkCnt) + ")  ";
        TsMissingLink->ImageIndex = 1;
    }
    else
        TsMissingLink->ImageIndex = 2;

    if (FIncidentAutoCnt > 0)
    {
        sAlarmMsg += "자동돌발(" + String(FIncidentAutoCnt) + ")  ";
        TsIncidentAuto->ImageIndex = 1;
    }
    else
        TsIncidentAuto->ImageIndex = 2;

    LblAlarm->Caption = sAlarmMsg;
    if ((FIncidentCnt+FRrCongestCnt+FMissLinkCnt+FIncidentAutoCnt) > 0)
    {
        LblAlarm->Visible = true;
    }
    else
    {
        LblAlarm->Visible = false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::PgSystemPageChanging(TObject *Sender, TcxTabSheet *NewPage, bool &AllowChange)
{
    GrpSystem->Caption = "▶ 시스템 운영 정보 - " + NewPage->Caption;
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::FormClose(TObject *Sender, TCloseAction &Action)
{
    try {
        CommClose();    

        ITS0000M = NULL;
        Action = caFree;
    } catch(...) {}
}
//---------------------------------------------------------------------------

/*
 * 메인폼에서 데이터를 수신시 발생하는 이벤트 핸들러
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TITS0000M::OnMainFormMessage(TMessage &Msg)
{
    switch(Msg.WParam)
    {
    case WP_DB_SELECT_OK:
        switch(Msg.LParam)
        {
        case LP_MSG_01: ITSUtil_Trace("LP_MSG_01"); UpdateTrafficMissLinkInfo();  break;
        case LP_MSG_02: ITSUtil_Trace("LP_MSG_02"); /*서비스링크소통정보*/        break;
        case LP_MSG_03: ITSUtil_Trace("LP_MSG_03"); /*도로소통정보*/              break;
        case LP_MSG_04: ITSUtil_Trace("LP_MSG_04"); UpdateTrafficRrCongestInfo(); break;
        case LP_MSG_05: ITSUtil_Trace("LP_MSG_05"); UpdateUtisStatusInfo();       break;
        case LP_MSG_11: ITSUtil_Trace("LP_MSG_11"); UpdateFacilityStatusInfo();   break;
        case LP_MSG_12: ITSUtil_Trace("LP_MSG_12"); UpdateProcessStatusInfo();    break;
        case LP_MSG_13: ITSUtil_Trace("LP_MSG_13"); UpdateIncidentInfo();         break;
        case LP_MSG_14: ITSUtil_Trace("LP_MSG_14"); UpdateFacilityInfo();         break;
        case LP_MSG_09: ITSUtil_Trace("LP_MSG_09");
            FRAMEProcessStatusList1->UpdateList();
            break;
        case LP_MSG_10: //가공서버에서 소통정보 가공완료하였음.
            // GIS 소통정보 업데이트
            if (ITS00MAP) ITS00MAP->RefreshMapTraffic();
            break;
        }
        break;
    case WP_MSG_01: //소통등급이 변경되었다.
        if (ITS00MAP) ITS00MAP->SetGisTrafficColor();
        break;
    case WP_MSG_02: //돌발정보를 현단말에서 취소/등록/해제 하였다.
        UpdateIncidentInfo();
        break;
    case WP_MSG_03: //시설물 기본정보가 변경됨
        UpdateFacilityInfo();
        //FRAMEFacilityStatusList1->UpdateList();
        break;
    case WP_DB_SELECT_ERROR:
    case WP_DB_SELECT_CANCEL:
        break;
    case WP_MSG_15:
        if (LP_MSG_15 == Msg.LParam)
        {
            if (ITS00MAP) ITS00MAP->RefreshGisLink();
        }
        break;
    }
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateTrafficMissLinkInfo()
{
    FMissLinkCnt  = 0;
    FRAMETrafficMissLinkList1->UpdateList();
    FRAMEIncidentAutoList1->UpdateList();
    UpdateAlarmStatus();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateTrafficRrCongestInfo()
{
    FRrCongestCnt = 0;
    FRAMERepeatCongestList1->UpdateList();
    UpdateAlarmStatus();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateIncidentInfo()
{
    FIncidentCnt  = 0;
    FRAMEIncidentList1->UpdateList();
    FRAMEIncidentAutoList1->UpdateList();
    UpdateAlarmStatus();
    if (ITS00MAP) ITS00MAP->UpdateIncidentStatus();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateFacilityStatusInfo()
{
    FRAMEFacilityStatusList1->UpdateList();
    //FRAMEFacilityStatusList1->RefreshList();
    if (ITS00MAP) ITS00MAP->UpdateFacilityStatus();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateProcessStatusInfo()
{
    FRAMEProcessStatusList1->RefreshList();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateUtisStatusInfo()
{
    if (splUtis->Visible) FRAMEUtisStatusList1->RefreshList();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateFacilityInfo()
{
    FRAMEFacilityStatusList1->UpdateList();
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::FRAMEIncidentList1TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
    //돌발 클릭
    if (!ACellViewInfo) return;
    try {
        TcxDataController *pGDC = FRAMEIncidentList1->TvList->DataController;
        int nRow = pGDC->FocusedRecordIndex;
        if (nRow < 0) return;

        String sId = VarToStr(pGDC->Values[nRow][FRAMEIncidentList1->Column01->Index]);
        String sDx = VarToStr(pGDC->Values[nRow][FRAMEIncidentList1->Column07->Index]);
        String sDy = VarToStr(pGDC->Values[nRow][FRAMEIncidentList1->Column08->Index]);
        if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloat(sDx), StrToFloat(sDy), true);
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::FRAMERepeatCongestList1TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
    //반복정체구간 클릭
    if (!ACellViewInfo) return;
    try {
        TcxDataController *pGDC = FRAMERepeatCongestList1->TvList->DataController;
        int nRow = pGDC->FocusedRecordIndex;
        if (nRow < 0) return;

        String sSvcLinkId = VarToStr(pGDC->Values[nRow][FRAMERepeatCongestList1->Column01->Index]);
        if (ITS00MAP) ITS00MAP->SelectLinkById(2, sSvcLinkId, true);
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::FRAMETrafficMissLinkList1TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
    //소통정보 결측구간 클릭
    if (!ACellViewInfo) return;
    try {
        TcxDataController *pGDC = FRAMETrafficMissLinkList1->TvList->DataController;
        int nRow = pGDC->FocusedRecordIndex;
        if (nRow < 0) return;
        String sLinkId = VarToStr(pGDC->Values[nRow][FRAMETrafficMissLinkList1->Column02->Index]);
        if (ITS00MAP) ITS00MAP->SelectLinkById(1, sLinkId, true);
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::FRAMEFacilityStatusList1TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
    //시설물 위치이동
    if (!ACellViewInfo) return;
    try {
        TcxDataController *pGDC = FRAMEFacilityStatusList1->TvList->DataController;
        int nRow = pGDC->FocusedRecordIndex;
        if (nRow < 0) return;

        String sType = VarToStr(pGDC->Values[nRow][FRAMEFacilityStatusList1->Column01->Index]);
        FSelId       = VarToStr(pGDC->Values[nRow][FRAMEFacilityStatusList1->Column02->Index]);
        MoveGisFacility(sType, FSelId);
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::MoveGisFacility(String AType, String AId)
{
    if (AType == "CCTV")
    {
        TItsCctv *pObj = ItsFacilityManager->FCctvLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == "VMS")
    {
        TItsVms *pObj = ItsFacilityManager->FVmsLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == "RSE")
    {
        TItsRse *pObj = ItsFacilityManager->FRseLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->COORDX, 0), StrToFloatDef(pObj->COORDY, 0), true);
    }
    else
    if (AType == "WCAM")
    {
        TItsWebCam *pObj = ItsFacilityManager->FWebCamLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == "VDS")
    {
#if 1
        TItsVds *pObj = ItsFacilityManager->FVdsLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
#else
        TItsVds *pObj = NULL;//ItsFacilityManager->FVdsLists.Find(AId);
        FOR_STL(TItsVds*, pTmp, ItsFacilityManager->FVdsLists)
        {
            if (AId == pTmp->VDS_CTLR_ID)
            {
                pObj = pTmp;
                break;
            }
        }
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
#endif
    }
    else
    if (AType == "AVI")
    {
#if 1
        TItsAvi *pObj = ItsFacilityManager->FAviLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
#else
        TItsAvi *pObj = NULL;//ItsFacilityManager->FAviLists.Find(AId);
        FOR_STL(TItsAvi*, pTmp, ItsFacilityManager->FAviLists)
        {
            if (AId == pTmp->AVI_ID)
            {
                pObj = pTmp;
                break;
            }
        }
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
#endif
    }
    else
    if (AType == "DSRC")
    {
#if 1
        TItsDsrc *pObj = ItsFacilityManager->FDsrcLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->LCTN_X, 0), StrToFloatDef(pObj->LCTN_Y, 0), true);
#else
        TItsDsrc *pObj = NULL;//ItsFacilityManager->FDsrcLists.Find(AId);
        FOR_STL(TItsDsrc*, pTmp, ItsFacilityManager->FDsrcLists)
        {
            if (AId == pTmp->RSE_ID)
            {
                pObj = pTmp;
                break;
            }
        }
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->LCTN_X, 0), StrToFloatDef(pObj->LCTN_Y, 0), true);
#endif
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::FRAMEFacilityStatusList1TvListCellClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
	if (AButton != mbRight) return;
    if (!ACellViewInfo) return;

    try {
        TcxDataController *pGDC = FRAMEFacilityStatusList1->TvList->DataController;
        int nRow = pGDC->FocusedRecordIndex;
        if (nRow < 0) return;

        String sType = VarToStr(pGDC->Values[nRow][FRAMEFacilityStatusList1->Column01->Index]);
        FSelId       = VarToStr(pGDC->Values[nRow][FRAMEFacilityStatusList1->Column02->Index]);

        POINT p;
        GetCursorPos(&p);

        if (sType == "CCTV") pmuCctv->Popup(p.x, p.y);
        else
        if (sType == "VMS")  pmuVms->Popup(p.x, p.y);
        else
        if (sType == "RSE")  pmuRse->Popup(p.x, p.y);
        else
        if (sType == "WCAM")  pmuWebCam->Popup(p.x, p.y);
        else
        if (sType == "VDS")  pmuVds->Popup(p.x, p.y);
        else
        if (sType == "AVI")  pmuAvi->Popup(p.x, p.y);
        else
        if (sType == "DSRC")  pmuDsrc->Popup(p.x, p.y);
    } catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::pmuFacilityPopup(TObject *Sender)
{
    TPopupMenu *pMenu = (TPopupMenu*)Sender;
    if (pMenu->Tag == 0)
    {
        MnuCctvId->Caption = "[CCTV] " + FSelId;
    }
    else
    if (pMenu->Tag == 1)
    {
        MnuVmsId->Caption = "[VMS] " + FSelId;
    }
    else
    if (pMenu->Tag == 2)
    {
        MnuRseId->Caption = "[RSE] " + FSelId;
    }
    else
    if (pMenu->Tag == 3)
    {
        MnuWebCamId->Caption = "[웹카메라] " + FSelId;
    }
    else
    if (pMenu->Tag == 4)
    {
        MnuVdsId->Caption = "[VDS] " + FSelId;
    }
    else
    if (pMenu->Tag == 5)
    {
        MnuAviId->Caption = "[AVI] " + FSelId;
    }
    else
    if (pMenu->Tag == 6)
    {
        MnuDsrcId->Caption = "[DSRC] " + FSelId;
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::mnuFacilityMoveClick(TObject *Sender)
{
    TMenuItem *pMenu = (TMenuItem*)Sender;

    Application->ProcessMessages();
    if (pMenu->Tag == 0)
    {
        MoveGisFacility("CCTV", FSelId);
    }
    else
    if (pMenu->Tag == 1)
    {
        MoveGisFacility("VMS", FSelId);
    }
    else
    if (pMenu->Tag == 2)
    {
        MoveGisFacility("RSE", FSelId);
    }
    else
    if (pMenu->Tag == 3)
    {
        MoveGisFacility("WCAM", FSelId);
    }
    else
    if (pMenu->Tag == 4)
    {
        MoveGisFacility("VDS", FSelId);
    }
    else
    if (pMenu->Tag == 5)
    {
        MoveGisFacility("AVI", FSelId);
    }
    else
    if (pMenu->Tag == 6)
    {
        MoveGisFacility("DSRC", FSelId);
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::mnuFacilityPingClick(TObject *Sender)
{
    if (ITS00MAP)
    {
        ITS00MAP->FSelId = FSelId;
        ITS00MAP->mnuFacilityPingClick(Sender);
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::mnuStopImageClick(TObject *Sender)
{
    if (ITS00MAP)
    {
        ITS00MAP->FSelId = FSelId;
        ITS00MAP->mnuStopImageClick(Sender);
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::mnuCctvCamClick(TObject *Sender)
{
    if (ITS00MAP)
    {
        ITS00MAP->FSelId = FSelId;
        ITS00MAP->mnuCctvCamClick(Sender);
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::mnuVmsMsgClick(TObject *Sender)
{
    if (ITS00MAP)
    {
        ITS00MAP->FSelId = FSelId;
        ITS00MAP->mnuVmsMsgClick(Sender);
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::mnuVmsCamClick(TObject *Sender)
{
    if (ITS00MAP)
    {
        ITS00MAP->FSelId = FSelId;
        ITS00MAP->mnuVmsCamClick(Sender);
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::MnuWebCamClick(TObject *Sender)
{
    if (ITS00MAP)
    {
        ITS00MAP->FSelId = FSelId;
        ITS00MAP->MnuWebCamClick(Sender);
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::FRAMEIncidentAutoList1TvList2CellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
    //자동돌발 발생구간 클릭
    if (!ACellViewInfo) return;
    try {
        TcxDataController *pGDC = FRAMEIncidentAutoList1->TvList2->DataController;
        int nRow = pGDC->FocusedRecordIndex;
        if (nRow < 0) return;

        String sLinkId = VarToStr(pGDC->Values[nRow][FRAMEIncidentAutoList1->ColumnA01->Index]);
        if (ITS00MAP) ITS00MAP->SelectLinkById(1, sLinkId, true);
    } catch(...) {}
}
//---------------------------------------------------------------------------