ITS_OP/VmsFont/MAIN/FrmVmsFontF.cpp

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

#include <vcl.h>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "ITSLangTransF.h"
#include "FrmResourceF.h"
#pragma hdrstop

#include "FrmVmsFontF.h"

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

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxEdit"
#pragma link "cxGraphics"
#pragma link "cxHint"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxSpinEdit"
#pragma link "cxTextEdit"
#pragma link "dxBar"
#pragma link "dxCustomHint"
#pragma link "dxRibbon"
#pragma link "dxRibbonGallery"
#pragma link "dxRibbonSkins"
#pragma link "dxRibbonStatusBar"
#pragma link "dxScreenTip"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinCaramel"
#pragma link "dxSkinChooserGallery"
#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 "dxSkinsdxBarPainter"
#pragma link "dxSkinsdxRibbonPainter"
#pragma link "dxSkinSeven"
#pragma link "dxSkinsForm"
#pragma link "dxSkinSharp"
#pragma link "dxSkinSilver"
#pragma link "dxSkinStardust"
#pragma link "dxStatusBar"
#pragma link "dxTabbedMDI"
#pragma link "cxButtons"
#pragma link "cxCalendar"
#pragma link "cxDropDownEdit"
#pragma link "cxGroupBox"
#pragma link "cxSplitter"
#pragma link "cxTimeEdit"
#pragma link "cxCalc"
#pragma link "cxCheckBox"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxFilter"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxStyles"
#pragma resource "*.dfm"

TFrmVmsFont *FrmVmsFont = NULL;

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

__fastcall TFrmVmsFont::TFrmVmsFont(TComponent* Owner)
    : TForm(Owner)//TdxCustomRibbonForm(Owner)//TForm(Owner)
{
    CMM_SetFormPosition(g_AppCfg.bSaveForm);
    ITSSkin_Initialize(Application, g_AppCfg.sLang);

    DoubleBuffered = true;

    g_AppCfg.lMainWinHandle = (long)Handle;

    LangTrans->Translate(this, ITSDb_GetConnection());
    ITSSkin_Load(this);
    CMM_LoadForm(g_sFormsDir, this);

    SetColorScheme(g_AppCfg.sSkinName);

    CDSFontManager = new TCDSFontManager();
    FTitle = Caption;
    FEditMode = false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::FormCreate(TObject *Sender)
{
    Application->ShowMainForm = false;

    try {
        Application->Icon->LoadFromResourceName(((unsigned int)HInstance), "MAINICON");
    } catch(...) { ShowMessage("LoadFromResourceName failed"); }

    Application->ShowMainForm = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::FormShow(TObject *Sender)
{
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::FormInit()
{
    m_pGDC = TvList->DataController;

    //TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;

    TcxComboBoxProperties *pcxComboBoxProperties;
    pcxComboBoxProperties = (TcxComboBoxProperties*)Column04->Properties;
    pcxComboBoxProperties->Items->Clear();
    pcxComboBoxProperties->Items->Add("Y");
    pcxComboBoxProperties->Items->Add("N");

    pcxComboBoxProperties = (TcxComboBoxProperties*)Column14->Properties;
    pcxComboBoxProperties->Items->Clear();
    pcxComboBoxProperties->Items->Add("Y");
    pcxComboBoxProperties->Items->Add("N");
}
//---------------------------------------------------------------------------

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

void __fastcall TFrmVmsFont::CommClose()
{
    try
    {
        ITSSkin_Term();
        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(Exception &e)
    {
    }
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall TFrmVmsFont::BtnSearchClick(TObject *Sender)
{
    Application->ProcessMessages();
    TSqlCursor sqlCrs((TControl*)BtnSearch);

    RefreshData();
    CxList->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsFont::RefreshData()
{
    // 검색조건에 의한 링크 데이터 조회
    SelListData();
}
//---------------------------------------------------------------------------
bool __fastcall TFrmVmsFont::AddObjectItem(TCDSFontName *pObj, String AMode)
{
    int nRow;
    try
    {
        nRow = m_pGDC->AppendRecord();
        //pObj->GridIndex = nRow;

        m_pGDC->Values[nRow][ColumnSel->Index] = false;
        m_pGDC->Values[nRow][Column00->Index]  = AMode;
        m_pGDC->Values[nRow][Column01->Index]  = pObj->VMS_FONT_NAME_CD;
        m_pGDC->Values[nRow][Column02->Index]  = pObj->VMS_FONT_NAME_NM;
        m_pGDC->Values[nRow][Column12->Index]  = pObj->VMS_FONT_NAME_NM;
        m_pGDC->Values[nRow][Column03->Index]  = pObj->VMS_FONT_NAME_CD;
        m_pGDC->Values[nRow][Column13->Index]  = pObj->VMS_FONT_NAME_CD;
        m_pGDC->Values[nRow][Column04->Index]  = pObj->USE_YN;
        m_pGDC->Values[nRow][Column14->Index]  = pObj->USE_YN;

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

        return true;
    }
    catch(...)
    {
    }
    return false;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::SelListData()
{
    FUpdate = false;

    CMM_ClearGridTableView(TvList);

    CDSFontManager->LoadFontNameInfo();

    int nRow = 0;
    TcxDataController *pGDC = TvList->DataController;
    try
    {
        TvList->BeginUpdate(lsimImmediate);
        try
        {
            FOR_STL(TCDSFontName*, pObj, CDSFontManager->FNames)
            {
                //pObj->EditMode = DB_INIT;   // 미리초기화해준다.(삭제된것)
                //pObj->Completed = true;
                AddObjectItem(pObj, "-");
            }
        }
        catch(Exception &e)
        {
            DBERRORMSG("VMS Information Query", String(e.ClassName()), e.Message, "");
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
        TvList->EndUpdate();
        TvList->DataController->GotoFirst();
        TvList->DataController->FocusedRecordIndex = 0;
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::Column13CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
    try
    {
        //ACanvas->Canvas->Brush->Color = m_pColor[0]->Color;
        int iIndex = AViewInfo->Item->Index;
        String val  = (String)AViewInfo->GridRecord->DisplayTexts[iIndex];
        ACanvas->Canvas->Font->Color  = (TColor)StrToInt(val.c_str());
        ACanvas->Canvas->Brush->Color = (TColor)StrToInt(val.c_str());
    }
    catch(...) {}
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::BtnEditClick(TObject *Sender)
{
    TListFocus tvFocus(TvList);

    if (BtnEdit->Caption == "취소")
    {
        CxList->SetFocus();
        Application->ProcessMessages();
        SaveData();
        BtnSearchClick((TObject*)BtnSearch);
    }

    FrmLang->ITSSkin_ButtonClick(BtnSearch, BtnEdit, BtnInsert, BtnDelete, BtnApply);
    ChangeEditMode(BtnEdit->Down);
    FEditMode = BtnEdit->Down;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsFont::ChangeEditMode(bool AEdit)
{
    bool bEditing = AEdit;

    try
    {
        TvList->BeginUpdate();

        //Column00->Visible = bEditing;

        Column02->Options->Editing = bEditing;
        //Column03->Options->Editing = bEditing;
        Column04->Options->Editing = bEditing;
    }
    __finally
    {
        TvList->EndUpdate();
        if (bEditing)
        {
            BtnEdit->Caption = FrmLang->lblCancel->Caption;//"취소";
            BtnEdit->Hint    = FrmLang->lblCancel->Hint;//데이터 편집 취소";
        }
        else
        {
            BtnEdit->Caption = FrmLang->lblEdit->Caption;//"편집";
            BtnEdit->Hint    = FrmLang->lblEdit->Hint;//데이터 편집";
            Screen->Cursor = crDefault;
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::TvListMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
    try
    {
        if (!BtnEdit->Down) return;

        TcxGridSite *ASite = (TcxGridSite *)Sender;

        //Screen->Cursor = crDefault;

        //TcxCustomGridHitTest *AHitTest = tvSel->GetHitTest(X, Y);
        TcxCustomGridHitTest *AHitTest = dynamic_cast<TcxGridRecordHitTest*>(ASite->ViewInfo->GetHitTest(X, Y));
        if (dynamic_cast<TcxGridRecordHitTest*>(ASite->ViewInfo->GetHitTest(X, Y)))
        {
            int ARow = ((TcxGridRecordCellHitTest*)AHitTest)->GridRecord->Index;
            if (((TcxGridRecordCellHitTest*)AHitTest)->Item == NULL) return;
            int ACol = ((TcxGridRecordCellHitTest*)AHitTest)->Item->Index;

            if (ACol == Column03->Index &&
                ARow < ASite->GridView->DataController->RecordCount-1)
            {
                Screen->Cursor = FEditMode ? crHandPoint : crDefault;
            }
        }
        else
        {
            Screen->Cursor = crDefault;
        }
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::BtnApplyClick(TObject *Sender)
{
    FUpdate = true;
    BtnEdit->Down = false;
    BtnEdit->Click();
}
//---------------------------------------------------------------------------
bool __fastcall TFrmVmsFont::IsUpdate()
{
    int nMemPtr;
    String sName;
    String sUseYn;
    TCDSFontName *pObj;

    int nUpdateCnt = 0;
	int nRows = m_pGDC->RecordCount;
    try
    {
        for (int ii = 0; ii < nRows; ii++)
        {
            m_pGDC->Values[ii][Column88->Index] = 0;

            nMemPtr = m_pGDC->Values[ii][Column99->Index];
            pObj = (TCDSFontName*)nMemPtr;

            sName     = m_pGDC->Values[ii][Column02->Index];
            sUseYn    = m_pGDC->Values[ii][Column04->Index];

            if (sName     != pObj->VMS_FONT_NAME_NM ||
                sUseYn    != pObj->USE_YN)
            {
                m_pGDC->Values[ii][Column88->Index] = 1;
                nUpdateCnt++;
            }
        }
    }
    catch(...)
    {
    }

    if (nUpdateCnt == 0)
    {
        return false;
    }
    return true;
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsFont::RollbackListData()
{
    int nStateVal;
    int nColorVal;
    String sName, sUseYn;
    try
    {
        try
        {
            int nRows = m_pGDC->RecordCount;
            TvList->BeginUpdate();

            for (int ii = 0; ii < nRows; ii++)
            {
                nStateVal = m_pGDC->Values[ii][Column88->Index];
                if (nStateVal == 0) continue;

                sName     = m_pGDC->Values[ii][Column12->Index];
                nColorVal = m_pGDC->Values[ii][Column13->Index];
                sUseYn    = m_pGDC->Values[ii][Column14->Index];

                m_pGDC->Values[ii][Column88->Index] = 0;

                m_pGDC->Values[ii][Column02->Index] = sName;
                m_pGDC->Values[ii][Column03->Index] = nColorVal;
                m_pGDC->Values[ii][Column04->Index] = sUseYn;
            }
        }
        catch (Exception &exception)
        {
			throw Exception(String(exception.ClassName()) + exception.Message);
        }
	}
	__finally
	{
		TvList->EndUpdate();
	}
}
//---------------------------------------------------------------------------
void __fastcall TFrmVmsFont::SaveData()
{
	this->Update();

    if (!IsUpdate()) return;

    if (!FUpdate)
    {
        if (Application->MessageBox(FrmLang->lblEidtConfirm->Caption.c_str(),//L"변경된 정보가 있습니다.\r\n변경된 정보를 저장 하시겠습니까?",
                                    FTitle.c_str(), MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES)
        {
            RollbackListData();
            return;
        }
    }

	int           nStateVal;
    int           nMemPtr;
    TCDSFontName *pObj;

    int nColorVal;
    String sName, sUseYn;

    bool bSave = false;
    int nUpdateCnt = 0;
	int nRows = m_pGDC->RecordCount;
    TADOQuery *pADO = NULL;
    String sQry;
    try
    {
        try
        {
            pADO = new TADOQuery(NULL);
			pADO->Close();
            pADO->Connection = ITSDb_GetConnection();

            TvList->BeginUpdate();

			ITSDb_GetConnection()->BeginTrans();
			{
                sQry = "MERGE INTO TB_VMS_FONT_NAME L                             \r\n"
                       "USING (SELECT                                             \r\n"
                       "              :p01 AS VMS_FONT_NAME_CD,                   \r\n"
                       "              :p02 AS VMS_FONT_NAME_NM,                   \r\n"
                       "              :p03 AS USE_YN                              \r\n"
                       "         FROM DUAL) M                                     \r\n"
                       "        ON (L.VMS_FONT_NAME_CD = M.VMS_FONT_NAME_CD)      \r\n"
                       "WHEN MATCHED THEN                                         \r\n"
                       "   UPDATE SET                                             \r\n"
                       "              L.VMS_FONT_NAME_NM  = M.VMS_FONT_NAME_NM,   \r\n"
                       "              L.USE_YN            = M.USE_YN              \r\n"
                       "WHEN NOT MATCHED THEN                                     \r\n"
                       "   INSERT (                                               \r\n"
                       "           VMS_FONT_NAME_CD,                              \r\n"
                       "           VMS_FONT_NAME_NM,                              \r\n"
                       "           USE_YN )                                       \r\n"
                       "   VALUES (                                               \r\n"
                       "           M.VMS_FONT_NAME_CD,                            \r\n"
                       "           M.VMS_FONT_NAME_NM,                            \r\n"
                       "           M.USE_YN )                                     \r\n";

                ITSDb_SQLText(pADO, sQry);

                for (int ii = 0; ii < nRows; ii++)
				{
                    TSqlCursor sqlCrs;

                    nMemPtr = m_pGDC->Values[ii][Column99->Index];
                    pObj = (TCDSFontName*)nMemPtr;
                    if (!pObj) continue;

                    String  VMS_FONT_NAME_NM  = VarToStr(m_pGDC->Values[ii][Column02->Index]);
                    String  USE_YN            = VarToStr(m_pGDC->Values[ii][Column04->Index]);

                    //if (!pObj->Completed && pObj->EditMode != DB_NEW)
                    {
                        if (pObj->VMS_FONT_NAME_NM  == VMS_FONT_NAME_NM &&
                            pObj->USE_YN            == USE_YN
                           )
                        {
                            continue;
                        }
                    }

                    pObj->VMS_FONT_NAME_NM  = VMS_FONT_NAME_NM;
                    pObj->USE_YN            = USE_YN;

                    pADO->Parameters->ParamByName("p01")->Value = pObj->VMS_FONT_NAME_CD;
                    pADO->Parameters->ParamByName("p02")->Value = pObj->VMS_FONT_NAME_NM;
                    pADO->Parameters->ParamByName("p03")->Value = pObj->USE_YN;

					ITSDb_SQLExec(pADO);

                    m_pGDC->Values[ii][Column88->Index] = 0;

                }
				ITSDb_GetConnection()->CommitTrans();
                bSave = true;
            }
        }
        catch(EDatabaseError &E)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            ITSDb_GetConnection()->RollbackTrans();
            ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
            DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
	}
	__finally
	{
		TvList->EndUpdate();
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        if (bSave)
        {
            Application->ProcessMessages();
            Application->MessageBox(FrmLang->lblDbSave->Caption.c_str(),//L"변경된 소통등급 정보를 저장하였습니다.",
                                    FTitle.c_str(), MB_OK|MB_ICONQUESTION|MB_APPLMODAL);
            RefreshData();  //소통정보 변경을 알리기 위해 먼저 다시 읽어 놓는다.
            //POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_01, 0);
            //Sleep(500);
            //POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_06, 0); //가공서버로 보내는 메시지
        }
	}
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    SaveData();
}
//---------------------------------------------------------------------------
int __fastcall TFrmVmsFont::GetNextId()
{
    int FMaxID = 0;
    FOR_STL(TCDSFontName*, pObj, CDSFontManager->FNames)
    {
        if (pObj->VMS_FONT_NAME_CD > FMaxID)
        {
            FMaxID = pObj->VMS_FONT_NAME_CD;
        }
    }
    return FMaxID+1;
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::BtnInsertClick(TObject *Sender)
{
    int nMsgType = MB_OK|MB_ICONERROR|MB_APPLMODAL;

    try
    {
        try
        {
            TvList->BeginUpdate();

            TCDSFontName *pObj = new TCDSFontName();
            if (!pObj)
            {
                Application->MessageBox(FrmLang->lblMemErr->Caption.c_str(),//L"신규 휴일 정보를 생성할 수 없습니다.[메모리오류]",
                                        FTitle.c_str(), nMsgType);
                return;
            }

            pObj->VMS_FONT_NAME_CD  = GetNextId();
            pObj->VMS_FONT_NAME_NM  = "";
            pObj->USE_YN            = "Y";

            CDSFontManager->FNames.Push(pObj->VMS_FONT_NAME_CD, pObj);

            AddObjectItem(pObj, FrmLang->lblNew->Caption);//"신규");
        }
        __finally
        {
            LblRecords->Caption = "("+FormatFloat("##,##0", m_pGDC->FilteredRecordCount) +"/"+FormatFloat("##,##0", m_pGDC->RecordCount) + ")";
            TvList->EndUpdate();
            TvList->DataController->GotoFirst();
            TvList->DataController->FocusedRecordIndex = 0;
        }
    }
    __finally
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::TvListCellClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
          TMouseButton AButton, TShiftState AShift, bool &AHandled)
{
    if (FEditMode && ACellViewInfo->Item->Index == Column02->Index)
	{
        String VMS_FONT_NAME_CD = TvList->DataController->Values[TvList->DataController->GetFocusedRecordIndex()][Column02->Index];

		if (FontDialog1->Execute())
		{
            TFont* Font = FontDialog1->Font;
			TvList->DataController->Values[TvList->DataController->GetFocusedRecordIndex()][Column02->Index] = Font->Name;
            try
            {
                int nRows = TvList->DataController->FocusedRecordIndex;
                if (nRows < 0)
                {
                    return;
                }

                if (TvList->DataController->Values[nRows][Column02->Index] != TvList->DataController->Values[nRows][Column12->Index])
                {
                    //int nMemPtr = TvList->DataController->Values[nRows][Column99->Index];
                    //TCDSVmsColor *pObj = (TCDSVmsColor*)nMemPtr;

                    //TvList->DataController->Values[nRows][Column88->Index] = 1;
                    //TvList->DataController->Values[nRows][Column00->Index] = FrmLang->lblModify->Caption;//"수정";
                    //if (pObj) pObj->EditMode = DB_UPDATE;
                }
            }
            catch(...)
            {
            }
		}
	}
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::TvListCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
#if 0
    if (AViewInfo)
    {
        String sType = AViewInfo->GridRecord->DisplayTexts[Column00->Index];
        if (sType == FrmLang->lblModify->Caption)//"수정")
        {
            //ACanvas->Brush->Color = clOlive;
        }
        else if (sType == FrmLang->lblDelete->Caption)//"삭제")
        {
            //ACanvas->Brush->Color = clRed;
        }
        else if (sType == FrmLang->lblNew->Caption)//"신규")
        {
            //ACanvas->Brush->Color = clLime;
            if (AViewInfo->Focused) ACanvas->Font->Color = clBlack;
        }
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TFrmVmsFont::ColumnPropertiesValidate(TObject *Sender, Variant &DisplayValue, TCaption &ErrorText, bool &Error)

{
    if (TvList->Controller->FocusedRow->IsFilterRow) return;

    int nRow = m_pGDC->FocusedRecordIndex;
    if (nRow < 0) return;

    int nMemPtr = TvList->DataController->Values[nRow][Column99->Index];
    TCDSFontName *pObj = (TCDSFontName*)nMemPtr;

    String VMS_FONT_NAME_NM  = VarToStr(m_pGDC->Values[nRow][Column02->Index]);
    String USE_YN            = VarToStr(m_pGDC->Values[nRow][Column04->Index]);

    TcxGridColumn *pColumn = TvList->Controller->FocusedColumn;
    if      (pColumn == Column02) VMS_FONT_NAME_NM  = DisplayValue;
    else if (pColumn == Column04) USE_YN            = DisplayValue;

    if (pObj->VMS_FONT_NAME_NM  != VMS_FONT_NAME_NM  ||
        pObj->USE_YN            != USE_YN )
    {
        m_pGDC->Values[nRow][Column00->Index] = FrmLang->lblModify->Caption;//"수정";
        //pObj->EditMode = DB_UPDATE;
    }
    else
    {
        TvList->DataController->Values[nRow][Column00->Index] = "-";
        //pObj->EditMode = DB_INIT;
    }
}
//---------------------------------------------------------------------------