ITS_OP/SRC/PLUGIN/01.TRAFFIC/ITS0000M/FLASH/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_IncidentListF"
#pragma link "FRAME_RepeatCongestListF"
#pragma link "FRAME_TrafficMissLinkListF"
#pragma link "FRAME_IncidentAutoListF"
#pragma link "FRAME_BlackBoxEventListF"
#pragma link "FRAME_UtisStatusListF"
#pragma link "FRAME_VilgFrcsListF"
#pragma link "FRAME_VilgShprListF"
#pragma link "FRAME_AtmpPltnListF"
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxSplitter"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#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);

    //시스템자동돌발
    FRAMEIncidentAutoList1->Visible = false;
    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        12

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

    for (int ii = 0; ii < MAX_VIEW; ii++)
    {
        pGrid[ii] = NULL;
        pView[ii] = NULL;
    }

    pGrid[ 0] = FRAMEProcessStatusList1->CxList;    //프로세스상태
    pGrid[ 1] = FRAMEFacilityStatusList1->CxList;   //시설물상태
#if 0
    pGrid[ 2] = NULL;
    pGrid[ 3] = NULL;
#else
    pGrid[ 2] = FRAMEUtisStatusList1->CxUtisRun;    //UTIS현황-운영현황
    pGrid[ 3] = FRAMEUtisStatusList1->CxUtisRse;     //UTIS현황-RSE상태현황
#endif
    pGrid[ 4] = FRAMEIncidentList1->CxList;         //돌발
    pGrid[ 5] = FRAMERepeatCongestList1->CxList;    //반복정체구간
    pGrid[ 6] = FRAMETrafficMissLinkList1->CxList;  //소통정보결측구간
    pGrid[ 7] = FRAMEIncidentAutoList1->CxList2;    //소통정보결측구간
    pGrid[ 8] = FRAMEBlackBoxEventList1->CxList;    //블랙박스이벤트리스트
    pGrid[ 9] = FRAMEVilgFrcsList1->CxList;         //기상정보리스트
    pGrid[10] = FRAMEVilgShprList1->CxList;         //기상정보리스트(초단기예보)
    pGrid[11] = FRAMEAtmpPltnList1->CxList;         //환경정보(대기오염)

    pView[ 0] = FRAMEProcessStatusList1->TvList;
    pView[ 1] = FRAMEFacilityStatusList1->TvList;
#if 0
    pView[ 2] = NULL;
    pView[ 3] = NULL;
#else
    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;
    pView[ 8] = FRAMEBlackBoxEventList1->TvList;
    pView[ 9] = FRAMEVilgFrcsList1->TvList;
    pView[10] = FRAMEVilgShprList1->TvList;
    pView[11] = (TcxGridTableView*)FRAMEAtmpPltnList1->TvList;

    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();
    if (GrpBottomUtis->Visible)
    {
        FRAMEUtisStatusList1->UpdateList();
    }

    FRAMEIncidentList1->UpdateList();
    FRAMERepeatCongestList1->UpdateList();
    FRAMETrafficMissLinkList1->UpdateList();
    FRAMEIncidentAutoList1->UpdateList();
    FRAMEBlackBoxEventList1->UpdateList();
    FRAMEVilgFrcsList1->UpdateList();
    FRAMEVilgShprList1->UpdateList();
    FRAMEAtmpPltnList1->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;
    FBlackBoxEventCnt = FRAMEBlackBoxEventList1->TvList->DataController->RecordCount;

    FVilgFrcsCnt1 = FRAMEVilgFrcsList1->GetAlarmCount1();
    FVilgFrcsCnt2 = FRAMEVilgFrcsList1->GetAlarmCount2();
    FVilgFrcsCnt3 = FRAMEVilgShprList1->GetAlarmCount();
    FAtmpPlntCnt  = FRAMEAtmpPltnList1->GetAlarmCount();

    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;

    if (FBlackBoxEventCnt > 0)
    {
        sAlarmMsg += "블랙박스(" + String(FBlackBoxEventCnt) + ")  ";
        TsBlackBoxEvent->ImageIndex = 1;
    }
    else
        TsBlackBoxEvent->ImageIndex = 2;

    if ((FVilgFrcsCnt1 + FVilgFrcsCnt2) > 0)
    {
        //sAlarmMsg += "기상악화(" + String(FVilgFrcsCnt1+FVilgFrcsCnt2) + ")  ";
        sAlarmMsg += "기상(동네예보)  ";
        TsVilgFrcs->ImageIndex = 1;
    }
    else
        TsVilgFrcs->ImageIndex = 2;

    if ((FVilgFrcsCnt3) > 0)
    {
        //sAlarmMsg += "기상악화(" + String(FVilgFrcsCnt3) + ")  ";
        sAlarmMsg += "기상(초단기예보)  ";
        TsVilgShpr->ImageIndex = 1;
    }
    else
        TsVilgShpr->ImageIndex = 2;

    if ((FAtmpPlntCnt) > 0)
    {
        //sAlarmMsg += "환경정보(대기오염)(" + String(FAtmpPlntCnt) + ")  ";
        sAlarmMsg += "환경정보(대기오염)  ";
        TsAtmpPltn->ImageIndex = 1;
    }
    else
        TsAtmpPltn->ImageIndex = 2;

    LblAlarm->Caption = sAlarmMsg;
    if ((FIncidentCnt+FRrCongestCnt+FMissLinkCnt+FIncidentAutoCnt+FBlackBoxEventCnt+FVilgFrcsCnt1+FVilgFrcsCnt2+FVilgFrcsCnt3+FAtmpPlntCnt) > 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_16: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_16"); UpdateBlackBoxEventInfo();    break;
        case LP_MSG_17: if (g_AppCfg.bDebug) ITSUtil_Trace("LP_MSG_17"); UpdateVilgFrcsInfo();         break;

        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();
    UpdateAlarmStatus();
    if (ITS00MAP) ITS00MAP->UpdateFacilityStatus();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateProcessStatusInfo()
{
    FRAMEProcessStatusList1->RefreshList();
    UpdateAlarmStatus();
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateUtisStatusInfo()
{
    if (GrpBottomUtis->Visible)
    {
        FRAMEUtisStatusList1->RefreshList();
    }
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateFacilityInfo()
{
    FRAMEFacilityStatusList1->UpdateList();
    UpdateFacilityStatusTotal();
    UpdateAlarmStatus();
    if (ITS00MAP) ITS00MAP->UpdateFacilityStatus(); //지도 시설물 재로딩
}
//---------------------------------------------------------------------------
void __fastcall TITS0000M::UpdateBlackBoxEventInfo()
{
    FBlackBoxEventCnt  = 0;
    FRAMEBlackBoxEventList1->UpdateList();
    UpdateAlarmStatus();
}
//---------------------------------------------------------------------------

void __fastcall TITS0000M::UpdateVilgFrcsInfo()
{
    FVilgFrcsCnt1  = 0;
    FVilgFrcsCnt2  = 0;
    FVilgFrcsCnt3  = 0;
    FAtmpPlntCnt   = 0;
    FRAMEVilgFrcsList1->RefreshList();
    FRAMEVilgShprList1->RefreshList();
    FRAMEAtmpPltnList1->RefreshList();
    UpdateAlarmStatus();
}
//---------------------------------------------------------------------------

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 == FAC_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 == FAC_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 == FAC_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 == FAC_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 == FAC_VDS)
    {
        TItsVds *pObj = ItsFacilityManager->FVdsLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == FAC_AVI)
    {
        TItsAvi *pObj = ItsFacilityManager->FAviLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == FAC_DSRC)
    {
        TItsDsrc *pObj = ItsFacilityManager->FDsrcLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->LCTN_X, 0), StrToFloatDef(pObj->LCTN_Y, 0), true);
    }
    else
    if (AType == FAC_BIT)
    {
        TItsBit *pObj = ItsFacilityManager->FBitLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == FAC_SIG)
    {
        TItsSig *pObj = ItsFacilityManager->FSigLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == FAC_SIGDET)
    {
        TItsSigDet *pObj = ItsFacilityManager->FSigDetLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == FAC_PVMS)
    {
        TItsPis *pObj = ItsFacilityManager->FPisLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == FAC_PVDS)
    {
        TItsPcs *pObj = ItsFacilityManager->FPcsLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == FAC_PARK)
    {
        TItsParking *pObj = ItsFacilityManager->FParkLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == FAC_EVENT)
    {
        TItsEvent *pObj = ItsEventManager->FLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == FAC_WTHR)
    {
        TItsVilgFrcs *pObj = ItsVilgFrcsManager->FLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
    else
    if (AType == FAC_ATMP)
    {
        TItsAtmpPltn *pObj = ItsVilgFrcsManager->FAtmpLists.Find(AId);
        if (pObj) if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloatDef(pObj->X_CRDN, 0), StrToFloatDef(pObj->Y_CRDN, 0), true);
    }
}
//---------------------------------------------------------------------------

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 == FAC_CCTV)   pmuCctv->Popup(p.x, p.y);
        else if (sType == FAC_VMS)    pmuVms->Popup(p.x, p.y);
        else if (sType == FAC_RSE)    pmuRse->Popup(p.x, p.y);
        else if (sType == FAC_WCAM)   pmuWebCam->Popup(p.x, p.y);
        else if (sType == FAC_VDS)    pmuVds->Popup(p.x, p.y);
        else if (sType == FAC_AVI)    pmuAvi->Popup(p.x, p.y);
        else if (sType == FAC_DSRC)   pmuDsrc->Popup(p.x, p.y);
        else if (sType == FAC_BIT)    pmuBit->Popup(p.x, p.y);
        else if (sType == FAC_SIG)    pmuSig->Popup(p.x, p.y);
        else if (sType == FAC_SIGDET) pmuSigDet->Popup(p.x, p.y);
        else if (sType == FAC_PARK)   pmuPark->Popup(p.x, p.y);
        else if (sType == FAC_PVMS)   pmuPis->Popup(p.x, p.y);
        else if (sType == FAC_PVDS)   pmuPis->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;
        mnuCctvCam->Enabled = false;
        if (pObj)
        {
            if (pObj->STRM_SESN_NM.Trim() != "")
            {
                mnuCctvCam->Enabled = true;
            }
        }
    }
    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;
        mnuVmsCam->Enabled = false;
        if (pObj)
        {
            if (pObj->STRM_SESN_NM.Trim() != "")
            {
                mnuVmsCam->Enabled = true;
            }
        }
    }
    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;
    }
    else
    if (pMenu->Tag == 7)
    {
        TItsBit *pObj = ItsFacilityManager->FBitLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->FCLT_LCTN);
        MnuBitId->Caption = "[BIT] " + sLoc;
    }
    else
    if (pMenu->Tag == 8)
    {
        TItsSig *pObj = ItsFacilityManager->FSigLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->FCLT_LCTN);
        MnuSigId->Caption = "[SIG] " + sLoc;
    }
    else
    if (pMenu->Tag == 9)
    {
        TItsSigDet *pObj = ItsFacilityManager->FSigDetLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->FCLT_LCTN);
        MnuSigDetId->Caption = "[LVD] " + sLoc;
    }
    else
    if (pMenu->Tag == 10)
    {
        TItsPis *pObj = ItsFacilityManager->FPisLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->FCLT_LCTN);
        MnuPisId->Caption = "[PIS] " + sLoc;
    }
    else
    if (pMenu->Tag == 11)
    {
        TItsPcs *pObj = ItsFacilityManager->FPcsLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->FCLT_LCTN);
        MnuPcsId->Caption = "[PCS] " + sLoc;
    }
    else
    if (pMenu->Tag == 12)
    {
        TItsParking *pObj = ItsFacilityManager->FParkLists.Find(FSelId);
        if (pObj) sLoc = TCommFlash::ReplaceName(pObj->CTLR_MNGM_NM);
        //MnuParkId->Caption = "[PARK] " + FSelId + " " + sLoc;
        MnuParkId->Caption = "[PARK] " + sLoc;
    }
    else
    if (pMenu->Tag == 13)
    {
        TItsEvent *pObj = ItsEventManager->FLists.Find(FSelId);
        if (pObj)
        {
            sLoc = TCommFlash::ReplaceName(pObj->TRMN_ID);
            if (sLoc.Trim() == "")
            {
                sLoc = pObj->OPNC_NMBR;
            }
        }
        MenuEventId->Caption = " " + sLoc;
    }
}
//---------------------------------------------------------------------------

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

    Application->ProcessMessages();

    switch(pMenu->Tag)
    {
    case  0: MoveGisFacility(FAC_CCTV,   FSelId); break;
    case  1: MoveGisFacility(FAC_VMS,    FSelId); break;
    case  2: MoveGisFacility(FAC_RSE,    FSelId); break;
    case  3: MoveGisFacility(FAC_WCAM,   FSelId); break;
    case  4: MoveGisFacility(FAC_VDS,    FSelId); break;
    case  5: MoveGisFacility(FAC_AVI,    FSelId); break;
    case  6: MoveGisFacility(FAC_DSRC,   FSelId); break;
    case  7: MoveGisFacility(FAC_BIT,    FSelId); break;
    case  8: MoveGisFacility(FAC_SIG,    FSelId); break;
    case  9: MoveGisFacility(FAC_SIGDET, FSelId); break;
    case 10: MoveGisFacility(FAC_PVMS,   FSelId); break;
    case 11: MoveGisFacility(FAC_PVDS,   FSelId); break;
    case 12: MoveGisFacility(FAC_PARK,   FSelId); break;
    case 13: MoveGisFacility(FAC_EVENT,  FSelId); break;
    case 14: MoveGisFacility(FAC_WTHR,   FSelId); break;
    case 15: MoveGisFacility(FAC_ATMP,   FSelId); break;
    }
}
//---------------------------------------------------------------------------

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

        ItsFacilityManager->FListStatus.Lock();

        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" || pStatus->Type == "DSRC")
                    pGDC->Values[nRow][ColModule->Index] = pStatus->Collect;//Module;
                else
                    pGDC->Values[nRow][ColModule->Index] = "-";
            }
        }
        catch(Exception &exception)
        {
        }
    }
    __finally
    {
        ItsFacilityManager->FListStatus.UnLock();
        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.Trim() == "-")
            return;

        if (sErr != "0")
        {
            ACanvas->Font->Color = clRed;
        }
    }
}
//---------------------------------------------------------------------------

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

void __fastcall TITS0000M::FRAMEBlackBoxEventListF1TvListCellDblClick(TcxCustomGridTableView *Sender,
          TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton,
          TShiftState AShift, bool &AHandled)
{
    //블랙박스이벤트 클릭
    if (!ACellViewInfo) return;
    try {
        TcxDataController *pGDC = FRAMEBlackBoxEventList1->TvList->DataController;
        int nRow = pGDC->FocusedRecordIndex;
        if (nRow < 0) return;

        String sId = VarToStr(pGDC->Values[nRow][FRAMEBlackBoxEventList1->Col88->Index]);
        String sDx = VarToStr(pGDC->Values[nRow][FRAMEBlackBoxEventList1->Col09->Index]);
        String sDy = VarToStr(pGDC->Values[nRow][FRAMEBlackBoxEventList1->Col10->Index]);
        if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloat(sDx), StrToFloat(sDy), true);
    } catch(...) {}
}
//---------------------------------------------------------------------------

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

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

        FSelId = VarToStr(pGDC->Values[nRow][FRAMEBlackBoxEventList1->Col88->Index]);

        POINT p;
        GetCursorPos(&p);

        pmuEvent->Popup(p.x, p.y);
    } catch(...) {}
}
//---------------------------------------------------------------------------

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

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

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

        FSelId = VarToStr(pGDC->Values[nRow][FRAMEVilgFrcsList1->Col00->Index]);

        POINT p;
        GetCursorPos(&p);

        //pmuEvent->Popup(p.x, p.y);
    } catch(...) {}
}
//---------------------------------------------------------------------------

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

        String sId = VarToStr(pGDC->Values[nRow][FRAMEVilgFrcsList1->Col00->Index]);
        String sDx = VarToStr(pGDC->Values[nRow][FRAMEVilgFrcsList1->Col20->Index]);
        String sDy = VarToStr(pGDC->Values[nRow][FRAMEVilgFrcsList1->Col21->Index]);
        if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloat(sDx), StrToFloat(sDy), true);
    } catch(...) {}
}
//---------------------------------------------------------------------------

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

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

        FSelId = VarToStr(pGDC->Values[nRow][FRAMEVilgShprList1->Col00->Index]);

        POINT p;
        GetCursorPos(&p);

        //pmuEvent->Popup(p.x, p.y);
    } catch(...) {}
}
//---------------------------------------------------------------------------

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

        String sId = VarToStr(pGDC->Values[nRow][FRAMEVilgShprList1->Col00->Index]);
        String sDx = VarToStr(pGDC->Values[nRow][FRAMEVilgShprList1->Col20->Index]);
        String sDy = VarToStr(pGDC->Values[nRow][FRAMEVilgShprList1->Col21->Index]);
        if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloat(sDx), StrToFloat(sDy), true);
    } catch(...) {}
}
//---------------------------------------------------------------------------

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

        String sId = VarToStr(pGDC->Values[nRow][FRAMEAtmpPltnList1->Col00->Index]);
        String sDx = VarToStr(pGDC->Values[nRow][FRAMEAtmpPltnList1->Col30->Index]);
        String sDy = VarToStr(pGDC->Values[nRow][FRAMEAtmpPltnList1->Col31->Index]);
        if (ITS00MAP) ITS00MAP->SelectObjectByPos(StrToFloat(sDx), StrToFloat(sDy), true);
    } catch(...) {}
}
//---------------------------------------------------------------------------