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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include "CDSFontF.h"
#include "CDSVmsIfscF.h"
#include "CDSAtmpF.h"
#include "CDSParkF.h"
#include "CDSVmsFormF.h"
#pragma hdrstop

#include "FrmVmsMsgSendDispOldF.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCalendar"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxSpinEdit"
#pragma link "cxSplitter"
#pragma link "cxTextEdit"
#pragma link "cxTimeEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinCoffee"
#pragma link "dxSkinDarkRoom"
#pragma link "dxSkinDarkSide"
#pragma link "dxSkinFoggy"
#pragma link "dxSkinGlassOceans"
#pragma link "dxSkiniMaginary"
#pragma link "dxSkinLilian"
#pragma link "dxSkinLiquidSky"
#pragma link "dxSkinLondonLiquidSky"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinMoneyTwins"
#pragma link "dxSkinOffice2007Black"
#pragma link "dxSkinOffice2007Blue"
#pragma link "dxSkinOffice2007Green"
#pragma link "dxSkinOffice2007Pink"
#pragma link "dxSkinOffice2007Silver"
#pragma link "dxSkinOffice2010Black"
#pragma link "dxSkinOffice2010Blue"
#pragma link "dxSkinOffice2010Silver"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma link "dxSkinSeven"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "cxRadioGroup"
#pragma link "cxClasses"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDBData"
#pragma link "cxFilter"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridDBTableView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxStyles"
#pragma link "cxCheckBox"
#pragma link "cxImage"
#pragma link "cxButtonEdit"
#pragma link "cxBlobEdit"
#pragma link "VmsDesignerF"
#pragma link "cxColorComboBox"
#pragma link "cxCalc"
#pragma link "cxHint"
#pragma link "dxCustomHint"
#pragma link "dxScreenTip"
#pragma link "dxSkinsForm"
#pragma link "FFBaseComponent"
#pragma link "FFBasePlay"
#pragma link "FFPlay"
#pragma resource "*.dfm"

TItsMap<String, TVmsModlSize*> G_ModlLists;
TFrmVmsMsgSendDispOld *FrmVmsMsgSendDispOld = NULL;
//---------------------------------------------------------------------------

__fastcall TFrmVmsMsgSendDispOld::TFrmVmsMsgSendDispOld(TComponent* Owner)
    : TForm(Owner)
{
    //CMM_SetFormPosition(g_AppCfg.bSaveForm);

    ITSSkin_Initialize(Application, g_AppCfg.sLang);
    ITSSkin_Caption(false);
    ITSSkin_Load(this);
    //CMM_LoadForm(g_sFormsDir, this);

    SetColorScheme(g_AppCfg.sSkinName);

    FUpdate= false;
    FTitle = Caption;//"VMS ¹®ÀÚ½Ä Æû°ü¸®";

	//FListSymb = new TList;

    m_pGDC = TvList->DataController;
    TvList->OptionsView->GroupByBox = false;

    EditMode = false;

    FSelObjType = eSelObjNone;
    //MyUseManager = new TVmsObjUseManager();

    //TvList->FilterRow->ApplyChanges = fracDelayed;//fracImmediately;
    TvList->OptionsBehavior->ShowLockedStateImageOptions->Filtering = lsimNever;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgSendDispOld::SetColorScheme(String ASkinName)
{
    dxSkinController1->SkinName = ASkinName;
    dxSkinController1->Refresh();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CommClose()
{
#if 0
    try
    {
        if (MyUseManager)
        {
            delete MyUseManager;
            MyUseManager = NULL;
        }

        if (m_pEdtDesigner)
        {
            delete m_pEdtDesigner;
            m_pEdtDesigner = NULL;
        }

        APP_DelVmsSizeCombo(CbSizeType);
        SAFE_DELETE(MyVmsObjTypeManager);

        ClearSymbloList();
        SAFE_DELETE(FListSymb);

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

void __fastcall TFrmVmsMsgSendDispOld::LoadVmsList()
{
    String   sCfgFile;
    TIniFile *pIniFile = NULL;

    String sIniFile = g_IniFileName + ".ini";
    sCfgFile = g_sCfgDir + sIniFile;
    g_AppCfg.sConfigFile = sCfgFile;

    if (!VmsCtlrManager) {
        VmsCtlrManager = new TVmsCtlrManager();
    }

    pIniFile = new TIniFile(sCfgFile);

    try
    {
        for(int ii = 1; ii < 100; ii++) {
            String item;
            item.printf(L"VMS%03d", ii);

            String vmsInfo = pIniFile->ReadString("VMS_LIST", item,  "");
            if (vmsInfo == "") {
                continue;
            }

            TStringList *sl = NULL;
            sl = new TStringList;
            sl->Delimiter = '^';
            sl->StrictDelimiter = true;
            sl->DelimitedText = vmsInfo;
            if (sl->Count != 8)
            {
                SAFE_DELETE(sl);
                continue;
            }

            TVmsCtlr *pObj = new TVmsCtlr();

            String VMS_MODL_KIND_NM = sl->Strings[2].Trim();
            int WIDTH  = sl->Strings[3].Trim().ToIntDef(384);
            int HEIGHT = sl->Strings[4].Trim().ToIntDef(64);

            TVmsModlSize* modlSize = G_ModlLists.Find(VMS_MODL_KIND_NM);
            if (modlSize == NULL) {
                modlSize = new TVmsModlSize;
                modlSize->TypeCd = VMS_MODL_KIND_NM;
                modlSize->TypeNm = VMS_MODL_KIND_NM;
                modlSize->Width  = WIDTH;
                modlSize->Height = HEIGHT;
                G_ModlLists.Push(modlSize->TypeCd, modlSize);
            }
            // VMS001=
            //VMS-001^
            //¿©°´Å͹̳ΠÁøÃâ·Î(P-1)^
            //2´Ü12¿­^
            //384^
            //64^
            //rtsp://admin:pgNH9ng8@172.23.57.153:554/profile2/media.smp^
            //115.91.94.42^
            //9871
            pObj->VMS_CTLR_ID       = sl->Strings[0].Trim(); 	        //N	VARCHAR2(10)	N			VMSÁ¦¾î±âID
            pObj->FCLT_ID           = sl->Strings[0].Trim();     	        //N	VARCHAR2(10)	N			½Ã¼³¹°ID
            pObj->VMS_NM            = sl->Strings[1].Trim();      	        //N	VARCHAR2(32)	N			VMS¸í
            pObj->VMS_TYPE          = "";    	        //N	VARCHAR2(3)	    N			VMSÀ¯Çü
            pObj->STD_SECT_ID       = ""; 	        //N	CHAR(10)	    N			Ç¥Áر¸°£ID
            pObj->INSTL_MILE        = 0;  	        //N	NUMBER(5)	    Y			¼³Ä¡ÀÌÁ¤
            pObj->CRDN_X            = 0.0;      	        //N	NUMBER(13,10)	N			ÁÂÇ¥X
            pObj->CRDN_Y            = 0.0;      	        //N	NUMBER(12,10)	N			ÁÂÇ¥Y
            pObj->VMS_MODL_KIND     = "";	        //N	VARCHAR2(10)	N			VMS¸ðµâÁ¾·ù
            pObj->CMNC_PORT         = 0;   	        //N	NUMBER(5)	    N			Åë½ÅÆ÷Æ®
            pObj->EQMT_NO           = 0;     	        //N	NUMBER(3)	    N			Àåºñ¹øÈ£
            pObj->OPER_MODE         = "A";   	        //N	VARCHAR2(3)	    N			¿î¿µ¸ðµå
            pObj->CMRA_IND          = "Y";    	        //N	CHAR(1)	        N			Ä«¸Þ¶óÀ¯¹«
            pObj->CMRA_IMG_ADDR     = sl->Strings[5].Trim();	        //N	VARCHAR2(128)	Y			Ä«¸Þ¶ó¿µ»óÁÖ¼Ò
            pObj->CMRA_LGIN_ID      = "";	        //N	VARCHAR2(32)	Y			Ä«¸Þ¶ó·Î±×ÀÎID
            pObj->CMRA_LGIN_PW      = "";	        //N	VARCHAR2(32)	Y			Ä«¸Þ¶ó·Î±×ÀξÏÈ£
            pObj->VMS_SCNR_ID       = ""; 	        //N	VARCHAR2(10)	Y			VMS½Ã³ª¸®¿ÀID
            pObj->VMS_ON_HM         = "0000";   	        //N	CHAR(4)	        Y			VMS ON½ÃºÐ
            pObj->VMS_ON_HM         = "0000";  	        //N	CHAR(4)	        Y			VMS OFF½ÃºÐ
            pObj->MAX_DSPL_FORM_CNT = 10;	//N	NUMBER(2)	    N			ÃÖ´ëÇ¥ÃâÆû¼ö
            pObj->USE_YN            = "Y";

            pObj->VMS_CTLR_IP       = "0.0.0.1";
            pObj->WEB_CMRA_IP       = "";
            pObj->VMS_RTSP_ADDR     = pObj->CMRA_IMG_ADDR;
            if (pObj->VMS_RTSP_ADDR == "-") {
                pObj->VMS_RTSP_ADDR = "";
            }
            pObj->VMS_TYPE_NM       = "";
            pObj->OPER_MODE_NM      = "A";

            pObj->FULL_STRM_SESN_NM = pObj->VMS_RTSP_ADDR;

            pObj->VMS_MODL_KIND_NM = VMS_MODL_KIND_NM;

            pObj->VMS_MODL_ROW   = 0;
            pObj->VMS_MODL_COL   = 0;
            pObj->MODL_PIXL_WDTH = 0;
            pObj->MODL_PIXL_HGHT = 0;
            pObj->POWR_MODL_ROW  = 2;
            pObj->POWR_MODL_COL  = 6;
            pObj->MODL_CLR       = "";

            pObj->WIDTH  = WIDTH;
            pObj->HEIGHT = HEIGHT;

            pObj->VMS_COMM_SERVER = sl->Strings[7].Trim();;
            pObj->VMS_COMM_PORT = sl->Strings[7].Trim().ToIntDef(9999);;

            pObj->Stts = new TVmsStts(pObj->VMS_CTLR_ID);


            VmsCtlrManager->FLists.Push(pObj->VMS_CTLR_ID, pObj);

            modlSize->FLists.Push(pObj->VMS_CTLR_ID, pObj);

            SAFE_DELETE(sl);
        }
    }
    __finally
    {
        if (pIniFile) delete pIniFile;
        pIniFile = NULL;
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgSendDispOld::FillVmsModlSizeType()
{
    TNotifyEvent evt = CbSizeType->Properties->OnChange;
    CbSizeType->Properties->OnChange = NULL;

    CbSizeType->Properties->Items->Clear();
    CbSizeType->ItemIndex = -1;
    FOR_STL(TVmsModlSize*, pType, G_ModlLists)
    {
        CbSizeType->Properties->Items->Add(" " + pType->TypeCd);
    }

    CbSizeType->Properties->OnChange = evt;

    CbSizeType->ItemIndex = 0;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CbSizeTypePropertiesChange(TObject *Sender)
{
    EdFocus->SetFocus();
    FillVmsList();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::FillVmsList()
{
    CMM_ClearGridTableView(TvList);

    int nRow = 0;

    String MODL_SIZE_CD = CbSizeType->Text.Trim();

    TVmsModlSize* modlList = G_ModlLists.Find(MODL_SIZE_CD);
    if (modlList == NULL) {
        return;
    }
    TvList->BeginUpdate();

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

                nRow = m_pGDC->AppendRecord();

                m_pGDC->Values[nRow][ColumnSel->Index] = false;
                m_pGDC->Values[nRow][Column00->Index]  = "-";
                m_pGDC->Values[nRow][Column01->Index]  = pObj->VMS_TYPE_NM;
                m_pGDC->Values[nRow][Column02->Index]  = pObj->VMS_CTLR_ID;
                m_pGDC->Values[nRow][Column03->Index]  = pObj->VMS_NM;
                m_pGDC->Values[nRow][Column04->Index]  = pObj->VMS_MODL_KIND_NM;
                m_pGDC->Values[nRow][Column05->Index]  = String(pObj->INSTL_MILE);
                m_pGDC->Values[nRow][Column06->Index]  = pObj->VMS_CTLR_IP;
                m_pGDC->Values[nRow][Column07->Index]  = String(pObj->CMNC_PORT);
                m_pGDC->Values[nRow][Column08->Index]  = pObj->VMS_ON_HM;
                m_pGDC->Values[nRow][Column09->Index]  = pObj->VMS_OFF_HM;
                m_pGDC->Values[nRow][Column10->Index]  = pObj->OPER_MODE_NM;
                m_pGDC->Values[nRow][Column13->Index]  = pObj->MAX_DSPL_FORM_CNT;
                m_pGDC->Values[nRow][Column14->Index]  = String(pObj->EQMT_NO);

                m_pGDC->Values[nRow][Column99->Index]  = (int)pObj;

                //m_pGDC->Values[nRow][Column11->Index]  = pObj->VMS_CTLR_ID;
                m_pGDC->Values[nRow][Column12->Index]  = pObj->VMS_CTLR_ID;
            }
        }
        __finally
        {
            modlList->FLists.UnLock();
        }
    }
    __finally
    {
        TvList->EndUpdate();
        Column01->SortIndex = Column01->Index;
        Column01->SortOrder = soAscending;
        TvList->DataController->GotoFirst();
        TvList->DataController->FocusedRecordIndex = 0;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::FormCreate(TObject *Sender)
{
    LoadVmsList();

#if 0
    MyVmsObjTypeManager = new TVmsObjTypeManager();
    m_pEdtDesigner = new TVmsFormDesigner(PnlEditForm);
    //FOR_STL(TCDSFontColor*, pObj, CDSFontManager->FColors)
    {
        //m_pEdtDesigner->InitFontColor(pObj->VMS_FONT_COLR_CD, (TColor)pObj->VMS_FONT_COLR_VAL);
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::FormShow(TObject *Sender)
{
    FillVmsModlSizeType();
    //::SendMessage(ReForm->Handle, EM_SETLANGOPTIONS, 0, (LPARAM)(::SendMessage(ReForm->Handle, EM_GETLANGOPTIONS, 0, 0) & ~IMF_AUTOFONT));
    //::SendMessage(ReFormTemp->Handle, EM_SETLANGOPTIONS, 0, (LPARAM)(::SendMessage(ReFormTemp->Handle, EM_GETLANGOPTIONS, 0, 0) & ~IMF_AUTOFONT));

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

void __fastcall TFrmVmsMsgSendDispOld::FormInit()
{
    //TvList->OptionsView->NoDataToDisplayInfoText = "<µî·ÏµÇ¾î ÀÖ´Â Æû Á¤º¸°¡ ¾ø½À´Ï´Ù>";

#if 0
    CheckVideoStreamImage();

    MyVmsObjTypeManager->LoadFromDb();

    m_pEdtDesigner->ApplicationHandle = (long)Handle;

    //VMS»çÀÌÁî
    APP_FillVmsSizeType(CbSizeType, false);

    //Æû»ö»ó
#if 0
	CbFormColor->Items->Clear();
	CbFormColor->Items->AddObject("", (TObject*)clBlack);
	CbFormColor->Items->AddObject("", (TObject*)clRed);
	CbFormColor->Items->AddObject("", (TObject*)clLime);
	CbFormColor->Items->AddObject("", (TObject*)clYellow);
    CbFormColor->ItemIndex = 0;

	CbFormColor1->Items->Clear();
	CbFormColor1->Items = CbFormColor->Items;
    CbFormColor1->ItemIndex = 0;

    //ÆûÀ¯Çü
    FillVmsFormType(CbFormKind);
    //Ç¥Ãâ¹æ¹ý
    FillVmsFormDispMode(CbFormDispMode);
    //Ç¥Ãâ¹æÇâ
    FillVmsFormDispDir(CbFormDispDir);

    FormObjectInit();

    ReForm->Paragraph->Numbering = nsNone;
    ReForm->Paragraph->Alignment = (TAlignment)2;
#endif
#endif
    FNewDb = false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::FormObjectInit()
{
    //TvObjList->OptionsView->NoDataToDisplayInfoText = "<µî·ÏµÇ¾î ÀÖ´Â °´Ã¼ Á¤º¸°¡ ¾ø½À´Ï´Ù>";

    m_bEdit = false;

#if 0
    PnlEdtBack->Left = 6;
    PnlEdtBack->Top  = 4;

    PnlRePreview->Left = 4;
    PnlRePreview->Top  = 4;

    //ReForm->Left = 6;
    //ReForm->Top  = 4;

    //°´Ã¼¹è°æ»ö»ó
	CbBkColor->Items->Clear();
	CbBkColor->Items->AddObject("", (TObject*)clBlack);
	CbBkColor->Items->AddObject("", (TObject*)clRed);
	CbBkColor->Items->AddObject("", (TObject*)clLime);
	CbBkColor->Items->AddObject("", (TObject*)clYellow);
    CbBkColor->ItemIndex = 0;
    //¹®ÀÚ¿­»ö»ó
	CbFontColor->Items->Clear();
#if 0
	CbFontColor->Items->AddObject("", (TObject*)clBlack);
	CbFontColor->Items->AddObject("", (TObject*)clRed);
	CbFontColor->Items->AddObject("", (TObject*)clLime);
	CbFontColor->Items->AddObject("", (TObject*)clYellow);
#endif
    //FOR_STL(TCDSFontColor*, pObj, CDSFontManager->FColors)
    {
    	CbFontColor->Items->AddObject("", (TObject*)pObj->VMS_FONT_COLR_VAL);
    }
    CbFontColor->ItemIndex = 0;
    //Á÷Á¢ÀÔ·Â ¹®ÀÚ¿­»ö»ó
	CbFontColorRe->Items->Clear();
#if 0
	CbFontColorRe->Items->AddObject("", (TObject*)clBlack);
	CbFontColorRe->Items->AddObject("", (TObject*)clRed);
	CbFontColorRe->Items->AddObject("", (TObject*)clLime);
	CbFontColorRe->Items->AddObject("", (TObject*)clYellow);
#endif
	CbFontColorRe->Items = CbFontColor->Items;
    CbFontColorRe->ItemIndex = 0;

    //VMS Font
    FillVmsFont(CbFontName);
    CbFontName->ItemIndex = 0;
    FillVmsFont(CbFontNameRe);
    CbFontNameRe->ItemIndex = 0;
#endif
}
//---------------------------------------------------------------------------

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

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

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

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

void __fastcall TFrmVmsMsgSendDispOld::BtnEditClick(TObject *Sender)
{
#if 0
    bool singleForm = false;
    int nFormTypeCd = m_sFormTypeCd.ToIntDef(11);
    if (nFormTypeCd == 70 || nFormTypeCd == 80)
    {
        singleForm = true;  //µ¿¿µ»ó, ½ºÆ®¸®¹Ö ¿µ»ó Æû
    }
    if (BtnEdit->Caption == "ÆíÁý")//"ÆíÁý")
    {
        ChangeEditMode(0);
        FNewDb = false;
        if (singleForm)
        {
            if (PnlCmd2->Enabled == true)
            {
                //PnlCmd2->Enabled = false;
            }
        }
        else
        {
            if (PnlCmd2->Enabled == false)
            {
                PnlCmd2->Enabled = true;
            }
        }
        if (PgFormTab->ActivePage != TsFormObject)
        {
            PgFormTab->ActivePage = TsFormObject;
        }
    }
    else
    {
        String sId = EdFormId->Text;
        ChangeEditMode(1);

        if (CMM_FindGridData(TvList->DataController, sId, Col01->Index) >= 0)
        {
            CMM_SetGridRow(CxList, TvList, sId, Col01->Index);
            DisplayInfo();
        }
    }
#endif
}
//---------------------------------------------------------------------------

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

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

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

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

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

    BtnSaveImgFile->Enabled = false;
    if (ImgForm->Picture->Bitmap != NULL)
    {
        if (ImgForm->Picture->Bitmap->Height != 0)
        {
            BtnSaveImgFile->Enabled = true;
        }
    }

    if (AEdit == 0 || AEdit == 2)
    {
        PnlCmd1->Enabled = true;
        PnlCmd2->Enabled = true;
        GrpList->Enabled = false;
    }
    else
    {
        PnlCmd1->Enabled = false;
        PnlCmd2->Enabled = false;
        GrpList->Enabled = true;
    }

    ChangeEditModeObject(AEdit);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::ChangeEditModeObject(int AEdit)
{
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnInsertClick(TObject *Sender)
{
#if 0
    int nFormId;

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

    TVMSM520M *pSelForm = new TVMSM520M(this);
    pSelForm->ShowModal();
    String sFormType = pSelForm->EdNmbr->Text.Trim();
    bool   bSelected = pSelForm->m_bSelected;
    delete pSelForm;
    pSelForm = NULL;

    if (!bSelected) {
        return;
    }

    if (sFormType == "")
    {
        return;
    }

    int nFormDispDir = 0;

    if (sFormType.ToIntDef(0) == eFormTp_evehicle) {
        TVMSM560M *pEVehicleForm = new TVMSM560M(this);
        pEVehicleForm->ShowModal();
        String sFormSubType = pEVehicleForm->EdNmbr->Text.Trim();
        bool   bSelected = pEVehicleForm->m_bSelected;
        delete pEVehicleForm;
        pEVehicleForm = NULL;
        if (!bSelected) {
            return;
        }
        nFormDispDir = sFormSubType.ToIntDef(0);
        CbFormSubType->ItemIndex = nFormDispDir;
    }


    FormClear();

    EdFormId->Text = String(nFormId);

    ChangeEditMode(2);
    FNewDb = true;

    //ÆûÀ¯ÇüÀ» ¼³Á¤
    APP_SetCode(CbFormKind, sFormType);
    CbFormDispMode->ItemIndex = 0;
    CbFormDispDir->ItemIndex = nFormDispDir;

    bool singleForm = false;
    //ÆûÀ¯Çü¿¡ ¸Â°Ô ±âº» ÆûÀ» »ý¼ºÇÏÀÚ
    switch(sFormType.ToIntDef(11))
    {
    case eFormTp_traf_1:// '	¼ÒÅë»óȲ(1´Ü)
        MakeDefTrafficForm(1);
        break;
    case eFormTp_traf_2:// '	¼ÒÅë»óȲ(2´Ü)
        MakeDefTrafficForm(2);
        break;
    case eFormTp_traf_3:// '	¼ÒÅë»óȲ(3´Ü)
        MakeDefTrafficForm(3);
        break;
    case eFormTp_traf_4:// '	¼ÒÅë»óȲ(4´Ü)
        MakeDefTrafficForm(4);
        break;
    case eFormtp_figure:// '	¼ÒÅë»óȲ(µµÇü½Ä)
        break;
    case eFormTp_congest:// '	Á¤Ã¼¼ÒÅë»óȲ
        //MakeDefTrafficForm(6);
        break;
    case eFormTp_incident:// '	µ¹¹ß¹®¾È
        break;
    case eFormTp_gongsa:// '	°ø»ç/Çà»ç¹®¾È
        break;
    case eFormTp_hongbo:// '	È«º¸¹®¾È
        break;
    case eFormTp_deture:// '	¿ìȸµµ·Î
        break;
    case eFormTp_safe:// '	Àç³­¾ÈÀü
        break;
    case eFormTp_video:// '	樨毢
        MakeDefVideoStreamForm(70);
        singleForm = true;
        break;
    case eFormTp_stream:// '	½ºÆ®¸®¹Ö¿µ»ó
        MakeDefVideoStreamForm(80);
        singleForm = true;
        break;
    case eFormTp_atmp:// '	´ë±âȯ°æ(ÁÁÀ½)
        //MakeDefVideoStreamForm(90);
        break;
    case eFormTp_park:// '	ÁÖÂ÷Á¤º¸
        break;
    //TODO: 2023PRJ S
    case eFormTp_evehicle:  // ±ä±ÞÂ÷·®¿ì¼±½ÅÈ£
        break;
    //TODO: 2023PRJ E
    default:
        //APP_SetCode(CbFormKind, "11");
        MakeDefTrafficForm(1);
        break;
    }
    if (singleForm)
    {
        if (PnlCmd2->Enabled == true)
        {
            //PnlCmd2->Enabled = false;
        }
    }
    else
    {
        if (PnlCmd2->Enabled == false)
        {
            PnlCmd2->Enabled = true;
        }
    }

    if (PgFormTab->ActivePage != TsFormObject)
    {
        PgFormTab->ActivePage = TsFormObject;
    }
    EdFormName->SetFocus();
#endif
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgSendDispOld::AddDefFormObject(String AFontName, int AFontSize, String AFontColor,
                                            int AObjType, String AText, int ASize, int APosX, int APosY, int AAlign/*=0*/)
{
#if 0
    TVmsFormObject *pObj;

    //1´Ü ¼ÒÅëÁ¤º¸
    pObj = m_pEdtDesigner->AddObject(odtText);
    if (!pObj) return false;

    pObj->EditMode      = true;
    pObj->ObjKind       = OBJKIND_TEXT;
    pObj->ObjSeq        = m_pEdtDesigner->GetNewObjectSeq();
    pObj->ObjType       = String(AObjType);
    pObj->Text          = AText;
    pObj->ObjSize       = pObj->Text.Length();//ASize;  //Pixel
    pObj->BkColorCode   = "0";  //Balck, m_pEdtDesigner->BkColorCode;
    pObj->Blink         = false;

    pObj->FontName      = AFontName;
    pObj->FontNameCode  = APP_GetCodeIdByName(CbFontName, AFontName);
    pObj->FontColorCode = AFontColor;  //0:Black,1:Red,2:Green,3:Yellow
    pObj->FontSize      = AFontSize;
    pObj->FontBold      = true;
    pObj->TextAlign     = AAlign;    //(0:left, 1:right, 2:center

    pObj->SetPos(APosX, APosY);
    pObj->Show();
    AddObjectToList(pObj, true);
#endif
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::MakeDefTrafficForm(int ARows)
{
    //0:Black,1:Red,   2:Green,  3:Yellow
    //0:left, 1:right, 2:center

#if 0
    //1´Ü ¼ÒÅëÁ¤º¸
    if (g_AppCfg.sLang == "kr")
    {
        switch(ARows)
        {
        case 1:
            AddDefFormObject("±¼¸²Ã¼", 18, "3", 12, "@½ÃÁ¡¸í",   160,  16,  7, 1);    //½ÃÁ¡¸í
            AddDefFormObject("±¼¸²Ã¼", 18, "3", 13, "@Á¾Á¡¸í",   160, 213,  7, 0);    //Á¾Á¡¸í
            AddDefFormObject("±¼¸²Ã¼", 18, "3", 14, "@¼ÒÅë»óȲ", 112,  64, 35, 2);    //¼ÒÅë»óȲ
            AddDefFormObject("±¼¸²Ã¼", 18, "2", 15, "@00ºÐ",      80, 213, 35, 0);    //ÅëÇà½Ã°£
            break;
        case 2:
            AddDefFormObject("±¼¸²Ã¼", 16, "3",  0, "ÇöÀ§Ä¡",    100,  31,  7);    //ÇöÀ§Ä¡

            AddDefFormObject("±¼¸²Ã¼", 16, "3", 13, "@Á¾Á¡¸í1",  100, 133,  7);    //Á¾Á¡¸í1
            AddDefFormObject("±¼¸²Ã¼", 16, "3", 23, "@Á¾Á¡¸í2",  100, 265,  7);    //Á¾Á¡¸í2
            AddDefFormObject("±¼¸²Ã¼", 16, "2", 15, "@01ºÐ",      80, 133, 35);    //ÅëÇà½Ã°£1
            AddDefFormObject("±¼¸²Ã¼", 16, "2", 25, "@02ºÐ",      80, 265, 35);    //ÅëÇà½Ã°£2
            break;
        case 3:
            AddDefFormObject("±¼¸²Ã¼", 16, "3",  0, "ÇöÀçÀ§Ä¡ºÎÅÍ", 126,   7,  7);    //ÇöÀçÀ§Ä¡ºÎÅÍ

            AddDefFormObject("±¼¸²Ã¼", 16, "3", 13, "@Á¾Á¡¸í1",      85,  38,  50);    //Á¾Á¡¸í1
            AddDefFormObject("±¼¸²Ã¼", 16, "2", 15, "@1ºÐ",          80, 161,  50);    //ÅëÇà½Ã°£1
            AddDefFormObject("±¼¸²Ã¼", 16, "3", 14, "@»óȲ1",        53, 217,  50);    //¼ÒÅë»óȲ1

            AddDefFormObject("±¼¸²Ã¼", 16, "3", 23, "@Á¾Á¡¸í2",      85,  38,  82);    //Á¾Á¡¸í2
            AddDefFormObject("±¼¸²Ã¼", 16, "2", 25, "@2ºÐ",          80, 161,  82);    //ÅëÇà½Ã°£2
            AddDefFormObject("±¼¸²Ã¼", 16, "3", 24, "@»óȲ2",        53, 217,  82);    //¼ÒÅë»óȲ2

            AddDefFormObject("±¼¸²Ã¼", 16, "3", 33, "@Á¾Á¡¸í3",      85,  38, 117);    //Á¾Á¡¸í3
            AddDefFormObject("±¼¸²Ã¼", 16, "2", 35, "@3ºÐ",          80, 161, 117);    //ÅëÇà½Ã°£3
            AddDefFormObject("±¼¸²Ã¼", 16, "3", 34, "@»óȲ3",        53, 217, 117);    //¼ÒÅë»óȲ3
            break;
        case 6:
            AddDefFormObject("±¼¸²Ã¼", 18, "3", 18, "@ÁöÁ¡¸í",   300,  18,  20);    //ÁöÁ¡¸í
            AddDefFormObject("±¼¸²Ã¼", 18, "3",  0, "ÁÖº¯",      126,  153, 20);    //ÁÖº¯
            AddDefFormObject("±¼¸²Ã¼", 18, "1",  0, "Á¤Ã¼ ±Ø½É", 126,  222, 20);    //Á¤Ã¼±Ø½É
            break;
        }
    }
    else
    {
        String sFontName = lblFontName->Caption;
        switch(ARows)
        {
        case 1:
            AddDefFormObject(sFontName, 18, "3", 12, "@StartName",   160,  16,  7);     //@½ÃÁ¡¸í       @StartName
            AddDefFormObject(sFontName, 18, "3", 13, "@EndName",   160, 213,  7);       //@Á¾Á¡¸í       @EndName
            AddDefFormObject(sFontName, 18, "3", 14, "@Congest", 112,  64, 35);         //@¼ÒÅë»óȲ     @Congest
            AddDefFormObject(sFontName, 18, "2", 15, "@00Min",      80, 213, 35);       //@ÅëÇà½Ã°£     @00Min
            break;
        case 2:
            AddDefFormObject(sFontName, 16, "3",  0, "Location",    100,  31,  7);      //ÇöÀ§Ä¡        Location

            AddDefFormObject(sFontName, 16, "3", 13, "@EndName1",  100, 133,  7);       //Á¾Á¡¸í1    EndName1
            AddDefFormObject(sFontName, 16, "3", 23, "@EndName2",  100, 265,  7);       //Á¾Á¡¸í2    EndName2
            AddDefFormObject(sFontName, 16, "2", 15, "@01Min",      80, 133, 35);       //ÅëÇà½Ã°£1  01Min
            AddDefFormObject(sFontName, 16, "2", 25, "@02Min",      80, 265, 35);       //ÅëÇà½Ã°£2  02Min
            break;
        case 3:
            AddDefFormObject(sFontName, 16, "3",  0, "From Location", 126,   7,  7);    //ÇöÀçÀ§Ä¡ºÎÅÍ  From Location

            AddDefFormObject(sFontName, 16, "3", 13, "@EndName1",      85,  38,  50);   //Á¾Á¡¸í1     EndName1
            AddDefFormObject(sFontName, 16, "2", 15, "@1Min",          80, 161,  50);   //ÅëÇà½Ã°£1   1Min
            AddDefFormObject(sFontName, 16, "3", 14, "@Congest1",        53, 217,  50); //¼ÒÅë»óȲ1   Congest1

            AddDefFormObject(sFontName, 16, "3", 23, "@EndName2",      85,  38,  82);   //Á¾Á¡¸í2     EndName2
            AddDefFormObject(sFontName, 16, "2", 25, "@2Min",          80, 161,  82);   //ÅëÇà½Ã°£2   2Min
            AddDefFormObject(sFontName, 16, "3", 24, "@Congest2",        53, 217,  82); //¼ÒÅë»óȲ2   Congest2

            AddDefFormObject(sFontName, 16, "3", 33, "@EndName3",      85,  38, 117);   //Á¾Á¡¸í3     EndName3
            AddDefFormObject(sFontName, 16, "2", 35, "@3Min",          80, 161, 117);   //ÅëÇà½Ã°£3  3Min
            AddDefFormObject(sFontName, 16, "3", 34, "@Congest3",        53, 217, 117); //¼ÒÅë»óȲ3  Congest3
            break;
        case 6:
            AddDefFormObject(sFontName, 18, "3", 18, "@SpotName",   300,  18,  20);     //@ÁöÁ¡¸í       @SpotName
            AddDefFormObject(sFontName, 18, "3",  0, "Around",      126,  153, 20);     //ÁÖº¯          Around
            AddDefFormObject(sFontName, 18, "1",  0, "Congest Zam", 126,  222, 20);     //Á¤Ã¼±Ø½É      Congest Zam
            break;
        }
    }
#endif

#if 0
(String AFontName, int AFontSize, String AFontColor,
int AObjType, String AText, int ASize, int APosX, int APosY)
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnDeleteClick(TObject *Sender)
{
#if 0
    int nIdx = TvList->DataController->FocusedRecordIndex;
    if (nIdx < 0) return;

    String sFormId = EdFormId->Text;

    if (sFormId.IsEmpty())
    {
        Application->MessageBox(lblText2->Caption.c_str(),//L"VMS Æû »èÁ¦\r\n»èÁ¦ÇÒ VMS ÆûÀ» ¸ñ·Ï¿¡¼­ ¼±ÅÃÇϼ¼¿ä.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    if (!CheckVmsFormUse(sFormId)) return;

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

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

    if (DelVmsForm(sFormId))
    {
        FUpdate = true;

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

        FormClear();
        ChangeEditMode(1);

        POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);
	}
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnSaveImgFileClick(TObject *Sender)
{
#if 0
    if (EdFormId->Text == "") return;

    SaveDialog->Title      = FTitle;
    SaveDialog->InitialDir = ExtractFilePath(Application->ExeName);
    SaveDialog->Filter     = "Bitmap image Files (*.bmp)|*.bmp";
    SaveDialog->FileName   = EdFormId->Text + ".bmp";

    if (SaveDialog->Execute())
    {
        try {
            String sFileName = SaveDialog->FileName;

            int iRet = sFileName.Pos(".bmp");
            if (iRet == 0)
            {
                sFileName = SaveDialog->FileName + ".bmp";
            }

            ImgForm->Picture->SaveToFile(sFileName);
        }
        catch (Exception &exception)
        {
            Application->ShowException(&exception);
        }
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::ClearSymbloList()
{
#if 0
	for(int ii = 0; ii < FListSymb->Count; ii++)
	{
		Graphics::TBitmap *bitmap = (Graphics::TBitmap *)FListSymb->Items[ii];
		delete bitmap;
	}
	FListSymb->Clear();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift,
          bool &AHandled)
{
#if 0
	if (!ACellViewInfo) return;

    DisplayInfo();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::TvListFocusedRecordChanged(TcxCustomGridTableView *Sender,
          TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord,
          bool ANewItemRecordFocusingChanged)
{
#if 0
    if (!AFocusedRecord) return;
    DisplayInfo();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnSearchClick(TObject *Sender)
{
    RefreshData();

    EdFocus->SetFocus();
    ChangeEditMode(1);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::RefreshData()
{
    // °Ë»öÁ¶°Ç¿¡ ÀÇÇÑ ¸µÅ© µ¥ÀÌÅÍ Á¶È¸
    TvList->DataController->Filter->Clear();
    FormClear();
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgSendDispOld::FormClear()
{
#if 0
    FSelObjType = eSelObjNone;

    FSelIdx = -1;

    ImgForm->Picture->Bitmap->FreeImage();
    ImgForm->Picture->Bitmap = NULL;

    EdFormId->Clear();

    EdFormName->Clear();
    EdFormDesc->Clear();

    CbFormKind->ItemIndex     = 0;
    CbFormDispMode->ItemIndex = 1;
    CbFormDispDir->ItemIndex  = 3;
	CbFormColor->ItemIndex    = 0;

    FormObjectClear();

    FNewDb = false;
#endif
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgSendDispOld::FormObjectClear()
{
    //m_pEdtDesigner->Clear();
    //CMM_ClearGridTableView(TvObjList);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::DisplayInfo()
{
#if 0
    TcxTabSheet* pActive = PgFormTab->ActivePage;

    try
    {
        LockWindowUpdate(Handle);

        FormClear();

        PgEdit->ActivePage = TsEdit;

        FSelIdx = TvList->DataController->FocusedRecordIndex;
        if( FSelIdx <= -1 )
            return;

        DisplayFormInfo(FSelIdx);

        ChangeEditMode(3);
    }
    __finally
    {
        if (PgFormTab->ActivePage != pActive)
            PgFormTab->ActivePage = pActive;

        LockWindowUpdate(0);
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::DisplayFormInfo(int AIdx)
{
#if 0
	TcxGridDataController *pDc = TvList->DataController;

    if (AIdx < FListSymb->Count)
    {
        Graphics::TBitmap *bitmap = (Graphics::TBitmap*)FListSymb->Items[AIdx];
        ImgForm->Picture->Bitmap->Assign(bitmap);
    }

    EdSizeType->Text       = CbSizeType->Text;

    EdFormId->Text         = VarToStr(pDc->Values[AIdx][Col01->Index]);
    EdFormName->Text       = VarToStr(pDc->Values[AIdx][Col02->Index]);
    EdFormDesc->Text       = VarToStr(pDc->Values[AIdx][Col03->Index]);
    EdFormName1->Text      = EdFormName->Text;
    EdFormDesc1->Text      = EdFormDesc->Text;
    CbFormColor->ItemIndex = VarToStr(pDc->Values[AIdx][Col08->Index]).ToIntDef(0);
    CbFormColor1->ItemIndex = CbFormColor->ItemIndex;

    m_sFormTypeCd = VarToStr(pDc->Values[AIdx][Col09->Index]);
    APP_SetCode(CbFormKind,     m_sFormTypeCd);
    APP_SetCode(CbFormDispMode, VarToStr(pDc->Values[AIdx][Col06->Index]));
    APP_SetCode(CbFormDispDir,  VarToStr(pDc->Values[AIdx][Col07->Index]));

    if (m_sFormTypeCd.ToIntDef(0) == eFormTp_evehicle) {
        CbFormSubType->ItemIndex = VarToStr(pDc->Values[AIdx][Col07->Index]).ToIntDef(0);
    }

    m_pEdtDesigner->BkColorCode = String(CbFormColor->ItemIndex);

    LoadFormObjectInfo(EdFormId->Text, m_pEdtDesigner, m_sFormTypeCd);

    SelObjectListData();

    MyUseManager->LoadFromDb(EdFormId->Text);
#endif
}
//---------------------------------------------------------------------------

String __fastcall TFrmVmsMsgSendDispOld::FindObjectTypeName(String AFormType, String ATypeCd)
{
    String sReturn = "--???--";

#if 0
    TVmsObjType *pObj = MyVmsObjTypeManager->FLists.Find(AFormType.ToIntDef(-1));
    if (!pObj) return sReturn;

    TFormObjType *pType = pObj->FLists.Find(ATypeCd.ToIntDef(-1));
    if (pType) sReturn = pType->NAME;
#endif
    return sReturn;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::FnFormObjectSelected(TMessage &Msg)
{
#if 0
static long sLParam = -1;
long cLParam = (long)Msg.LParam;
    if (sLParam == cLParam)
    {
        return;
    }
    sLParam = cLParam;
#endif

#if 0
    m_bEdit = true;

    try {
        ImgDesc99->Visible = false;
        Lbl99->Visible = false;
        Cb99->Visible = false;
        //Cb99->ItemIndex = 0;

        PnlIfsc->Visible = false;
        EdIfscId->Text   = "";

        TVmsFormObject *pObj = (TVmsFormObject *)Msg.LParam;
        if (!pObj) return;
        if (!pObj->Selected) return;

        EdObjSeq->Text = String(pObj->ObjSeq);

        int nObjType = pObj->ObjType.ToIntDef(0);
        if (nObjType == 91 ||  //@ÃàÅëÇà½Ã°£(°íÁ¤)
            nObjType == 92)    //@Ãà¼ÒÅë»óȲ(°íÁ¤)
        {
            LblTag->Caption = "Á¦°ø±¸°£";
            BtnIfscErase->Caption = "Á¦°ø±¸°£ÃʱâÈ­";
            PnlIfsc->Visible = true;
            EdIfscId->Text   = pObj->Tag;
            FSelObjType = eSelObjIfsc;
        }
        else
        if (nObjType == 101 || nObjType == 102 || nObjType == 103 || nObjType == 104)    //@ÁÖÂ÷Àå
        {
            LblTag->Caption = "ÁÖÂ÷Àå";
            BtnIfscErase->Caption = "ÁÖÂ÷ÀåÃʱâÈ­";
            PnlIfsc->Visible = true;
            EdIfscId->Text   = pObj->Tag;
            FSelObjType = eSelObjPark;
        }
        else
        if (nObjType >= 401 && nObjType <= 413)
        {
            LblTag->Caption = "°üÃø¼Ò";
            BtnIfscErase->Caption = "°üÃø¼ÒÃʱâÈ­";
            PnlIfsc->Visible = true;
            EdIfscId->Text   = pObj->Tag;
            FSelObjType = eSelObjAtmp;
        }

        String sFormType = APP_GetCode(CbFormKind);
        if (sFormType == "15")
        {
            //µµÇü½Ä¹è°æ¼ÒÅëÁ¤º¸
            if (nObjType == 0 ||  //¹®ÀÚ¿­
                nObjType == 1 ||  //½Éº¼
                nObjType == 2)    //À̹ÌÁö
            {
                ImgDesc99->Visible = true;
                Lbl99->Visible = true;
                Cb99->Visible = true;
                TNotifyEvent evt = Cb99->Properties->OnChange;
                Cb99->Properties->OnChange = NULL;
                APP_SetCode(Cb99, pObj->Tag);
                Cb99->Properties->OnChange = evt;
            }
        }

        EdObjId->Text        = pObj->ObjId;

        ChkBlinking->Checked = pObj->Blink;
        CbBkColor->ItemIndex = pObj->BkColorCode.ToInt();
        SeLeft->Value        = pObj->GetLeft();
        SeTop->Value         = pObj->GetTop();

        if (pObj->DrawType == odtText)
        {
            APP_SetCode(CbObjType, pObj->ObjType);
            APP_SetCode(CbFontName, pObj->FontNameCode);
#if 0
            CbFontColor->ItemIndex = pObj->FontColorCode.ToInt();
#else
            CbFontColor->ItemIndex = CDSFontManager->GetFontColorCode(pObj->FontColorCode.ToInt());
#endif
            SeFontSize->Value      = pObj->FontSize;
            ChkFontBold->Checked   = pObj->FontBold;
            CbTextAlign->ItemIndex = pObj->TextAlign;

            if (EdTextData->Text != pObj->Text)  EdTextData->Text = pObj->Text;

            if (pObj->ObjType.ToIntDef(0) == 19) //¼ÒÅëÁ¤º¸(°¡º¯)
            {
                EdTextData->Properties->ReadOnly = true;
            }
            else
            {
                EdTextData->Properties->ReadOnly = false;
            }
            //CbTextType->Visible = true;
            //CbImageType->Visible= false;
        }
        else
        {
            APP_SetCode(CbObjType, pObj->ObjType);
            if (EdTextData->Text != pObj->Text)  EdTextData->Text = pObj->Text;

            //CbTextType->Visible = false;
            //CbImageType->Visible= true;
        }

        TcxGridFocusedRecordChangedEvent evt = TvObjList->OnFocusedRecordChanged;
        TvObjList->OnFocusedRecordChanged = NULL;
        String sObjSeq = String(pObj->ObjSeq);
        CMM_SetGridRow(CxObjList, TvObjList, sObjSeq, ColSeq->Index);
        TvObjList->OnFocusedRecordChanged = evt;

        CheckImageSelected();

    } catch(...) {}

    m_bEdit = false;
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::TvObjListFocusedRecordChanged(TcxCustomGridTableView *Sender,
          TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord,
          bool ANewItemRecordFocusingChanged)
{
#if 0
    if (AFocusedRecord == NULL)
    {
        return;
    }
#endif

#if 0
    ImgDesc99->Visible = false;
    Lbl99->Visible = false;
    Cb99->Visible = false;
    //Cb99->ItemIndex = 0;

    PnlIfsc->Visible = false;
    EdIfscId->Text   = "";

    if (TvObjList->ViewData->RecordCount <= 0) return;
    if (TvObjList->DataController->FocusedRowIndex < 0) return;

    TcxDataController *pGDC = TvObjList->DataController;
    int nIndex = pGDC->FocusedRecordIndex;
    String sObjSeq = pGDC->Values[nIndex][ColSeq->Index];
    String sObjId  = pGDC->Values[nIndex][ColId->Index];

    EdObjSeq->Text = sObjSeq;

    //m_pEdtDesigner->SelectObject(sObjSeq.ToInt());
    TVmsFormObject *pObj = m_pEdtDesigner->FindObject(sObjSeq.ToInt());
    if (pObj)
    {
        int nObjType = pObj->ObjType.ToIntDef(0);
        if (nObjType == 91 ||  //@ÃàÅëÇà½Ã°£(°íÁ¤)
            nObjType == 92)    //@Ãà¼ÒÅë»óȲ(°íÁ¤)
        {
            LblTag->Caption = "Á¦°ø±¸°£";
            BtnIfscErase->Caption = "Á¦°ø±¸°£ÃʱâÈ­";
            PnlIfsc->Visible = true;
            EdIfscId->Text   = pObj->Tag;
            FSelObjType = eSelObjIfsc;
        }
        else
        if (nObjType == 101 || nObjType == 102 || nObjType == 103 || nObjType == 104)    //@ÁÖÂ÷Àå
        {
            LblTag->Caption = "ÁÖÂ÷Àå";
            BtnIfscErase->Caption = "ÁÖÂ÷ÀåÃʱâÈ­";
            PnlIfsc->Visible = true;
            EdIfscId->Text   = pObj->Tag;
            FSelObjType = eSelObjPark;
        }
        else
        if (nObjType >= 401 && nObjType <= 413)
        {
            LblTag->Caption = "°üÃø¼Ò";
            BtnIfscErase->Caption = "°üÃø¼ÒÃʱâÈ­";
            PnlIfsc->Visible = true;
            EdIfscId->Text   = pObj->Tag;
            FSelObjType = eSelObjAtmp;
        }

        if (pObj->ObjType.ToIntDef(0) == 19) //¼ÒÅëÁ¤º¸(°¡º¯)
        {
            EdTextData->Properties->ReadOnly = true;
        }
        else
        {
            EdTextData->Properties->ReadOnly = false;
        }

        String sFormType = APP_GetCode(CbFormKind);
        if (sFormType == "15")
        {
            //µµÇü½Ä¹è°æ¼ÒÅëÁ¤º¸
            if (nObjType == 0 ||  //¹®ÀÚ¿­
                nObjType == 1 ||  //½Éº¼
                nObjType == 2)    //À̹ÌÁö
            {
                ImgDesc99->Visible = true;
                Lbl99->Visible = true;
                Cb99->Visible = true;
                TNotifyEvent evt = Cb99->Properties->OnChange;
                Cb99->Properties->OnChange = NULL;
                APP_SetCode(Cb99, pObj->Tag);
                Cb99->Properties->OnChange = evt;
            }
        }
    }

    CheckImageSelected();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::SelObjectListData()
{
#if 0
    CMM_ClearGridTableView(TvObjList);

    int nObjCnt = m_pEdtDesigner->GetObjectCount();
    TVmsFormObject *pObj;
    for(int ii = 0; ii < nObjCnt; ii++)
    {
        pObj = m_pEdtDesigner->GetObject(ii);
        if (pObj)
        {
            AddObjectToList(pObj);
        }
    }
    if (TvObjList->DataController->RecordCount > 0) TvObjList->DataController->FocusedRecordIndex = 0;
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::AddObjectToList(TVmsFormObject *pObj, bool bSelect/*=false*/)
{
#if 0
    int nAddRow = -1;

    String sFormType = APP_GetCode(CbFormKind);
    TcxGridDataController *pGDC = TvObjList->DataController;
    try
    {
        TvObjList->BeginUpdate();
        pGDC->BeginUpdate();

        nAddRow = pGDC->AppendRecord();

        pGDC->Values[nAddRow][ColSeq->Index]  = String(pObj->ObjSeq);
        pGDC->Values[nAddRow][ColId->Index]   = String(pObj->ObjId);
        pGDC->Values[nAddRow][ColType->Index] = FindObjectTypeName(sFormType, pObj->ObjType);
        pGDC->Values[nAddRow][ColData->Index] = pObj->Text;
#if 0
        if (pObj->ObjKind == OBJKIND_TEXT)
        {
            pGDC->Values[nAddRow][ColKind->Index] = "¹®ÀÚ¿­";
            pGDC->Values[nAddRow][ColType->Index] = "";//GetComboBoxCodeName(CbTextType, pObj->ObjType);
            pGDC->Values[nAddRow][ColData->Index] = pObj->Text;
        }
        else
        if (pObj->ObjKind == OBJKIND_IMAGE)
        {
            pGDC->Values[nAddRow][ColKind->Index] = "À̹ÌÁö";
            pGDC->Values[nAddRow][ColType->Index] = "";//GetComboBoxCodeName(CbImageType, pObj->ObjType);
            pGDC->Values[nAddRow][ColData->Index] = pObj->Text;
        }
        else
        if (pObj->ObjKind == OBJKIND_IMAGEID)
        {
            pGDC->Values[nAddRow][ColKind->Index] = "À̹ÌÁöID";
            pGDC->Values[nAddRow][ColType->Index] = "";//GetComboBoxCodeName(CbImageType, pObj->ObjType);
            pGDC->Values[nAddRow][ColData->Index] = pObj->Text + " [" + pObj->ImageId + "]";
        }
#endif

        //pGDC->Values[nAddRow][ColX->Index] = String(pObj->GetLeft());
        //pGDC->Values[nAddRow][ColY->Index] = String(pObj->GetTop());
        pGDC->Values[nAddRow][ColIfscId->Index] = pObj->Tag;
        pGDC->Values[nAddRow][ColMem->Index] = (int)pObj;
    }
    __finally
    {
        pGDC->EndUpdate();
        TvObjList->EndUpdate();
        if (bSelect && pGDC->RecordCount > 0) if (nAddRow >= 0) pGDC->FocusedRecordIndex = nAddRow;
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnSortReClick(TObject *Sender)
{
#if 0
    TcxButton *pBtn = (TcxButton *)Sender;
    ReForm->Paragraph->Numbering = nsNone;
    ReForm->Paragraph->Alignment = (TAlignment)pBtn->Tag;
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnBoldReClick(TObject *Sender)
{
#if 0
    if (ReForm->SelAttributes->Style.Contains(fsBold))
        ReForm->SelAttributes->Style = TFontStyles() >> fsBold;
    else
        ReForm->SelAttributes->Style = TFontStyles() << fsBold;
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::SeFontSizeRePropertiesChange(TObject *Sender)
{
#if 0
    if (((TcxSpinEdit*)Sender)->Value < ((TcxSpinEdit*)Sender)->Properties->MinValue)
        ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MinValue;
    else if(((TcxSpinEdit*)Sender)->Value > ((TcxSpinEdit*)Sender)->Properties->MaxValue &&
        ((TcxSpinEdit*)Sender)->Properties->MaxValue)
        ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MaxValue;

    ReForm->SelAttributes->Size = ((TcxSpinEdit*)Sender)->Value;
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CbFontColorReClick(TObject *Sender)
{
#if 0
    switch(CbFontColorRe->ItemIndex)
    {
        case 0 : ReForm->SelAttributes->Color = clBlack;  break;
        case 1 : ReForm->SelAttributes->Color = clRed;    break;
        case 2 : ReForm->SelAttributes->Color = clLime;   break;
        case 3 :
        default: ReForm->SelAttributes->Color = clYellow; break;
    }
#else
    // ReForm->SelAttributes->Color = CbFontColorRe->Selected;//CbFontColorRe->Colors[CbFontColorRe->ItemIndex];
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CbFontNameReClick(TObject *Sender)
{
#if 0
    String sFontCode = APP_GetCode(CbFontNameRe);
    String sFontName = APP_GetCodeName(CbFontNameRe, sFontCode);
    ReForm->SelAttributes->Name = sFontName;
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::ReFormChange(TObject *Sender)
{
    //if (ChkAutoPreview->Checked) BtnPreviewClick(NULL);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::ChkAutoPreviewClick(TObject *Sender)
{
    //if (ChkAutoPreview->Checked) BtnPreviewClick(NULL);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnPreviewClick(TObject *Sender)
{
#if 0
    if (ChkDrawModule->Checked)
        m_pEdtDesigner->PreviewDrawModuleForm(ReForm, ReFormTemp, ImgEdtPreview, FVmsRows, FVmsCols);
    else
        m_pEdtDesigner->PreviewDrawForm(ReForm, ReFormTemp, ImgEdtPreview);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnReApplyClick(TObject *Sender)
{
#if 0
    BtnPreviewClick(NULL);

    m_pEdtDesigner->AddDrawFormToVmsForm(ReForm, ImgEdtPreview);

    /*
    *  ½Å±Ô·Î µî·ÏÇÑ °´Ã¼ÀÇ °´Ã¼Å¸ÀÔ°ú ÆùÆ®Äڵ带 ¾÷µ¥ÀÌÆ® ÇÑ´Ù.
    */
    CbVmsObjType->ItemIndex = 0;   // For °íÁ¤¹®ÀÚ¿­
    String sObjType = APP_GetCode(CbVmsObjType);

    TVmsFormObject *pObj;
    int nObjCnt = m_pEdtDesigner->GetObjectCount();
    for (int ii = 0; ii < nObjCnt; ii++)
    {
        pObj = m_pEdtDesigner->GetObject(ii);
        if (pObj->ObjType == "XXX" && pObj->FontNameCode == "XXX")
        {
            pObj->ObjType = sObjType;
            pObj->FontNameCode = APP_GetCodeIdByName(CbFontName, pObj->FontName);
        }
    }

    PgEdit->ActivePageIndex = 0;
    SelObjectListData();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CbFormKindPropertiesChange(TObject *Sender)
{
#if 0
    CbVmsObjType->Properties->Items->Clear();
    CbObjType->Properties->Items->Clear();

    String sFormType = APP_GetCode(CbFormKind);
    int nFormKind = sFormType.ToIntDef(0);
    if (nFormKind == eFormTp_evehicle) {
        if (PnlFormSubType->Visible == false) PnlFormSubType->Visible = true;
    } else {
        if (PnlFormSubType->Visible == true) PnlFormSubType->Visible = false;
    }

    TVmsObjType *pObj = MyVmsObjTypeManager->FLists.Find(nFormKind);
    if (!pObj) return;

    FOR_STL(TFormObjType*, pType, pObj->FLists)
    {
        String sType;
        sType.printf(L"%2d", pType->TYPE);
        sType = pType->TYPE;
        CbVmsObjType->Properties->Items->Add(" [" + sType + "] " + pType->NAME);
        CbObjType->Properties->Items->Add(" [" + sType + "] " + pType->NAME);
    }

    CbVmsObjType->ItemIndex = 0;
    CbObjType->ItemIndex = 0;
    //EdFocus->SetFocus();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CbFormColorClick(TObject *Sender)
{
    //m_pEdtDesigner->SetBkColor(String(CbFormColor->ItemIndex));
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnMoveClick(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    TcxButton *pBtn = (TcxButton *)Sender;
    switch(pBtn->Tag)
    {
    case 0: m_pEdtDesigner->StepMoveLeft();  break;
    case 1: m_pEdtDesigner->StepMoveRight(); break;
    case 2: m_pEdtDesigner->StepMoveUp();    break;
    case 3: m_pEdtDesigner->StepMoveDown();  break;
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnAlignClick(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    TcxButton *pBtn = (TcxButton *)Sender;
    if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    switch(pBtn->Tag)
    {
    case 0: m_pEdtDesigner->SetLeftAlign(m_pEdtDesigner->GetLeftAlign());     break;
    case 1: m_pEdtDesigner->SetRightAlign(m_pEdtDesigner->GetRightAlign());   break;
    case 2: m_pEdtDesigner->SetTopAlign(m_pEdtDesigner->GetTopAlign());       break;
    case 3: m_pEdtDesigner->SetBottomAlign(m_pEdtDesigner->GetBottomAlign()); break;
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnCenterClick(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    TcxButton *pBtn = (TcxButton *)Sender;
    if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    switch(pBtn->Tag)
    {
    case 0: m_pEdtDesigner->SetAlignWidthCenter();  break;
    case 1: m_pEdtDesigner->SetAlignHeightCenter(); break;
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::SePosPropertiesChange(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    if (((TcxSpinEdit*)Sender)->Value < ((TcxSpinEdit*)Sender)->Properties->MinValue)
        ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MinValue;
    else if(((TcxSpinEdit*)Sender)->Value > ((TcxSpinEdit*)Sender)->Properties->MaxValue &&
        ((TcxSpinEdit*)Sender)->Properties->MaxValue)
        ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MaxValue;

    TcxSpinEdit *pPos = (TcxSpinEdit*)Sender;
    if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    int nValue = pPos->Value;
    switch(pPos->Tag)
    {
    case 0: m_pEdtDesigner->MoveLeft(nValue); break;
    case 1: m_pEdtDesigner->MoveUp(nValue);   break;
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CbBkColorClick(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    m_pEdtDesigner->SetObjectBkColorCode(String(CbBkColor->ItemIndex));
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::ChkBlinkingClick(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    m_pEdtDesigner->SetObjectBlink(ChkBlinking->Checked);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::EdTextDataKeyPress(TObject *Sender, wchar_t &Key)
{
#if 0
    if (m_bEdit) return;
    if (Key == '\'')
    {
        Key = '`';
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::EdTextDataPropertiesChange(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    m_pEdtDesigner->SetObejctText(EdTextData->Text);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::SeFontSizePropertiesChange(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    if (((TcxSpinEdit*)Sender)->Value < ((TcxSpinEdit*)Sender)->Properties->MinValue)
        ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MinValue;
    else if(((TcxSpinEdit*)Sender)->Value > ((TcxSpinEdit*)Sender)->Properties->MaxValue &&
        ((TcxSpinEdit*)Sender)->Properties->MaxValue)
        ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MaxValue;

    //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    int nFontSize = SeFontSize->Value;
    m_pEdtDesigner->SetObejctFontSize(nFontSize);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CbFontNamePropertiesChange(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    String sFontCode = APP_GetCode(CbFontName);
    String sFontName = APP_GetCodeName(CbFontName, sFontCode);

    m_pEdtDesigner->SetObejctFontName(sFontName.Trim());
    m_pEdtDesigner->SetObejctFontNameCode(sFontCode);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CbFontColorClick(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
#if 0
    m_pEdtDesigner->SetObejctFontColorCode(String(CbFontColor->ItemIndex));
#else
    m_pEdtDesigner->SetObejctFontColorCode(String(CDSFontManager->GetFontColorCode((int)CbFontColor->Selected)));
#endif
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CbTextAlignPropertiesChange(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    m_pEdtDesigner->SetObejctTextAlign(CbTextAlign->ItemIndex);
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::EdObjIdPropertiesChange(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;

    try {
        int nObjId;
        TryStrToInt(EdObjId->Text.Trim(), nObjId);
        m_pEdtDesigner->SetObejctId(nObjId);
    } catch(...) {}
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::ChkFontBoldClick(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    m_pEdtDesigner->SetObejctFontBold(ChkFontBold->Checked);
#endif
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgSendDispOld::InsertVmsImage(String ANmbr, String AExpl, String AFileName, String ATypeCd)
{
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::OpenBmpCanClose(TObject *Sender, bool &CanClose)
{
#if 0
    String sFName = OpenBmp->FileName;
    //sFName = sFName.UpperCase();

    String sFilePath = ExtractFilePath(sFName);
    String sFileName = ExtractFileName(sFName);
    String sFileExt  = ExtractFileExt(sFName);
    if (sFileExt.UpperCase() != ".BMP")
    {
        if (!APP_CheckBmpFile(sFName, sFName))
        {
            Application->MessageBox(L"À̹ÌÁö ÆÄÀÏÀ» Àоî¿À´Âµ¥ ½ÇÆÐÇÏ¿´½À´Ï´Ù", L"À̹ÌÁö ÆÄÀÏ Àб⠽ÇÆÐ", MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }
        sFileExt = ExtractFileExt(sFName);
    }

    sFName = sFName.UpperCase();
	if (sFName.SubString(sFName.Length()-2, 3) != "BMP")
    {
        Application->MessageBox(FrmLang->lblImage11->Caption.c_str(),//L"BMP ÆÄÀϸ¸ Àû¿ë °¡´ÉÇÕ´Ï´Ù.",
                                lblImage1->Caption.c_str(),//L"VMS À̹ÌÁö ¼±ÅÃ",
                                MB_OK|MB_ICONWARNING|MB_APPLMODAL);
		return;
	}

    try
    {
        FFileSize = ITSUtil_GetFileSize(sFName);
        if (FFileSize <= 0)
        {
            Application->MessageBox(FrmLang->lblImage12->Caption.c_str(),//L"À̹ÌÁö ÆÄÀÏÀ» ÀÐ¾î ¿À´Âµ¥ ½ÇÆÐÇÏ¿´½À´Ï´Ù.",
                                    lblImage1->Caption.c_str(),//L"VMS À̹ÌÁö ¼±ÅÃ",
                                    MB_OK|MB_ICONWARNING|MB_APPLMODAL);
            return;
        }
#if 0
        if (FFileSize > (1024 * 32))   // Max 32Kbytes
        {
            Application->MessageBox(FrmLang->lblImage13->Caption.c_str(),//L"À̹ÌÁö ÆÄÀÏÀÇ ÃÖ´ë Å©±â´Â 32KBytes¸¦ ³ÑÀ» ¼ö ¾ø½À´Ï´Ù.\r\nÀ̹ÌÁö ÆÄÀÏÀÇ ¿ë·®À» ÁÙ¿© ÁÖ¼¼¿ä.",
                                    lblImage1->Caption.c_str(),//L"VMS À̹ÌÁö ¼±ÅÃ",
                                    MB_OK|MB_ICONWARNING|MB_APPLMODAL);
            return;
        }
#endif


        ImgEdtTemp->Picture->Bitmap->FreeImage();
        ImgEdtTemp->Picture->Bitmap = NULL;
        ImgEdtTemp->Picture->Bitmap->LoadFromFile(sFName);

        String sExpl = EdFormId->Text.Trim();
        int nNmbr;
        if (!FrmLang->GetNextVmsImgeId(nNmbr, 6000, 6999))
        {
            Application->MessageBox(FrmLang->lblImage4->Caption.c_str(),//L"»õ·Î¿î VMS À̹ÌÁöÁ¤º¸¸¦ »ý¼ºÇÏÁö ¸øÇÏ¿´½À´Ï´Ù.\r\nÇÁ·Î±×·¥ Á¾·áÈÄ¿¡ ´Ù½Ã ½ÃµµÇØ º¸¼¼¿ä.",
                                    lblImage1->Caption.c_str(),//L"VMS À̹ÌÁö ¼±ÅÃ",
                                    MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }
        if (!InsertVmsImage(String(nNmbr), sExpl, "", "SBT0"))
        {
            Application->MessageBox(FrmLang->lblImage4->Caption.c_str(),//L"»õ·Î¿î VMS À̹ÌÁöÁ¤º¸¸¦ ÀúÀåÇÏÁö ¸øÇÏ¿´½À´Ï´Ù.\r\nÇÁ·Î±×·¥ Á¾·áÈÄ¿¡ ´Ù½Ã ½ÃµµÇØ º¸¼¼¿ä.",
                                    lblImage1->Caption.c_str(),//L"VMS À̹ÌÁö ¼±ÅÃ",
                                    MB_OK|MB_ICONERROR|MB_APPLMODAL);
            return;
        }

        TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp);
        if (!pObj) return;

        int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq();
        EdObjSeq->Text = String(nNewObjSeq);

        pObj->ObjSeq        = nNewObjSeq;
        pObj->ObjKind       = OBJKIND_IMAGEID;//OBJKIND_IMAGE;    // "1"
        pObj->ObjType       = "1";//"2";
        pObj->ObjSize       = (int)FFileSize;
        pObj->BkColorCode   = m_pEdtDesigner->BkColorCode;
        pObj->Blink         = false;
        pObj->Tag           = "N";

        pObj->SetBitmap(ImgEdtTemp->Picture->Bitmap);

        pObj->Text    = lblFile1->Caption;//"ÆÄÀÏÀ̹ÌÁö";//ExtractShortPathName(sFName).c_str();
        pObj->ImageId = String(nNmbr);
        pObj->SetPos(0, 0);
#ifdef IMAGE_RESIZE
        //pObj->GetImage()->AutoSize= false;
        //pObj->GetImage()->Stretch = true;

        TNotifyEvent evtW = SeImgW->Properties->OnChange;
        TNotifyEvent evtH = SeImgH->Properties->OnChange;
        SeImgW->Properties->OnChange = NULL;
        SeImgH->Properties->OnChange = NULL;

        SeImgW->Value = ImgEdtTemp->Picture->Bitmap->Width;
        SeImgH->Value = ImgEdtTemp->Picture->Bitmap->Height;

        SeImgW->Properties->OnChange = evtW;
        SeImgH->Properties->OnChange = evtH;

        PnlImage->Visible = true;
#endif
        pObj->EditMode = true;
        pObj->Show();

        AddObjectToList(pObj, true);
    }
    catch(...)
    {
        return;
    }
#endif
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgSendDispOld::CheckVideoStreamImage()
{
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::MakeDefVideoStreamForm(int AType)
{
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnAddTextClick(TObject *Sender)
{
#if 0
    if (CbVmsObjType->ItemIndex < 0) return;

    PnlImage->Visible = false;

    String sFormType = APP_GetCode(CbFormKind);
    String sObjType  = APP_GetCode(CbVmsObjType);
    int    nObjType  = sObjType.ToIntDef(0);

    String sObjText = FindObjectTypeName(sFormType, sObjType);

    String sFontName      = FrmLang->lblFontName->Caption;//"±¼¸²Ã¼";
    String sFontNameCode  = "1";
    String sFontColorCode = "2";    //Green
    int    nFontSize      = 14;
    bool   bFontBold      = true;

    switch(nObjType)
    {
    case 201:   //樨毢
    case 301:   //½ºÆ®¸®¹Ö¿µ»ó
        {
            TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp);
            if (!pObj) return;

            int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq();
            EdObjSeq->Text = String(nNewObjSeq);
            pObj->EditMode    = false;
            pObj->ObjSeq      = nNewObjSeq;
            pObj->ObjKind     = OBJKIND_IMAGE;    // "2"
            pObj->ObjType     = sObjType;
            pObj->ObjSize     = FVmsWidth * FVmsHeight;
            pObj->BkColorCode = m_pEdtDesigner->BkColorCode;
            pObj->Blink       = false;
            pObj->Tag         = "N";

            pObj->Text        = sObjText;
            pObj->ImageId     = "0";
            int nW, nH;
            if (nObjType == 201)
            {
                pObj->SetBitmap(ImgVideo->Picture->Bitmap);
                nW = ImgVideo->Width;
                nH = ImgVideo->Height;
            }
            else
            {
                pObj->SetBitmap(ImgStream->Picture->Bitmap);
                nW = ImgStream->Width;
                nH = ImgStream->Height;
            }
            //pObj->SetSize(FVmsWidth, FVmsHeight);
            nW = (FVmsWidth-nW)/2;
            nH = (FVmsHeight-nH)/2;
            pObj->SetPos(nW, nH);

            pObj->Show();
            AddObjectToList(pObj, true);
        }
        break;
    case   1:   //À̹ÌÁö ½Éº¼
    case   3:   //¼ÒÅëÁ¤º¸¹è°æÀ̹ÌÁö
    case  17:   //@¼ÒÅëÀ̹ÌÁö1
    case  27:   //@¼ÒÅëÀ̹ÌÁö2
    case  37:   //@¼ÒÅëÀ̹ÌÁö3
    case  47:   //@¼ÒÅëÀ̹ÌÁö4
    case 406:   //@ÅëÇÕ´ë±âµî±Þ À̹ÌÁö
    case 407:   //@¹Ì¼¼¸ÕÁöµî±Þ À̹ÌÁö
    case 408:   //@Ãʹ̼¼¸ÕÁöµî±Þ À̹ÌÁö
    case 413:   //@¿ÀÁ¸µî±ÞÀ̹ÌÁö
        {
            TVMSM510M *pSelForm  = new TVMSM510M(this);

            if (nObjType == 1 || nObjType == 3)
            {
                pSelForm->FImageType = nObjType;
            }
            else
            {
                pSelForm->FImageType = 2;
            }
            if (nObjType >= 406 && nObjType <= 408)
            {
                pSelForm->FImageType = 1;
            }
            if (nObjType == 413)
            {
                pSelForm->FImageType = 1;
            }

            String sSymbType = "SBT0";
            switch(nObjType)
            {
            case   1: //À̹ÌÁö ½Éº¼
                sSymbType = "SBT0";
                break;
            case   3: //¼ÒÅëÁ¤º¸¹è°æÀ̹ÌÁö
                sSymbType = "SBT1";
                break;
            case  17: //@¼ÒÅëÀ̹ÌÁö1
            case  27: //@¼ÒÅëÀ̹ÌÁö2
            case  37: //@¼ÒÅëÀ̹ÌÁö3
            case  47: //@¼ÒÅëÀ̹ÌÁö4
                sSymbType = "SBT2";
                break;
            case 406: //@ÅëÇÕ´ë±âµî±Þ À̹ÌÁö
            case 407: //@¹Ì¼¼¸ÕÁöµî±Þ À̹ÌÁö
            case 408: //@Ãʹ̼¼¸ÕÁöµî±Þ À̹ÌÁö
            case 413: //@¿ÀÁ¸µî±Þ À̹ÌÁö
                sSymbType = "SBT4";
                break;
            default :
                sSymbType = "SBT0";
                break;
            }
            pSelForm->SYMB_TYPE = sSymbType;
            pSelForm->ShowModal();
            if (!pSelForm->m_bSelected)
            {
                delete pSelForm;
                return;
            }
            TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp);
            if (!pObj) return;

            int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq();
            EdObjSeq->Text = String(nNewObjSeq);
            pObj->ObjSeq      = nNewObjSeq;
            pObj->ObjKind     = OBJKIND_IMAGEID;    // "2"
            pObj->ObjType     = sObjType;
            pObj->ObjSize     = pSelForm->ImgPreView->Picture->Bitmap->Width * pSelForm->ImgPreView->Picture->Bitmap->Height;
            pObj->BkColorCode = m_pEdtDesigner->BkColorCode;
            pObj->Blink       = false;
            pObj->Tag         = "N";

            pObj->Text        = sObjText;
            pObj->ImageId     = pSelForm->EdNmbr->Text;
            pObj->SetBitmap(pSelForm->ImgPreView->Picture->Bitmap);

#ifdef IMAGE_RESIZE
            //if (sSymbType == "SBT0")
            {
                //pObj->GetImage()->AutoSize= false;
                //pObj->GetImage()->Stretch = true;

                TNotifyEvent evtW = SeImgW->Properties->OnChange;
                TNotifyEvent evtH = SeImgH->Properties->OnChange;
                SeImgW->Properties->OnChange = NULL;
                SeImgH->Properties->OnChange = NULL;

                SeImgW->Value = pSelForm->ImgPreView->Picture->Bitmap->Width;
                SeImgH->Value = pSelForm->ImgPreView->Picture->Bitmap->Height;

                SeImgW->Properties->OnChange = evtW;
                SeImgH->Properties->OnChange = evtH;

                PnlImage->Visible = true;
            }
#endif

            pObj->SetPos(0, 0);
            if (pObj->Left < 0) pObj->Left = 0;
            if (pObj->Top  < 0) pObj->Top  = 0;
            pObj->Show();
            AddObjectToList(pObj, true);

            delete pSelForm;
        }
        break;
    case 2:    //ÆÄÀÏÀ̹ÌÁö
        OpenBmp->FileName = "";
        OpenBmp->Execute();
        break;
#if 0
    case 17:    //@¹æÇâÀ̹ÌÁö1
    case 27:    //@¹æÇâÀ̹ÌÁö2
    case 37:    //@¹æÇâÀ̹ÌÁö3
    case 47:    //@¹æÇâÀ̹ÌÁö4
        {
            TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp);
            if (!pObj) return;

            int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq();
            EdObjSeq->Text = String(nNewObjSeq);

            pObj->ObjSeq      = nNewObjSeq;
            pObj->ObjKind     = OBJKIND_IMAGEID;    // "2"
            pObj->ObjType     = sObjType;
            pObj->ObjSize     = ImgDir->Picture->Bitmap->Width * ImgDir->Picture->Bitmap->Height;
            pObj->BkColorCode = m_pEdtDesigner->BkColorCode;
            pObj->Blink       = false;

            //pObj->Text    = CbVmsObjType->Text;
            pObj->Text        = sObjText;
            pObj->ImageId = "0";
            pObj->SetBitmap(ImgDir->Picture->Bitmap);

            pObj->SetPos(0, 0);
            pObj->Show();
            AddObjectToList(pObj, true);
        }
        break;
#endif
    default:
        {
            TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtText);
            if (!pObj) return;

            int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq();
            EdObjSeq->Text = String(nNewObjSeq);
            pObj->ObjSeq   = nNewObjSeq;
            pObj->ObjType  = sObjType;

            if (nObjType ==  91 || nObjType ==  92 ||
                nObjType == 101 || nObjType == 102 || nObjType == 103 || nObjType == 104 ||
               (nObjType >= 401 && nObjType <= 413)
               )
            {
                pObj->Tag = "";
            }
            else
            {
                pObj->Tag = "N";
            }

            pObj->TextAlign = 0;    // left
            if (nObjType == 19) //¼ÒÅëÁ¤º¸(°¡º¯)
            {
#ifdef ENG
                sObjText = "@Traffic Fast About 0 Min.";
#else
                sObjText = "@¼ÒÅë¿øÈ°  ¾à 0 ºÐ";
#endif
                pObj->TextAlign = 2;    // center
                EdTextData->Properties->ReadOnly = true;
            }
            else if (nObjType == 102 || nObjType == 103) {
                // ÁÖÂ÷¸é¼ö, ÁÖÂ÷°¡´É¸é¼ö
                sObjText = "000¸é";
                pObj->TextAlign = 1;    // right
            }
            else if (nObjType == 104) {
                // ÁÖÂ÷ÀåÈ¥Àâµµ
                sObjText = "@»óȲ";
                pObj->TextAlign = 2;    // center
            }
            else
            {
                EdTextData->Properties->ReadOnly = false;
            }

            pObj->ObjSize       = sObjText.Length();
            pObj->BkColorCode   = m_pEdtDesigner->BkColorCode;
            pObj->Blink         = false;

            pObj->Text          = sObjText;
            pObj->EditMode      = true;
            pObj->ObjKind       = OBJKIND_TEXT;
            pObj->FontName      = sFontName;
            pObj->FontNameCode  = sFontNameCode;
            pObj->FontColorCode = sFontColorCode;
            pObj->FontSize      = nFontSize;

            pObj->FontBold      = bFontBold;

            pObj->SetPos(0, 0);
            pObj->Show();
            AddObjectToList(pObj, true);
        }
        break;
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnObjDeleteClick(TObject *Sender)
{
#if 0
    if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;

	String sMsgString;
    sMsgString  = lblText6->Caption;//"¼±ÅÃÇÑ °´Ã¼ Á¤º¸¸¦ ¸ðµÎ »èÁ¦ÇϽðڽÀ´Ï±î?";
    if (Application->MessageBox(sMsgString.c_str(),
                                lblText7->Caption.c_str(),//L"°´Ã¼ Á¤º¸ »èÁ¦",
                                MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES)
    {
        return;
    }

    bool bUse = false;
    TVmsFormObject *pObj;
    int nObjCnt = m_pEdtDesigner->GetObjectCount();
    for (int ii = nObjCnt-1; ii >= 0; ii--)
    {
        pObj = m_pEdtDesigner->GetObject(ii);
        if (pObj->Selected)
        {
            TVmsObjUse*pObjUse = MyUseManager->FLists.Find(pObj->ObjSeq);
            if (pObjUse)
            {
                bUse = true;
                continue;
            }
            m_pEdtDesigner->DelObject(ii);
        }
    }

    if (bUse)
    {
        Application->MessageBox(lblText8->Caption.c_str(),//L"VMS Æû °´Ã¼ »èÁ¦\r\nVMS Æû °´Ã¼ Áß Á¤º¸Á¦°ø±¸°£¿¡ ¼³Á¤µÈ °´Ã¼´Â »èÁ¦ÇÒ ¼ö ¾ø½À´Ï´Ù.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONERROR|MB_APPLMODAL);
    }

    SelObjectListData();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::ColXGetDataText(TcxCustomGridTableItem *Sender, int ARecordIndex,
          UnicodeString &AText)
{
#if 0
    if (ARecordIndex < 0) return;
    try
    {
        int nMemPtr = (int)(TvObjList->DataController->Values[ARecordIndex][ColMem->Index]);
        TVmsFormObject *pObj = (TVmsFormObject*)nMemPtr;
        if (pObj)
        {
            AText = pObj->GetLeft();
        }
    } catch(Exception &e) {}
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::ColYGetDataText(TcxCustomGridTableItem *Sender, int ARecordIndex,
          UnicodeString &AText)
{
#if 0
    if (ARecordIndex < 0) return;
    try
    {
        int nMemPtr = (int)(TvObjList->DataController->Values[ARecordIndex][ColMem->Index]);
        TVmsFormObject *pObj = (TVmsFormObject*)nMemPtr;
        if (pObj)
        {
            AText = pObj->GetTop();
        }
    } catch(Exception &e) {}
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CbVmsObjTypeClick(TObject *Sender)
{
#if 0
    if (BtnAddText->CanFocus())
    {
        BtnAddText->SetFocus();
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::EdIfscIdClick(TObject *Sender)
{
#if 0
    if (FSelObjType == eSelObjIfsc)
    {
        TVMSM530M *pSelForm = new TVMSM530M(this);

        pSelForm->EdNmbr->Text = EdIfscId->Text.Trim();
        pSelForm->ShowModal();
        String sIfscId   = pSelForm->EdNmbr->Text.Trim();
        bool   bSelected = pSelForm->m_bSelected;
        delete pSelForm;
        pSelForm = NULL;

        if (!bSelected)
        {
            return;
        }

        if (sIfscId != "")
        {
            EdIfscId->Text = sIfscId;
        }
        UpdateObjectIfscId();
    }
    else
    if (FSelObjType == eSelObjPark)
    {
        TVMSM540M *pSelForm = new TVMSM540M(this);

        pSelForm->EdNmbr->Text = EdIfscId->Text.Trim();
        pSelForm->ShowModal();
        String sParkNmbr = pSelForm->EdNmbr->Text.Trim();
        bool   bSelected = pSelForm->m_bSelected;
        delete pSelForm;
        pSelForm = NULL;

        if (!bSelected)
        {
            return;
        }

        if (sParkNmbr != "")
        {
            EdIfscId->Text = sParkNmbr;
        }
        UpdateObjectIfscId();
    }
    else
    if (FSelObjType == eSelObjAtmp)
    {
        TVMSM550M *pSelForm = new TVMSM550M(this);

        pSelForm->EdNmbr->Text = EdIfscId->Text.Trim();
        pSelForm->ShowModal();
        String sAtmpNmbr = pSelForm->EdNmbr->Text.Trim();
        bool   bSelected = pSelForm->m_bSelected;
        delete pSelForm;
        pSelForm = NULL;

        if (!bSelected)
        {
            return;
        }

        if (sAtmpNmbr != "")
        {
            EdIfscId->Text = sAtmpNmbr;
        }
        UpdateObjectIfscId();
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnIfscEraseClick(TObject *Sender)
{
#if 0
    EdIfscId->Text = "";
    UpdateObjectIfscId();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::UpdateObjectIfscId()
{
#if 0
    TVmsFormObject *pObj;
    int nObjCnt = m_pEdtDesigner->GetObjectCount();
    for (int ii = nObjCnt-1; ii >= 0; ii--)
    {
        pObj = m_pEdtDesigner->GetObject(ii);
        if (pObj->Selected)
        {
            int nObjType = pObj->ObjType.ToIntDef(0);
            if (nObjType ==  91 ||     //@ÃàÅëÇà½Ã°£(°íÁ¤)
                nObjType ==  92 ||     //@Ãà¼ÒÅë»óȲ(°íÁ¤)
                nObjType == 101 || nObjType == 102 || nObjType == 103 || nObjType == 104 ||     //@ÁÖÂ÷Àå
               (nObjType >= 401 && nObjType <= 413)
               )
            {
                pObj->Tag = EdIfscId->Text.Trim();
            }
        }
    }
#endif
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgSendDispOld::CopyFormAdd(String AOrgFormId, String ANewFormId, String AFormName)
{
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnUpClick(TObject *Sender)
{
#if 0
    try
    {
        TvObjList->BeginUpdate();

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

        int nUpIdx = nCurIdx-1;

        try
        {
            String sVal1 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColSeq->Index]);
            String sVal2 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColId->Index]);
            String sVal3 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColType->Index]);
            String sVal4 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColData->Index]);
            String sVal5 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColIfscId->Index]);
            int    sVal6 = (TvObjList->DataController->Values[nCurIdx][ColMem->Index]);

            TvObjList->DataController->Values[nCurIdx][ColSeq->Index]    = TvObjList->DataController->Values[nUpIdx][ColSeq->Index];
            TvObjList->DataController->Values[nCurIdx][ColId->Index]     = TvObjList->DataController->Values[nUpIdx][ColId->Index];
            TvObjList->DataController->Values[nCurIdx][ColType->Index]   = TvObjList->DataController->Values[nUpIdx][ColType->Index];
            TvObjList->DataController->Values[nCurIdx][ColData->Index]   = TvObjList->DataController->Values[nUpIdx][ColData->Index];
            TvObjList->DataController->Values[nCurIdx][ColIfscId->Index] = TvObjList->DataController->Values[nUpIdx][ColIfscId->Index];
            TvObjList->DataController->Values[nCurIdx][ColMem->Index]    = TvObjList->DataController->Values[nUpIdx][ColMem->Index];

            TvObjList->DataController->Values[nUpIdx][ColSeq->Index]    = sVal1;
            TvObjList->DataController->Values[nUpIdx][ColId->Index]     = sVal2;
            TvObjList->DataController->Values[nUpIdx][ColType->Index]   = sVal3;
            TvObjList->DataController->Values[nUpIdx][ColData->Index]   = sVal4;
            TvObjList->DataController->Values[nUpIdx][ColIfscId->Index] = sVal5;
            TvObjList->DataController->Values[nUpIdx][ColMem->Index]    = sVal6;

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

void __fastcall TFrmVmsMsgSendDispOld::BtnDownClick(TObject *Sender)
{
#if 0
    try
    {
        TvObjList->BeginUpdate();

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

        int nDnIdx = nCurIdx+1;

        try
        {
            String sVal1 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColSeq->Index]);
            String sVal2 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColId->Index]);
            String sVal3 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColType->Index]);
            String sVal4 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColData->Index]);
            String sVal5 = VarToStr(TvObjList->DataController->Values[nCurIdx][ColIfscId->Index]);
            int    sVal6 = (TvObjList->DataController->Values[nCurIdx][ColMem->Index]);

            TvObjList->DataController->Values[nCurIdx][ColSeq->Index]    = TvObjList->DataController->Values[nDnIdx][ColSeq->Index];
            TvObjList->DataController->Values[nCurIdx][ColId->Index]     = TvObjList->DataController->Values[nDnIdx][ColId->Index];
            TvObjList->DataController->Values[nCurIdx][ColType->Index]   = TvObjList->DataController->Values[nDnIdx][ColType->Index];
            TvObjList->DataController->Values[nCurIdx][ColData->Index]   = TvObjList->DataController->Values[nDnIdx][ColData->Index];
            TvObjList->DataController->Values[nCurIdx][ColIfscId->Index] = TvObjList->DataController->Values[nDnIdx][ColIfscId->Index];
            TvObjList->DataController->Values[nCurIdx][ColMem->Index]    = TvObjList->DataController->Values[nDnIdx][ColMem->Index];

            TvObjList->DataController->Values[nDnIdx][ColSeq->Index]    = sVal1;
            TvObjList->DataController->Values[nDnIdx][ColId->Index]     = sVal2;
            TvObjList->DataController->Values[nDnIdx][ColType->Index]   = sVal3;
            TvObjList->DataController->Values[nDnIdx][ColData->Index]   = sVal4;
            TvObjList->DataController->Values[nDnIdx][ColIfscId->Index] = sVal5;
            TvObjList->DataController->Values[nDnIdx][ColMem->Index]    = sVal6;

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

void __fastcall TFrmVmsMsgSendDispOld::BtnSaveClick(TObject *Sender)
{
#if 0
	if (EdFormId->Text.IsEmpty())
	{
        Application->MessageBox(lblText14->Caption.c_str(),//L"VMS Æû ÀúÀå\r\nVMS Æû ID¸¦ ÀÔ·ÂÇϼ¼¿ä.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}
	if (EdFormName->Text.Trim().IsEmpty())
	{
        Application->MessageBox(lblText15->Caption.c_str(),//L"VMS Æû ÀúÀå\r\nVMS Æû À̸§À» ÀÔ·ÂÇϼ¼¿ä.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}

    int                    nObjType;
    TVmsFormObject        *pObj;
    TcxGridDataController *pGDC = TvObjList->DataController;
    int                    nObjCnt = pGDC->RecordCount;

    String sFormId    = EdFormId->Text;
    //String sVmsType   = FVmsTypeCd;
    String sFormType  = APP_GetCode(CbFormKind);
    //String sFormColor = String(CbFormColor->ItemIndex);
    //String sName      = EdFormName->Text.Trim();
    //String sExpl      = EdFormDesc->Text.Trim();
    //String sDispDir   = APP_GetCode(CbFormDispDir);
    //String sDispMode  = APP_GetCode(CbFormDispMode);
    String sVALID_YN  = "Y";

    if (   sFormType == String(eFormtp_figure)
        || sFormType == String(eFormTp_atmp)
        || sFormType == String(eFormTp_park)
       )
    {
        for (int ii = 0; ii < nObjCnt; ii++)
        {
            String sObjSeq = VarToStr(pGDC->Values[ii][ColSeq->Index]);
            pObj = m_pEdtDesigner->FindObject(sObjSeq.ToInt());
            if (!pObj) continue;

            String sObjId = pObj->Tag;
            nObjType = pObj->ObjType.ToIntDef(0);
            if (nObjType ==  91 || nObjType ==  92)
            {
                //@ÃàÅëÇà½Ã°£(°íÁ¤), @Ãà¼ÒÅë»óȲ(°íÁ¤)
                TVmsIfsc *pIfscObj = VmsIfscManager->FLists.Find(sObjId.ToIntDef(-1));
                if (!pIfscObj)
                {
                    sVALID_YN = "N";
                    break;
                }
            }
            if (nObjType == 101 || nObjType == 102 || nObjType == 103 || nObjType == 104)
            {
                //@ÁÖÂ÷Àå¸í, @ÁÖÂ÷¸é¼ö, @ÁÖÂ÷°¡´É¸é¼ö, @ÁÖÂ÷È¥Àâµµ
                TCDSPark *pParkObj = CDSParkManager->FLists.Find(sObjId);
                if (!pParkObj)
                {
                    sVALID_YN = "N";
                    break;
                }
            }
            if (pObj->ObjType.ToIntDef(0) >= 401 && pObj->ObjType.ToIntDef(0) <= 413)
            {
                //´ë±âȯ°æ °üÃø¼Ò
                TCDSAtmp *pAtmpObj = CDSAtmpManager->FLists.Find(sObjId);
                if (pAtmpObj)
                {
#if 0
                    if (pAtmpObj->USE_YN != "Y")
                    {
                        sVALID_YN = "N";
                        break;
                    }
#endif
                }
                else
                {
                    sVALID_YN = "N";
                    break;
                }
            }
        }
    }
    if (sVALID_YN != "Y")
    {
        String sMsg;
        sMsg  = " \r\n";
        sMsg += "<<< VMS Æû °´Ã¼ Áß¿¡ ¼³Á¤µÇÁö ¾ÊÀº Á¤º¸°¡ ÀÖ½À´Ï´Ù. >>>\r\n";
        sMsg += "  *** VMS ½ºÄÉÁì ¼³Á¤È­¸é¿¡ Ç¥ÃâµÇÁö ¾Ê½À´Ï´Ù.\r\n";
        sMsg += "  *** VMS ½ºÄÉÁì ¸ñ·Ï¿¡ ÀÌ¹Ì µî·ÏµÇ¾î ÀÖ´Â °æ¿ì VMS ¸Þ½ÃÁö°¡ Ç¥ÃâµÇÁö ¾Ê½À´Ï´Ù.\r\n";
        sMsg += " VMS Æû Á¤º¸¸¦ ÀúÀå ÇϽðڽÀ´Ï±î?";
        sMsg += " \r\n";
        if (Application->MessageBox(sMsg.c_str(), L"VMS Æû À¯È¿¼º È®ÀÎ", MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES) return;
    }

    bool bResult = false;


    m_pEdtDesigner->GetVmsFormImage(ImgForm);
    bResult = SaveVmsForm(sVALID_YN);

    if (!bResult) return;

    String sQry;
    TADOQuery *pADO = NULL;

    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

    sQry = "DELETE TB_VMS_FORM_OBJECT  \r\n"
           " WHERE VMS_FORM_ID = :p01  \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", sFormId);
			pADO->ExecSQL();

    sQry = "INSERT INTO TB_VMS_FORM_OBJECT (            \r\n"
           "                VMS_FORM_OBJECT_ID,         \r\n" //N    NUMBER(5)    N            FORM OBJECT ID
           "                VMS_FORM_ID,                \r\n" //N    NUMBER(5)    N            VMS FORM ID
           "                VMS_FORM_DSPL_ROW,          \r\n" //N    NUMBER(2)    Y            VMS FORM Ç¥Ãâ Çà
           "                VMS_FORM_DSPL_CLMN,         \r\n" //N    NUMBER(2)    Y            VMS FORM Ç¥Ãâ Ä®·³
           "                VMS_FORM_OBJECT_TYPE_CD,    \r\n" //N    NUMBER(3)    N            VMS FORM OBJECT À¯Çü ÄÚµå
           "                VMS_FONT_NAME_CD,           \r\n" //N    NUMBER(3)    N            VMS ±Û²Ã À¯Çü ÄÚµå
           "                VMS_FONT_COLR_CD,           \r\n" //N    NUMBER(9)    N            VMS ±Û²Ã »ö»ó ÄÚµå
           "                VMS_FONT_BOLD,              \r\n" //N    NUMBER(3)    Y            VMS ±Û²Ã ¹æ½Ä ÄÚµå
           "                VMS_FONT_SIZE,              \r\n" //N    NUMBER(3)    Y    0        VMS ±Û²Ã Å©±â
           "                VMS_FONT_ALIGN,             \r\n" //N    NUMBER(1)    Y    0        VMS Ç¥Ãâ ¹®ÀÚ¿­Á¤¿­¹æ½Ä(0:LEFT,1:RIGHT,2:CENTER)
           "                VMS_DSPL_TXT,               \r\n" //N    VARCHAR2(200)    Y            VMS Ç¥Ãâ ÅؽºÆ®
           "                VMS_DSPL_FIGR,              \r\n" //N    BLOB    Y            VMS Ç¥Ãâ µµÇü
           "                VMS_DSPL_XCRDN,             \r\n" //N    NUMBER(5)    Y            VMS Ç¥Ãâ XÁÂÇ¥
           "                VMS_DSPL_YCRDN,             \r\n" //N    NUMBER(5)    Y            VMS Ç¥Ãâ YÁÂÇ¥
           "                VMS_DSPL_WIDTH,             \r\n" //N    NUMBER(5)    Y    0        VMS Ç¥Ãâ ³ÐÀÌ
           "                VMS_DSPL_HEIGHT,            \r\n" //N    NUMBER(5)    Y    0        VMS Ç¥Ãâ ³ôÀÌ
           "                VMS_DSPL_BLINKING,          \r\n" //N    NUMBER(1)    Y    0        VMS Ç¥Ãâ Á¡¸ê ¿©ºÎ(0:Áö¼Ó, 1:Á¡¸ê)
           "                VMS_DSPL_BKCOLOR,           \r\n" //N    NUMBER(1)    Y    0        VMS Ç¥Ãâ ¹è°æ»ö»óÄÚµå
           "                VMS_DSPL_SIZE,              \r\n" //N    NUMBER(7)    Y    0        VMS Ç¥Ãâ Å©±â(¹®ÀÚ:¹®ÀÚ±æÀÌ,À̹ÌÁö:À̹ÌÁöÀüüũ±â)
           "                TRFC_FILL_CD,               \r\n" //N    CHAR(1)    Y    'N'        FILL-IN ¸Þ½ÃÁö ¿©ºÎ
           "                SYMB_LIB_NMBR,              \r\n" //N    NUMBER(4)    N    0        ½É¹ú¶óÀ̺귯¸® ¹øÈ£
           "                VMS_IFSC_ID                 \r\n" //N    NUMBER(10)    N    0        VMS Á¤º¸Á¦°ø±¸°£ ID
           "                )                           \r\n"
           "  VALUES (                                  \r\n"
           "                :p01,                       \r\n" //N    NUMBER(5)    N            FORM OBJECT ID
           "                :p02,                       \r\n" //N    NUMBER(5)    N            VMS FORM ID
           "                0,                          \r\n" //N    NUMBER(2)    Y            VMS FORM Ç¥Ãâ Çà
           "                0,                          \r\n" //N    NUMBER(2)    Y            VMS FORM Ç¥Ãâ Ä®·³
           "                :p05,                       \r\n" //N    NUMBER(3)    N            VMS FORM OBJECT À¯Çü ÄÚµå
           "                :p06,                       \r\n" //N    NUMBER(3)    N            VMS ±Û²Ã À¯Çü ÄÚµå
           "                :p07,                       \r\n" //N    NUMBER(9)    N            VMS ±Û²Ã »ö»ó ÄÚµå
           "                :p08,                       \r\n" //N    NUMBER(3)    Y            VMS ±Û²Ã ¹æ½Ä ÄÚµå
           "                :p09,                       \r\n" //N    NUMBER(3)    Y    0        VMS ±Û²Ã Å©±â
           "                :p10,                       \r\n" //N    NUMBER(1)    Y    0        VMS Ç¥Ãâ ¹®ÀÚ¿­Á¤¿­¹æ½Ä(0:LEFT,1:RIGHT,2:CENTER)
           "                :p11,                       \r\n" //N    VARCHAR2(200)  Y            VMS Ç¥Ãâ ÅؽºÆ®
           "                :p12,                       \r\n" //N    BLOB           Y            VMS Ç¥Ãâ µµÇü
           "                :p13,                       \r\n" //N    NUMBER(5)      Y            VMS Ç¥Ãâ XÁÂÇ¥
           "                :p14,                       \r\n" //N    NUMBER(5)      Y            VMS Ç¥Ãâ YÁÂÇ¥
           "                :p15,                       \r\n" //N    NUMBER(5)      Y    0        VMS Ç¥Ãâ ³ÐÀÌ
           "                :p16,                       \r\n" //N    NUMBER(5)      Y    0        VMS Ç¥Ãâ ³ôÀÌ
           "                :p17,                       \r\n" //N    NUMBER(1)      Y    0        VMS Ç¥Ãâ Á¡¸ê ¿©ºÎ(0:Áö¼Ó, 1:Á¡¸ê)
           "                :p18,                       \r\n" //N    NUMBER(1)      Y    0        VMS Ç¥Ãâ ¹è°æ»ö»óÄÚµå
           "                :p19,                       \r\n" //N    NUMBER(7)      Y    0        VMS Ç¥Ãâ Å©±â(¹®ÀÚ:¹®ÀÚ±æÀÌ,À̹ÌÁö:À̹ÌÁöÀüüũ±â)
           "                :p23,                       \r\n" //N    CHAR(1)        Y    'N'        FILL-IN ¸Þ½ÃÁö ¿©ºÎ
           "                :p21,                       \r\n" //N    NUMBER(4)      N    0        ½É¹ú¶óÀ̺귯¸® ¹øÈ£
           "                :p22                        \r\n" //N    NUMBER(10)    N    0        VMS Á¤º¸Á¦°ø±¸°£ ID
           "                )                           \r\n";

            ITSDb_SQLText(pADO, sQry);

            ITSDb_GetConnection()->BeginTrans();

            for (int ii = 0; ii < nObjCnt; ii++)
            {
                String sObjSeq = VarToStr(pGDC->Values[ii][ColSeq->Index]);
                pObj = m_pEdtDesigner->FindObject(sObjSeq.ToInt());
                if (!pObj) continue;

                //ÀÌ·ÂÀ¸·Î Á¶È¸Çϴ°÷¿¡¼­ ÁÂÇ¥¸¦ 0x02·Î ÀúÀåÇϴµ¥ À½¼ö°¡ ³ª¿À´Â °æ¿ì
                //2ÀÚ¸®·Î 󸮰¡ µÇÁö ¾Ê±â ¶§¹®¿¡ ¿©±â¼­ ¸·¾ÆÁØ´Ù.
                if (pObj->Left < 0) pObj->Left = 0;
                if (pObj->Top  < 0) pObj->Top  = 0;

                nObjType = pObj->ObjType.ToIntDef(0);

                ITSDb_SQLBind(pADO, "p01", String(ii+1));

                ITSDb_SQLBind(pADO, "p02", sFormId);
                //ITSDb_SQLBind(pADO, "p03", );
                //ITSDb_SQLBind(pADO, "p04", );
                ITSDb_SQLBind(pADO, "p05", pObj->ObjType);
                ITSDb_SQLBind(pADO, "p06", pObj->FontNameCode);
                ITSDb_SQLBind(pADO, "p07", pObj->FontColorCode);
                if (pObj->FontBold)
                    ITSDb_SQLBind(pADO, "p08", "1");
                else
                    ITSDb_SQLBind(pADO, "p08", "0");

                ITSDb_SQLBind(pADO, "p09", String(pObj->FontSize));
                ITSDb_SQLBind(pADO, "p10", String(pObj->TextAlign));
                ITSDb_SQLBind(pADO, "p11", pObj->Text);
                ITSDb_SQLBind(pADO, "p13", String(pObj->GetLeft()));
                ITSDb_SQLBind(pADO, "p14", String(pObj->GetTop()));
                ITSDb_SQLBind(pADO, "p15", String(pObj->GetWidth()));
                ITSDb_SQLBind(pADO, "p16", String(pObj->GetHeight()));
                if (pObj->Blink)
                    ITSDb_SQLBind(pADO, "p17", "1");
                else
                    ITSDb_SQLBind(pADO, "p17", "0");
                ITSDb_SQLBind(pADO, "p18", pObj->BkColorCode);
                ITSDb_SQLBind(pADO, "p19", String(pObj->ObjSize));

                //ITSDb_SQLBind(pADO, "p20", );

                ITSDb_SQLBind(pADO, "p21", pObj->ImageId);

                String sIfscId = "";
                if (nObjType ==  91 || nObjType ==  92 ||
                    nObjType == 101 || nObjType == 102 || nObjType == 103 || nObjType == 104 ||
                   (nObjType >= 401 && nObjType <= 413)
                   )
                {
                    sIfscId = pObj->Tag;
                }
                if (sIfscId.Trim() == "N")
                {
                    sIfscId = "";
                }

                ITSDb_SQLBind(pADO, "p22", sIfscId);

                String sFillIn = "N";
                if (sFormType == "15")
                {
                    if (nObjType == 0 || nObjType == 1 || nObjType == 2)
                    {
                        sFillIn = pObj->Tag;
                    }
                }
                ITSDb_SQLBind(pADO, "p23", sFillIn);

                TMemoryStream *dataStream = NULL;
                TImage *pImg = pObj->GetImage();

                dataStream = new TMemoryStream();
                if (!pImg)
                {
                    ImgNull->Picture->Bitmap->SaveToStream(dataStream);
                }
                else
                {
                    pImg->Picture->Bitmap->SaveToStream(dataStream);
                }
                pADO->Parameters->ParamByName("p12")->LoadFromStream(dataStream, ftBlob);

                ITSDb_SQLExec(pADO);

                if (dataStream) delete dataStream;
                dataStream = NULL;
            }

            ITSDb_GetConnection()->CommitTrans();
            bResult = true;
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            DBERRORMSG("FrmVmsMsgMngr::BtnSaveClick", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            DBERRORMSG("FrmVmsMsgMngr::BtnSaveClick", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }

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

        FUpdate = true;

        CMM_SetGridRow(CxList, TvList, sFormId, Col01->Index);
        DisplayInfo();

        POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);

        //CComm_VmsFormUpdate();
    }

    //ReForm->Lines->Clear();
    //ReFormTemp->Lines->Clear();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::Cb99PropertiesChange(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
#if 1
    String sFormType  = APP_GetCode(CbFormKind);
    if (sFormType == "15")
    {
        String sFillIn = APP_GetCode(Cb99);
        if (sFillIn == "") sFillIn = "N";

        TVmsFormObject *pObj = m_pEdtDesigner->FindObject(EdObjSeq->Text.ToIntDef(-1), false);
        if (pObj)
        {
            int nObjType = pObj->ObjType.ToIntDef(-1);
            if (nObjType == 0 || nObjType == 1 || nObjType == 2)
            {
                pObj->Tag = sFillIn;
            }
        }
    }
#endif
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::CheckImageSelected()
{
#if 0
#ifdef IMAGE_RESIZE
    bool selImage = false;
    int  nImgW = 0;
    int  nImgH = 0;

    int nObjCnt = m_pEdtDesigner->GetObjectCount();
    for(int ii = 0; ii < nObjCnt; ii++)
    {
        TVmsFormObject *pObj = m_pEdtDesigner->GetObject(ii);
        if (!pObj) continue;
        if (!pObj->Selected) continue;

#if 0
        if (pObj->ObjType.ToIntDef(0) == 1 || pObj->ObjType.ToIntDef(0) == 2)
        {
            selImage = true;
            nImgW = pObj->GetWidth();
            nImgH = pObj->GetHeight();
        }
        else
        {
            selImage = false;
            break;
        }
#else
        switch(pObj->ObjType.ToIntDef(0))
        {
        case   1: //½Éº¼
        case   2: //À̹ÌÁö
        case   3: //¼ÒÅëÁ¤º¸¹è°æÀ̹ÌÁö
        case  17: //¼ÒÅëÁ¤º¸À̹ÌÁö1
        case  27: //¼ÒÅëÁ¤º¸À̹ÌÁö2
        case  37: //¼ÒÅëÁ¤º¸À̹ÌÁö3
        case  47: //¼ÒÅëÁ¤º¸À̹ÌÁö4
        case 167: //@¿ìȸ¼ÒÅëÁ¤º¸À̹ÌÁö
        case 200: //µ¿¿µ»óÀ̹ÌÁö
        case 300: //½ºÆ®¸®¹Ö¿µ»óÀ̹ÌÁö
        case 406: //@ÅëÇÕ´ë±âµî±Þ À̹ÌÁö
        case 407: //@¹Ì¼¼¸ÕÁöµî±Þ À̹ÌÁö
        case 408: //@Ãʹ̼¼¸ÕÁöµî±Þ À̹ÌÁö
        case 413: //@¿ÀÁ¸µî±ÞÀ̹ÌÁö
            selImage = true;
            nImgW = pObj->GetWidth();
            nImgH = pObj->GetHeight();
            break;
        default:
            selImage = false;
            break;
        }
        if (selImage == false)
        {
            break;
        }
#endif
    }
    if (selImage)
    {
        TNotifyEvent evtW = SeImgW->Properties->OnChange;
        TNotifyEvent evtH = SeImgH->Properties->OnChange;
        SeImgW->Properties->OnChange = NULL;
        SeImgH->Properties->OnChange = NULL;

        SeImgW->Value = nImgW;
        SeImgH->Value = nImgH;

        SeImgW->Properties->OnChange = evtW;
        SeImgH->Properties->OnChange = evtH;

        PnlImage->Visible = true;
    }
    else
    {
        PnlImage->Visible = false;
    }
#endif
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::SeImgWHPropertiesChange(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    if (((TcxSpinEdit*)Sender)->Value < ((TcxSpinEdit*)Sender)->Properties->MinValue)
        ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MinValue;
    else if(((TcxSpinEdit*)Sender)->Value > ((TcxSpinEdit*)Sender)->Properties->MaxValue &&
        ((TcxSpinEdit*)Sender)->Properties->MaxValue)
        ((TcxSpinEdit*)Sender)->Value = ((TcxSpinEdit*)Sender)->Properties->MaxValue;

#ifdef IMAGE_RESIZE
    int nImgW = SeImgW->Value;
    int nImgH = SeImgH->Value;

    int nObjCnt = m_pEdtDesigner->GetObjectCount();
    for(int ii = 0; ii < nObjCnt; ii++)
    {
        TVmsFormObject *pObj = m_pEdtDesigner->GetObject(ii);
        if (!pObj) continue;
        if (!pObj->Selected) continue;

#if 0
        if (pObj->ObjType.ToIntDef(0) == 1 || pObj->ObjType.ToIntDef(0) == 2)
        {
            pObj->GetImage()->AutoSize= false;
            pObj->GetImage()->Stretch = true;
            pObj->GetImage()->Width  = nImgW;
            pObj->GetImage()->Height = nImgH;
            pObj->SetSize(nImgW, nImgH);
        }
#else
        switch(pObj->ObjType.ToIntDef(0))
        {
        case   1: //½Éº¼
        case   2: //À̹ÌÁö
        case   3: //¼ÒÅëÁ¤º¸¹è°æÀ̹ÌÁö
        case  17: //¼ÒÅëÁ¤º¸À̹ÌÁö1
        case  27: //¼ÒÅëÁ¤º¸À̹ÌÁö2
        case  37: //¼ÒÅëÁ¤º¸À̹ÌÁö3
        case  47: //¼ÒÅëÁ¤º¸À̹ÌÁö4
        case 167: //@¿ìȸ¼ÒÅëÁ¤º¸À̹ÌÁö
        case 200: //µ¿¿µ»óÀ̹ÌÁö
        case 300: //½ºÆ®¸®¹Ö¿µ»óÀ̹ÌÁö
        case 406: //@ÅëÇÕ´ë±âµî±Þ À̹ÌÁö
        case 407: //@¹Ì¼¼¸ÕÁöµî±Þ À̹ÌÁö
        case 408: //@Ãʹ̼¼¸ÕÁöµî±Þ À̹ÌÁö
        case 413: //@¿ÀÁ¸µî±ÞÀ̹ÌÁö
            pObj->GetImage()->AutoSize= false;
            pObj->GetImage()->Stretch = true;
            pObj->GetImage()->Width  = nImgW;
            pObj->GetImage()->Height = nImgH;
            pObj->SetSize(nImgW, nImgH);
            break;
        default:
            break;
        }
#endif
    }
#endif
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnCopyAdd212Click(TObject *Sender)
{
#if 0
    int nIdx = TvList->DataController->FocusedRecordIndex;
    if (nIdx < 0) return;

#if 0
	String sFormName = InputBox(lblText9->Caption,//"Æû¸íĪ",
                                lblText10->Caption,//"½Å±Ô Æû¸íĪ ÀÔ·ÂÇϼ¼¿ä(60Byte).",
                                EdFormName->Text);//lblText9->Caption);//"Æû¸íĪ" );

    sFormName = sFormName.Trim();
	if (sFormName == lblText9->Caption//"Æû¸íĪ"
     || sFormName == "")
#else
    String sFormName = EdFormName->Text;
	bool bInput = InputQuery(lblText9->Caption,//"Æû¸íĪ",
                                lblText10->Caption,//"½Å±Ô Æû¸íĪ ÀÔ·ÂÇϼ¼¿ä(60Byte).",
                                sFormName);//lblText9->Caption);//"Æû¸íĪ" );
	if (!bInput || sFormName == "")
#endif
	{
		return;
	}
	if (AnsiString(sFormName).Length() > 60)
	{
        Application->MessageBox(lblText11->Caption.c_str(),//L"Æû¸íĪÀº  60Byte¸¦ ÃÊ°úÇÒ ¼ö ¾ø½À´Ï´Ù.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}

    String sFormId = EdFormId->Text;

    if (sFormId.IsEmpty())
    {
        Application->MessageBox(lblText12->Caption.c_str(),//L"VMS Æû º¹»ç Ãß°¡\r\nº¹»ç Ãß°¡ÇÒ VMS ÆûÀ» ¸ñ·Ï¿¡¼­ ¼±ÅÃÇϼ¼¿ä.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

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

    if (CopyFormAdd212(sFormId, String(nFormId), sFormName))
    {
        Application->MessageBox(lblText13->Caption.c_str(),//L"VMS Æû º¹»ç Ãß°¡\r\nVMS Æû Á¤º¸¸¦ º¹»ç Ãß°¡ ÇÏ¿´½À´Ï´Ù.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

        FUpdate = true;

        CMM_SetGridRow(CxList, TvList, String(nFormId), Col01->Index);
        DisplayInfo();

        POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);

        //CComm_VmsFormUpdate();
    }
#endif
}
//---------------------------------------------------------------------------
bool __fastcall TFrmVmsMsgSendDispOld::CopyFormAdd212(String AOrgFormId, String ANewFormId, String AFormName)
{
    bool       bResult = false;
    return bResult;
}

void __fastcall TFrmVmsMsgSendDispOld::PgEditClick(TObject *Sender)
{
#if 0
    try
    {
        if (PgEdit->Properties->ActivePage == TsDirect)
        {
            if (ReForm->Enabled) ReForm->SetFocus();
        }
    }
    catch(Exception &e)
    {
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtrnReFormClearClick(TObject *Sender)
{
    //ReForm->Lines->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnRedClick(TObject *Sender)
{
#if 0
    TcxButton *pClrBtn = (TcxButton*)Sender;
    switch(pClrBtn->Tag)
    {
        case 0 : ReForm->SelAttributes->Color = clLime;     break;
        case 1 : ReForm->SelAttributes->Color = clYellow;   break;
        case 2 : ReForm->SelAttributes->Color = clRed;      break;
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnObjLimeClick(TObject *Sender)
{
#if 0
    if (m_bEdit) return;
    //if (m_pEdtDesigner->GetSelectedObjectCount() < 1) return;
    TcxButton *pClrBtn = (TcxButton*)Sender;
    m_pEdtDesigner->SetObejctFontColorCode(String(pClrBtn->Tag));
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnObjDeleteAllClick(TObject *Sender)
{
#if 0

	String sMsgString;
    sMsgString  = "Àüü °´Ã¼ Á¤º¸¸¦ ¸ðµÎ »èÁ¦ÇϽðڽÀ´Ï±î?";
    if (Application->MessageBox(sMsgString.c_str(),
                                lblText7->Caption.c_str(),//L"°´Ã¼ Á¤º¸ »èÁ¦",
                                MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES)
    {
        return;
    }

    bool bUse = false;
    TVmsFormObject *pObj;
    int nObjCnt = m_pEdtDesigner->GetObjectCount();
    for (int ii = nObjCnt-1; ii >= 0; ii--)
    {
        pObj = m_pEdtDesigner->GetObject(ii);
        TVmsObjUse*pObjUse = MyUseManager->FLists.Find(pObj->ObjSeq);
        if (pObjUse)
        {
            bUse = true;
            continue;
        }
        m_pEdtDesigner->DelObject(ii);
    }

    if (bUse)
    {
        Application->MessageBox(lblText8->Caption.c_str(),//L"VMS Æû °´Ã¼ »èÁ¦\r\nVMS Æû °´Ã¼ Áß Á¤º¸Á¦°ø±¸°£¿¡ ¼³Á¤µÈ °´Ã¼´Â »èÁ¦ÇÒ ¼ö ¾ø½À´Ï´Ù.",
                                FTitle.c_str(),
                                MB_OK|MB_ICONERROR|MB_APPLMODAL);
    }

    SelObjectListData();
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgSendDispOld::BtnAllSelectClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;
    CMM_CheckAllListItem(TvList, ColumnSel->Index, pBtn->Tag);
}
//---------------------------------------------------------------------------