ITS_OP/SRC/PLUGIN/01.TRAFFIC/ITS0000M/FLASH - YONGIN - XXX/ITS0000MF.cpp

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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "WindowMsgF.h"
#include "CDSFacilityF.h"
#include "CDSIncidentF.h"
#include "FrmMainF.h"
#include "CommFlashF.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 link "cxClasses"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxFilter"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma resource "*.dfm"
TITS0000M *ITS0000M = NULL;

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

    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);

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

/*
 * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
 * Form과 DataModule class를 delete시킨다.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TITS0000M::CommClose()
{
    try
    {
        if (FrmMain->dxStatusBar->Panels->Items[isbGisPos]->Visible)
            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] = NULL;//FRAMEUtisStatusList1->CxUtisRun;    //UTIS현황-운영현황
    pGrid[ 3] = NULL;//FRAMEUtisStatusList1->CxUtisRse;    //UTIS현황-RSE상태현황
#if 0
    pGrid[ 2] = FRAMEUtisStatusList1->CxUtisRun;    //UTIS현황-운영현황
    pGrid[ 3] = RAMEUtisStatusList1->CxUtisRse;    //UTIS현황-RSE상태현황
#endif
    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] = NULL;//FRAMEUtisStatusList1->TvUtisRun;
    pView[ 3] = NULL;//FRAMEUtisStatusList1->TvUtisRse;
#if 0
    pView[ 2] = FRAMEUtisStatusList1->TvUtisRun;
    pView[ 3] = FRAMEUtisStatusList1->TvUtisRse;
#endif
    pView[ 4] = FRAMEIncidentList1->TvList;
    pView[ 5] = FRAMERepeatCongestList1->TvList;
    pView[ 6] = FRAMETrafficMissLinkList1->TvList;
    pView[ 7] = FRAMEIncidentAutoList1->TvList2;

    for (int ii = 0; ii < MAX_VIEW; ii++)
    {
        if (!pView[ii]) continue;

        //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();
    UpdateFacilityStatusTotal();
    FRAMEProcessStatusList1->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 (TsIncidentAuto->TabVisible == false)
        FIncidentAutoCnt = 0;

    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: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_01"); UpdateTrafficMissLinkInfo();  break;
        case LP_MSG_02: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_02"); /*서비스링크소통정보*/        break;
        case LP_MSG_03: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_03"); /*도로소통정보*/              break;
        case LP_MSG_04: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_04"); UpdateTrafficRrCongestInfo(); break;
        case LP_MSG_05: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_05"); UpdateUtisStatusInfo();       break;
        case LP_MSG_11: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_11"); UpdateFacilityStatusInfo();   break;
        case LP_MSG_12: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_12"); UpdateProcessStatusInfo();    break;
        case LP_MSG_13: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_13"); UpdateIncidentInfo();         break;
        case LP_MSG_14: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_14"); UpdateFacilityInfo();         break;
        case LP_MSG_09: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_09");
            FRAMEProcessStatusList1->UpdateList();
            break;
#if 0
        case LP_MSG_10: //가공서버에서 소통정보 가공완료하였음.
            // GIS 소통정보 업데이트
            if (ITS00MAP) ITS00MAP->RefreshMapTraffic();
            break;
#endif
        case LP_MSG_00: //가공서버에서 소통정보 가공완료하였음.
            // 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();

    UpdateFacilityStatusTotal();

    if (ITS00MAP) ITS00MAP->UpdateFacilityStatus();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateProcessStatusInfo()
{
    FRAMEProcessStatusList1->RefreshList();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateUtisStatusInfo()
{
    //FRAMEUtisStatusList1->RefreshList();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateFacilityInfo()
{
    FRAMEFacilityStatusList1->UpdateList();
    UpdateFacilityStatusTotal();
    if (ITS00MAP) ITS00MAP->UpdateFacilityStatus(); //지도 시설물 재로딩
}
//---------------------------------------------------------------------------

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)
{
    String sLoc = " ";

    TPopupMenu *pMenu = (TPopupMenu*)Sender;
    if (pMenu->Tag == 0)
    {
        TItsCctv *pObj = ItsFacilityManager->FCctvLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->ISTL_LCTN_NM);
        //MnuCctvId->Caption = "[CCTV] " + FSelId + " " + sLoc;
        MnuCctvId->Caption = "[CCTV] " + sLoc;
    }
    else
    if (pMenu->Tag == 1)
    {
        TItsVms *pObj = ItsFacilityManager->FVmsLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->VMS_NM);
        //MnuVmsId->Caption = "[VMS] " + FSelId + " " + sLoc;
        MnuVmsId->Caption = "[VMS] " + sLoc;
    }
    else
    if (pMenu->Tag == 2)
    {
        TItsRse *pObj = ItsFacilityManager->FRseLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->LOCATION);
        //MnuRseId->Caption = "[RSE] " + FSelId + " " + sLoc;
        MnuRseId->Caption = "[RSE] " + sLoc;
    }
    else
    if (pMenu->Tag == 3)
    {
        TItsWebCam *pObj = ItsFacilityManager->FWebCamLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->ISTL_LCTN_NM);
        //MnuWebCamId->Caption = "[웹카메라] " + FSelId + " " + sLoc;
        MnuWebCamId->Caption = "[웹카메라] " + sLoc;
    }
    else
    if (pMenu->Tag == 4)
    {
        TItsVds *pObj = ItsFacilityManager->FVdsLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->LCTN);
        //MnuVdsId->Caption = "[VDS] " + FSelId + " " + sLoc;
        MnuVdsId->Caption = "[VDS] " + sLoc;
    }
    else
    if (pMenu->Tag == 5)
    {
        TItsAvi *pObj = ItsFacilityManager->FAviLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->AVI_LCTN_NM);
        //MnuAviId->Caption = "[AVI] " + FSelId + " " + sLoc;
        MnuAviId->Caption = "[AVI] " + sLoc;
    }
    else
    if (pMenu->Tag == 6)
    {
        TItsDsrc *pObj = ItsFacilityManager->FDsrcLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->ISTL_LCTN_NM);
        //MnuDsrcId->Caption = "[DSRC] " + FSelId + " " + sLoc;
        MnuDsrcId->Caption = "[DSRC] " + sLoc;
    }
}
//---------------------------------------------------------------------------

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(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::UpdateFacilityStatusTotal()
{
    int nRow = 0;
    try
    {
        CMM_ClearGridTableView(TvStatus);

        TcxDataController *pGDC = TvStatus->DataController;
        TvStatus->BeginUpdate();

        try
        {
            FOR_STL(TFacilityStatus*, pStatus, ItsFacilityManager->FListStatus)
            {
                nRow = pGDC->AppendRecord();

                pGDC->Values[nRow][ColName->Index]   = pStatus->Type;
                pGDC->Values[nRow][ColTotal->Index]  = pStatus->Total;
                pGDC->Values[nRow][ColNormal->Index] = pStatus->Total - pStatus->Error;
                pGDC->Values[nRow][ColFail->Index]   = pStatus->Error;
                if (pStatus->Type == "VDS" || pStatus->Type == "AVI")
                    pGDC->Values[nRow][ColModule->Index] = pStatus->Collect;//Module;
                else
                    pGDC->Values[nRow][ColModule->Index] = "-";
            }
        }
        catch(Exception &exception)
        {
        }
    }
    __finally
    {
        TvStatus->EndUpdate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::ColNameCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas,
          TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone)
{
    // 장비명
    if (AViewInfo->GridRecord->RecordIndex < 0) return;
    ACanvas->Font->Style = TFontStyles() << fsBold;
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::ColTotalCustomDrawCell(TcxCustomGridTableView *Sender,
          TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    // 전체
    if (AViewInfo->GridRecord->RecordIndex < 0) return;
    ACanvas->Font->Style = TFontStyles() << fsBold;
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::ColNormalCustomDrawCell(TcxCustomGridTableView *Sender,
          TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    // 정상
    if (AViewInfo->GridRecord->RecordIndex < 0) return;
    ACanvas->Font->Style = TFontStyles() << fsBold;
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::ColFailCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas,
          TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone)
{
    // 이상
    if (AViewInfo->GridRecord->RecordIndex < 0) return;
    ACanvas->Font->Style = TFontStyles() << fsBold;
	if (!VarIsNull(AViewInfo->GridRecord->DisplayTexts[ColFail->Index]))
    {
        String sErr = AViewInfo->GridRecord->DisplayTexts[ColFail->Index];
        if (sErr != "0")
        {
            ACanvas->Font->Color = clRed;
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::ColModuleCustomDrawCell(TcxCustomGridTableView *Sender,
          TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    // 이상
    if (AViewInfo->GridRecord->RecordIndex < 0) return;
    ACanvas->Font->Style = TFontStyles() << fsBold;
	if (!VarIsNull(AViewInfo->GridRecord->DisplayTexts[ColModule->Index]))
    {
        String sErr = AViewInfo->GridRecord->DisplayTexts[ColModule->Index];
        if (sErr != "0")
        {
            ACanvas->Font->Color = clRed;
        }
    }
}
//---------------------------------------------------------------------------