ITS_OP/VmsMsgEmgrMngr/SRC/FrmVmsMsgEmgrMngrF.cpp

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

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

#include "FrmVmsMsgEmgrMngrF.h"
#include "FrmVmsEmgrSelTermF.h"
#include "VMSEDT0MF.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 "cxColorComboBox"
#pragma link "cxCalc"
#pragma link "VmsDesignerF"
#pragma link "FRAME_VmsSchListF"
#pragma link "cxHint"
#pragma link "dxCustomHint"
#pragma link "dxScreenTip"
#pragma link "dxSkinsForm"
#pragma link "dxGDIPlusClasses"
#pragma resource "*.dfm"

TFrmVmsMsgEmgrMngr *FrmVmsMsgEmgrMngr = NULL;
//---------------------------------------------------------------------------

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

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

    SetColorScheme(g_AppCfg.sSkinName);

    FUpdate= false;
    FTitle = Caption;//"VMS 자동 스케줄 관리";

	FListSymb = new TList;

    EditMode = false;

    FRAMEVmsSchList1->PnlTop->Visible = false;
    FRAMEVmsSchList1->PnlBottom->Visible = false;

    PgVmsSch->Properties->ActivePage = TsEdit;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgEmgrMngr::SetColorScheme(String ASkinName)
{
    dxSkinController1->SkinName = ASkinName;
    dxSkinController1->Refresh();
    PnlPreview->ParentColor = false;
    PnlPreview->Color = clBlack;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::CommClose()
{
    try {
#if 0
        if (m_pEdtDesigner) {
            delete m_pEdtDesigner;
            m_pEdtDesigner = NULL;
        }
#endif

        APP_DelVmsSizeCombo(CbSizeType);

        ClearSymbloList();
        SAFE_DELETE(FListSymb);
        CComm_Terminate();

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

void __fastcall TFrmVmsMsgEmgrMngr::FormCreate(TObject *Sender)
{
    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);
    //}
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgEmgrMngr::InitDbLoading()
{
    Application->ProcessMessages();
    if (!VmsCtlrManager) {
        VmsCtlrManager = new TVmsCtlrManager();
    }
    VmsCtlrManager->LoadVmsModlSize();
    VmsCtlrManager->LoadFromDb();

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

    if (!VmsTextItemManager) {
        VmsTextItemManager = new TVmsTextItemManager();
    }
    VmsTextItemManager->LoadFromDb();
#endif
    if(!CDSFontManager) {
        CDSFontManager = new TCDSFontManager();
    }
    CDSFontManager->LoadFontInfo();

    if (!CenterCommManager) {
        CenterCommManager = new TCenterCommManager();
    }
    CenterCommManager->LoadFromDb(g_AppCfg.PRCS_ID);

    FCommCtrlTarget = CenterCommManager->FLists.Find("24"); // 긴급문안등록
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::FormShow(TObject *Sender)
{
    int nResult = CComm_Initialize((long)Handle, g_AppCfg.PRCS_ID, "P04010", 0);
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::FormInit()
{
    TNotifyEvent evt = CbSizeType->Properties->OnChange;
    CbSizeType->Properties->OnChange = NULL;
    APP_FillVmsSizeType(CbSizeType, false);
    CbSizeType->Properties->OnChange = evt;

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

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

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

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

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

void __fastcall TFrmVmsMsgEmgrMngr::ClearSymbloList()
{
    FFormLists.RemoveAll();

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

void __fastcall TFrmVmsMsgEmgrMngr::FRAMEVmsSchList1TvListCellDblClick(TcxCustomGridTableView *Sender,
          TcxGridTableDataCellViewInfo *ACellViewInfo, TMouseButton AButton,
          TShiftState AShift, bool &AHandled)
{
	if (!ACellViewInfo) return;
    DisplayInfo();
}
//---------------------------------------------------------------------------

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

void __fastcall TFrmVmsMsgEmgrMngr::CbSizeTypePropertiesChange(TObject *Sender)
{
    if (CbSizeType->ItemIndex < 0) return;

    EdFocus->SetFocus();
    BtnSearchClick(NULL);
    FRAMEVmsSchList1->CxList->SetFocus();

    LockWindowUpdate(GrpPreview->Handle);
    PnlPreview->Width = FVmsWidth;
    PnlPreview->Height= FVmsHeight;
    ImgPreview->Align = alNone;
    ImgPreview->Picture->Bitmap->Width = FVmsWidth;
    ImgPreview->Picture->Bitmap->Height= FVmsHeight;
    APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack);
    ImgPreview->Align = alClient;

    TvView->OptionsView->DataRowHeight = FVmsHeight;
    if (TvView->OptionsView->DataRowHeight < 48) {
        TvView->OptionsView->DataRowHeight = 48;
    }
    if (TvView->OptionsView->DataRowHeight > 144) {
        TvView->OptionsView->DataRowHeight = 144;
    }

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

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

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

void __fastcall TFrmVmsMsgEmgrMngr::RefreshData()
{
    FormClear();

    TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType);
    if (pVmsSizeType == NULL) return;

    FVmsTypeCd = pVmsSizeType->TypeCd;
    FVmsWidth  = pVmsSizeType->Width;
    FVmsHeight = pVmsSizeType->Height;

#if 0
    PnlEdtBack->Width = FVmsWidth+4;
    PnlEdtBack->Height= FVmsHeight+4;

    m_pEdtDesigner->Clear();
    m_pEdtDesigner->SizeType = FVmsTypeCd;
    m_pEdtDesigner->SetSize(FVmsWidth, FVmsHeight);
    m_pEdtDesigner->SetPos(0, 0);
    m_pEdtDesigner->BkColorCode = "00";

    m_pEdtDesigner->EditMode = true;
    m_pEdtDesigner->Show();
#endif

    FRAMEVmsSchList1->UpdateList(FVmsTypeCd);

    LoadVmsFormList(FVmsTypeCd);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::FormClear()
{
    FSelIdx = -1;

    EdVmsNmbr->Clear();

    GrpSchedule->Caption = lblTitle->Caption;//"▶ 자동 스케줄 설정";

    CMM_ClearGridTableView(TvSche);

    LockWindowUpdate(GrpPreview->Handle);
    APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack);
    LockWindowUpdate(0);

    FNewDb = false;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgEmgrMngr::DisplayInfo()
{
    FormClear();

    FSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
	if (FSelIdx < 0) return;

    TcxDataController *pGDC = FRAMEVmsSchList1->TvList->DataController;

    String sVmsCtlrId = VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column01->Index]);
    EdVmsNmbr->Text = sVmsCtlrId;

    GrpSchedule->Caption = lblTitle->Caption + " (" + VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column02->Index]) + ": " + VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column03->Index]) + ")";

    LoadVmsScheduleInfo(sVmsCtlrId);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::BtnListAddClick(TObject *Sender)
{
    int nSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
	if (nSelIdx < 0) return;

    TcxGridDataController *pDcFrm = TvForm->DataController;
    TcxGridDataController *pDcSch = TvSche->DataController;

    int nFormIdx = CMM_GetRecordIndex(TvForm);
    if (nFormIdx < 0) return;

    TFrmVmsEmgrSelTerm *pSelDate = new TFrmVmsEmgrSelTerm(this);
    pSelDate->FStrTime = Now().FormatString("YYYYMMDDHHNN");
    pSelDate->FEndTime = (Now()+1).FormatString("YYYYMMDDHHNN");//"209912312359";
    pSelDate->FWeek    = "1111111";

    pSelDate->ShowModal();
    bool bSelected = pSelDate->FSelected;
    String sStrDate  = pSelDate->FStrTime;
    String sEndDate  = pSelDate->FEndTime;
    String sWeek     = pSelDate->FWeek;
    delete pSelDate;
    pSelDate = NULL;

    if (!bSelected) {
        return;
    }

    int nRow = pDcSch->AppendRecord();

    pDcSch->Values[nRow][Col00->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm00->Index]);  //ID
    pDcSch->Values[nRow][Col02->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm02->Index]);  //명칭
    pDcSch->Values[nRow][Col03->Index] = VarToStr(pDcFrm->Values[nFormIdx][ColFrm03->Index]);  //표출(초)
    pDcSch->Values[nRow][Col01->Index] = pDcFrm->Values[nFormIdx][ColFrm01->Index];            //이미지데이터임

    pDcSch->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
    pDcSch->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
    pDcSch->Values[nRow][ColWeek1->Index] = sWeek;
    String sUse = "Y";
    String sNowDate = Now().FormatString("YYYYMMDDHHNNSS");
    if (sEndDate < sNowDate) {
        sUse = "N";
    }
    pDcSch->Values[nRow][ColUse->Index] = sUse;

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::BtnListDeleteClick(TObject *Sender)
{
    int nSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
	if (nSelIdx < 0) return;

#if 0
    TcxGridDataController *pDcSch = TvSche->DataController;

    nSelIdx = CMM_GetRecordIndex(TvSche);
    if (nSelIdx < 0) return;

	TvSche->DataController->DeleteRecord(nSelIdx);
#endif
    TcxGridTableView *pSrcList = TvSche;
    int nFocused = pSrcList->Controller->FocusedRecordIndex;

    int nSelRows = pSrcList->Controller->SelectedRowCount;
    if (nSelRows <= 0) {
        return;
    }

    try {
        TcxGridDataController *pGDC = pSrcList->DataController;
        pSrcList->BeginUpdate();
        try {
            pSrcList->Controller->DeleteSelection();

            int nDataCnt = pSrcList->DataController->RecordCount;
            if (nDataCnt <= nFocused)
                nFocused = nDataCnt - 1;

            pSrcList->Controller->ClearSelection();
        }
        catch(...) {
        }
    }
    __finally {
        pSrcList->EndUpdate();
    }

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::BtnSaveClick(TObject *Sender)
{
    //작업한 스케줄 정보를 저장한다.
	if (EdVmsNmbr->Text.Trim().IsEmpty())
	{
        Application->MessageBox(lblErr2->Caption.c_str(),//L"VMS 자동 스케줄 관리\r\nVMS 목록에서 VMS를 먼저 선택한 후 작업을 진행하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
		return;
	}

    bool bUpdate = true;
    String sVmsCtlrId = EdVmsNmbr->Text.Trim();

    if (bUpdate)
    {
        String sMsg;
        sMsg = "VMS: " + sVmsCtlrId;
        sMsg+= "\r\n" + lblErr3->Caption;//선택한 VMS의 자동 스케줄 정보를 저장하시겠습니까?";

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

    ITSDb_GetConnection()->BeginTrans();
    if (!DeleteVmsScenario(sVmsCtlrId)) {
        ITSDb_GetConnection()->RollbackTrans();
        return;
    }
    if (!SaveVmsScenario(sVmsCtlrId)) {
        ITSDb_GetConnection()->RollbackTrans();
        return;
    }
    ITSDb_GetConnection()->CommitTrans();

    if (FCommCtrlTarget != NULL) {
        FOR_STL(TCommInfo*, pCommInfo, FCommCtrlTarget->FLists) {
            int sendResult = CComm_VmsNotiRegEmgnMsg(pCommInfo->SRVR_IP, pCommInfo->CMNC_PORT, sVmsCtlrId);
            if (VERR_NONE == sendResult) {
            }
            Sleep(200);
            Application->ProcessMessages();
        }
    }

    Application->MessageBox(lblErr4->Caption.c_str(),//L"VMS 자동 스케줄 관리\r\nVMS 자동 스케줄 정보를 저장 하였습니다.",
                            FTitle.c_str(), MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);

    CMM_SetGridRow(FRAMEVmsSchList1->CxList, FRAMEVmsSchList1->TvList, sVmsCtlrId, FRAMEVmsSchList1->Column01->Index);
    //DisplayInfo();
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgEmgrMngr::SaveVmsScenario(String AVmsCtlrId)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    TcxDataController *pGDC = TvSche->DataController;

#if 0
    sQry = "INSERT INTO TB_VMS_EMGNC_FORM (                 \r\n"
           "            VMS_CTLR_ID,                        \r\n"
           "            VMS_FORM_ID,                        \r\n"
           "            DSPL_BGN_DT,                        \r\n"
           "            DSPL_FNSH_DT,                       \r\n"
           "            RGSTR_ID,                           \r\n"
           "            REG_DT )                            \r\n"
           "   VALUES (                                     \r\n"
           "           :p01,                                \r\n"
           "           :p02,                                \r\n"
           "           TO_DATE(:p03, 'YYYYMMDDHH24MISS'),   \r\n"
           "           TO_DATE(:p04, 'YYYYMMDDHH24MISS'),   \r\n"
           "           :p05,                                \r\n"
           "           SYSDATE )                            \r\n";
#else
    sQry = "MERGE INTO TB_VMS_EMGNC_FORM L                  \r\n"
           "USING (SELECT :p01 AS VMS_CTLR_ID,              \r\n"
           "              :p02 AS VMS_FORM_ID,              \r\n"
           "              TO_DATE(:p03, 'YYYYMMDDHH24MISS') AS DSPL_BGN_DT,  \r\n"
           "              TO_DATE(:p04, 'YYYYMMDDHH24MISS') AS DSPL_FNSH_DT, \r\n"
           "              :p05 AS RGSTR_ID,                 \r\n"
           "              SYSDATE AS REG_DT                 \r\n"
           "         FROM DUAL) M                           \r\n"
           "        ON (L.VMS_CTLR_ID = M.VMS_CTLR_ID       \r\n"
           "        AND L.VMS_FORM_ID = M.VMS_FORM_ID       \r\n"
           "        AND L.DSPL_BGN_DT = M.DSPL_BGN_DT)      \r\n"
           "WHEN MATCHED THEN                               \r\n"
           "   UPDATE SET                                   \r\n"
           "              L.DSPL_FNSH_DT = M.DSPL_FNSH_DT,  \r\n"
           "              L.RGSTR_ID     = M.RGSTR_ID,      \r\n"
           "              L.REG_DT       = M.REG_DT         \r\n"
           "WHEN NOT MATCHED THEN                           \r\n"
           "   INSERT (                                     \r\n"
           "           VMS_CTLR_ID,                         \r\n"
           "           VMS_FORM_ID,                         \r\n"
           "           DSPL_BGN_DT,                         \r\n"
           "           DSPL_FNSH_DT,                        \r\n"
           "           RGSTR_ID,                            \r\n"
           "           REG_DT )                             \r\n"
           "   VALUES (                                     \r\n"
           "           M.VMS_CTLR_ID,                       \r\n"
           "           M.VMS_FORM_ID,                       \r\n"
           "           M.DSPL_BGN_DT,                       \r\n"
           "           M.DSPL_FNSH_DT,                      \r\n"
           "           M.RGSTR_ID,                          \r\n"
           "           M.REG_DT )                           \r\n";
#endif

    try {
        TvSche->BeginUpdate();
        int nRows = pGDC->RecordCount;

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

            ITSDb_SQLText(pADO, sQry);

            for (int ii = 0; ii < nRows; ii++) {
                String VMS_CTLR_ID = AVmsCtlrId;
                String VMS_FORM_ID = VarToStr(pGDC->Values[ii][Col00->Index]);

                String sStrDateTime = VarToStr(pGDC->Values[ii][Col04->Index]);
                sStrDateTime = StringReplace(sStrDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sStrDateTime = StringReplace(sStrDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String DSPL_BGN_DT = sStrDateTime+"00";

                String sEndDateTime = VarToStr(pGDC->Values[ii][Col05->Index]);
                sEndDateTime = StringReplace(sEndDateTime, ":", "", TReplaceFlags() << rfReplaceAll);
                sEndDateTime = StringReplace(sEndDateTime, "-", "", TReplaceFlags() << rfReplaceAll);
                sEndDateTime = StringReplace(sEndDateTime, " ", "", TReplaceFlags() << rfReplaceAll);

                String DSPL_FNSH_DT = sEndDateTime+"59";

                String RGSTR_ID  = g_AppCfg.OPER_ID;

                pADO->Parameters->ParamByName("p01")->Value = VMS_CTLR_ID;
                pADO->Parameters->ParamByName("p02")->Value = VMS_FORM_ID;
                pADO->Parameters->ParamByName("p03")->Value = DSPL_BGN_DT;
                pADO->Parameters->ParamByName("p04")->Value = DSPL_FNSH_DT;
                pADO->Parameters->ParamByName("p05")->Value = RGSTR_ID;

                pADO->ExecSQL();
            }
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsMsgEmgrMngr::SaveVmsScenario", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsMsgEmgrMngr::SaveVmsScenario", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
        TvSche->EndUpdate();
    }
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgEmgrMngr::DeleteVmsScenario(String AVmsCtlrId)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    sQry = "DELETE TB_VMS_EMGNC_FORM    \r\n"
           " WHERE 1=1                  \r\n"
           "   AND VMS_CTLR_ID = :p01   \r\n";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AVmsCtlrId);
			pADO->ExecSQL();
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsMsgEmgrMngr::DeleteVmsScenario", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsMsgEmgrMngr::DeleteVmsScenario", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
    }
    return true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsMsgEmgrMngr::EditPreviewForm()
{
    CMM_ClearGridTableView(TvView);

    TcxDataController *pDcSch = TvSche->DataController;
    TcxDataController *pDcViw = TvView->DataController;

    try {
        TvSche->BeginUpdate();
        TvView->BeginUpdate();
        int nRowS, nRowV;

        try {
            for(nRowS = 0; nRowS < pDcSch->RecordCount; nRowS++) {
                String sUse = VarToStr(pDcSch->Values[nRowS][ColUse->Index]);
                if (sUse == "N") {
                    continue;
                }

                nRowV = pDcViw->AppendRecord();

                pDcViw->Values[nRowV][ColView00->Index] = pDcSch->Values[nRowS][Col00->Index];
                pDcViw->Values[nRowV][ColView02->Index] = pDcSch->Values[nRowS][Col02->Index];
                pDcViw->Values[nRowV][ColView03->Index] = pDcSch->Values[nRowS][Col03->Index];

                pDcViw->Values[nRowV][ColView01->Index] = pDcSch->Values[nRowS][Col01->Index];
            }
        }
        catch(Exception &e) {
        }
    }
    __finally {
        TvSche->EndUpdate();
        TvView->EndUpdate();
    }
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgEmgrMngr::LoadVmsScheduleInfo(String AVmsCtlrId)
{
    String     sQry;
    TADOQuery *pADO = NULL;

    CMM_ClearGridTableView(TvSche);
    CMM_ClearGridTableView(TvView);

    TcxDataController *pDcSch = TvSche->DataController;
    TcxDataController *pDcViw = TvView->DataController;

    sQry = "SELECT A.VMS_CTLR_ID, ROWNUM AS SN,                          \r\n"
           "       A.VMS_FORM_ID, B.VMS_FORM_NM,                         \r\n"
           "       B.VMS_FORM_TYPE, B.DSPL_HR,                           \r\n"
           "       B.VMS_FORM_IMG,                                       \r\n"
           "       TO_CHAR(A.DSPL_BGN_DT,  'YYYYMMDD') AS DSPL_BGN_YMD,  \r\n"
           "       TO_CHAR(A.DSPL_FNSH_DT, 'YYYYMMDD') AS DSPL_FNSH_YMD, \r\n"
           "       '1111111' AS DSPL_WEEK,                               \r\n"
           "       TO_CHAR(A.DSPL_BGN_DT,  'HH24MI') AS DSPL_BGN_HM,     \r\n"
           "       TO_CHAR(A.DSPL_FNSH_DT, 'HH24MI') AS DSPL_FNSH_HM     \r\n"
           "  FROM TB_VMS_EMGNC_FORM A,                                  \r\n"
           "       TB_VMS_FORM B                                         \r\n"
           " WHERE 1=1                                                   \r\n"
           "   AND A.VMS_CTLR_ID = :p01                                  \r\n"
           "   AND A.VMS_FORM_ID = B.VMS_FORM_ID                         \r\n"
           " ORDER BY A.VMS_CTLR_ID, A.VMS_FORM_ID                       \r\n";

    try {
        TvSche->BeginUpdate();
        TvView->BeginUpdate();
        int nRowS, nRowV;

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AVmsCtlrId);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next()) {
                nRowS = pDcSch->AppendRecord();

                pDcSch->Values[nRowS][Col00->Index] = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pDcSch->Values[nRowS][Col02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString;
                pDcSch->Values[nRowS][Col03->Index] = pADO->FieldByName("DSPL_HR")->AsString;

                String sStrDate = pADO->FieldByName("DSPL_BGN_YMD")->AsString + pADO->FieldByName("DSPL_BGN_HM")->AsString;
                String sEndDate = pADO->FieldByName("DSPL_FNSH_YMD")->AsString + pADO->FieldByName("DSPL_FNSH_HM")->AsString;
                pDcSch->Values[nRowS][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
                pDcSch->Values[nRowS][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
                pDcSch->Values[nRowS][ColWeek1->Index] = pADO->FieldByName("DSPL_WEEK")->AsString;
                pDcSch->Values[nRowS][Col01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;

                String sUse = "Y";
                if (sEndDate < Now().FormatString("YYYYMMDDHHNN")) {
                    sUse = "N";
                }
                pDcSch->Values[nRowS][ColUse->Index] = sUse;
                if (sUse == "N") {
                    continue;
                }


                nRowV = pDcViw->AppendRecord();

                pDcViw->Values[nRowV][ColView00->Index] = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pDcViw->Values[nRowV][ColView02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString;
                pDcViw->Values[nRowV][ColView03->Index] = pADO->FieldByName("DSPL_HR")->AsString;

                pDcViw->Values[nRowV][ColView01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;
            }
        }
        catch(EDatabaseError &E) {
            DBERRORMSG("TFrmVmsMsgEmgrMngr::LoadVmsScheduleInfo", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e) {
            DBERRORMSG("TFrmVmsMsgEmgrMngr::LoadVmsScheduleInfo", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
        TvSche->EndUpdate();
        TvView->EndUpdate();
    }
    return true;
}
//---------------------------------------------------------------------------

bool __fastcall TFrmVmsMsgEmgrMngr::LoadVmsFormList(String AFormSizeCd)
{
    ClearSymbloList();
    CMM_ClearGridTableView(TvForm);

    String sQry;
    TADOQuery *pADO = NULL;

    sQry = "SELECT A.VMS_FORM_ID, A.VMS_MODL_KIND, A.VMS_FORM_TYPE, A.VMS_FORM_NM,  \r\n"
           "       A.VMS_FORM_IMG,                                                  \r\n"
           "       A.DSPL_EFF, NVL(A.DSPL_HR, 0) AS DSPL_HR, A.BACK_CLR,            \r\n"
           "       NVL(B.FORM_TYPE_NM, A.VMS_FORM_TYPE) AS FORM_TYPE_NM,            \r\n"
           "       NVL(C.FORM_TYPE_NM, A.DSPL_EFF) AS DSPL_EFF_NM,                  \r\n"
           "       NVL(D.VMS_MODL_KIND_NM, A.VMS_MODL_KIND) AS VMS_MODL_KIND_NM     \r\n"
           "  FROM TB_VMS_FORM A,                                                   \r\n"
           "       (SELECT CODE_NO, CD_NM AS FORM_TYPE_NM                           \r\n"
           "          FROM TB_SYS_CD                                                \r\n"
           "         WHERE CLSS_CD = 'VMS_FORM_TYPE_CD') B,                         \r\n"
           "       (SELECT CODE_NO, CD_NM AS FORM_TYPE_NM                           \r\n"
           "          FROM TB_SYS_CD                                                \r\n"
           "         WHERE CLSS_CD = 'VMS_FORM_DSPL_EFF_CD') C,                     \r\n"
           "       TB_VMS_MODL_KIND D                                               \r\n"
           " WHERE 1=1                                                              \r\n"
           "   AND A.VMS_FORM_TYPE = 'E'                                            \r\n"
           "   AND A.VMS_FORM_TYPE = B.CODE_NO(+)                                   \r\n"
           "   AND A.DSPL_EFF      = C.CODE_NO(+)                                   \r\n"
           "   AND A.VMS_MODL_KIND = D.VMS_MODL_KIND(+)                             \r\n"
           "   AND A.VMS_MODL_KIND = :p01                                           \r\n"
           " ORDER BY A.VMS_MODL_KIND, A.VMS_FORM_ID                                \r\n";

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

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", AFormSizeCd);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next()) {
                nRow = pGDC->AppendRecord();

                String VMS_FORM_ID = pADO->FieldByName("VMS_FORM_ID")->AsString;
                pGDC->Values[nRow][ColFrm00->Index] = VMS_FORM_ID;
                pGDC->Values[nRow][ColFrm02->Index] = pADO->FieldByName("VMS_FORM_NM")->AsString;
                pGDC->Values[nRow][ColFrm03->Index] = pADO->FieldByName("DSPL_HR")->AsString;
                pGDC->Values[nRow][ColFrm09->Index] = pADO->FieldByName("FORM_TYPE_NM")->AsString;
                pGDC->Values[nRow][ColFrm01->Index] = pADO->FieldByName("VMS_FORM_IMG")->AsVariant;

                TFormImage *pImage = new TFormImage();
                pImage->formId = VMS_FORM_ID;
                pImage->bitmap = new Graphics::TBitmap;
                try {
                    pImage->bitmap->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("VMS_FORM_IMG"), bmRead));
                }
                catch(Exception &e) {
                    delete pImage->bitmap;
                    pImage->bitmap = NULL;
                }
                FFormLists.Push(pImage->formId, pImage);
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TFrmVmsMsgEmgrMngr::LoadVmsFormList", String(E.ClassName()), E.Message, sQry);
            return false;
        }
        catch(Exception &e)
        {
            DBERRORMSG("TFrmVmsMsgEmgrMngr::LoadVmsFormList", String(e.ClassName()), e.Message, sQry);
            return false;
        }
    }
    __finally {
        if (pADO) {
            pADO->Close();
            delete pADO;
        }
        TvForm->EndUpdate();
    }
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::cxGridColumn172CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    int nRecordIdx = AViewInfo->GridRecord->RecordIndex;
    if (nRecordIdx < 0) {
        return;
    }

    try {
        int nItemIdx = AViewInfo->Item->Index;
    	if (VarIsNull(AViewInfo->GridRecord->DisplayTexts[nItemIdx])) return;

        String sEndDt = AViewInfo->GridRecord->DisplayTexts[nItemIdx];
        if (sEndDt < Now().FormatString(STR_HHNN)) {
            ACanvas->Canvas->Brush->Color = clSilver;
        }
    }
    catch(Exception &e) {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::BtnUpClick(TObject *Sender)
{
    try {
        TvSche->BeginUpdate();

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

        int nUpIdx = nCurIdx-1;

        try {
            int nCols = TvSche->ColumnCount;
            for (int ii = 0; ii < nCols; ii++) {
                Variant va = TvSche->DataController->Values[nCurIdx][ii];
                TvSche->DataController->Values[nCurIdx][ii] = TvSche->DataController->Values[nUpIdx][ii];
                TvSche->DataController->Values[nUpIdx][ii]  = va;
            }

            TvSche->Controller->ClearSelection();
            TvSche->Controller->FocusedRowIndex = nUpIdx;
            TvSche->ViewData->Records[nUpIdx]->Focused = true;
            TvSche->ViewData->Records[nUpIdx]->Selected = true;
            CxSche->SetFocus();
        }
        catch(...) {
        }
    }
    __finally {
        TvSche->EndUpdate();
    }

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::BtnDownClick(TObject *Sender)
{
    try {
        TvSche->BeginUpdate();

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

        int nDnIdx = nCurIdx+1;

        try {
            int nCols = TvSche->ColumnCount;
            for (int ii = 0; ii < nCols; ii++) {
                Variant va = TvSche->DataController->Values[nCurIdx][ii];
                TvSche->DataController->Values[nCurIdx][ii] = TvSche->DataController->Values[nDnIdx][ii];
                TvSche->DataController->Values[nDnIdx][ii]  = va;
            }

            TvSche->Controller->ClearSelection();
            TvSche->Controller->FocusedRowIndex = nDnIdx;
            TvSche->ViewData->Records[nDnIdx]->Focused = true;
            TvSche->ViewData->Records[nDnIdx]->Selected = true;
            CxSche->SetFocus();
        }
        catch(...) {
        }
    }
    __finally {
        TvSche->EndUpdate();
    }

    EditPreviewForm();
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::TvScheFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
          TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
{
    if (!AFocusedRecord) return;
    int nSelIdx = CMM_GetRecordIndex(TvSche);
	if (nSelIdx < 0) return;
    String sVmsFormId = VarToStr(TvSche->DataController->Values[nSelIdx][Col00->Index]);
    LoadPreviewForm(sVmsFormId);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::TvFormFocusedRecordChanged(TcxCustomGridTableView *Sender, TcxCustomGridRecord *APrevFocusedRecord,
          TcxCustomGridRecord *AFocusedRecord, bool ANewItemRecordFocusingChanged)
{
    if (!AFocusedRecord) return;
    int nSelIdx = CMM_GetRecordIndex(TvForm);
	if (nSelIdx < 0) return;
    String sVmsFormId = VarToStr(TvForm->DataController->Values[nSelIdx][ColFrm00->Index]);
    LoadPreviewForm(sVmsFormId);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::LoadPreviewForm(String AVmsFormId)
{
    TFormImage *pImage = FFormLists.Find(AVmsFormId);
    LockWindowUpdate(GrpPreview->Handle);
    if (pImage != NULL && pImage->bitmap != NULL) {
        ImgPreview->Picture->Bitmap->Assign(pImage->bitmap);
    }
    else {
        APP_ImageClear(ImgPreview->Canvas, 0, 0, ImgPreview->Width, ImgPreview->Height, clBlack);
    }
    LockWindowUpdate(0);
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::ChkAutoWidthPropertiesChange(TObject *Sender)
{
    try
    {
        LockWindowUpdate(Handle);
        TvView->BeginUpdate();
        if (ChkAutoWidth->Checked) {
            //TvView->OptionsView->DataRowHeight  = 58;
            TvView->OptionsView->CellAutoHeight = false;
        }
        else {
            TvView->OptionsView->DataRowHeight  = 0;
            TvView->OptionsView->CellAutoHeight = true;
        }
        TvView->OptionsView->ColumnAutoWidth = ChkAutoWidth->Checked;
    }
    __finally
    {
        TvView->EndUpdate();
        LockWindowUpdate(0);
        //BtnBestFit->Visible = !ChkAutoWidth->Checked;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::BtnBestFitClick(TObject *Sender)
{
    try {
        LockWindowUpdate(Handle);
        TvView->BeginUpdate();
        TvView->ApplyBestFit(NULL, false, false);
        TvView->EndUpdate();
    }
    __finally {
        LockWindowUpdate(0);
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::Col05CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    int nRecordIdx = AViewInfo->GridRecord->RecordIndex;
    if (nRecordIdx < 0) {
        return;
    }

    try {
    	if (VarIsNull(AViewInfo->GridRecord->DisplayTexts[ColUse->Index])) return;
        String sUseYn = AViewInfo->GridRecord->DisplayTexts[ColUse->Index];
        if (sUseYn == "N") {
            ACanvas->Canvas->Brush->Color = clRed;
        }
    }
    catch(Exception &e) {
    }
}
//---------------------------------------------------------------------------

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

	int nRow = Sender->DataController->FocusedRecordIndex;
	if( nRow <= -1 )
		return;

    TcxGridDataController *pGDC = (TcxGridDataController*)Sender->DataController;

    int nColIdx = ACellViewInfo->Item->Index;

    String sStrDate = VarToStr(pGDC->Values[nRow][Col04->Index]);
    String sEndDate = VarToStr(pGDC->Values[nRow][Col05->Index]);
    String sWeek    = VarToStr(pGDC->Values[nRow][ColWeek1->Index]);
    if (nColIdx == Col04->Index || nColIdx == Col05->Index || nColIdx == ColWeek1->Index) {
        //표출기간설정
        TFrmVmsEmgrSelTerm *pSelDate = new TFrmVmsEmgrSelTerm(this);
        pSelDate->FStrTime = sStrDate;
        pSelDate->FEndTime = sEndDate;
        pSelDate->FWeek    = sWeek;

        pSelDate->ShowModal();
        bool bSelected = pSelDate->FSelected;
        sStrDate  = pSelDate->FStrTime;
        sEndDate  = pSelDate->FEndTime;
        sWeek     = pSelDate->FWeek;
        delete pSelDate;
        pSelDate = NULL;

        if (bSelected)
        {
            pGDC->Values[nRow][Col04->Index] = ITSUtil_FormatStr(sStrDate, STR_HHNN);
            pGDC->Values[nRow][Col05->Index] = ITSUtil_FormatStr(sEndDate, STR_HHNN);
            pGDC->Values[nRow][ColWeek1->Index] = sWeek;
            String sUse = "Y";
            String sNowDate = Now().FormatString("YYYYMMDDHHNNSS");
            if (sEndDate < sNowDate) {
                sUse = "N";
            }
            pGDC->Values[nRow][ColUse->Index] = sUse;

            EditPreviewForm();
        }
        return;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsMsgEmgrMngr::BtnAllEditClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton*)Sender;

    TcxGridTableView      *pTvList = TvSche;
    TcxGridDataController *pGDC;
    String sMode = "E";

    if (pBtn->Tag == 1) {
        sMode = "A";    //추가
        pTvList = TvForm;
    }
    if (!pTvList) return;

    pGDC = pTvList->DataController;

    int nFormIdx = CMM_GetRecordIndex(pTvList);
    if (nFormIdx < 0)
    {
        Application->MessageBox(L"VMS 긴급 메시지 스케줄 일괄 관리\r\n등록되어 있는 스케줄 메시지을 목록에서 먼저 선택하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    String sFormId;
    String sWeek;
    if (sMode == "A") {
        sFormId = VarToStr(pGDC->Values[nFormIdx][ColFrm00->Index]);
        sWeek = "1111111";
    }
    else {
        sFormId = VarToStr(pGDC->Values[nFormIdx][Col00->Index]);
        sWeek = VarToStr(pGDC->Values[nFormIdx][ColWeek1->Index]);
    }

    TVmsSizeType *pVmsSizeType = APP_GetVmsSizeTypeObject(CbSizeType);
    if (pVmsSizeType == NULL) {
        Application->MessageBox(L"VMS 긴급 메시지 스케줄 일괄 관리\r\nVMS 모듈 유형을 알수 없습니다. VMS 모듈 유형을 먼저 선택하세요.",
                                FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
        return;
    }

    String sVmsTypeCd = pVmsSizeType->TypeCd;

    TVMSEDT0M *pFrmEdt = new TVMSEDT0M(this);

    pFrmEdt->FVmsTypeCd    = sVmsTypeCd;
    pFrmEdt->FScheType     = SCHEDULE_EMGN;
    pFrmEdt->FScheFormType = String(pBtn->Tag);
    pFrmEdt->FFormId       = sFormId;
    pFrmEdt->FMode         = sMode;
    pFrmEdt->FVmsNmbr      = "";
    pFrmEdt->FSymbLibNmbr  = "";
    pFrmEdt->FStreamAddr   = "";
    pFrmEdt->FWeek         = sWeek;

    pFrmEdt->ShowModal();

    bool bOk = pFrmEdt->FSelected;

    delete pFrmEdt;
    pFrmEdt = NULL;

    if (bOk) {
        DisplayInfo();

        EditPreviewForm();
    }
}
//---------------------------------------------------------------------------