ITS_OP/VmsMsgFormMngr/SRC/FrmVmsMsgFormMngrF.cpp

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

#include <vcl.h>
#include <IOUtils.hpp>
#include <jpeg.hpp>
#include <GIFimg.hpp>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "AppGlobalF.h"
#include "CDSFontF.h"
#include "CDSVmsIfscF.h"
#include "CDSVmsFormF.h"
#include "CDSVmsTextItemF.h"
#pragma hdrstop

#include "FrmVmsMsgFormMngrF.h"
#include "VMSM510MF.h"
#include "VMSM520MF.h"
#include "VMSM530MF.h"
#include "VMSM540MF.h"
#include "VMSM580MF.h"
#include "VMSM570MF.h"
#include "VMSM590MF.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 link "dxGDIPlusClasses"
#pragma resource "*.dfm"

TFrmVmsMsgFormMngr *FrmVmsMsgFormMngr = NULL;
// ---------------------------------------------------------------------------

__fastcall TFrmVmsMsgFormMngr::TFrmVmsMsgFormMngr(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;

    FListSymb = new TList;

    EditMode = false;
    FTrafBackSymb = false;

    PgEdit->ActivePage = TsEdit;
    // PgFormTab->ActivePage = TsForm;

    // BtnSaveImgFile->Caption = "Save form image";
    // BtnSaveImgFile->Hint = "Save the form as an image file.";

    // FSelObjType = eSelObjNone;

    PnlObjSymb->Align = alClient;
    PnlObjText->Align = alClient;

    // TvList->FilterRow->ApplyChanges = fracDelayed;//fracImmediately;
    TvList->OptionsBehavior->ShowLockedStateImageOptions->Filtering = lsimNever;
    BtnLime->LookAndFeel->NativeStyle = false;
    BtnLime->LookAndFeel->SkinName = "";
    BtnYellow->LookAndFeel->NativeStyle = false;
    BtnYellow->LookAndFeel->SkinName = "";
    BtnRed->LookAndFeel->NativeStyle = false;
    BtnRed->LookAndFeel->SkinName = "";

    BtnObjLime->LookAndFeel->NativeStyle = false;
    BtnObjLime->LookAndFeel->SkinName = "";
    BtnObjYellow->LookAndFeel->NativeStyle = false;
    BtnObjYellow->LookAndFeel->SkinName = "";
    BtnObjRed->LookAndFeel->NativeStyle = false;
    BtnObjRed->LookAndFeel->SkinName = "";

    FLastImageFileName = "";

    FSymbFmtLists.Push("bmp", new TSymbFmt("bmp", "bmp"));
    // FSymbFmtLists.Push("jpg", new TSymbFmt("jpg", "jpg"));
    // FSymbFmtLists.Push("jpge", new TSymbFmt("jpge", "jpg"));
    // FSymbFmtLists.Push("png", new TSymbFmt("png", "png"));
    // FSymbFmtLists.Push("avi", new TSymbFmt("avi", "avi"));
    // FSymbFmtLists.Push("ico", new TSymbFmt("ico", "ico"));
    // FSymbFmtLists.Push("gif", new TSymbFmt("gif", "gif"));
}

// ---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgFormMngr::SetColorScheme(String ASkinName)
{
    dxSkinController1->SkinName = ASkinName;
    dxSkinController1->Refresh();
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::CommClose()
{
    try
    {
        if (m_pEdtDesigner)
        {
            delete m_pEdtDesigner;
            m_pEdtDesigner = NULL;
        }

        APP_DelVmsSizeCombo(CbSizeType);

        ClearSymbloList();
        SAFE_DELETE(FListSymb);

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

void __fastcall TFrmVmsMsgFormMngr::FormCreate(TObject *Sender)
{
    ScrollBox1->ParentColor = true;

    InitDbLoading();

    m_pEdtDesigner = new TVmsFormDesigner(PnlEditForm);

    FOR_STL(TCDSFontColor*, pObj, CDSFontManager->FFontColors)
    {
        m_pEdtDesigner->InitFontColor(pObj->VMS_FONT_COLR_CD, (TColor)pObj->VMS_FONT_COLR_VAL);
    }

    FOR_STL(TCDSBackColor*, pObj, CDSFontManager->FBackColors)
    {
        m_pEdtDesigner->InitBackColor(pObj->VMS_BACK_COLR_CD, (TColor)pObj->VMS_BACK_COLR_VAL);
    }

    FOR_STL(TCDSFontName*, pObj, CDSFontManager->FFontNames)
    {
        m_pEdtDesigner->InitFontName(pObj->VMS_FONT_NAME_CD, pObj->VMS_FONT_NAME_NM);
    }
}

// ---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgFormMngr::InitDbLoading()
{
    // INITDATA
    Application->ProcessMessages();
    if (!VmsCtlrManager)
    {
        VmsCtlrManager = new TVmsCtlrManager();
    }
    VmsCtlrManager->LoadVmsModlSize();
    VmsCtlrManager->LoadFromDb();

    if (SysCodeManager == NULL)
    {
        SysCodeManager = new TSysCodeManager();
    }
    SysCodeManager->LoadFromDb();

    if (!VmsTextItemManager)
    {
        VmsTextItemManager = new TVmsTextItemManager();
    }
    VmsTextItemManager->LoadFromDb();

    if (!CDSFontManager)
    {
        CDSFontManager = new TCDSFontManager();
    }
    CDSFontManager->LoadFontInfo();

    APP_InitDisplayColor();
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::FormShow(TObject *Sender)
{
    ::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 TFrmVmsMsgFormMngr::FormInit()
{
    // TvList->OptionsView->NoDataToDisplayInfoText = "<등록되어 있는 폼 정보가 없습니다>";

    m_pEdtDesigner->ApplicationHandle = (long)Handle;

    // VMS사이즈
    APP_FillVmsSizeType(CbSizeType, false);

    // 폼유형
    APP_FillCode(CbFormType, "VMS_FORM_TYPE_CD");
    // 표출방법
    APP_FillCode(CbFormDsplEff, "VMS_FORM_DSPL_EFF_CD");
    // 폼객체종류
    APP_FillCode(CbObjKind, "VMS_FORM_OBJ_KIND_CD");
    CbObjKind->ItemIndex = -1;

    FormObjectInit();

    ReForm->Paragraph->Numbering = nsNone;
    ReForm->Paragraph->Alignment = taCenter; // enum TAlignment { taLeftJustify, taRightJustify, taCenter };

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

void __fastcall TFrmVmsMsgFormMngr::FormObjectInit()
{
    // TvObjList->OptionsView->NoDataToDisplayInfoText = "<등록되어 있는 객체 정보가 없습니다>";

    m_bEdit = false;

    PnlEdtBack->Left = 6;
    PnlEdtBack->Top = 4;

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

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

    // 폼색상
    CbFormBkClr->Items->Clear();
    CbObjBkClr->Items->Clear();

    FOR_STL(TCDSBackColor*, pObj, CDSFontManager->FBackColors)
    {
        CbFormBkClr->Items->AddObject("", (TObject*)pObj->VMS_BACK_COLR_VAL);
        CbObjBkClr->Items->AddObject("", (TObject*)pObj->VMS_BACK_COLR_VAL);
    }
    CbFormBkClr->ItemIndex = 0;
    CbObjBkClr->ItemIndex = 0;
    // CbFormBkClr->Items->AddObject("", (TObject*)clBlack);
    // CbFormBkClr->Items->AddObject("", (TObject*)clRed);
    // CbFormBkClr->Items->AddObject("", (TObject*)clLime);
    // CbFormBkClr->Items->AddObject("", (TObject*)clYellow);

    // 객체배경색상
    // CbObjBkClr->Items->AddObject("", (TObject*)clBlack);
    // CbObjBkClr->Items->AddObject("", (TObject*)clRed);
    // CbObjBkClr->Items->AddObject("", (TObject*)clLime);
    // CbObjBkClr->Items->AddObject("", (TObject*)clYellow);

    // 문자열색상
    CbFontClr->Items->Clear();

    FOR_STL(TCDSFontColor*, pObj, CDSFontManager->FFontColors)
    {
        CbFontClr->Items->AddObject(pObj->VMS_FONT_COLR_NM, (TObject*)pObj->VMS_FONT_COLR_VAL);
        // CbFontClr->Items->AddObject("", (TObject*)pObj->VMS_FONT_COLR_VAL);
    }
    CbFontClr->ItemIndex = 0;
    // 직접입력 문자열색상
    CbFontColorRe->Items->Clear();
    CbFontColorRe->Items = CbFontClr->Items;
    CbFontColorRe->ItemIndex = 0;

    // VMS Font
    APP_FillCode(CbFontName, "FONT_KIND_CD");
    APP_FillCode(CbFontNameRe, "FONT_KIND_CD");
    APP_SetCode(CbFontNameRe, "02");    // 굴림체

    CbFillIn->Properties->Items->Clear();
    CbFillIn1->Properties->Items->Clear();
    CbTextFillIn->Properties->Items->Clear();

    CbFillIn->Properties->Items->AddObject("문자열(Fill In) 추가", (TObject*)NULL);
    CbFillIn1->Properties->Items->AddObject("-Fill In-", (TObject*)NULL);
    CbTextFillIn->Properties->Items->AddObject("-문자열 속성-", (TObject*)NULL);

    FOR_STL(TVmsTextItem*, pObj, VmsTextItemManager->FLists)
    {
        CbTextFillIn->Properties->Items->Add(" [" + pObj->TXT_ITEM_ID + "] " + pObj->TXT_ITEM_FILLIN);
        if (pObj->TXT_ITEM_ID == DFLT_TEXT_TYPE)
        {
            continue;
        }
        CbFillIn->Properties->Items->AddObject(pObj->TXT_ITEM_FILLIN, (TObject*)pObj);
        CbFillIn1->Properties->Items->AddObject(pObj->TXT_ITEM_FILLIN, (TObject*)pObj);
    }

    CbFillIn->ItemIndex = 0;
    CbFillIn1->ItemIndex = 0;
    CbTextFillIn->ItemIndex = 0;
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    CbSizeType->ItemIndex = -1;
    CbSizeType->ItemIndex = 0;
}
// ---------------------------------------------------------------------------

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

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

void __fastcall TFrmVmsMsgFormMngr::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    if (FUpdate)
    {
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnEditClick(TObject *Sender)
{
    if (BtnEdit->Caption == "편집")
    {
        ChangeEditMode(0);
        // m_pEdtDesigner->SetEditMode(true);
        // m_pEdtDesigner->EditMode = true;
        FNewDb = false;
    }
    else
    {
        String sId = EdFormId->Text;
        ChangeEditMode(1);

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

void __fastcall TFrmVmsMsgFormMngr::ChangeEditMode(int AEdit)
{
    bool bEnabled = false;
    CbFormType->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;
            // CbFormType->Enabled = true;
        }break;
    case 3: // 수정모드
        {
            BtnEdit->Enabled = true;
            BtnInsert->Enabled = true;
            BtnDelete->Enabled = true;
            BtnCopyAdd->Enabled = true;
            // BtnCopyAdd212->Enabled = true;
            BtnCopyAdd212->Enabled = FIsAddModlForm;
            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)
    {
        GrpList->Enabled = false;
        PnlEdtBack->Enabled = true;
    }
    else
    {
        GrpList->Enabled = true;
        PnlEdtBack->Enabled = false;
    }
    PnlFormInfo->Enabled = EditMode;
    PnlObjProperty->Enabled = EditMode;
    PnlFormObjCmd->Enabled = EditMode;
    BtnReApply->Enabled = EditMode;

    BtnCopyAdd212->Visible = FIsCopyModlKind;
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnInsertClick(TObject *Sender)
{
    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;
    }

    if (sFormType == FORM_TYPE_EMER || sFormType == FORM_TYPE_PUBR)
    {
        if (!BtnAddFormObj->Enabled)
        {
            // ReForm->Lines->Clear();
            // BtnAddFormObj->Enabled = false;
            BtnAddFormObj->Enabled = true;
        }
        MnuCctv->Visible = false;
        CbFillIn->Enabled = false;
        CbFillIn1->Enabled = false;
    }
    else
    {
        if (!BtnAddFormObj->Enabled)
        {
            BtnAddFormObj->Enabled = true;
        }
        MnuCctv->Visible = true;
        CbFillIn->Enabled = true;
        CbFillIn1->Enabled = true;
    }
    String sFontCode = APP_GetCode(CbFontNameRe);
    String sFontName = APP_GetCodeName(CbFontNameRe);
    ReForm->SelAttributes->Name = sFontName;
    ReForm->Font->Name = sFontName;
    ReForm->Font->Size = SeFontSizeRe->Value;

    String newFormId = GetNextVmsFormId(sFormType.SubString(1, 1));

    FormClear();

    EdFormId->Text = newFormId;

    ChangeEditMode(2);
    FNewDb = true;

    // 폼유형을 설정
    APP_SetCode(CbFormType, sFormType);
    CbFormDsplEff->ItemIndex = CbFormDsplEff->Properties->Items->Count - 1;
    EdFormName->SetFocus();
}
// ---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgFormMngr::AddDefFormObject(String AFontName, int AFontSize, String AFontColor, int AObjType,
    String AText, int ASize, int APosX, int APosY, int AAlign /* =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 = "00"; // 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);
    return true;
}
// ---------------------------------------------------------------------------

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

    // 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;
        }
    }

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

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

    String sFormId = EdFormId->Text;
    String sFormNm = EdFormName->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 = "VMS 메시지 삭제 확인\r\n\r\n";
    sMsg += "VMS 메시지ID: " + sFormId;
    sMsg += "\r\nVMS 메시지명: " + sFormNm;
    sMsg += "\r\n\r\n선택하신 VMS 폼 정보를 삭제하시겠습니까?";

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

    ITSDb_GetConnection()->BeginTrans();
    if (DelVmsForm(sFormId))
    {
        ITSDb_GetConnection()->CommitTrans();
        FUpdate = true;

        Application->MessageBox(L"VMS 메시지 폼 삭제\r\nVMS 메시지 폼 정보를 삭제 하였습니다.", FTitle.c_str(), MB_OK | MB_ICONINFORMATION | MB_APPLMODAL);

        FormClear();
        ChangeEditMode(1);

        LoadVmsForm();
    }
    else
    {
        ITSDb_GetConnection()->RollbackTrans();
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnSaveImgFileClick(TObject *Sender)
{
    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);
        }
    }
}
// ---------------------------------------------------------------------------

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

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

    DisplayInfo();
}
// ---------------------------------------------------------------------------

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

void __fastcall TFrmVmsMsgFormMngr::CbSizeTypePropertiesChange(TObject *Sender)
{
    FIsLcsModl = false;
    FIsCopyModlKind = false;

    EdSizeType->Text = CbSizeType->Text;
    BtnSearchClick(NULL);
    CxList->SetFocus();

    if (FIsLcsModl)
    {
        BtnFitSize->Caption = "Fit Modl";
        BtnFitSize->Hint = "모듈 사이즈에 맞게 이미지 위치 자동 조정";
        BtnFitSize->Tag = 1;
    }
    else
    {
        BtnFitSize->Caption = "Fit Size";
        BtnFitSize->Hint = "모듈 사이즈에 맞게 이미지 크기 자동 조정";
        BtnFitSize->Tag = 0;
    }

    if (FVmsModlKind == "C0312_32" || FVmsModlKind == "F0312_32" || FVmsModlKind == "F0315_32" || FVmsModlKind ==
        "F1824_16" || FVmsModlKind == "F2026_16")
    {
        FIsCopyModlKind = true;
    }
}
// ---------------------------------------------------------------------------

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

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

void __fastcall TFrmVmsMsgFormMngr::RefreshData()
{
    // 검색조건에 의한 링크 데이터 조회
    TvList->DataController->Filter->Clear();
    FormClear();
    LoadVmsForm();
}

// ---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgFormMngr::FormClear()
{
    // FSelObjType = eSelObjNone;

    FSelIdx = -1;

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

    EdFormId->Clear();
    EdFormName->Clear();

    CbFormType->ItemIndex = 0;
    CbFormDsplEff->ItemIndex = 1;
    CbFormBkClr->ItemIndex = 0;

    FormObjectClear();

    // 도형셀 클리어
    FFormObjCellMap.RemoveAll();

    FNewDb = false;
}

// ---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgFormMngr::FormObjectClear()
{
    m_pEdtDesigner->Clear();
    CMM_ClearGridTableView(TvObjList);
    // ReForm->Lines->Clear();
    EdDsplTxt->Text = "";
    EdPictNm->Text = "";
    SeLeft->Value = 0;
    SeTop->Value = 0;
    ChkBlinking->Checked = false;
    SeObjW->Value = 0;
    SeObjH->Value = 0;
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::DisplayInfo()
{
    // TcxTabSheet* pActive = PgFormTab->ActivePage;

    FIsAddModlForm = false;
    try
    {
        LockWindowUpdate(Handle);

        FormClear();

        PgEdit->ActivePage = TsEdit;

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

        DisplayFormInfo(FSelIdx);

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

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

void __fastcall TFrmVmsMsgFormMngr::DisplayFormInfo(int AIdx)
{
    TcxGridDataController *pDc = TvList->DataController;

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

    EdSizeType->Text = CbSizeType->Text;

    EdFormId->Text = VarToStr(pDc->Values[AIdx][ColVMS_FORM_ID->Index]);
    EdFormName->Text = VarToStr(pDc->Values[AIdx][ColVMS_FORM_NM->Index]);
    CbFormBkClr->ItemIndex = CDSFontManager->GetBackColorIndex
        (VarToStr(pDc->Values[AIdx][ColBACK_CLR->Index]).ToIntDef(0));

    m_sFormTypeCd = VarToStr(pDc->Values[AIdx][ColVMS_FORM_TYPE->Index]);
    APP_SetCode(CbFormType, m_sFormTypeCd);
    APP_SetCode(CbFormDsplEff, VarToStr(pDc->Values[AIdx][ColDSPL_EFF->Index]));

    m_pEdtDesigner->BkColorCode = VarToStr(pDc->Values[AIdx][ColBACK_CLR->Index]);
    // CDSFontManager->GetBackColorCode((int)CbFormBkClr->Selected);

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

    SelObjectListData();

    if (FFormObjCellMap.Size() > 0)
    {
        BtnTrafFillIn->Font->Style = TFontStyles() << fsBold;
    }
    else
    {
        BtnTrafFillIn->Font->Style = TFontStyles();
    }

    FVmsFormId = VarToStr(pDc->Values[AIdx][ColVMS_FORM_ID->Index]);
    FVmsFormType = VarToStr(pDc->Values[AIdx][ColVMS_FORM_TYPE->Index]);

    FIsAddModlForm = false;
    if (FIsCopyModlKind)
    {
        FIsAddModlForm = (FVmsFormType == FORM_TYPE_EMER || FVmsFormType == FORM_TYPE_PUBR);
    }
}
// ---------------------------------------------------------------------------

String __fastcall TFrmVmsMsgFormMngr::FindObjectKindName(String AObjKind, String AFillIn)
{
    if (AFillIn != NULL && AFillIn != "")
    {
        TVmsTextItem *pObj = VmsTextItemManager->FLists.Find(AFillIn);
        if (pObj != NULL)
        {
            return pObj->TXT_ITEM_NM;
        }
    }

    TSysClssCode *pSysClssCd = SysCodeManager->FLists.Find("VMS_FORM_OBJ_KIND_CD");
    if (pSysClssCd)
    {
        TSysCode *pSysCode = pSysClssCd->FLists.Find(AObjKind);
        if (pSysCode != NULL)
        {
            return pSysCode->CD_NM;
        }
    }
    return "--???--";
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::FnFormObjectSelected(TMessage &Msg)
{
    m_bEdit = true;

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

        String sFormType = APP_GetCode(CbFormType);

        String sObjKind = pObj->ObjType;
        APP_SetCode(CbObjKind, sObjKind);

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

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

        if (sObjKind == FORM_OBJ_KIND_CCTV)
        {
            EdPictNm->Text = pObj->Text;
        }
        else if (sObjKind == FORM_OBJ_KIND_TEXT)
        {
            APP_SetCode(CbObjKind, pObj->ObjKind);
            APP_SetCode(CbTextFillIn, pObj->FillIn);
            CbFontClr->ItemIndex = CDSFontManager->GetFontColorIndex(pObj->FontColorCode);
            SeFontSize->Value = pObj->FontSize;
            ChkFontBold->Checked = pObj->FontBold;
            CbTextAlign->ItemIndex = pObj->TextAlign;
            APP_SetCode(CbFontName, pObj->FontNameCode);

            if (EdDsplTxt->Text != pObj->Text)
            {
                EdDsplTxt->Text = pObj->Text;
            }
#if 0
            if (pObj->FillIn == DFLT_TEXT_TYPE)
            {
                // 기타문자열
                EdDsplTxt->Properties->ReadOnly = false;
            }
            else
            {
                // Fill In
                EdDsplTxt->Properties->ReadOnly = true;
            }
#endif
        }

        EdPictNm->Text = pObj->Text;
        SeObjW->Value = pObj->GetWidth();
        SeObjH->Value = pObj->GetHeight();

        if (pObj->DrawType == odtText)
        {
            APP_SetCode(CbFontName, pObj->FontNameCode);
            CbFontClr->ItemIndex = CDSFontManager->GetFontColorIndex(pObj->FontColorCode);
            SeFontSize->Value = pObj->FontSize;
            ChkFontBold->Checked = pObj->FontBold;
            CbTextAlign->ItemIndex = pObj->TextAlign;

        }
        else
        {
            APP_SetCode(CbObjKind, pObj->ObjType);
            if (EdDsplTxt->Text != pObj->Text)
                EdDsplTxt->Text = pObj->Text;
        }

        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;
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::TvObjListFocusedRecordChanged(TcxCustomGridTableView *Sender,
    TcxCustomGridRecord *APrevFocusedRecord, TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
{
    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)
    {
#if 0
        String sObjKind = pObj->ObjType;
        APP_SetCode(CbObjKind, sObjKind);
        ChangeFormObjectPanel(sObjKind);
        EdObjId->Text = pObj->ObjId;
        SeLeft->Value = pObj->GetLeft();
        SeTop->Value = pObj->GetTop();
#endif
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::SelObjectListData()
{
    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;
}
// ---------------------------------------------------------------------------

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

    String sFormType = APP_GetCode(CbFormType);
    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][ColObjKind->Index] = FindObjectKindName(pObj->ObjType, pObj->FillIn);
        pGDC->Values[nAddRow][ColData->Index] = pObj->Text;

        // 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][ColObjMem->Index] = (int)pObj;
    }
    __finally
    {
        pGDC->EndUpdate();
        TvObjList->EndUpdate();
        if (bSelect && pGDC->RecordCount > 0)
            if (nAddRow >= 0)
                pGDC->FocusedRecordIndex = nAddRow;
    }
}
// ---------------------------------------------------------------------------

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

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

void __fastcall TFrmVmsMsgFormMngr::SeFontSizeRePropertiesChange(TObject *Sender)
{
    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;
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnDirectEditFontClick(TObject *Sender)
{
    SeFontSizeRe->Value = ((TcxButton*)Sender)->Caption.Trim().ToIntDef(16);
    // ReForm->SelAttributes->Size = ((TcxButton*)Sender)->Caption.Trim().ToIntDef(16);
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::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 TFrmVmsMsgFormMngr::CbFontNameReClick(TObject *Sender)
{
    String sFontCode = APP_GetCode(CbFontNameRe);
    String sFontName = APP_GetCodeName(CbFontNameRe);
    ReForm->SelAttributes->Name = sFontName;
}
// ---------------------------------------------------------------------------

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

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

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

void __fastcall TFrmVmsMsgFormMngr::BtnReApplyClick(TObject *Sender)
{
    BtnPreviewClick(NULL);

    m_pEdtDesigner->AddDrawFormToVmsForm(ReForm, ImgEdtPreview);

    /*
     *  신규로 등록한 객체의 객체타입과 폰트코드를 업데이트 한다.
     */
    // CbVmsObjType->ItemIndex = 0;   // For 고정문자열
    // String sObjType  = APP_GetCode(CbVmsObjType);
    String sFormType = APP_GetCode(CbFormType);

    TVmsFormObject *pObj;
    int nObjCnt = m_pEdtDesigner->GetObjectCount();
    for (int ii = 0; ii < nObjCnt; ii++)
    {
        pObj = m_pEdtDesigner->GetObject(ii);
        if (pObj->IsAddByEditor)
        {
            // 직접입력화면에서 폼에적용을 클릭하여 생성한 문자열 객체
            String sDsplText = pObj->Text;
            pObj->ObjId = ""; // String(ii+1);   // TODO: 디비에서 생성해야함
            pObj->ObjKind = FORM_OBJ_KIND_TEXT;
            pObj->ObjType = FORM_OBJ_KIND_TEXT;
            pObj->Tag = 0;

            pObj->ObjSize = sDsplText.Length();
            pObj->BkColorCode = "00";
            pObj->Blink = false;

            pObj->ImageId = pObj->ObjId;
            pObj->Text = sDsplText;
            pObj->RunText = pObj->Text;

#if 0
            TCDSFontName *pObjFont = CDSFontManager->FindFontCodeByName(pObj->FontName);
            if (pObjFont != NULL)
            {
                pObj->FontNameCode = pObjFont->VMS_FONT_NAME_CD;
            }
            else
            {
                pObj->FontNameCode = "00";
            }
            pObj->FontColorCode = CDSFontManager->GetFontColorCode((int)pObj->FontColor);
#endif

            pObj->FillIn = DFLT_TEXT_TYPE; // 문자열 유형
            if (FORM_TYPE_EMER != sFormType && FORM_TYPE_PUBR != sFormType)
            {
                // 긴급, 홍보 폼이 아닌경우 필인 설정
                String DSPL_TEXT = pObj->Text.Trim();
                TVmsTextItem *pFillInObj = VmsTextItemManager->FFillInLists.Find(DSPL_TEXT);
                if (pFillInObj != NULL)
                {
                    pObj->FillIn = pFillInObj->TXT_ITEM_ID;
                }
            }
        }
    }

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

void __fastcall TFrmVmsMsgFormMngr::CbFormTypePropertiesChange(TObject *Sender)
{
    // VMS폼유형 이 변경 될 경우 처리해야 할 내용
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::CbFormBkClrClick(TObject *Sender)
{
    m_pEdtDesigner->SetBkColor(CDSFontManager->GetBackColorCode((int)CbFormBkClr->Selected));
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnMoveClick(TObject *Sender)
{
    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;
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnAlignClick(TObject *Sender)
{
    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;
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnCenterClick(TObject *Sender)
{
    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;
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::SePosPropertiesChange(TObject *Sender)
{
    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;
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::CbObjBkClrClick(TObject *Sender)
{
    if (m_bEdit)
        return;
    m_pEdtDesigner->SetObjectBkColorCode(String(CbObjBkClr->ItemIndex));
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::ChkBlinkingClick(TObject *Sender)
{
    if (m_bEdit)
        return;
    m_pEdtDesigner->SetObjectBlink(ChkBlinking->Checked);
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::EdDsplTxtKeyPress(TObject *Sender, wchar_t &Key)
{
    if (m_bEdit)
        return;
    if (Key == '\'')
    {
        Key = '`';
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::EdDsplTxtPropertiesChange(TObject *Sender)
{
    if (m_bEdit)
        return;
    m_pEdtDesigner->SetObejctText(EdDsplTxt->Text);
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnObjFontColorClick(TObject *Sender)
{
    if (m_bEdit)
        return;
    // 00	흑색(Black)	#000000
    // 01	적색(Red)	#FF0000
    // 02	연녹색(Lime)	#00FF00
    // 03	황색(Amber)	#FFFF00
    TcxButton *pClrBtn = (TcxButton*)Sender;
    String sFontColorCd;
    sFontColorCd.printf(L"%02d", pClrBtn->Tag);
    m_pEdtDesigner->SetObejctFontColorCode(sFontColorCd);
}

// ---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgFormMngr::CbFontClrClick(TObject *Sender)
{
    if (m_bEdit)
        return;
    if (CbFontClr->ItemIndex == CbFontClr->Items->Count - 1)
    {
        m_pEdtDesigner->SetObejctFontColorCode("99");
    }
    else
    {
        m_pEdtDesigner->SetObejctFontColorCode(CDSFontManager->GetFontColorCode((int)CbFontClr->Selected));
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnFontSizeClick(TObject *Sender)
{
    if (m_bEdit)
        return;
    TcxButton *pBtn = (TcxButton*)Sender;
    String sFontSize = pBtn->Caption;
    int nFontSize = sFontSize.Trim().ToIntDef(16);
    SeFontSize->Value = nFontSize;
    // m_pEdtDesigner->SetObejctFontSize(nFontSize);
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::SeFontSizePropertiesChange(TObject *Sender)
{
    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;

    int nFontSize = SeFontSize->Value;
    m_pEdtDesigner->SetObejctFontSize(nFontSize);
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::CbFontNamePropertiesChange(TObject *Sender)
{
    if (m_bEdit)
        return;
    String sFontCode = APP_GetCode(CbFontName);
    String sFontName = APP_GetCodeName(CbFontName);

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

void __fastcall TFrmVmsMsgFormMngr::CbTextAlignPropertiesChange(TObject *Sender)
{
    if (m_bEdit)
        return;
    m_pEdtDesigner->SetObejctTextAlign(CbTextAlign->ItemIndex);
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::EdObjIdPropertiesChange(TObject *Sender)
{
    if (m_bEdit)
        return;
    try
    {
        m_pEdtDesigner->SetObjectId(EdObjId->Text.Trim());
    }
    catch(...)
    {
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::ChkFontBoldClick(TObject *Sender)
{
    if (m_bEdit)
        return;
    m_pEdtDesigner->SetObejctFontBold(ChkFontBold->Checked);
}
// ---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgFormMngr::InsertVmsImage(String ANmbr, String AExpl, String AFileName, String ATypeCd)
{
    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "INSERT INTO TB_VMS_SYMB_LIB(SYMB_LIB_NMBR, RGST_DT, SYMB_EXPL, IMAG_DATA, SYMB_FILE_NM, SYMB_TYPE, AVI_DATA, IMAG_SIZE, UPDT_DT, DEL_YN) \r\n" "                     VALUES(:p01,          :p02,    :p03,      :p04,      NULL,         :p05,      NULL,     :p06,      :p07,    'N'   ) \r\n";

    int nRowHeight = 0;

    TMemoryStream *dataStream = new TMemoryStream();
    ImgEdtTemp->Picture->Bitmap->SaveToStream(dataStream);

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", ANmbr);
            ITSDb_SQLBind(pADO, "p02", Now().FormatString("yyyymmddhhnnss"));
            ITSDb_SQLBind(pADO, "p03", AExpl);

            pADO->Parameters->ParamByName("p04")->LoadFromStream(dataStream, ftBlob);

            ITSDb_SQLBind(pADO, "p05", ATypeCd);
            ITSDb_SQLBind(pADO, "p06", FFileSize);
            ITSDb_SQLBind(pADO, "p07", Now().FormatString("yyyymmddhhnnss"));
            pADO->ExecSQL();
            return true;
        }
        catch(EDatabaseError & E)
        {
            DBERRORMSG("FrmVmsMsgMngr::InsertVmsImage", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception & e)
        {
            DBERRORMSG("FrmVmsMsgMngr::InsertVmsImage", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        if (dataStream)
            delete dataStream;
        dataStream = NULL;
    }
    return true;
}

// ---------------------------------------------------------------------------
String __fastcall TFrmVmsMsgFormMngr::GetNewVmsFormPictObjId()
{
    String sQry;
    TADOQuery *pADO = NULL;
    String result = "SG-0000000";
    sQry = "SELECT 'SG-' || LPAD(NVL(MAX(SUBSTR(VMS_FORM_OBJ_ID, -7)), '0000000') + 1, 7, '0') AS NEWID FROM TB_VMS_FORM_OBJ_PICT WHERE SUBSTR(VMS_FORM_OBJ_ID, 1,3) = 'SG-'\r\n";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLOpen(pADO);

            pADO->Open();
            result = pADO->FieldByName("NEWID")->AsString;
        }
        catch(EDatabaseError & E)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::GetNewVmsFormPictObjId", String(E.ClassName()), E.Message, sQry);
            return result;
        }
        catch(Exception & e)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::GetNewVmsFormPictObjId", String(e.ClassName()), e.Message, sQry);
            return result;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return result;
}

// ---------------------------------------------------------------------------
bool __fastcall TFrmVmsMsgFormMngr::InsertVmsSymbLib(String VMS_FORM_OBJ_ID, String PICT_NM, String PICT_EXT,
    int PICT_DATA_SZ, int PICT_WDTH, int PICT_HGHT, String USE_YN, String ALOCAL_FILE_NM /* ="" */ )
{
    String sQry;
    TADOQuery *pADO = NULL;

    String LOCAL_FILE_NM = (ALOCAL_FILE_NM == "") ? CURR_LOCAL_FILE_NM : ALOCAL_FILE_NM;

    sQry = "INSERT INTO TB_VMS_FORM_OBJ_PICT (   \r\n" "            VMS_FORM_OBJ_ID,            \r\n"
        "            PICT_NM,                    \r\n" "            PICT_WDTH,                  \r\n"
        "            PICT_HGHT,                  \r\n" "            PICT_DATA_SZ,               \r\n"
        "            PICT_DATA,                  \r\n" "            PICT_TYPE,                  \r\n"
        "            RGSTR_ID,                   \r\n" "            REG_DT )                    \r\n"
        "   VALUES (                             \r\n" "           :p01,                        \r\n"
        "           :p02,                        \r\n" "           :p03,                        \r\n"
        "           :p04,                        \r\n" "           :p05,                        \r\n"
        "           :p06,                        \r\n" "           :p07,                        \r\n"
        "           :p08,                        \r\n" "           SYSDATE )                    \r\n";

    TMemoryStream *dataStream = new TMemoryStream();
    try
    {
        dataStream->LoadFromFile(LOCAL_FILE_NM);
        try
        {
            pADO = new TADOQuery(NULL);
            pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            ITSDb_SQLText(pADO, sQry);

            pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_OBJ_ID;
            pADO->Parameters->ParamByName("p02")->Value = PICT_NM;
            pADO->Parameters->ParamByName("p03")->Value = PICT_WDTH;
            pADO->Parameters->ParamByName("p04")->Value = PICT_HGHT;
            pADO->Parameters->ParamByName("p05")->Value = PICT_DATA_SZ;
            pADO->Parameters->ParamByName("p06")->LoadFromStream(dataStream, ftBlob);
            pADO->Parameters->ParamByName("p07")->Value = RealPictTypeToDb(PICT_EXT);
            pADO->Parameters->ParamByName("p08")->Value = g_AppCfg.OPER_ID;

            pADO->ExecSQL();
        }
        catch(EDatabaseError & E)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::InsertVmsSymbLib", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception & e)
        {
            DBERRORMSG("TFrmVmsMsgFormMngr::InsertVmsSymbLib", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        SAFE_DELETE(dataStream);

    }
    return true;
}

// ---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgFormMngr::LoadingFileImage(TImage *AImage, String AFileName)
{
    try
    {
        AImage->Picture->LoadFromFile(AFileName);
        if (AImage->Picture->Graphic->ClassName() == "TGIFImage")
        {
            ((TGIFImage*)AImage->Picture->Graphic)->Animate = true;
            AImage->Transparent = true;
        }
        else
        {
            AImage->Transparent = false;
        }
    }
    catch(Exception & e)
    {
        String errMsg = "이미지를 읽어오는 중에 오류가 발생했습니다.\r\n" + e.Message;
        Application->MessageBox(errMsg.c_str(), L"이미지 로딩 실패", MB_OK | MB_ICONERROR | MB_APPLMODAL);
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::OpenBmpCanClose(TObject *Sender, bool &CanClose)
{
    CURR_LOCAL_FILE_NM = OpenBmp->FileName;
    String sFilePath = ExtractFilePath(CURR_LOCAL_FILE_NM);
    CURR_PIC_FILE_NM = ExtractFileName(CURR_LOCAL_FILE_NM);
    String sFileExt = ExtractFileExt(CURR_LOCAL_FILE_NM);

    OpenBmp->InitialDir = sFilePath;

    CURR_USE_YN = "Y";
    CURR_PICT_EXT = "";
    sFileExt = StringReplace(sFileExt, ".", "", TReplaceFlags() << rfReplaceAll);
    sFileExt = sFileExt.LowerCase();

    TSymbFmt *symbFmt = FSymbFmtLists.Find(sFileExt);
    if (symbFmt == NULL)
    {
        Application->MessageBox(L"이미지 심벌로 지원하지 않는 형식입니다.\r\n지원형식(bmp, jpg, png, ico)", L"이미지 심벌 추가 실패",
            MB_OK | MB_ICONERROR | MB_APPLMODAL);
        return;
    }
    CURR_PICT_EXT = symbFmt->fmtType;

    TMemoryStream *pPicStream = new TMemoryStream();
    try
    {
        try
        {
            pPicStream->LoadFromFile(CURR_LOCAL_FILE_NM);
            CURR_PICT_DATA_SZ = pPicStream->Size;
            LoadingFileImage(ImgGeneral, CURR_LOCAL_FILE_NM);

            CURR_PICT_WDTH = ImgGeneral->Picture->Width;
            CURR_PICT_HGHT = ImgGeneral->Picture->Height;

            if (ImgGeneral->Picture->Graphic->ClassName() == "TGIFImage")
            {
                ((TGIFImage*)ImgGeneral->Picture->Graphic)->Animate = true;
                ImgGeneral->Transparent = true;
            }
            else
            {
                ImgGeneral->Transparent = false;
            }
        }
        catch(Exception & e)
        {
            String errMsg = "이미지 파일 처리 중에 오류가 발생했습니다.\r\n" + e.Message;
            Application->MessageBox(errMsg.c_str(), L"이미지 파일 추가 실패", MB_OK | MB_ICONERROR | MB_APPLMODAL);
            return;
        }
    }
    __finally
    {
        SAFE_DELETE(pPicStream);
    }

    CURR_PICT_NM = EdFormId->Text;
    bool bResult = InsertVmsSymbLib(CURR_VMS_FORM_OBJ_ID, CURR_PICT_NM, CURR_PICT_EXT, CURR_PICT_DATA_SZ,
        CURR_PICT_WDTH, CURR_PICT_HGHT, CURR_USE_YN);

    if (bResult)
    {
        /////// 폼객체를 생성해서 추가한다.
        TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp);
        if (!pObj)
        {
            String errMsg = "이미지 파일 객체 처리 중에 오류가 발생했습니다.";
            Application->MessageBox(errMsg.c_str(), L"이미지 파일 객체 추가 실패", MB_OK | MB_ICONERROR | MB_APPLMODAL);
            return;
        }

        String sPictId = CURR_VMS_FORM_OBJ_ID;
        String sImagePath = CURR_LOCAL_FILE_NM;
        String sPictNm = CURR_PICT_NM;
        String sPictSize = CURR_PICT_DATA_SZ;
        int nPictW = CURR_PICT_WDTH;
        int nPictH = CURR_PICT_HGHT;
        String sPictExt = CURR_PICT_EXT;

        int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq();
        EdObjSeq->Text = String(nNewObjSeq);
        pObj->ObjSeq = nNewObjSeq;
        pObj->ObjId = sPictId;
        pObj->ObjKind = FORM_OBJ_KIND_IMAGE;
        pObj->ObjType = pObj->ObjKind;
        pObj->ObjSize = sPictSize.ToIntDef(0);
        pObj->BkColorCode = m_pEdtDesigner->BkColorCode;
        pObj->Blink = false;
        pObj->Tag = "N";

        pObj->Text = sPictNm;
        pObj->ImageId = sPictId;

        LoadingImage(pObj, sImagePath, nPictW, nPictH);

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

void __fastcall TFrmVmsMsgFormMngr::BtnObjDeleteClick(TObject *Sender)
{
    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)
        {
            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();
}
// ---------------------------------------------------------------------------

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

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

void __fastcall TFrmVmsMsgFormMngr::CbVmsObjTypeClick(TObject *Sender)
{
    if (BtnAddText->CanFocus())
    {
        BtnAddText->SetFocus();
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::UpdateObjectIfscId()
{
    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();
            }
        }
    }
}
// ---------------------------------------------------------------------------

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

    String sOrgFormId = EdFormId->Text;
    if (sOrgFormId.IsEmpty())
    {
        Application->MessageBox(L"VMS 폼 복사 추가\r\n복사 추가할 VMS 폼을 목록에서 선택하세요.", FTitle.c_str(),
            MB_OK | MB_ICONERROR | MB_APPLMODAL);
        return;
    }

    String sFormName = EdFormName->Text;
    bool bInput = InputQuery("폼명칭", "신규 폼명칭 입력하세요.", sFormName);
    if (!bInput || sFormName == "")
    {
        return;
    }
    if (AnsiString(sFormName).Length() > 60)
    {
        Application->MessageBox(L"폼명칭은 60Byte를 초과할 수 없습니다.", FTitle.c_str(), MB_OK | MB_ICONERROR | MB_APPLMODAL);
        return;
    }

    String sFormType = APP_GetCode(CbFormType);
    String sNewFormId = GetNextVmsFormId(sFormType.SubString(1, 1));

    ITSDb_GetConnection()->BeginTrans();
    if (CopyFormAdd(sOrgFormId, sNewFormId, sFormName))
    {
        ITSDb_GetConnection()->CommitTrans();

        Application->MessageBox(L"VMS 폼 복사 추가\r\nVMS 폼 정보를 복사 추가 하였습니다.", FTitle.c_str(),
            MB_OK | MB_ICONINFORMATION | MB_APPLMODAL);

        FUpdate = true;

        LoadVmsForm();
        CMM_SetGridRow(CxList, TvList, sNewFormId, ColVMS_FORM_ID->Index);
        DisplayInfo();
    }
    else
    {
        ITSDb_GetConnection()->RollbackTrans();
    }
}
// ---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgFormMngr::CopyFormAdd(String AOrgFormId, String ANewFormId, String AFormName)
{
    bool bResult = false;
    String sQry;
    TADOQuery *pADO = NULL;

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

            sQry = "INSERT INTO TB_VMS_FORM (   \r\n" "            VMS_FORM_ID,       \r\n"
                "            VMS_MODL_KIND,     \r\n" "            VMS_FORM_TYPE,     \r\n"
                "            VMS_FORM_NM,       \r\n" "            DSPL_EFF,          \r\n"
                "            DSPL_HR,           \r\n" "            BACK_CLR,          \r\n"
                "            VMS_FORM_IMG,      \r\n" "            RGSTR_ID,          \r\n"
                "            REG_DT,            \r\n" "            CHNGR_ID,          \r\n"
                "            CHG_DT )           \r\n" "    SELECT :p01,               \r\n"
                "           VMS_MODL_KIND,      \r\n" "           VMS_FORM_TYPE,      \r\n"
                "           :p03,               \r\n" "           DSPL_EFF,           \r\n"
                "           DSPL_HR,            \r\n" "           BACK_CLR,           \r\n"
                "           VMS_FORM_IMG,       \r\n" "           :p04,               \r\n"
                "           SYSDATE,            \r\n" "           NULL,               \r\n"
                "           NULL                \r\n" "      FROM TB_VMS_FORM         \r\n"
                " WHERE VMS_FORM_ID = :p02      \r\n";

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", ANewFormId);
            ITSDb_SQLBind(pADO, "p02", AOrgFormId);
            ITSDb_SQLBind(pADO, "p03", AFormName);
            ITSDb_SQLBind(pADO, "p04", g_AppCfg.OPER_ID);
            pADO->ExecSQL();

            TVmsFormObject *pFormObj = NULL;
            TcxGridDataController *pGDC = TvObjList->DataController;
            int nObjCnt = pGDC->RecordCount;

            String VMS_FORM_ID = ANewFormId;
            String VMS_MODL_KIND = APP_GetCode(CbSizeType); // FVmsTypeCd
            String VMS_FORM_TYPE = APP_GetCode(CbFormType);
            String VMS_FORM_NM = AFormName;
            String DSPL_EFF = APP_GetCode(CbFormDsplEff);
            int DSPL_HR = SeDsplHr->Value;
            String BACK_CLR = CDSFontManager->GetBackColorCode(CbFormBkClr->ItemIndex);
            String RGSTR_ID = g_AppCfg.OPER_ID;
            String OBJ_VMS_FORM_ID = VMS_FORM_ID.SubString(1, 6);

            // 폼 오브젝트 구성정보 저장
            sQry =
                "INSERT INTO TB_VMS_FORM_VMS_FORM_OBJ (      \r\n"
                "            VMS_FORM_ID,                    \r\n"
                "            SN,                             \r\n"
                "            VMS_FORM_OBJ_KIND,              \r\n"
                "            VMS_FORM_OBJ_ID,                \r\n"
                "            BACK_CLR,                       \r\n"
                "            FORM_OBJ_PSTN_X,                \r\n"
                "            FORM_OBJ_PSTN_Y,                \r\n"
                "            FORM_OBJ_DSPL_WDTH,             \r\n"
                "            FORM_OBJ_DSPL_HGHT,             \r\n"
                "            FORM_OBJ_BLNK_YN )              \r\n"
                "   VALUES (                                 \r\n"
                "           :p01,                            \r\n"
                "           :p02,                            \r\n"
                "           :p03,                            \r\n"
                "           :p04,                            \r\n"
                "           :p05,                            \r\n"
                "           :p06,                            \r\n"
                "           :p07,                            \r\n"
                "           :p08,                            \r\n"
                "           :p09,                            \r\n"
                "           :p10 )                           \r\n";

            ITSDb_SQLText(pADO, sQry);

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

                // 이력으로 조회하는곳에서 좌표를 0x02로 저장하는데 음수가 나오는 경우
                // 2자리로 처리가 되지 않기 때문에 여기서 막아준다.
                if (pFormObj->Left < 0)
                    pFormObj->Left = 0;
                if (pFormObj->Top < 0)
                    pFormObj->Top = 0;

                int SN = ii + 1;
                String VMS_FORM_OBJ_KIND = pFormObj->ObjKind;
                String VMS_FORM_OBJ_ID = pFormObj->ObjId;
                if (VMS_FORM_OBJ_KIND == FORM_OBJ_KIND_TEXT)
                {
                    VMS_FORM_OBJ_ID.printf(L"%s-%03d", OBJ_VMS_FORM_ID, SN);
                }
                String BACK_CLR = pFormObj->BkColorCode;
                int FORM_OBJ_PSTN_X = pFormObj->Left;
                int FORM_OBJ_PSTN_Y = pFormObj->Top;
                String FORM_OBJ_BLNK_YN = pFormObj->Blink ? "Y" : "N";

                pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p02")->Value = SN;
                pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_OBJ_KIND;
                pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_OBJ_ID;
                pADO->Parameters->ParamByName("p05")->Value = BACK_CLR;
                pADO->Parameters->ParamByName("p06")->Value = FORM_OBJ_PSTN_X;
                pADO->Parameters->ParamByName("p07")->Value = FORM_OBJ_PSTN_Y;
                pADO->Parameters->ParamByName("p08")->Value = pFormObj->GetWidth();
                pADO->Parameters->ParamByName("p09")->Value = pFormObj->GetHeight();
                pADO->Parameters->ParamByName("p10")->Value = FORM_OBJ_BLNK_YN;
                ITSDb_SQLExec(pADO);
            }

            int nHMaxSeq = 0;
            int nHObjCnt = nObjCnt;

            FOR_STL(TFormObjCell*, pCell, FrmVmsMsgFormMngr->FFormObjCellMap)
            {
                if (pCell->OBJ_ID != "")
                {
                    int maxSeq = pCell->OBJ_ID.SubString(pCell->OBJ_ID.Length() - 2, 3).ToIntDef(1);
                    if (maxSeq > nHMaxSeq)
                    {
                        nHMaxSeq = maxSeq;
                    }
                }

            }

            // 도형 오브젝트 객체 추가
            FOR_STL(TFormObjCell*, pCell, FrmVmsMsgFormMngr->FFormObjCellMap)
            {
                nHObjCnt++;

                int SN = nHObjCnt;
                pCell->OBJ_SEQ = SN;
                String VMS_FORM_OBJ_KIND = FORM_OBJ_KIND_FIGURE;
                String VMS_FORM_OBJ_ID = pCell->OBJ_ID;
                if (VMS_FORM_OBJ_ID == "")
                {
                    nHMaxSeq++;
                    VMS_FORM_OBJ_ID.printf(L"%sH%03d", OBJ_VMS_FORM_ID, nHMaxSeq);
                    pCell->OBJ_ID = VMS_FORM_OBJ_ID;
                }
                String BACK_CLR = "00";
                int FORM_OBJ_PSTN_X = pCell->OBJ_PSTN_X;
                int FORM_OBJ_PSTN_Y = pCell->OBJ_PSTN_Y;
                String FORM_OBJ_BLNK_YN = "N";

                pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p02")->Value = SN;
                pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_OBJ_KIND;
                pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_OBJ_ID;
                pADO->Parameters->ParamByName("p05")->Value = BACK_CLR;
                pADO->Parameters->ParamByName("p06")->Value = FORM_OBJ_PSTN_X;
                pADO->Parameters->ParamByName("p07")->Value = FORM_OBJ_PSTN_Y;
                pADO->Parameters->ParamByName("p08")->Value = 0;
                pADO->Parameters->ParamByName("p09")->Value = 0;
                pADO->Parameters->ParamByName("p10")->Value = FORM_OBJ_BLNK_YN;
                ITSDb_SQLExec(pADO);
            }

            // 텍스트 오브젝트 정보 저장
            sQry = "INSERT INTO TB_VMS_FORM_OBJ_TXT (   \r\n" "            VMS_FORM_OBJ_ID,           \r\n"
                "            TXT_WDTH,                  \r\n" "            TXT_HGHT,                  \r\n"
                "            TXT_ALGN_MTHD,             \r\n" "            FONT_CLR,                  \r\n"
                "            FONT_TYPE,                 \r\n" "            FONT_SZ,                   \r\n"
                "            FONT_THCK,                 \r\n" "            VMS_TXT_ITEM_ID,           \r\n"
                "            DSPL_TXT,                  \r\n" "            RGSTR_ID,                  \r\n"
                "            REG_DT )                   \r\n" "   VALUES (                            \r\n"
                "           :p01,                       \r\n" "           :p02,                       \r\n"
                "           :p03,                       \r\n" "           :p04,                       \r\n"
                "           :p05,                       \r\n" "           :p06,                       \r\n"
                "           :p07,                       \r\n" "           :p08,                       \r\n"
                "           :p09,                       \r\n" "           :p10,                       \r\n"
                "           :p11,                       \r\n" "           SYSDATE )                   \r\n";

            ITSDb_SQLText(pADO, sQry);

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

                if (pFormObj->ObjKind != FORM_OBJ_KIND_TEXT)
                {
                    continue;
                }

                int SN = ii + 1;
                String VMS_FORM_OBJ_ID = pFormObj->ObjId;
                VMS_FORM_OBJ_ID.printf(L"%s-%03d", OBJ_VMS_FORM_ID, SN);
                int TXT_WDTH = pFormObj->GetWidth();
                int TXT_HGHT = pFormObj->GetHeight();
                String TXT_ALGN_MTHD = "C";
                if (pFormObj->TextAlign == 0)
                {
                    TXT_ALGN_MTHD = "L";
                }
                else if (pFormObj->TextAlign == 1)
                {
                    TXT_ALGN_MTHD = "R";
                }
                String FONT_CLR = pFormObj->FontColorCode;
                String FONT_TYPE = pFormObj->FontNameCode;
                int FONT_SZ = pFormObj->FontSize;
                String FONT_THCK = pFormObj->FontBold ? "B" : "N";
                String VMS_TXT_ITEM_ID = pFormObj->FillIn;
                String DSPL_TXT = pFormObj->Text;
                String RGSTR_ID = g_AppCfg.OPER_ID;

                String BACK_CLR = pFormObj->BkColorCode;
                int FORM_OBJ_PSTN_X = pFormObj->Left;
                int FORM_OBJ_PSTN_Y = pFormObj->Top;
                String FORM_OBJ_BLNK_YN = pFormObj->Blink ? "Y" : "N";

                pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_OBJ_ID;
                pADO->Parameters->ParamByName("p02")->Value = TXT_WDTH;
                pADO->Parameters->ParamByName("p03")->Value = TXT_HGHT;
                pADO->Parameters->ParamByName("p04")->Value = TXT_ALGN_MTHD;
                pADO->Parameters->ParamByName("p05")->DataType = ftString;
                pADO->Parameters->ParamByName("p05")->Value = FONT_CLR;

                pADO->Parameters->ParamByName("p06")->DataType = ftString;
                pADO->Parameters->ParamByName("p06")->Value = FONT_TYPE;

                pADO->Parameters->ParamByName("p07")->Value = FONT_SZ;

                pADO->Parameters->ParamByName("p08")->DataType = ftString;
                pADO->Parameters->ParamByName("p08")->Value = FONT_THCK;

                pADO->Parameters->ParamByName("p09")->DataType = ftString;
                pADO->Parameters->ParamByName("p09")->Value = VMS_TXT_ITEM_ID;

                pADO->Parameters->ParamByName("p10")->DataType = ftString;
                pADO->Parameters->ParamByName("p10")->Value = DSPL_TXT;

                pADO->Parameters->ParamByName("p11")->DataType = ftString;
                pADO->Parameters->ParamByName("p11")->Value = RGSTR_ID;
                ITSDb_SQLExec(pADO);
            }

            bResult = true;
        }
        catch(EDatabaseError & E)
        {
            DBERRORMSG("FrmVmsMsgMngr::CopyFormAdd", String(E.ClassName()), E.Message, sQry);
        }
        catch(Exception & e)
        {
            DBERRORMSG("FrmVmsMsgMngr::CopyFormAdd", String(e.ClassName()), e.Message, sQry);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
    return bResult;
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnUpClick(TObject *Sender)
{
    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][ColObjKind->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][ColObjMem->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][ColObjKind->Index] = TvObjList->DataController->Values[nUpIdx]
                [ColObjKind->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][ColObjMem->Index] = TvObjList->DataController->Values[nUpIdx]
                [ColObjMem->Index];

            TvObjList->DataController->Values[nUpIdx][ColSeq->Index] = sVal1;
            TvObjList->DataController->Values[nUpIdx][ColId->Index] = sVal2;
            TvObjList->DataController->Values[nUpIdx][ColObjKind->Index] = sVal3;
            TvObjList->DataController->Values[nUpIdx][ColData->Index] = sVal4;
            TvObjList->DataController->Values[nUpIdx][ColIfscId->Index] = sVal5;
            TvObjList->DataController->Values[nUpIdx][ColObjMem->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();
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnDownClick(TObject *Sender)
{
    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][ColObjKind->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][ColObjMem->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][ColObjKind->Index] = TvObjList->DataController->Values[nDnIdx]
                [ColObjKind->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][ColObjMem->Index] = TvObjList->DataController->Values[nDnIdx]
                [ColObjMem->Index];

            TvObjList->DataController->Values[nDnIdx][ColSeq->Index] = sVal1;
            TvObjList->DataController->Values[nDnIdx][ColId->Index] = sVal2;
            TvObjList->DataController->Values[nDnIdx][ColObjKind->Index] = sVal3;
            TvObjList->DataController->Values[nDnIdx][ColData->Index] = sVal4;
            TvObjList->DataController->Values[nDnIdx][ColIfscId->Index] = sVal5;
            TvObjList->DataController->Values[nDnIdx][ColObjMem->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();
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnSaveClick(TObject *Sender)
{
    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;
    }

    if (AnsiString(EdFormName->Text.Trim()).Length() > 50)
    {
        Application->MessageBox(lblText11->Caption.c_str(), // L"폼명칭은  60Byte를 초과할 수 없습니다.",
            FTitle.c_str(), MB_OK | MB_ICONERROR | MB_APPLMODAL);
        return;
    }

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

    String VMS_FORM_ID = EdFormId->Text;
    String VMS_MODL_KIND = APP_GetCode(CbSizeType); // FVmsTypeCd
    String VMS_FORM_TYPE = APP_GetCode(CbFormType);
    String VMS_FORM_NM = EdFormName->Text.Trim();
    String DSPL_EFF = APP_GetCode(CbFormDsplEff);
    int DSPL_HR = SeDsplHr->Value;
    String BACK_CLR = CDSFontManager->GetBackColorCode(CbFormBkClr->ItemIndex);
    String VMS_FORM_IMG = "";
    String RGSTR_ID = g_AppCfg.OPER_ID;
    String CHNGR_ID = "";

    bool bResult = false;
    m_pEdtDesigner->GetVmsFormImage(ImgForm);

    /////////////////////////////////// 폼정보 저장
    ITSDb_GetConnection()->BeginTrans();
    bResult = SaveVmsForm("Y");
    if (!bResult)
    {
        ITSDb_GetConnection()->RollbackTrans();
        return;
    }

    /////////////////////////////////// 폼정보 하부데이터 삭제
    bResult = DelVmsFormRltnTable(VMS_FORM_ID);
    if (!bResult)
    {
        ITSDb_GetConnection()->RollbackTrans();
        return;
    }

    int newObjSeq = 0;
    TVmsFormObject *pFormObj = NULL;
    for (int ii = 0; ii < nObjCnt; ii++)
    {
        String sObjSeq = VarToStr(pGDC->Values[ii][ColSeq->Index]);
        pFormObj = m_pEdtDesigner->FindObject(sObjSeq.ToInt());
        if (!pFormObj)
            continue;
        if (pFormObj->ObjId != "")
        {
            newObjSeq = 1;
            break;
        }
    }
    if (newObjSeq > 0)
    {
        newObjSeq = nObjCnt + 1; // 기존 폼을 수정하는 경우
    }
    else
    {
        newObjSeq = 1; // 신규로 추가하는 메시지
    }

    String OBJ_VMS_FORM_ID = VMS_FORM_ID.SubString(1, 6);
    /////////////////////////////////// 폼정보 하부데이터 저장
    bResult = false;
    String sQry;
    TADOQuery *pADO = NULL;
    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
            pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            // 폼 오브젝트 구성정보 저장
            sQry =
                "INSERT INTO TB_VMS_FORM_VMS_FORM_OBJ (      \r\n"
                "            VMS_FORM_ID,                    \r\n"
                "            SN,                             \r\n"
                "            VMS_FORM_OBJ_KIND,              \r\n"
                "            VMS_FORM_OBJ_ID,                \r\n"
                "            BACK_CLR,                       \r\n"
                "            FORM_OBJ_PSTN_X,                \r\n"
                "            FORM_OBJ_PSTN_Y,                \r\n"
                "            FORM_OBJ_DSPL_WDTH,             \r\n"
                "            FORM_OBJ_DSPL_HGHT,             \r\n"
                "            FORM_OBJ_BLNK_YN )              \r\n"
                "   VALUES (                                 \r\n"
                "           :p01,                            \r\n"
                "           :p02,                            \r\n"
                "           :p03,                            \r\n"
                "           :p04,                            \r\n"
                "           :p05,                            \r\n"
                "           :p06,                            \r\n"
                "           :p07,                            \r\n"
                "           :p08,                            \r\n"
                "           :p09,                            \r\n"
                "           :p10 )                           \r\n";

            ITSDb_SQLText(pADO, sQry);

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

                // 이력으로 조회하는곳에서 좌표를 0x02로 저장하는데 음수가 나오는 경우
                // 2자리로 처리가 되지 않기 때문에 여기서 막아준다.
                if (pFormObj->Left < 0)
                    pFormObj->Left = 0;
                if (pFormObj->Top < 0)
                    pFormObj->Top = 0;

                int SN = ii + 1;
                String VMS_FORM_OBJ_KIND = pFormObj->ObjKind;
                String VMS_FORM_OBJ_ID = pFormObj->ObjId;
                if (VMS_FORM_OBJ_ID == "")
                {
                    VMS_FORM_OBJ_ID.printf(L"%s-%03d", OBJ_VMS_FORM_ID, newObjSeq++);
                    pFormObj->ObjId = VMS_FORM_OBJ_ID;
                }
                String BACK_CLR = pFormObj->BkColorCode;
                int FORM_OBJ_PSTN_X = pFormObj->Left;
                int FORM_OBJ_PSTN_Y = pFormObj->Top;
                String FORM_OBJ_BLNK_YN = pFormObj->Blink ? "Y" : "N";

                pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p02")->Value = SN;
                pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_OBJ_KIND;
                pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_OBJ_ID;
                pADO->Parameters->ParamByName("p05")->Value = BACK_CLR;
                pADO->Parameters->ParamByName("p06")->Value = FORM_OBJ_PSTN_X;
                pADO->Parameters->ParamByName("p07")->Value = FORM_OBJ_PSTN_Y;
                pADO->Parameters->ParamByName("p08")->Value = pFormObj->GetWidth();
                pADO->Parameters->ParamByName("p09")->Value = pFormObj->GetHeight();
                pADO->Parameters->ParamByName("p10")->Value = FORM_OBJ_BLNK_YN;
                ITSDb_SQLExec(pADO);
            }

            int nHMaxSeq = 0;
            int nHObjCnt = nObjCnt;

            FOR_STL(TFormObjCell*, pCell, FrmVmsMsgFormMngr->FFormObjCellMap)
            {
                if (pCell->OBJ_ID != "")
                {
                    int maxSeq = pCell->OBJ_ID.SubString(pCell->OBJ_ID.Length() - 2, 3).ToIntDef(1);
                    if (maxSeq > nHMaxSeq)
                    {
                        nHMaxSeq = maxSeq;
                    }
                }

            }

            // 도형 오브젝트 객체 추가
            FOR_STL(TFormObjCell*, pCell, FrmVmsMsgFormMngr->FFormObjCellMap)
            {
                nHObjCnt++;

                int SN = nHObjCnt;
                pCell->OBJ_SEQ = SN;
                String VMS_FORM_OBJ_KIND = FORM_OBJ_KIND_FIGURE;
                String VMS_FORM_OBJ_ID = pCell->OBJ_ID;
                if (VMS_FORM_OBJ_ID == "")
                {
                    nHMaxSeq++;
                    VMS_FORM_OBJ_ID.printf(L"%sH%03d", OBJ_VMS_FORM_ID, nHMaxSeq);
                    pCell->OBJ_ID = VMS_FORM_OBJ_ID;
                }
                String BACK_CLR = "00";
                int FORM_OBJ_PSTN_X = pCell->OBJ_PSTN_X;
                int FORM_OBJ_PSTN_Y = pCell->OBJ_PSTN_Y;
                String FORM_OBJ_BLNK_YN = "N";

                pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p02")->Value = SN;
                pADO->Parameters->ParamByName("p03")->Value = VMS_FORM_OBJ_KIND;
                pADO->Parameters->ParamByName("p04")->Value = VMS_FORM_OBJ_ID;
                pADO->Parameters->ParamByName("p05")->Value = BACK_CLR;
                pADO->Parameters->ParamByName("p06")->Value = FORM_OBJ_PSTN_X;
                pADO->Parameters->ParamByName("p07")->Value = FORM_OBJ_PSTN_Y;
                pADO->Parameters->ParamByName("p08")->Value = 0;
                pADO->Parameters->ParamByName("p09")->Value = 0;
                pADO->Parameters->ParamByName("p10")->Value = FORM_OBJ_BLNK_YN;
                ITSDb_SQLExec(pADO);
            }

            // 텍스트 오브젝트 정보 저장
            sQry = "INSERT INTO TB_VMS_FORM_OBJ_TXT (   \r\n" "            VMS_FORM_OBJ_ID,           \r\n"
                "            TXT_WDTH,                  \r\n" "            TXT_HGHT,                  \r\n"
                "            TXT_ALGN_MTHD,             \r\n" "            FONT_CLR,                  \r\n"
                "            FONT_TYPE,                 \r\n" "            FONT_SZ,                   \r\n"
                "            FONT_THCK,                 \r\n" "            VMS_TXT_ITEM_ID,           \r\n"
                "            DSPL_TXT,                  \r\n" "            RGSTR_ID,                  \r\n"
                "            REG_DT )                   \r\n" "   VALUES (                            \r\n"
                "           :p01,                       \r\n" "           :p02,                       \r\n"
                "           :p03,                       \r\n" "           :p04,                       \r\n"
                "           :p05,                       \r\n" "           :p06,                       \r\n"
                "           :p07,                       \r\n" "           :p08,                       \r\n"
                "           :p09,                       \r\n" "           :p10,                       \r\n"
                "           :p11,                       \r\n" "           SYSDATE )                   \r\n";

            ITSDb_SQLText(pADO, sQry);

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

                if (pFormObj->ObjKind != FORM_OBJ_KIND_TEXT)
                {
                    continue;
                }

                String VMS_FORM_OBJ_ID = pFormObj->ObjId;
                int TXT_WDTH = pFormObj->GetWidth();
                int TXT_HGHT = pFormObj->GetHeight();
                String TXT_ALGN_MTHD = "C";
                if (pFormObj->TextAlign == 0)
                {
                    TXT_ALGN_MTHD = "L";
                }
                else if (pFormObj->TextAlign == 1)
                {
                    TXT_ALGN_MTHD = "R";
                }
                String FONT_CLR = pFormObj->FontColorCode;
                String FONT_TYPE = pFormObj->FontNameCode;
                int FONT_SZ = pFormObj->FontSize;
                String FONT_THCK = pFormObj->FontBold ? "B" : "N";
                String VMS_TXT_ITEM_ID = pFormObj->FillIn;
                String DSPL_TXT = pFormObj->Text;
                String RGSTR_ID = g_AppCfg.OPER_ID;

                String BACK_CLR = pFormObj->BkColorCode;
                int FORM_OBJ_PSTN_X = pFormObj->Left;
                int FORM_OBJ_PSTN_Y = pFormObj->Top;
                String FORM_OBJ_BLNK_YN = pFormObj->Blink ? "Y" : "N";

                pADO->Parameters->ParamByName("p01")->Value = VMS_FORM_OBJ_ID;
                pADO->Parameters->ParamByName("p02")->Value = TXT_WDTH;
                pADO->Parameters->ParamByName("p03")->Value = TXT_HGHT;
                pADO->Parameters->ParamByName("p04")->Value = TXT_ALGN_MTHD;

                pADO->Parameters->ParamByName("p05")->DataType = ftString;
                pADO->Parameters->ParamByName("p05")->Value = FONT_CLR;

                pADO->Parameters->ParamByName("p06")->DataType = ftString;
                pADO->Parameters->ParamByName("p06")->Value = FONT_TYPE;

                pADO->Parameters->ParamByName("p07")->Value = FONT_SZ;

                pADO->Parameters->ParamByName("p08")->DataType = ftString;
                pADO->Parameters->ParamByName("p08")->Value = FONT_THCK;

                pADO->Parameters->ParamByName("p09")->DataType = ftString;
                pADO->Parameters->ParamByName("p09")->Value = VMS_TXT_ITEM_ID;

                pADO->Parameters->ParamByName("p10")->DataType = ftString;
                pADO->Parameters->ParamByName("p10")->Value = DSPL_TXT;

                pADO->Parameters->ParamByName("p11")->DataType = ftString;
                pADO->Parameters->ParamByName("p11")->Value = RGSTR_ID;
                ITSDb_SQLExec(pADO);
            }
            bResult = true;
        }
        catch(EDatabaseError & E)
        {
            DBERRORMSG("FrmVmsMsgMngr::BtnSaveClick", String(E.ClassName()), E.Message, sQry);
            return;
        }
        catch(Exception & e)
        {
            DBERRORMSG("FrmVmsMsgMngr::BtnSaveClick", String(e.ClassName()), e.Message, sQry);
            return;
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }

        if (bResult)
        {
            ITSDb_GetConnection()->CommitTrans();

            Application->MessageBox(lblText16->Caption.c_str(), // L"VMS 폼 정보 저장\r\nVMS 폼 정보를 저장 하였습니다.",
                FTitle.c_str(), MB_OK | MB_ICONINFORMATION | MB_APPLMODAL);

            FUpdate = true;

            LoadVmsForm();
            CMM_SetGridRow(CxList, TvList, VMS_FORM_ID, ColVMS_FORM_ID->Index);
            // DisplayInfo();
        }
        else
        {
            ITSDb_GetConnection()->RollbackTrans();
        }
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::CheckImageSelected()
{
    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 (pObj->ObjKind == FORM_OBJ_KIND_TEXT)
        {
            selImage = false;
            break;
        }
        else
        {
            selImage = true;
            nImgW = pObj->GetWidth();
            nImgH = pObj->GetHeight();
        }
    }
    if (selImage)
    {
        TNotifyEvent evtW = SeObjW->Properties->OnChange;
        TNotifyEvent evtH = SeObjH->Properties->OnChange;
        SeObjW->Properties->OnChange = NULL;
        SeObjH->Properties->OnChange = NULL;

        SeObjW->Value = nImgW;
        SeObjH->Value = nImgH;

        SeObjW->Properties->OnChange = evtW;
        SeObjH->Properties->OnChange = evtH;

        PnlObjSymb->Visible = true;
    }
    else
    {
        PnlObjSymb->Visible = false;
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::SeObjDsplSizePropertiesChange(TObject *Sender)
{
    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;

    int nImgW = SeObjW->Value;
    int nImgH = SeObjH->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 (pObj->ObjKind != FORM_OBJ_KIND_TEXT)
        {
            if (pObj->ObjKind == FORM_OBJ_KIND_IMAGE)
            {
                pObj->GetImage()->AutoSize = false;
                pObj->GetImage()->Stretch = true;
            }
            pObj->GetImage()->Width = nImgW;
            pObj->GetImage()->Height = nImgH;
            pObj->SetSize(nImgW, nImgH);
        }
    }
}
// ---------------------------------------------------------------------------

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

void __fastcall TFrmVmsMsgFormMngr::BtrnReFormClearClick(TObject *Sender)
{
    ReForm->Lines->Clear();
    ReForm->SelAttributes->Style = TFontStyles() >> fsUnderline;
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnRedClick(TObject *Sender)
{
    TcxButton *pClrBtn = (TcxButton*)Sender;

    Graphics::TFontStyles fontStyle = ReForm->SelAttributes->Style;
    switch(pClrBtn->Tag)
    {
    case 0:
        ReForm->SelAttributes->Color = clLime;
        break;
    case 1:
        ReForm->SelAttributes->Color = clYellow;
        break;
    case 2:
        ReForm->SelAttributes->Color = clRed;
        break;
    }
    ReForm->SelAttributes->Style = fontStyle;
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnObjDeleteAllClick(TObject *Sender)
{

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

void __fastcall TFrmVmsMsgFormMngr::SeDsplHrPropertiesChange(TObject *Sender)
{
    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;
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::ChkDrawModuleClick(TObject *Sender)
{
    if (ChkDrawModule->Checked)
        m_pEdtDesigner->PreviewDrawModuleForm(ReForm, ReFormTemp, ImgEdtPreview, FVmsRows, FVmsCols);
    else
        m_pEdtDesigner->PreviewDrawForm(ReForm, ReFormTemp, ImgEdtPreview);
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::CbFillIn1PropertiesChange(TObject *Sender)
{
    int nItemIndex = CbFillIn1->ItemIndex;
    TVmsTextItem *pObj = (TVmsTextItem*)CbFillIn1->Properties->Items->Objects[nItemIndex];
    if (pObj != NULL)
    {
        // ReForm->SelAttributes->Style = TFontStyles() >> fsUnderline;
        // ReForm->SelText = " ";
        ReForm->SelAttributes->Style = ReForm->SelAttributes->Style << fsUnderline;
        ReForm->SelText = pObj->TXT_ITEM_FILLIN;
        ReForm->SelAttributes->Style = TFontStyles() >> fsUnderline;
        ReForm->SelText = " ";
        ReForm->SetFocus();
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::ReFormClick(TObject *Sender)
{
    TNotifyEvent evtFontName = CbFontNameRe->OnClick;
    TNotifyEvent evtFontColr = CbFontColorRe->OnClick;
    TNotifyEvent evtFontSize = SeFontSizeRe->Properties->OnChange;

    CbFontNameRe->OnClick = NULL;
    CbFontColorRe->OnClick = NULL;
    SeFontSizeRe->Properties->OnChange = NULL;

    String fontName = ReForm->SelAttributes->Name;
    int fontSize = ReForm->SelAttributes->Size;
    TColor fontColor = ReForm->SelAttributes->Color;
    // TColor bkColor = ReForm->Color;
    // TAlignment align = ReForm->Paragraph->Alignment;

    APP_SetCode(CbFontNameRe, APP_GetCodeIdByName(CbFontNameRe, fontName));
    SeFontSizeRe->Value = fontSize;
    CbFontColorRe->Selected = fontColor;

    CbFontNameRe->OnClick = evtFontName;
    CbFontColorRe->OnClick = evtFontColr;
    SeFontSizeRe->Properties->OnChange = evtFontSize;
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnAddFormObjClick(TObject *Sender)
{
    PopupFormObjAdd->Popup(BtnAddFormObj->ClientOrigin.x, BtnAddFormObj->ClientOrigin.y + BtnAddFormObj->Height);
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::MnuPouupFormObjAddClick(TObject *Sender)
{
    TMenuItem *pMenu = (TMenuItem*)Sender;
    bool result = false;
    switch(pMenu->Tag)
    {
    case 1:
        result = AddSymbObj();
        break;
    case 2:
        result = AddTrafObj();
        break;
    case 3:
        result = AddCctvObj();
        break;
    case 4:
        result = AddMoviObj();
        break;
    case 5:
        break;
    case 6:
        break;
    case 7:
        break;
    default:
        return;
    }

    if (result)
    {
    }
}

// ---------------------------------------------------------------------------
bool __fastcall TFrmVmsMsgFormMngr::AddSymbObj()
{
    TVMSM510M *pSelForm = new TVMSM510M(this);
    pSelForm->FImageType = 1;
    pSelForm->SYMB_TYPE = "SBT1"; // 일반
    pSelForm->ShowModal();
    if (!pSelForm->m_bSelected)
    {
        delete pSelForm;
        return false;
    }

    TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp);
    if (!pObj)
    {
        delete pSelForm;
        return false;
    }

    String sPictId = pSelForm->EdPictId->Text;
    String sImagePath = pSelForm->EdImagePath->Text;
    String sPictNm = pSelForm->EdPictNm->Text;
    String sPictSize = pSelForm->EdPictSize->Text;
    int nPictW = pSelForm->EdPictW->Text.ToIntDef(10);
    int nPictH = pSelForm->EdPictH->Text.ToIntDef(10);
    String sPictExt = pSelForm->EdPictExt->Text;

    int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq();
    EdObjSeq->Text = String(nNewObjSeq);
    pObj->ObjSeq = nNewObjSeq;
    pObj->ObjId = sPictId;
    pObj->ObjKind = FORM_OBJ_KIND_IMAGE;
    pObj->ObjType = pObj->ObjKind;
    pObj->ObjSize = sPictSize.ToIntDef(0);
    pObj->BkColorCode = m_pEdtDesigner->BkColorCode;
    pObj->Blink = false;
    pObj->Tag = "N";

    pObj->Text = sPictNm;
    pObj->ImageId = sPictId;

    LoadingImage(pObj, sImagePath, nPictW, nPictH);

    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;
    return true;
}

// ---------------------------------------------------------------------------
bool __fastcall TFrmVmsMsgFormMngr::AddTrafObj()
{
    TVMSM510M *pSelForm = new TVMSM510M(this);
    pSelForm->FImageType = 1;
    pSelForm->SYMB_TYPE = "SBT1"; // 일반
    pSelForm->ShowModal();
    if (!pSelForm->m_bSelected)
    {
        delete pSelForm;
        return false;
    }

    TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp);
    if (!pObj)
    {
        delete pSelForm;
        return false;
    }

    String sPictId = pSelForm->EdPictId->Text;
    String sImagePath = pSelForm->EdImagePath->Text;
    String sPictNm = pSelForm->EdPictNm->Text;
    String sPictSize = pSelForm->EdPictSize->Text;
    int nPictW = pSelForm->EdPictW->Text.ToIntDef(10);
    int nPictH = pSelForm->EdPictH->Text.ToIntDef(10);
    String sPictExt = pSelForm->EdPictExt->Text;

    int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq();
    EdObjSeq->Text = String(nNewObjSeq);
    pObj->ObjSeq = nNewObjSeq;
    pObj->ObjId = sPictId;
    pObj->ObjKind = FORM_OBJ_KIND_IMAGE;
    pObj->ObjType = pObj->ObjKind;
    pObj->ObjSize = sPictSize.ToIntDef(0);
    pObj->BkColorCode = m_pEdtDesigner->BkColorCode;
    pObj->Blink = false;
    pObj->Tag = "N";

    pObj->Text = sPictNm;
    pObj->ImageId = sPictId;

    LoadingImage(pObj, sImagePath, nPictW, nPictH);

    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;
    FTrafBackSymb = true;
    return true;
}

// ---------------------------------------------------------------------------
bool __fastcall TFrmVmsMsgFormMngr::AddCctvObj()
{
    TVMSM570M *pSelForm = new TVMSM570M(this);
    pSelForm->ShowModal();
    if (!pSelForm->m_bSelected)
    {
        delete pSelForm;
        return false;
    }

    String sFormObjId = pSelForm->EdFormObjId->Text;
    String sCctvName = pSelForm->EdCctvNm->Text;
    String sCctvId = pSelForm->EdCctvId->Text;

    TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp);
    if (!pObj)
    {
        delete pSelForm;
        return false;
    }

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

    pObj->ObjSeq = nNewObjSeq;
    pObj->ObjId = sFormObjId;
    pObj->ObjKind = FORM_OBJ_KIND_CCTV;
    pObj->ObjType = pObj->ObjKind;
    pObj->ObjSize = 0;
    pObj->BkColorCode = m_pEdtDesigner->BkColorCode;
    pObj->Blink = false;
    pObj->Tag = "N";

    pObj->Text = sCctvName;
    pObj->ImageId = sCctvId;

    // FVmsTypeCd = pVmsSizeType->TypeCd;
    // FVmsWidth  = pVmsSizeType->Width;
    // FVmsHeight = pVmsSizeType->Height;
    // FVmsCols   = pVmsSizeType->Cols;
    // FVmsRows   = pVmsSizeType->Rows;

    pObj->GetImage()->AutoSize = false;
    pObj->GetImage()->Stretch = false;
    pObj->GetImage()->Center = true;
    pObj->GetImage()->Width = FVmsWidth;
    pObj->GetImage()->Height = FVmsHeight;
    // pObj->SetBitmap(ImgStream->Picture->Bitmap);
    pObj->GetImage()->Picture->Bitmap->Assign(ImgStream->Picture->Bitmap);
    pObj->SetSize(FVmsWidth, FVmsHeight);
    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;
    return true;
}

// ---------------------------------------------------------------------------
bool __fastcall TFrmVmsMsgFormMngr::AddMoviObj()
{
    TVMSM580M *pSelForm = new TVMSM580M(this);
    pSelForm->ShowModal();
    if (!pSelForm->m_bSelected)
    {
        delete pSelForm;
        return false;
    }

    TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtBmp);
    if (!pObj)
    {
        delete pSelForm;
        return false;
    }

    String sPictId = pSelForm->EdPictId->Text;
    String sImagePath = pSelForm->EdImagePath->Text;
    String sPictNm = pSelForm->EdPictNm->Text;
    String sPictSize = pSelForm->EdPictSize->Text;
    int nPictW = FVmsWidth;
    int nPictH = FVmsHeight;
    String sPictExt = pSelForm->EdPictExt->Text;

    int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq();
    EdObjSeq->Text = String(nNewObjSeq);
    pObj->ObjSeq = nNewObjSeq;
    pObj->ObjId = sPictId;
    pObj->ObjKind = FORM_OBJ_KIND_MOVIE;
    pObj->ObjType = pObj->ObjKind;
    pObj->ObjSize = sPictSize.ToIntDef(0);
    pObj->BkColorCode = m_pEdtDesigner->BkColorCode;
    pObj->Blink = false;
    pObj->Tag = "N";

    pObj->Text = sPictNm;
    pObj->ImageId = sPictId;

    pObj->GetImage()->AutoSize = false;
    pObj->GetImage()->Stretch = true;
    pObj->GetImage()->Width = nPictW;
    pObj->GetImage()->Height = nPictH;
    pObj->SetSize(nPictW, nPictH);
    LoadingImage(pObj, sImagePath, nPictW, nPictH);

    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;
    return true;
}

// ---------------------------------------------------------------------------
bool __fastcall TFrmVmsMsgFormMngr::AddTextObj(String ATxtItemId, String ADsplText)
{
    TVmsFormObject *pObj = m_pEdtDesigner->AddObject(odtText);
    if (!pObj)
        return false;

    int nNewObjSeq = m_pEdtDesigner->GetNewObjectSeq();
    EdObjSeq->Text = String(nNewObjSeq);
    pObj->ObjSeq = nNewObjSeq;
    pObj->ObjId = "";
    pObj->ObjKind = FORM_OBJ_KIND_TEXT;
    pObj->ObjType = pObj->ObjKind;
    pObj->ObjSize = ADsplText.Length();
    pObj->BkColorCode = m_pEdtDesigner->BkColorCode;
    pObj->Blink = false;
    pObj->Tag = "N";
    pObj->EditMode = true;

    pObj->Text = ADsplText;
    pObj->ImageId = pObj->ObjId;
    pObj->RunText = pObj->Text;
    pObj->FillIn = ATxtItemId;

    int nTextAlign = 0;
    String sFontCode = APP_GetCode(CbFontName);
    String sFontName = APP_GetCodeName(CbFontName);

    pObj->FontName = sFontName;
    pObj->FontNameCode = sFontCode;
    pObj->FontColorCode = "02";
    pObj->FontSize = 16;
    pObj->FontBold = true;
    pObj->TextAlign = nTextAlign;

#if 0
    if (ATxtItemId == DFLT_TEXT_TYPE)
    {
        EdDsplTxt->Properties->ReadOnly = true;
    }
    else
    {
        EdDsplTxt->Properties->ReadOnly = false;
    }
#endif

    pObj->SetPos(0, 0);
    pObj->Show();
    AddObjectToList(pObj, true);
    return true;
}

// ---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgFormMngr::BtnAddTextClick(TObject *Sender)
{
    AddTextObj(DFLT_TEXT_TYPE, "문자열");
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::CbFillInClick(TObject *Sender)
{
    int nItemIndex = CbFillIn->ItemIndex;
    if (nItemIndex == 0)
        return;

    TVmsTextItem *pObj = (TVmsTextItem*)CbFillIn->Properties->Items->Objects[CbFillIn->ItemIndex];
    if (pObj != NULL)
    {
        AddTextObj(pObj->TXT_ITEM_ID, pObj->TXT_ITEM_FILLIN);
    }
    if (PnlEdtBack->Enabled)
        PnlEdtBack->SetFocus();
    CbFillIn->ItemIndex = 0;
}

// ---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgFormMngr::ChangeFormObjectPanel(String AObjKind)
{
    // H	도형 객체
    // I	그래픽 객체
    // P	텍스트 객체
    if (AObjKind == FORM_OBJ_KIND_TEXT)
    {
        PnlObjSymb->Visible = false;
        PnlObjText->Visible = true;
    }
    else
    {
        PnlObjText->Visible = false;
        PnlObjSymb->Visible = true;
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::CbObjKindPropertiesChange(TObject *Sender)
{
    // 객체종류가 변경되었을 경우 처리
    String sObjKind = APP_GetCode(CbObjKind);
    ChangeFormObjectPanel(sObjKind);
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnTestClick(TObject *Sender)
{
#if 0
    if (FLastImageFileName != "")
    {
        Image1->Picture->LoadFromFile(FLastImageFileName);
        // Image1->Picture->LoadFromFile("C:\\Users\\OpenValue\\AppData\\Local\\Temp\\VMS-FORM\\SG-0000019.png");
        if (Image1->Picture->Graphic->ClassName() == "TGIFImage")
        {
            ((TGIFImage*)Image1->Picture->Graphic)->Animate = true;
            Image1->Transparent = true;
        }
        else
        {
            Image1->Transparent = false;
        }
    }
#endif
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::LoadingImage(TVmsFormObject *AFormObj, String AFileName, int AW, int AH)
{
    FLastImageFileName = AFileName;
    try
    {
        TImage *symbImag = AFormObj->GetImage();
        symbImag->Picture->LoadFromFile(AFileName);
#if 0
        symbImag->Width = AW;
        symbImag->Height = AH;
        if (symbImag->Picture->Bitmap != NULL)
        {
            symbImag->Picture->Bitmap->Width = AW;
            symbImag->Picture->Bitmap->Height = AH;
        }
#endif
        if (symbImag->Picture->Graphic->ClassName() == "TGIFImage")
        {
            ((TGIFImage*)symbImag->Picture->Graphic)->Animate = true;
            symbImag->Transparent = true;
        }
        else
        {
            symbImag->Transparent = false;
        }
        symbImag->Refresh();
        AFormObj->SetSize(AW, AH);
    }
    catch(Exception & e)
    {
        String errMsg = "이미지를 읽어오는 중에 오류가 발생했습니다.\r\n" + e.Message;
        Application->MessageBox(errMsg.c_str(), L"이미지 로딩 실패", MB_OK | MB_ICONERROR | MB_APPLMODAL);
    }

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

    SeImgW->Value = AW;
    SeImgH->Value = AH;

    SeImgW->Properties->OnChange = evtW;
    SeImgH->Properties->OnChange = evtH;
#endif
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::ReFormKeyPress(TObject *Sender, wchar_t &Key)
{
    if (Key == '[')
    {
        ReForm->SelAttributes->Style = ReForm->SelAttributes->Style << fsUnderline;
    }
    // else
    // if (Key == ' ') {
    // ReForm->SelAttributes->Style = TFontStyles() >> fsUnderline;
    // }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::ReFormKeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
    // VK_RETURN
    if (Key == ']' || Key == 221)
    {
        ReForm->SelAttributes->Style = TFontStyles() >> fsUnderline;
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnTrafFillInClick(TObject *Sender)
{
    // 소통정보 이미지 Fill In 구간 설정
    TVMSM590M *pSelForm = new TVMSM590M(this);
    pSelForm->ShowModal();
    delete pSelForm;

    if (FFormObjCellMap.Size() > 0)
    {
        BtnTrafFillIn->Font->Style = TFontStyles() << fsBold;
    }
    else
    {
        BtnTrafFillIn->Font->Style = TFontStyles();
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::MnuFileImageClick(TObject *Sender)
{
    String symbDefExt = "bmp";
    // String symbFilter = "심벌 (*.gif;*.bmp)|*.gif;*.bmp";
    String symbFilter = "심벌 (*.bmp)|*.bmp";

    OpenBmp->DefaultExt = symbDefExt;
    OpenBmp->Filter = symbFilter;

    CURR_VMS_FORM_OBJ_ID = GetNewVmsFormPictObjId();

    if (OpenBmp->InitialDir == "")
    {
        OpenBmp->InitialDir = g_sAppDir;
    }

    OpenBmp->Title = FTitle;
    OpenBmp->FileName = "";
    if (!OpenBmp->Execute())
    {
    }
}
// ---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgFormMngr::BtnFitSizeClick(TObject *Sender)
{
    int nImgW = FVmsWidth;
    int nImgH = FVmsHeight;

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

            if (pObj->ObjKind != FORM_OBJ_KIND_TEXT)
            {
                if (pObj->ObjKind == FORM_OBJ_KIND_IMAGE)
                {
                    pObj->GetImage()->AutoSize = false;
                    pObj->GetImage()->Stretch = true;
                }
                pObj->GetImage()->Width = nImgW;
                pObj->GetImage()->Height = nImgH;
                pObj->SetSize(nImgW, nImgH);
            }
        }
    }
    else if (BtnFitSize->Tag == 1)
    {
        int nModlWdth = FVmsWidth / FVmsCols;
        int nModlCnt = 0;
        for (int ii = 0; ii < nObjCnt; ii++)
        {
            TVmsFormObject *pObj = m_pEdtDesigner->GetObject(ii);
            if (!pObj)
                continue;
            // if (!pObj->Selected) continue;

            if (pObj->ObjKind != FORM_OBJ_KIND_TEXT)
            {
                if (pObj->ObjKind == FORM_OBJ_KIND_IMAGE)
                {
                    pObj->Top = 0;
                    pObj->Left = nModlCnt * nModlWdth;
                    nModlCnt++;
                }
            }
        }
        CxObjList->LayoutChanged();
    }

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

void __fastcall TFrmVmsMsgFormMngr::BtnCopyAdd212Click(TObject *Sender)
{
    m_pEdtDesigner->GetVmsFormImage(ImgForm);
    String imageFileName;
    String saveDirPath = TPath::GetTempPath() + "VMS\\";
    ForceDirectories(saveDirPath.c_str());
    imageFileName = saveDirPath + FVmsFormId + "_9.bmp";
    ImgForm->Picture->SaveToFile(imageFileName);

    if (FVmsModlKind == "C0312_32" || FVmsModlKind == "F0312_32" || FVmsModlKind == "F0315_32")
    {
        TVMSM530M *pVmsCopyForm = new TVMSM530M(this);
        pVmsCopyForm->FImageFileName = imageFileName;
        pVmsCopyForm->FVmsFormId = FVmsFormId;
        pVmsCopyForm->FVmsFormType = FVmsFormType;
        pVmsCopyForm->FVmsModlKind = FVmsModlKind;
        pVmsCopyForm->FVmsFormNm = EdFormName->Text.Trim();
        pVmsCopyForm->FDsplEff = APP_GetCode(CbFormDsplEff);
        pVmsCopyForm->FDsplHr = SeDsplHr->Value;

        pVmsCopyForm->ImgForm->Width = ImgForm->Width;
        pVmsCopyForm->ImgForm->Height = ImgForm->Height;
        pVmsCopyForm->ImgForm->Picture->Bitmap->Width = ImgForm->Width;
        pVmsCopyForm->ImgForm->Picture->Bitmap->Height = ImgForm->Height;
        pVmsCopyForm->ImgForm->Picture->Bitmap->Assign(ImgForm->Picture->Bitmap);

        pVmsCopyForm->ShowModal();
        delete pVmsCopyForm;
    }
    else if (FVmsModlKind == "F1824_16" || FVmsModlKind == "F2026_16")
    {
        TVMSM540M *pVmsCopyForm = new TVMSM540M(this);
        pVmsCopyForm->FImageFileName = imageFileName;
        pVmsCopyForm->FVmsFormId = FVmsFormId;
        pVmsCopyForm->FVmsFormType = FVmsFormType;
        pVmsCopyForm->FVmsModlKind = FVmsModlKind;
        pVmsCopyForm->FVmsFormNm = EdFormName->Text.Trim();
        pVmsCopyForm->FDsplEff = APP_GetCode(CbFormDsplEff);
        pVmsCopyForm->FDsplHr = SeDsplHr->Value;

        pVmsCopyForm->ImgForm->Width = ImgForm->Width;
        pVmsCopyForm->ImgForm->Height = ImgForm->Height;
        pVmsCopyForm->ImgForm->Picture->Bitmap->Width = ImgForm->Width;
        pVmsCopyForm->ImgForm->Picture->Bitmap->Height = ImgForm->Height;
        pVmsCopyForm->ImgForm->Picture->Bitmap->Assign(ImgForm->Picture->Bitmap);

        pVmsCopyForm->ShowModal();
        delete pVmsCopyForm;
    }
}
// ---------------------------------------------------------------------------