ITS_OP/SRC/PLUGIN/05.DATABASE/IDB0120M/GoogleMap/IDB0120MF.cpp

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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include "CDSCodeF.h"
#include "CDSFacilityF.h"
#include "CDSNodeF.h"
#include "CDSRoadF.h"
#include "ITSLangTransF.h"
#pragma hdrstop

#include "IDB0120MF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCheckBox"
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDropDownEdit"
#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 "cxMaskEdit"
#pragma link "cxSplitter"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "FRAME_AtrdListF"
#pragma link "FRAME_GoogleMapF"
#pragma link "GMClasses"
#pragma link "GMLinkedComponents"
#pragma link "GMMap"
#pragma link "GMPolyline"
#pragma link "GMPolylineVCL"
#pragma resource "*.dfm"

TIDB0120M *IDB0120M = NULL;

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

    FUpdate= false;
    FTitle = Caption;//"간선도로 관리";

    m_pGDC = FRAMEAtrdList1->TvList->DataController;

    FRAMEAtrdList1->PnlTop->Visible = false;
    //FRAMEAtrdList1->PnlBottom->Visible = false;
    FRAMEAtrdList1->ColumnSel->Visible = false;

    FPolyManager = new TPolyManager();
    FSelLink = NULL;

    FRAMEGoogleMap1->BtnIconSelect->Visible = true;
    FRAMEGoogleMap1->BtnIconSelect->Enabled = true;
    FRAMEGoogleMap1->FOnZoomChanged = FRAMEGoogleMapOnZoomChange;

    TvLink->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<간선도로 링크구성정보>";
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::CommClose()
{
    try
    {
        if (FPolyManager) delete FPolyManager;
        FPolyManager = NULL;

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

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

    CbDRCT_CD->ItemIndex = 0;
    //CbDRCT_CD->Enabled = false;
    CbDRCT_CD->Properties->ReadOnly = true;
    EdId->Properties->ReadOnly      = true;
    EdATRD_ID->Properties->ReadOnly = true;
    EdATRD_NM->Properties->ReadOnly = true;
    EdDRCT_NM->Properties->ReadOnly = true;
    EdAREA_CD->Properties->ReadOnly = true;

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

void __fastcall TIDB0120M::FormInit()
{
    EdId->Text           = "";
    EdATRD_ID->Text      = "";
    EdATRD_NM->Text      = "";
    EdDRCT_NM->Text      = "";
    //CbDRCT_CD->ItemIndex = 0;
    EdAREA_CD->Text      = "";

    ClearGisLink();
    CMM_ClearGridTableView(TvLink);

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

void __fastcall TIDB0120M::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;

    FRAMEGoogleMap1->LinkLevel = 3;
    FRAMEGoogleMap1->LoadGisMap();
    InitGisLink();

    UpdateList();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::InitGisLink()
{
    TGMPolyline *pLink = GMPolyLink;
    TPolyline   *pLn   = NULL;

    pLink = GMPolyLink;
    try
    {
        ItsRoadManager->FLists.Lock();
        FOR_STL(TItsRoad*, pObj, ItsRoadManager->FLists)
        {
            if (pObj->Coords.Size() < 2) continue;

            pLn = pLink->Add();
            if (!pLn) continue;

            pLn->Tag  = (int)pObj;
            pLn->FObject = (TObject*)&pObj->bounds;
            pLn->Text = pObj->ROAD_ID;

            FOR_STL(TItsCoord*, pCoord, pObj->Coords)
            {
                pLn->AddLinePoint(pCoord->Y, pCoord->X);
            }

            pLn->StrokeColor   = clBlue;//clSilver;
            pLn->StrokeWeight  = 4;
            pLn->StrokeOpacity = 1;
            pLn->AutoUpdatePath = true;
            pLn->Visible   = true;
            pLn->Clickable = true;

            FPolyManager->FLists.Push(pLn->Text, pLn);
        }
    }
    __finally
    {
        ItsRoadManager->FLists.UnLock();
        pLink->Map = FRAMEGoogleMap1->GMMap1;
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::UpdateList()
{
    FRAMEAtrdList1->UpdateList();
}
//---------------------------------------------------------------------------

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

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

void __fastcall TIDB0120M::FormCloseQuery(TObject *Sender, bool &CanClose)
{
#if 0
//xxxxxxxx
    if (FUpdate)
    {
        POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);
    }
#endif
    FRAMEAtrdList1->OnCloseQuery(CanClose);
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::DisplayInfo(TItsAtrd* AObj)
{
    FormInit();

    if (!AObj) return;

    EdId->Text           = AObj->ATRD_ID;
    EdATRD_ID->Text      = AObj->ATRD_ID;
    EdATRD_NM->Text      = AObj->ATRD_NM;
    EdDRCT_NM->Text      = AObj->DRCT_NM;
    //CbDRCT_CD->Properties->ReadOnly = false;
    CbDRCT_CD->ItemIndex = (AObj->DRCT_CD.Trim() == "0") ? 0 : 1;
    //CbDRCT_CD->Properties->ReadOnly = true;
    EdAREA_CD->Text      = AObj->AREA_CD;

    ChangeEditMode(3);

    DisplayLink(AObj);
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::ClearGisLink()
{
    try
    {
        TcxDataController *pGDC = TvLink->DataController;
        TvLink->BeginUpdate();

        for (int ii = 0; ii < pGDC->RecordCount; ii++)
        {
            String sLinkId = pGDC->Values[ii][ColLink2->Index];
            TPolyline* pLn = FPolyManager->FLists.Find(sLinkId);
            if (pLn)
            {
                pLn->StrokeColor = clBlue;
            }
        }
    }
    __finally
    {
        TvLink->EndUpdate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::DisplayLink(TItsAtrd* AObj)
{
    if (!AObj) return;

    CMM_ClearGridTableView(TvLink);

    try
    {
        int nRow;
        TcxDataController *pGDC = TvLink->DataController;
        TvLink->BeginUpdate();

        FOR_STL(TItsAtrdRoad *, pObj, AObj->FSubLists)
        {
            String sLinkId = pObj->ROAD_ID;
            nRow = pGDC->AppendRecord();
            pGDC->Values[nRow][ColLink2->Index] = sLinkId;

            TItsRoad *pLink = ItsRoadManager->FLists.Find(sLinkId);
            if (pLink)
            {
                TItsNode *pNode;
                pGDC->Values[nRow][ColLink1->Index] = String(pObj->ORD);

                pGDC->Values[nRow][ColLink3->Index] = pLink->F_NODE_ID;
                pGDC->Values[nRow][ColLink5->Index] = pLink->T_NODE_ID;
                pNode = ItsNodeManager->FLists.Find(pLink->F_NODE_ID);
                if (pNode)
                {
                    pGDC->Values[nRow][ColLink4->Index] = pNode->NODE_NAME;
                }
                pNode = ItsNodeManager->FLists.Find(pLink->T_NODE_ID);
                if (pNode)
                {
                    pGDC->Values[nRow][ColLink6->Index] = pNode->NODE_NAME;
                }
            }
        }
    }
    __finally
    {
        TvLink->EndUpdate();
    }

    RefreshLink();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::BtnEditClick(TObject *Sender)
{
    if (BtnEdit->Caption == FrmLang->lblEdit->Caption)//"편집")
    {
        ChangeEditMode(0);
        FNewDb = false;
    }
    else
    {
        String sId = EdId->Text;

        ChangeEditMode(1);

        CMM_SetGridRow(FRAMEAtrdList1->CxList, FRAMEAtrdList1->TvList, sId, FRAMEAtrdList1->Column01->Index);
        int nRow = FRAMEAtrdList1->TvList->DataController->FocusedRecordIndex;
        if( nRow <= -1 )
            return;

        int nMemPtr = FRAMEAtrdList1->TvList->DataController->Values[nRow][FRAMEAtrdList1->Column99->Index];
        TItsAtrd* pObj = (TItsAtrd*)nMemPtr;
        DisplayInfo(pObj);
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::ChangeEditMode(int AEdit)
{
    bool bGisEdit = true;
    bool bEnabled = false;

    switch(AEdit)
    {
    case 0: //편집버튼클릭
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = false;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = true;

            BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소";
            BtnEdit->Hint    = FrmLang->lblCancel->Hint;//데이터 편집 취소";
        }
        break;
    case 1: //편집[취소]버튼클릭
        {
            FormInit(); //화면을 모두 지운다.
            BtnEdit->Enabled = false;
            BtnInsert->Enabled = true;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = false;

            BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집";
            BtnEdit->Hint    = FrmLang->lblEdit->Hint;//데이터 편집";
            bEnabled = true;
            bGisEdit = false;
        }
        break;
    case 2: //추가
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = false;
            BtnDelete->Enabled = false;
            BtnSave->Enabled = true;

            BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소";
            BtnEdit->Hint    = FrmLang->lblCancel->Hint;//데이터 편집 취소";
        }
        break;
    case 3: //수정모드
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = true;
            BtnDelete->Enabled = true;
            BtnSave->Enabled = false;

            BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집";
            BtnEdit->Hint    = FrmLang->lblEdit->Hint;//데이터 편집";
            bEnabled = true;
        }
        break;
    }

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

    //CbAVI_CTLR_MNGM_NMBR->ItemIndex = -1;
    EdId->Properties->ReadOnly      = bEnabled;
    EdATRD_ID->Properties->ReadOnly = bEnabled;
    EdATRD_NM->Properties->ReadOnly = bEnabled;
    EdDRCT_NM->Properties->ReadOnly = bEnabled;
    //CbDRCT_CD->ItemIndex = 0;
    //CbDRCT_CD->Enabled = !bEnabled;
    CbDRCT_CD->Properties->ReadOnly = bEnabled;
    EdAREA_CD->Properties->ReadOnly = bEnabled;

    BtnLinkAdd->Enabled = !bEnabled;
    BtnLinkDel->Enabled = !bEnabled;

    BtnUp->Enabled = !bEnabled;
    BtnDown->Enabled = !bEnabled;

    if (FRAMEGoogleMap1->GMMap1->Active)
    {
        RefreshLink();
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::BtnInsertClick(TObject *Sender)
{
    FormInit();
    //신규아이디를 얻어와서 화면을 초기화한다.
    String sId;
	sId = InputBox(lblInput->Caption,//"간선도로 ID",
                   lblInQry->Caption,//"신규 간선도로 ID를 입력하세요.",
                   lblInput->Caption);//"간선도로 ID" );

    sId = sId.Trim();
	if (sId == lblInput->Caption//"간선도로 ID"
     || sId == "")
	{
		return;
	}
	if (AnsiString(sId).Length() > 10)
	{
        Application->MessageBox(lblDigitErr->Caption.c_str(),//L"간선도로 ID는  10Byte를 초과할 수 없습니다.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}

    try
    {
        FRAMEAtrdList1->MyItsAtrdManager->FLists.Lock();
        TItsAtrd *pDb = FRAMEAtrdList1->MyItsAtrdManager->FLists.Find(sId);
        if (pDb)
        {
            String sErr = FrmLang->lbIdErr->Caption + "[" + sId + "]";
            Application->MessageBox(sErr.c_str(),//("[" + sId + "]는 사용할 수 없는 간선도로 ID 입니다.").c_str(),
                                    FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }
    }
    __finally
    {
        FRAMEAtrdList1->MyItsAtrdManager->FLists.UnLock();
    }

    EdId->Text   = "";
    EdATRD_ID->Text = sId;

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

void __fastcall TIDB0120M::BtnDeleteClick(TObject *Sender)
{
    int nIdx = m_pGDC->FocusedRecordIndex;
    if (nIdx < 0) return;

    String sId = EdATRD_ID->Text;

    if (sId.IsEmpty())
    {
        Application->MessageBox(lblText1->Caption.c_str(),//L"삭제할 간선도로 정보를 목록에서 선택하세요.\r\n목록에서 더블클릭하여 선택합니다.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }
    String sMsg;
    sMsg = lblInput->Caption + ": " + sId;//"간선도로 ID: " + sId;
    sMsg+= "\r\n" + lblText2->Caption;//"선택하신 간선도로 정보를 삭제하시겠습니까?\r\n관련정보도 함께 삭제 됩니다.";

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

    TItsAtrd *pObj = NULL;
    try
    {
        FRAMEAtrdList1->MyItsAtrdManager->FLists.Lock();
        pObj = FRAMEAtrdList1->MyItsAtrdManager->FLists.Find(sId);
    }
    __finally
    {
        FRAMEAtrdList1->MyItsAtrdManager->FLists.UnLock();
    }

	if (pObj)
	{
		if (FRAMEAtrdList1->MyItsAtrdManager->DeleteAtrd(pObj))
		{
            pObj->DEL_YN = "Y";
            UpdateList();
		}

        Application->MessageBox(lblText3->Caption.c_str(),//L"간선도로 정보 삭제\r\n간선도로 정보를 삭제 하였습니다.",
                                FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

        FUpdate = true;

        FormInit();
        ChangeEditMode(1);
	}
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::BtnSaveClick(TObject *Sender)
{
    TItsAtrd *pObj;

    String sId = EdATRD_ID->Text;

    if (EdATRD_ID->Text.IsEmpty()        ||
        EdATRD_NM->Text.Trim().IsEmpty() ||
        CbDRCT_CD->ItemIndex < 0)
	{
        Application->MessageBox(FrmLang->lblCnfm->Caption.c_str(),//L"★항목은 필수 입력 항목입니다.\r\n모두 입력후 진행해 주세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}


    if (FNewDb)
    {
        pObj = new TItsAtrd();
    }
    else
        pObj = FRAMEAtrdList1->MyItsAtrdManager->FLists.Find(sId);

    if (pObj)
    {
        pObj->ATRD_ID = sId;
        pObj->ATRD_NM = EdATRD_NM->Text.Trim();
        pObj->DRCT_NM = EdDRCT_NM->Text.Trim();
        pObj->DRCT_CD = CbDRCT_CD->ItemIndex == 0 ? "0" : "1";
        pObj->AREA_CD = EdAREA_CD->Text.Trim();
        pObj->DEL_YN  = "N";

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

        pObj->FSubLists.RemoveAll();

        try {
            TvLink->BeginUpdate();
            for (int ii = 0; ii < TvLink->DataController->RecordCount; ii++)
            {
                String sLinkId = TvLink->DataController->Values[ii][ColLink2->Index];

				TItsAtrdRoad *pObjLnk = new TItsAtrdRoad();

                pObjLnk->ATRD_ID = pObj->ATRD_ID;
                pObjLnk->ROAD_ID = sLinkId;
                pObjLnk->ORD     = ii+1;

				pObj->FSubLists.Push(pObjLnk->ORD, pObjLnk);

                pObjLnk->Completed = true;
                pObjLnk->MEM_DEL   = "N";
            }
        }
        __finally
        {
            TvLink->EndUpdate();
        }

        bool bResult;
        if (FNewDb)
            bResult = FRAMEAtrdList1->MyItsAtrdManager->InsertAtrd(pObj);
        else
            bResult = FRAMEAtrdList1->MyItsAtrdManager->UpdateAtrd(pObj);

        if (bResult)
        {
            Application->MessageBox(FrmLang->lblDbSave->Caption.c_str(),//L"간선도로 정보저장\r\n간선도로 정보를 저장 하였습니다.",
                                    FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

            if (FNewDb)
            {
                FRAMEAtrdList1->MyItsAtrdManager->FLists.Push(pObj->ATRD_ID, pObj);
            }

            FUpdate = true;

            UpdateList();
            CMM_SetGridRow(FRAMEAtrdList1->CxList, FRAMEAtrdList1->TvList, sId, FRAMEAtrdList1->Column01->Index);
#if 0
            DisplayInfo(pObj);
#else
            int nRow = FRAMEAtrdList1->TvList->DataController->FocusedRecordIndex;
            if( nRow <= -1 )
                return;

            int nMemPtr = FRAMEAtrdList1->TvList->DataController->Values[nRow][FRAMEAtrdList1->Column99->Index];
            TItsAtrd* pObj = (TItsAtrd*)nMemPtr;
            DisplayInfo(pObj);
#endif
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::RefreshLink()
{
    if (!FRAMEGoogleMap1->GMMap1->Active) return;

    try
    {
        int nRow;
        TcxDataController *pGDC = TvLink->DataController;
        TvLink->BeginUpdate();
        try
        {
            for (int ii = 0; ii < pGDC->RecordCount; ii++)
            {
                String sLinkId = pGDC->Values[ii][ColLink2->Index];
                TPolyline* pLn = FPolyManager->FLists.Find(sLinkId);
                if (pLn)
                {
                    pLn->StrokeColor = clRed;
                }
            }
        }
        catch(...)
        {
        }
    }
    __finally
    {
        TvLink->EndUpdate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::BtnLinkDelClick(TObject *Sender)
{
    int nSelRows = TvLink->Controller->SelectedRowCount;
    if (nSelRows <= 0)
    {
        Application->MessageBox(lblText4->Caption.c_str(),//L"삭제를 원하는 구간을 목록에서 선택하세요.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }
    TvLink->Controller->DeleteSelection();
    RefreshLink();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::BtnLinkAddClick(TObject *Sender)
{
    if (EdLinkId->Text.IsEmpty()) return;

    String sNewId = EdLinkId->Text;
    bool bFound = false;
    try
    {
        int nRow;
        TcxDataController *pGDC = TvLink->DataController;
        TvLink->BeginUpdate();

        for (int ii = 0; ii < pGDC->RecordCount; ii++)
        {
            String sLinkId = pGDC->Values[ii][ColLink2->Index];
            if (sNewId == sLinkId)
            {
                bFound = true;
                break;
            }
        }
        if (bFound)
        {
            Application->MessageBox(lblText5->Caption.c_str(),//L"이미 등록되어 있는 구간 입니다.\r\n구간은 중복해서 등록 할 수 없습니다.",
                                    FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }

        nRow = pGDC->AppendRecord();
        pGDC->Values[nRow][ColLink2->Index] = sNewId;
        TItsRoad *pLink = ItsRoadManager->FLists.Find(sNewId);
        if (pLink)
        {
            TItsNode *pNode;
            pGDC->Values[nRow][ColLink3->Index] = pLink->F_NODE_ID;
            pGDC->Values[nRow][ColLink5->Index] = pLink->T_NODE_ID;
            pNode = ItsNodeManager->FLists.Find(pLink->F_NODE_ID);
            if (pNode)
            {
                pGDC->Values[nRow][ColLink4->Index] = pNode->NODE_NAME;
            }
            pNode = ItsNodeManager->FLists.Find(pLink->T_NODE_ID);
            if (pNode)
            {
                pGDC->Values[nRow][ColLink6->Index] = pNode->NODE_NAME;
            }
        }
    }
    __finally
    {
        TvLink->EndUpdate();
    }

    RefreshLink();
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::TmrClearTimer(TObject *Sender)
{
    TmrClear->Enabled = false;
    if (FSelLink)
    {
        FSelLink->StrokeColor = FSelColor;
    }
    FSelLink = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::TvLinkCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
    if (!FRAMEGoogleMap1->GMMap1->Active) return;

	if (!ACellViewInfo) return;
	int nRow = TvLink->DataController->FocusedRecordIndex;
	if( nRow <= -1 )
		return;

    String sLinkId = TvLink->DataController->Values[nRow][ColLink2->Index];

    TmrClearTimer(NULL);
    TPolyline* pLn = FPolyManager->FLists.Find(sLinkId);
    if (pLn)
    {
        FSelLink = pLn;
        FSelColor= pLn->StrokeColor;

        pLn->StrokeColor = clGreen;
        pLn->ZoomToPoints();
        TmrClear->Enabled = true;
    }
}
//---------------------------------------------------------------------------

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

    int nMemPtr = FRAMEAtrdList1->TvList->DataController->Values[nRow][FRAMEAtrdList1->Column99->Index];
    TItsAtrd* pObj = (TItsAtrd*)nMemPtr;
    DisplayInfo(pObj);
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::ChkGisZoomClick(TObject *Sender)
{
    PnlInfo->Visible = !ChkGisZoom->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::BtnUpClick(TObject *Sender)
{
    try
    {
        TvLink->BeginUpdate();

        int nCurIdx = TvLink->DataController->FocusedRowIndex;//FocusedRecordIndex;
        if (nCurIdx <= 0)
        {
            return;
        }

        int nUpIdx = nCurIdx-1;

        try
        {
            String sVal1 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink1->Index]);
            String sVal2 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink2->Index]);
            String sVal3 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink3->Index]);
            String sVal4 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink4->Index]);
            String sVal5 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink5->Index]);
            String sVal6 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink6->Index]);

            TvLink->DataController->Values[nCurIdx][ColLink1->Index] = TvLink->DataController->Values[nUpIdx][ColLink1->Index];
            TvLink->DataController->Values[nCurIdx][ColLink2->Index] = TvLink->DataController->Values[nUpIdx][ColLink2->Index];
            TvLink->DataController->Values[nCurIdx][ColLink3->Index] = TvLink->DataController->Values[nUpIdx][ColLink3->Index];
            TvLink->DataController->Values[nCurIdx][ColLink4->Index] = TvLink->DataController->Values[nUpIdx][ColLink4->Index];
            TvLink->DataController->Values[nCurIdx][ColLink5->Index] = TvLink->DataController->Values[nUpIdx][ColLink5->Index];
            TvLink->DataController->Values[nCurIdx][ColLink6->Index] = TvLink->DataController->Values[nUpIdx][ColLink6->Index];

            TvLink->DataController->Values[nUpIdx][ColLink1->Index] = sVal1;
            TvLink->DataController->Values[nUpIdx][ColLink2->Index] = sVal2;
            TvLink->DataController->Values[nUpIdx][ColLink3->Index] = sVal3;
            TvLink->DataController->Values[nUpIdx][ColLink4->Index] = sVal4;
            TvLink->DataController->Values[nUpIdx][ColLink5->Index] = sVal5;
            TvLink->DataController->Values[nUpIdx][ColLink6->Index] = sVal6;

            TvLink->Controller->ClearSelection();
            TvLink->Controller->FocusedRowIndex = nUpIdx;
            //TvLink->Controller->FocusedRecordIndex = nUpIdx;
            TvLink->ViewData->Records[nUpIdx]->Focused = true;
            TvLink->ViewData->Records[nUpIdx]->Selected = true;
            CxLink->SetFocus();
            //TcxCustomGridRow* ARow = TvLink->ViewData->Rows[TvLink->DataController->FocusedRowIndex];
        }
        catch(...)
        {
        }
    }
    __finally
    {
        TvLink->EndUpdate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::BtnDownClick(TObject *Sender)
{
    try
    {
        TvLink->BeginUpdate();

        int nCurIdx = TvLink->DataController->FocusedRowIndex;//FocusedRecordIndex;
        //int nCurIdx = TvLink->DataController->FocusedRecordIndex;
        if (nCurIdx < 0)
        {
            return;
        }
        if (nCurIdx == TvLink->DataController->RecordCount-1)
        {
            return;
        }

        int nDnIdx = nCurIdx+1;

        try
        {
            String sVal1 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink1->Index]);
            String sVal2 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink2->Index]);
            String sVal3 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink3->Index]);
            String sVal4 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink4->Index]);
            String sVal5 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink5->Index]);
            String sVal6 = VarToStr(TvLink->DataController->Values[nCurIdx][ColLink6->Index]);

            TvLink->DataController->Values[nCurIdx][ColLink1->Index] = TvLink->DataController->Values[nDnIdx][ColLink1->Index];
            TvLink->DataController->Values[nCurIdx][ColLink2->Index] = TvLink->DataController->Values[nDnIdx][ColLink2->Index];
            TvLink->DataController->Values[nCurIdx][ColLink3->Index] = TvLink->DataController->Values[nDnIdx][ColLink3->Index];
            TvLink->DataController->Values[nCurIdx][ColLink4->Index] = TvLink->DataController->Values[nDnIdx][ColLink4->Index];
            TvLink->DataController->Values[nCurIdx][ColLink5->Index] = TvLink->DataController->Values[nDnIdx][ColLink5->Index];
            TvLink->DataController->Values[nCurIdx][ColLink6->Index] = TvLink->DataController->Values[nDnIdx][ColLink6->Index];

            TvLink->DataController->Values[nDnIdx][ColLink1->Index] = sVal1;
            TvLink->DataController->Values[nDnIdx][ColLink2->Index] = sVal2;
            TvLink->DataController->Values[nDnIdx][ColLink3->Index] = sVal3;
            TvLink->DataController->Values[nDnIdx][ColLink4->Index] = sVal4;
            TvLink->DataController->Values[nDnIdx][ColLink5->Index] = sVal5;
            TvLink->DataController->Values[nDnIdx][ColLink6->Index] = sVal6;

            TvLink->Controller->ClearSelection();
            TvLink->Controller->FocusedRowIndex = nDnIdx;
            //TvLink->Controller->FocusedRecordIndex = nDnIdx;
            TvLink->ViewData->Records[nDnIdx]->Focused = true;
            TvLink->ViewData->Records[nDnIdx]->Selected = true;
            CxLink->SetFocus();
            //TcxCustomGridRow* ARow = TvLink->ViewData->Rows[TvLink->DataController->FocusedRowIndex];
        }
        catch(...)
        {
        }
    }
    __finally
    {
        TvLink->EndUpdate();
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::FRAMEGoogleMapOnZoomChange(TObject *Sender)
{
    int nStrokeWeight = 4;

    if (FRAMEGoogleMap1->FMapZoom >= 14)
    {
        nStrokeWeight = 8;
    }

    FOR_STL(TPolyline*, pLn, FPolyManager->FLists)
    {
        pLn->StrokeWeight = nStrokeWeight;
    }
}
//---------------------------------------------------------------------------

void __fastcall TIDB0120M::GMPolyLinkClick(TObject *Sender, TLatLng *LatLng, int Index, TLinkedComponent *LinkedComponent)
{
    TGMPolyline* pGrpLink = (TGMPolyline*)Sender;
    TPolyline*   pLink = pGrpLink->Items[Index];

    if (FRAMEGoogleMap1->BtnIconSelect->SpeedButtonOptions->Down)
    {
        if (EdLinkId->Enabled)
        {
            TmrClearTimer(NULL);
            FSelLink = pLink;
            FSelColor= pLink->StrokeColor;
            pLink->StrokeColor = clGreen;
            TmrClear->Enabled = true;

            EdLinkId->Text = pLink->Text;
        }
    }
}
//---------------------------------------------------------------------------