ITS_OP/VMS0100M/VMS04001F.cpp

/****************************************************************************
 * @source      : 
 * @description : 
 ****************************************************************************
 * DATE         AUTHOR    DESCRIPTION
 * --------------------------------------------------------------------------
 * 2011/12/24   정승호    최초작성
 *
 ****************************************************************************/
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "VMS04001F.h"
#include "VMS04002F.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxButtons"
#pragma link "cxCheckBox"
#pragma link "cxClasses"
#pragma link "cxContainer"
#pragma link "cxControls"
#pragma link "cxCustomData"
#pragma link "cxData"
#pragma link "cxDataStorage"
#pragma link "cxDropDownEdit"
#pragma link "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxGroupBox"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxMaskEdit"
#pragma link "cxPC"
#pragma link "cxPCdxBarPopupMenu"
#pragma link "cxSpinEdit"
#pragma link "cxStyles"
#pragma link "cxTextEdit"
#pragma link "dxSkinBlack"
#pragma link "dxSkinMcSkin"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma resource "*.dfm"
//TVMS0400M *VMS0400M;
//---------------------------------------------------------------------------
__fastcall TVMS04001::TVMS04001(TComponent* Owner)
    : TPlugInForm(Owner)
{
    //종료 메시지를 메인윈도우로 전송하지 않는다.
    SendCloseMsg = false;
}
//---------------------------------------------------------------------------

/*
 * 닫기버튼 이나 x버튼 클릭시 공통으로 처리하는 로직이들어간다..
 * Form과 DataModule class를 delete시킨다.
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TVMS04001::CommClose()
{
    try
    {
        DeleteComboBox(CbFontName);
        DeleteComboBox(CbTextType);
        DeleteComboBox(CbAddTextType);
        DeleteComboBox(CbImageType);
        DeleteComboBox(CbFontNameRe);

        if (m_pDesigner)
        { 
            delete m_pDesigner; 
            m_pDesigner = NULL;
        }
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

/*
 * 화면 FormDestroy시 호출되는 Method
 * Form의 자원이 해제 되기 이전에 반드시 이 Method가 호출된다.
 * 그러므로 최종적으로 자원을 해제 하고자 한다면 이곳에서 처리하는게 확실함.
 *  parameter
 *      Sender : Event를 보낸 객체
 *  return
 *      None
 */
void __fastcall TVMS04001::FormDestroy(TObject *Sender)
{
    TPlugInForm::FormDestroy(Sender);    
}
//---------------------------------------------------------------------------

/*
 * Form이 메모리에서 생성될때 호출되는 생성자 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::FormCreate(TObject *Sender)
{
    m_pDesigner = new TITSVmsFormDesigner(PnlForm);  
    CbTextType->Visible = true;
    CbImageType->Visible= false;
    CbImageType->Top = CbTextType->Top;
    CbImageType->Left= CbTextType->Left;  
}
//---------------------------------------------------------------------------

/*
 * Form을 보여줄때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::FormShow(TObject *Sender)
{
    Refresh();
    FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------

/*
 * form 초기화
 *
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TVMS04001::FormInit()
{
    m_bEdit = false;
    PgEdit->ActivePageIndex = 0;
    
    PnlForm->Caption = "";
    PnlPreview->Caption = "";
    PnlEdit->Caption = "";
    
    PnlReForm->Caption = "";
    PnlReFormView->Caption = "";
    PnlRePreview->Caption = "";
    
	FillComboBox(CbFontName,    "VMS10"); // 폰트
	FillComboBox(CbTextType,    "VMS11"); // Text Object Type
    FillComboBox(CbAddTextType, "VMS11");
    FillComboBox(CbImageType,   "VMS12"); // Image Object Type

	FillComboBox(CbFontNameRe,  "VMS10"); // 폰트
	FormClear();

    TvObjList->OptionsView->NoDataToDisplayInfoText = "<등록되어 있는 객체 정보가 없습니다>";

    m_pDesigner->ApplicationHandle = (long)Handle;

    OpenBmp->InitialDir = ExtractFilePath(Application->ExeName) + "vms\\image";
}
//---------------------------------------------------------------------------

/*
 * form 입력 필드 Clear
 *  arguments
 *  return
 *      void
 */
void __fastcall TVMS04001::FormClear()
{
    JobType = enJobNone;
    
    CbFontName->ItemIndex = 0;
    CbTextType->ItemIndex = 0;
    CbAddTextType->ItemIndex = 0;
    CbImageType->ItemIndex = 0;
    CbBkColor->ItemIndex = 0;
    CbFontNameRe->ItemIndex = 0;
    CbFontNameRe->ItemIndex = 0;
}
//---------------------------------------------------------------------------

/*
 * Form을 Hide때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::FormHide(TObject *Sender)
{
    //  
}
//---------------------------------------------------------------------------
/*
 * Form이 화면에 활성화 될때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::FormActivate(TObject *Sender)
{
    // 
}
//---------------------------------------------------------------------------

/*
 * Form이 화면에서 비활성화 될때 호출되는 event 메서드이다.
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::FormDeactivate(TObject *Sender)
{
    // 
}
//---------------------------------------------------------------------------

/*
 * Form의 Skin 초기화 작업을 수행한다.
 *  arguments
 *      void
 *  return
 *      void
 */
void __fastcall TVMS04001::LoadLocalSkin()
{
    PnlForm->ParentColor = false;
    PnlForm->Color = clBlack;
    PnlPreview->ParentColor = false;
    PnlPreview->Color = clSilver;
    PnlEdit->ParentColor = false;
    PnlEdit->Color = clSilver;
    
    PnlReForm->ParentColor = false;
    PnlReForm->Color = clSilver;
    PnlReFormView->ParentColor = false;
    PnlReFormView->Color = clSilver;
    PnlRePreview->ParentColor = false;
    PnlRePreview->Color = true;
}
//---------------------------------------------------------------------------

/*
 * Form의 초기화 작업을 수행한다.
 *  arguments
 *      void
 *  return
 *      void
 */
bool __fastcall TVMS04001::Initialize()
{
    return true;
}
//---------------------------------------------------------------------------

/*
 * Form이 Show되고 난 후 최초 1회 수행되는 타이머 이벤트
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::TmrShowTimer(TObject *Sender)
{
    TmrShow->Enabled = false;
    BtnSearchClick((TObject*)BtnSearch);   
}
//---------------------------------------------------------------------------

/*
 * Refresh Data Event Function
 *  arguments
 *
 *  return
 *      void
 */
void __fastcall TVMS04001::RefreshData()
{
    // 검색조건에 의한 링크 데이터 조회
    try
    {
        ClearGridTableView(TvObjList);
        SelListData();
	}
	__finally
	{
	}
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::SelListData()
{
    int nObjCnt = m_pDesigner->GetObjectCount();
    TITSVmsFormObject *pObj;
    for(int ii = 0; ii < nObjCnt; ii++)
    {
        pObj = m_pDesigner->GetObject(ii);
        if (pObj)
        {
            AddObjectToList(pObj);
        }
    }
    if (TvObjList->DataController->RecordCount > 0) TvObjList->DataController->FocusedRecordIndex = 0;
}
//---------------------------------------------------------------------------

/*
 * Search 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::BtnSearchClick(TObject *Sender)
{
    RefreshData();    
    EdFocus->SetFocus();
}
//---------------------------------------------------------------------------

/*
 * Close 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::BtnCloseClick(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::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;

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

void __fastcall TVMS04001::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_pDesigner->GetSelectedObjectCount() < 1) return;
    int nValue = pPos->Value;
    switch(pPos->Tag)
    {
    case 0: m_pDesigner->MoveLeft(nValue); break;
    case 1: m_pDesigner->MoveUp(nValue);   break;
    }    
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::CbBkColorPropertiesChange(TObject *Sender)
{
    if (m_bEdit) return;
    //if (m_pDesigner->GetSelectedObjectCount() < 1) return;
    m_pDesigner->SetObjectBkColorCode(String(CbBkColor->ItemIndex));
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::ChkBlinkingClick(TObject *Sender)
{
    if (m_bEdit) return;
    //if (m_pDesigner->GetSelectedObjectCount() < 1) return;
    m_pDesigner->SetObjectBlink(ChkBlinking->Checked);
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::CbFontNamePropertiesChange(TObject *Sender)
{
    if (m_bEdit) return;
    //if (m_pDesigner->GetSelectedObjectCount() < 1) return;
    m_pDesigner->SetObejctFontName(CbFontName->Text);
    m_pDesigner->SetObejctFontNameCode(GetComboBoxCodeId(CbFontName));
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall TVMS04001::CbFontColorPropertiesChange(TObject *Sender)
{
    if (m_bEdit) return;
    //if (m_pDesigner->GetSelectedObjectCount() < 1) return;
    m_pDesigner->SetObejctFontColorCode(String(CbFontColor->ItemIndex));
}
//---------------------------------------------------------------------------

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

void __fastcall TVMS04001::CbTextAlignPropertiesChange(TObject *Sender)
{
    if (m_bEdit) return;
    //if (m_pDesigner->GetSelectedObjectCount() < 1) return;
    m_pDesigner->SetObejctTextAlign(CbTextAlign->ItemIndex);
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::EdTextDataPropertiesChange(TObject *Sender)
{
    if (m_bEdit) return;
    //if (m_pDesigner->GetSelectedObjectCount() < 1) return;
    m_pDesigner->SetObejctText(EdTextData->Text);
}
//---------------------------------------------------------------------------

/*
 * 선택된 객체의 정보를 Edit component에 표출한다.
 * argumemts
 *   
 * return
 *   void
 */
void __fastcall TVMS04001::FnFormObjectSelected(TMessage &Msg)
{
    m_bEdit = true;
    
    try {
        TITSVmsFormObject *pObj = (TITSVmsFormObject *)Msg.LParam;
        if (!pObj) return;
        if (!pObj->Selected) return;

        EdObjId->Text        = pObj->ObjId;

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

        if (pObj->DrawType == enText)
        {
            SelectComboBoxItem(CbTextType, pObj->ObjType);
            SelectComboBoxItem(CbFontName, pObj->FontNameCode);
            CbFontColor->ItemIndex = pObj->FontColorCode.ToInt();
            SeFontSize->Value      = pObj->FontSize;
            ChkFontBold->Checked   = pObj->FontBold;
            CbTextAlign->ItemIndex = pObj->TextAlign;
            
            if (EdTextData->Text != pObj->Text)  EdTextData->Text = pObj->Text;

            CbTextType->Visible = true;
            CbImageType->Visible= false;
        }
        else
        {
            SelectComboBoxItem(CbImageType, pObj->ObjType);

            CbTextType->Visible = false;
            CbImageType->Visible= true;
        }
    } catch(...) {}

    m_bEdit = false;
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall TVMS04001::CbFontNameReClick(TObject *Sender)
{
    ReForm->SelAttributes->Name = CbFontNameRe->Text;
}
//---------------------------------------------------------------------------

/*
 * 객체 추가 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::BtnAddTextClick(TObject *Sender)
{
    TCodeValue *pCode = (TCodeValue*)GetComboBoxObject(CbAddTextType);
    if (!pCode) return;
    
    String sDefText = pCode->GetOprCodeName();

    int nNewObjSeq = m_pDesigner->GetNewObjectSeq();

    TITSVmsFormObject *pObj = m_pDesigner->AddObject(enText);
    if (!pObj) return;
            
    pObj->ObjSeq  = nNewObjSeq;
    pObj->ObjKind = OBJKIND_TEXT;    // "0"
    pObj->ObjType = pCode->GetCode();
    pObj->ObjSize = sDefText.Length();
    pObj->BkColorCode = m_pDesigner->BkColorCode;
    pObj->Blink   = false;
            
    pObj->Text = sDefText;

    String sFontName = "굴림체";
    String sFontNameCode = "3";
    String sFontColorCode= "2";
    String sFontSize = 18;
    bool   bFontBold = true;
    
    try {
        TStringList *sList= new TStringList;
        sList->Delimiter = '^';
        sList->StrictDelimiter = true;
        sList->DelimitedText = pCode->GetRemark();
        for(int nCnt=0; nCnt < sList->Count; nCnt++)
        {
            switch(nCnt)
            {
            case 0: sFontName      = sList->Strings[nCnt]; break;
            case 1: sFontNameCode  = sList->Strings[nCnt]; break;
            case 2: sFontColorCode = sList->Strings[nCnt]; break;
            case 3: sFontSize      = sList->Strings[nCnt]; break;
            case 4: bFontBold      = sList->Strings[nCnt] == "1" ? true : false; break;
            }
        }
        delete sList;
    } catch(...) { }

    pObj->FontName      = sFontName;
    pObj->FontNameCode  = sFontNameCode;
    pObj->FontColorCode = sFontColorCode;
    pObj->FontSize      = sFontSize.ToInt();

    pObj->FontBold = bFontBold;
    pObj->TextAlign = 0;    // left

    pObj->SetPos(0, 0);
    pObj->EditMode = true;
    pObj->Show();
    
    AddObjectToList(pObj, true);
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::BtnAddImageClick(TObject *Sender)
{
    TcxButton *pBtn = (TcxButton *)Sender;
    int nImageType = pBtn->Tag;
        
    TITSVmsFormObject *pObj = NULL;
    int nNewObjSeq = m_pDesigner->GetNewObjectSeq();

    if (nImageType == 0 || nImageType == 1)
    {
        try {
            TVMS04002 *pSelForm = new TVMS04002(this);

            pSelForm->m_sImageKind = String(nImageType);
            
            pSelForm->ShowModal();
            if (!pSelForm->m_bSelected)
            {
                delete pSelForm;
                return;
            }
            
            pObj = m_pDesigner->AddObject(enBmp);
            if (!pObj) return;
            
            pObj->ObjSeq  = nNewObjSeq;
            pObj->ObjKind = OBJKIND_IMAGEID;    // "2"
            pObj->ObjType = String(201+nImageType);
            pObj->ObjSize = pSelForm->m_nImageSize;
            pObj->BkColorCode = m_pDesigner->BkColorCode;
            pObj->Blink   = false;
            
            pObj->Text = pSelForm->m_sImageName;
            pObj->ImageId = pSelForm->m_sImageId;
            pObj->SetBitmap(pSelForm->ImgPreView->Picture->Bitmap);    
            pObj->SetPos(0, 0);
            pObj->EditMode = true;
            pObj->Show();
    
            AddObjectToList(pObj, true);

            delete pSelForm;
        } catch(...) { }
    }
    else
    {
        OpenBmp->FileName = "";
        OpenBmp->Execute();    
    }
}
//---------------------------------------------------------------------------

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

	if (sFName.SubString(sFName.Length()-2, 3) != "BMP")
    {
        Application->MessageBox(L"BMP 파일만 적용 가능합니다.", L"VMS 이미지 선택", MB_OK|MB_ICONWARNING|MB_APPLMODAL);
		return;
	}

    try
    {
        DWORD dwFileSize = GetFileSize(sFName);
        if (dwFileSize <= 0)
        {
            Application->MessageBox(L"이미지 파일을 읽어 오는데 실패하였습니다.", L"VMS 이미지 선택", MB_OK|MB_ICONWARNING|MB_APPLMODAL);
            return;
        }
        if (dwFileSize > (1024 * 32))   // Max 32Kbytes
        {
            Application->MessageBox(L"이미지 파일의 최대 크기는 32KBytes를 넘을 수 없습니다.\r\n이미지 파일의 용량을 줄여 주세요.", L"VMS 이미지 선택", MB_OK|MB_ICONWARNING|MB_APPLMODAL);
            return;
        }

        ImgTemp->Picture->Bitmap->FreeImage();
        ImgTemp->Picture->Bitmap = NULL;
        ImgTemp->Picture->Bitmap->LoadFromFile(sFName);
        
        TITSVmsFormObject *pObj = NULL;
        int nNewObjSeq = m_pDesigner->GetNewObjectSeq();

        pObj = m_pDesigner->AddObject(enBmp);
        if (!pObj) return;
            
        pObj->ObjSeq  = nNewObjSeq;
        pObj->ObjKind = OBJKIND_IMAGE;    // "1"
        pObj->ObjType = String(201);

        pObj->ObjSize = (int)dwFileSize;
        pObj->SetBitmap(ImgTemp->Picture->Bitmap);    

        pObj->BkColorCode = m_pDesigner->BkColorCode;
        pObj->Blink   = false;
            
        pObj->Text = ExtractShortPathName(sFName).c_str();
        pObj->ImageId = String(nNewObjSeq);
        pObj->SetPos(0, 0);
        pObj->EditMode = true;
        pObj->Show();
    
        AddObjectToList(pObj, true);
    }
    catch(...)
    {
        return;
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::AddObjectToList(TITSVmsFormObject *pObj, bool bSelect/*=false*/)
{
    int nAddRow = -1;
    
    TcxGridDataController *pGDC = (TcxGridDataController *)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);
        if (pObj->ObjKind == OBJKIND_TEXT)
        {
            pGDC->Values[nAddRow][ColKind->Index] = "문자열";
            pGDC->Values[nAddRow][ColType->Index] = GetComboBoxCodeName(CbTextType, pObj->ObjType);
            pGDC->Values[nAddRow][ColData->Index] = pObj->Text;
        }
        else
        if (pObj->ObjKind == OBJKIND_IMAGE)
        {
            pGDC->Values[nAddRow][ColKind->Index] = "이미지";
            pGDC->Values[nAddRow][ColType->Index] = GetComboBoxCodeName(CbImageType, pObj->ObjType);
            pGDC->Values[nAddRow][ColData->Index] = pObj->Text;
        }
        else
        if (pObj->ObjKind == OBJKIND_IMAGEID)
        {
            pGDC->Values[nAddRow][ColKind->Index] = "이미지ID";
            pGDC->Values[nAddRow][ColType->Index] = GetComboBoxCodeName(CbImageType, pObj->ObjType);
            pGDC->Values[nAddRow][ColData->Index] = pObj->Text + " [" + pObj->ImageId + "]";
        }
        
        pGDC->Values[nAddRow][ColX->Index] = String(pObj->GetLeft());
        pGDC->Values[nAddRow][ColY->Index] = String(pObj->GetTop());
    }
    __finally
    {
        pGDC->EndUpdate();
        TvObjList->EndUpdate();
        if (bSelect && pGDC->RecordCount > 0) if (nAddRow >= 0) pGDC->FocusedRecordIndex = nAddRow;
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::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];

    m_pDesigner->SelectObject(sObjSeq.ToInt());
}
//---------------------------------------------------------------------------

/*
 * 삭제 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::BtnObjDeleteClick(TObject *Sender)
{
    if (m_pDesigner->GetSelectedObjectCount() < 1) return;

	String sMsgString;
    sMsgString  = "선택한 객체 정보를 모두 삭제하시겠습니까?";
    if (Application->MessageBox(sMsgString.c_str(), L"객체 정보 삭제", MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES)
    {
        return;
    }

    TITSVmsFormObject *pObj;
    int nObjCnt = m_pDesigner->GetObjectCount(); 
    for (int ii = nObjCnt-1; ii >= 0; ii--)
    {
        pObj = m_pDesigner->GetObject(ii);
        if (pObj->Selected) m_pDesigner->DelObject(ii);
    }
     
    BtnSearchClick(NULL);
}
//---------------------------------------------------------------------------
 
/*
 * 저장 버튼 클릭 이벤트 핸들러
 *  arguments
 *      Sender : event handler 객체
 *  return
 *      void
 */
void __fastcall TVMS04001::BtnFormSaveClick(TObject *Sender)
{
    String sFormId = EdID->Text;
    if (sFormId == "") return;

	String sMsgString;
    sMsgString  = "객체 정보를 모두 저장하시겠습니까?";
    if (Application->MessageBox(sMsgString.c_str(), L"객체 정보 저장", MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL) != IDYES)
    {
        return;
    }

    // 이전 데이터를 모두 삭제
    DeleteData(sFormId);
    
	String sQry;

#if 0
	sQry = "INSERT INTO TB_MS_VMS_FORMOBJECT("
           "     FORMID       , OBJECTSEQ   , OBJECTID, "
           "     OBJECTKIND   , OBJECTTYPE  ,"
           "     OBJECTSIZE   , ISBLINKING  ,"
           "     POSX         , POSY        ,"
           "     WIDTH        , HEIGHT      ,"
           "     BKCOLOR      , TEXTFONTNAME,"
           "     TEXTFONTCOLOR, TEXTFONTSIZE,"
           "     TEXTFONTBOLD , TEXTALIGN   ,"
           "     TEXTDATA     , IMAGEID     ,"
           "     IMAGETYPE    , IMAGEDATA    "
           "   ) VALUES (                    "
           "     :p01         , :p02        , :p20, "
           "     :p03         , :p04        ,"
           "     :p05         , :p06        ,"
           "     :p07         , :p08        ,"
           "     :p09         , :p10        ,"
           "     :p11         , :p12        ,"
           "     :p13         , :p14        ,"
           "     :p15         , :p16        ,"
           "     :p17         , :p18        ,"
           "     :p21         , :p19         "
           ")                                ";
#else
	sQry = "INSERT INTO TB_MS_VMS_FORMOBJECT("
           "     FORMID       , OBJECTSEQ   , OBJECTID, "
           "     OBJECTKIND   , OBJECTTYPE  ,"
           "     OBJECTSIZE   , ISBLINKING  ,"
           "     POSX         , POSY        ,"
           "     WIDTH        , HEIGHT      ,"
           "     BKCOLOR      , TEXTFONTNAME,"
           "     TEXTFONTCOLOR, TEXTFONTSIZE,"
           "     TEXTFONTBOLD , TEXTALIGN   ,"
           "     TEXTDATA     , IMAGEID      "
           "   ) VALUES (                    "
           "     :p01         , :p02        , :p19, "
           "     :p03         , :p04        ,"
           "     :p05         , :p06        ,"
           "     :p07         , :p08        ,"
           "     :p09         , :p10        ,"
           "     :p11         , :p12        ,"
           "     :p13         , :p14        ,"
           "     :p15         , :p16        ,"
           "     :p17         , :p18         "
           ")                                ";
#endif

    ITSDb_GetConnection()->BeginTrans();

    try
    {
        ADOQry->Connection = ITSDb_GetConnection();
        ClearQry();
        SetQry(sQry);

        String sImageType = "0";
        
        TITSVmsFormObject *pObj;
        int nObjCnt = m_pDesigner->GetObjectCount(); 
        for (int ii = 0; ii < nObjCnt; ii++)
        {
            pObj = m_pDesigner->GetObject(ii);
            if (!pObj) continue;

            pObj->ObjSeq = ii+1;

            ParamBind("p01", sFormId);
            ParamBind("p02", String(pObj->ObjSeq));
            ParamBind("p03", pObj->ObjKind);
            ParamBind("p04", pObj->ObjType);
            ParamBind("p05", String(pObj->ObjSize));
            if (pObj->Blink)  ParamBind("p06", "1");
            else              ParamBind("p06", "0");
            ParamBind("p07", String(pObj->GetLeft()));
            ParamBind("p08", String(pObj->GetTop()));
            ParamBind("p09", String(pObj->GetWidth()));
            ParamBind("p10", String(pObj->GetHeight()));
            ParamBind("p11", pObj->BkColorCode);
            ParamBind("p12", pObj->FontNameCode);
            ParamBind("p13", pObj->FontColorCode);
            ParamBind("p14", String(pObj->FontSize));
            if (pObj->FontBold) ParamBind("p15", "1");
            else                ParamBind("p15", "0");
            ParamBind("p16", String(pObj->TextAlign));
            ParamBind("p17", pObj->Text);

#if 0
            ParamBind("p18", pObj->ImageId);
            if (pObj->ObjKind == OBJKIND_IMAGE)
            {
                String sTmpFile;
                sTmpFile.printf(L"c:\\tmpobj%d_%d.bmp", ii, GetTickCount());
                try
                {
                    Graphics::TBitmap *Bitmap = pObj->GetBitmap();
                    Bitmap->SaveToFile(sTmpFile);
                    ADOQry->Parameters->ParamByName("p19")->LoadFromFile(sTmpFile, ftBlob);
                }
                __finally {
                    DeleteFile(sTmpFile);
                }
            }
            else  ParamBind("p19", "");
#else
            if (pObj->ObjKind == OBJKIND_IMAGE)
            {
                String sImageId = pObj->ImageId;
                if (sImageId.Length() != 10)
                {
                    /*
                    *  파일이미지를 선택한 경우
                    */
                    String sNewImageId;
                    
                    GetImageNewID(sNewImageId);
                    
                    pObj->ImageId = sNewImageId;
                    
                    InsertFileImage(sFormId, pObj);
                }
            }

            ParamBind("p18", pObj->ImageId);
#endif

            ParamBind("p19", pObj->ObjId);
//            ParamBind("p21", sImageType);

    		ExecuteQry();
        }
        ITSDb_GetConnection()->CommitTrans();
    }
    catch (Exception &exception)
    {
        ITSDb_GetConnection()->RollbackTrans();
        throw Exception(String(exception.ClassName()) + exception.Message);
    }

    BtnSearchClick(NULL);
}
//---------------------------------------------------------------------------

bool __fastcall TVMS04001::InsertFileImage(String sFormId, TITSVmsFormObject *pObj)
{
    bool bResult = false;
	String sQry;

	sQry = "INSERT INTO TB_MS_VMS_IMAGE ( "
           "       IMAGEID,    "
           "       IMAGEKIND,  "
           "       IMAGETYPE,  "
           "       IMAGENAME,  "
           "       IMAGEDESC,  "
           "       IMAGE    ,  "
           "       IMAGESIZE,  "
           "       IMAGEWIDTH, "
           "       IMAGEHEIGHT,"
           "       VMSID       "
           " ) VALUES(       "
           "       :p01,     "
           "       :p02,     "
           "       :p03,     "
           "       :p04,     "
		   "       :p05,     "
		   "       :p06,     "
		   "       :p07,     "
		   "       :p08,     "
		   "       :p09,     "
           "       :p10      "
           "       )         ";
           
	try
	{
        ClearQry(ADO);
        SetQry(ADO, sQry);
        ParamBind(ADO, "p01", pObj->ImageId);
        ParamBind(ADO, "p02", "0");
        ParamBind(ADO, "p03", "0");  // IMAGE TYPE(0:BITMAP,1:GIF,2:JPG,3:PCX)
        ParamBind(ADO, "p04", sFormId + " Image File");
        ParamBind(ADO, "p05", "Image File");
        ParamBind(ADO, "p07", String(pObj->ObjSize));

        String sTmpFile;
        sTmpFile.printf(L"c:\\IMG%s_%d.bmp", sFormId.Trim().c_str(), GetTickCount());
        try
        {
            Graphics::TBitmap *Bitmap = pObj->GetBitmap();
            Bitmap->SaveToFile(sTmpFile);
            ADO->Parameters->ParamByName("p06")->LoadFromFile(sTmpFile, ftBlob);
            ParamBind(ADO, "p08", String(Bitmap->Width));
            ParamBind(ADO, "p09", String(Bitmap->Height));
        }
        __finally {
            DeleteFile(sTmpFile);
        }

        ParamBind(ADO, "p10", "");

        bResult = (ExecuteQry(ADO) > 0) ? true : false;
    }
    catch (Exception &exception)
    {
		throw Exception(String(exception.ClassName()) + exception.Message);
    }

    return bResult;
}
//---------------------------------------------------------------------------

bool __fastcall TVMS04001::GetImageNewID(String &sNewID)
{
    bool bResult = false;
    String sQry;

    sQry = "select 'FILE' || lpad(nvl(max(substr(a.imageid, -4)), '000000') + 1, 6, '0') as nid "
           "  from tb_ms_vms_image a where substr(a.imageid, 1, 4) = 'FILE'                     ";

    try
    {
        ADO->Connection = ITSDb_GetConnection();
        ClearQry(ADO);
        SetQry(ADO, sQry);
        bResult = OpenQry(ADO);
        if (bResult)
        {
            ADO->First();
            sNewID = ADO->FieldByName("nid")->AsString;
        }
    }
    catch(EDatabaseError &E)
    {
        throw Exception(String(E.ClassName()) + E.Message);
    }
    catch (Exception &exception)
    {
        throw Exception(String(exception.ClassName()) + exception.Message);
    }
    catch(...)
    {
        throw Exception("알수없는 오류가 발생하였습니다.");
    }
    ADO->Close();
    
    return bResult;
}
//---------------------------------------------------------------------------

/*
 * 데이터 삭제
 *  arguments
 *      pCTV_ID  - CTV ID
 *  return
 *      삭제 성공 - true, 실패 - false
 */
bool __fastcall TVMS04001::DeleteData(String sID)
{
	String sQry;
	bool bResult = false;

	sQry = "DELETE TB_MS_VMS_FORMOBJECT"
		   " WHERE FORMID = :pID       ";
           
	try
	{
        ADOQry->Connection = ITSDb_GetConnection();
        ClearQry();
        SetQry(sQry);
        ParamBind("pID", sID);

		int nRowCnt = ExecuteQry();

        bResult = nRowCnt > 0 ? true : false;
    }
    catch (Exception &exception)
    {
		throw Exception(String(exception.ClassName()) + exception.Message);
    }

    return bResult;
}
//---------------------------------------------------------------------------

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

void __fastcall TVMS04001::BtnReApplyClick(TObject *Sender)
{
    BtnPreviewClick(NULL);
    
    m_pDesigner->AddDrawFormToVmsForm(ReForm, ImgPreview);
    
    /*
    *  신규로 등록한 객체의 객체타입과 폰트코드를 업데이트 한다.
    */
    CbAddTextType->ItemIndex = 0;   // For 고정문자열
    String sObjType = GetComboBoxCodeId(CbAddTextType);

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

    PgEdit->ActivePageIndex = 0;    
    BtnSearchClick(NULL);
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::BtnPreviewClick(TObject *Sender)
{
    m_pDesigner->PreviewDrawForm(ReForm, ReFormTemp, ImgPreview);
}
//---------------------------------------------------------------------------

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

void __fastcall TVMS04001::Button1Click(TObject *Sender)
{
    TITSVmsFormObject *pObj;
    int nObjCnt = m_pDesigner->GetObjectCount(); 
    for (int ii = 0; ii < nObjCnt; ii++)
    {
        pObj = m_pDesigner->GetObject(ii);
        if (!pObj->Selected) continue;
        if (pObj->ObjKind != OBJKIND_TEXT) continue;
        pObj->SetRuntimeText(Edit1->Text);
    }
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::ChkFontBoldClick(TObject *Sender)
{
    if (m_bEdit) return;
    //if (m_pDesigner->GetSelectedObjectCount() < 1) return;
    m_pDesigner->SetObejctFontBold(ChkFontBold->Checked);
}
//---------------------------------------------------------------------------

void __fastcall TVMS04001::EdObjIdPropertiesChange(TObject *Sender)
{
    if (m_bEdit) return;
    //if (m_pDesigner->GetSelectedObjectCount() < 1) return;

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