ITS_OP/SRC/PLUGIN/11.PARK/PIS0040M/PRK0040MF.cpp

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

#include <vcl.h>
#include <jpeg.hpp>
#include "ITSSkinF.h"
#include "ITSUtilF.h"
#include "ITSDbF.h"
#include "AppGlobalF.h"
#include "WindowMsgF.h"
#include "ITSLangTransF.h"
#include "ITS_OPLibF.h"
#pragma hdrstop

#include "PRK0040MF.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 resource "*.dfm"

TPRK0040M *PRK0040M = NULL;
//---------------------------------------------------------------------------

__fastcall TPRK0040M::TPRK0040M(TComponent* Owner)
    : TForm(Owner)
{
    LangTrans->Translate(this, ITSDb_GetConnection());
    ITSSkin_Load(this);
    CMM_LoadForm(g_sFormsDir, this);

    FUpdate= false;
    FTitle = Caption;//"VMS 소통정보 배경이미지관리";

	FListSymb = new TList;

    EditMode = false;

#if 0
    TvList->OptionsView->DataRowHeight  = 0;
    TvList->OptionsView->CellAutoHeight = true;
    TvList->OptionsView->Indicator      = false;

    TvList->OptionsCustomize->ColumnMoving  = false;
    TvList->OptionsCustomize->ColumnSorting = false;

    TvList->Columns[0]->Width = 60;
    TvList->Columns[0]->Options->HorzSizing = false;
#endif

    //http://docwiki.embarcadero.com/RADStudio/Rio/en/Colors_in_the_VCL
    m_Color[ 0] = Graphics::clLime;
    m_Color[ 1] = (TColor)RGB(0xFF, 0x00, 0x00);
    m_Color[ 2] = (TColor)RGB(0x00, 0x00, 0xFF);
    m_Color[ 3] = (TColor)RGB(0xFF, 0x82, 0x00);
    m_Color[ 4] = (TColor)RGB(0x94, 0x00, 0xD3);
    m_Color[ 5] = Graphics::clPurple;//(TColor)RGB(0x00, 0x00, 0x00);
    m_Color[ 6] = (TColor)RGB(0x82, 0x82, 0x82);
    m_Color[ 7] = (TColor)RGB(0x1E, 0x90, 0xFF);
    m_Color[ 8] = (TColor)RGB(0xB9, 0x06, 0x2F);
    m_Color[ 9] = (TColor)RGB(0x8c, 0x00, 0x8c);
    m_Color[10] = (TColor)RGB(0xFF, 0x82, 0x00);
    m_Color[11] = (TColor)RGB(0x94, 0x00, 0xD3);
    m_Color[12] = (TColor)RGB(0xB0, 0xC4, 0xDE);
    m_Color[13] = (TColor)RGB(0x00, 0xBF, 0xFF);
    m_Color[14] = (TColor)RGB(0x87, 0xCE, 0xEB);
    m_Color[15] = (TColor)RGB(0x87, 0xCE, 0xFA);
    m_Color[16] = (TColor)RGB(0xAD, 0xD8, 0xE6);
    m_Color[17] = (TColor)RGB(0xB0, 0xE0, 0xE6);
    m_Color[18] = (TColor)RGB(0xE6, 0xE6, 0xFA);
    m_Color[19] = (TColor)RGB(0xF0, 0xF8, 0xFF);

    ScrollBox1->Color = Color;
    cxLabel2->Style->LookAndFeel->NativeStyle = true;
    cxLabel2->Style->Font->Color = clWhite;
}
//---------------------------------------------------------------------------
TColor TPRK0040M::GetDisplayColor(int ASeq)
{
    //return g_DispColor[ASeq % MAX_DISPCOLOR];
    return m_Color[ASeq % MAX_PARK_CELL_COLOR];
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::CommClose()
{
    try
    {
        CMM_SaveForm(g_sFormsDir, this);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::FormShow(TObject *Sender)
{
    FormInit();
    Refresh();

    LoadPrkPlce();

    //FormInit();
    TmrShow->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TPRK0040M::LoadPrkPlce()
{
    CbPrk->Properties->Items->Clear();

    FOR_STL(TPrkPlce*, pObj, PrkPlceManager->FLists)
    {
        if (pObj->DEL_YN != "N") continue;

        CbPrk->Properties->Items->AddObject(" [" + pObj->CTLR_NMBR + "] " + pObj->NAME, (TObject*)pObj);
    }
    CbPrk->ItemIndex = 0;

    //LoadPrkFlr();
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::CbPrkPropertiesChange(TObject *Sender)
{
    TmrQry->Enabled = false;
    TmrQry->Enabled = true;
    Application->ProcessMessages();
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::LoadPrkFlr()
{
    TSqlCursor sqlCrs;
    Application->ProcessMessages();
    try {
        CbFlr->Properties->OnChange = NULL;
        CbFlr->Properties->Items->Clear();
        FormInit();

        TPrkPlce *pObj = (TPrkPlce*)CbPrk->Properties->Items->Objects[CbPrk->ItemIndex];
        if (pObj == NULL) {
            return;
        }

        if (pObj->FDevs.Size() == 0) {
            PrkPlceManager->LoadFromDbDev(pObj);
        }
        if (pObj->FFlrs.Size() == 0) {
            PrkPlceManager->LoadFromDbFlr(pObj);
            PrkPlceManager->LoadFromDbFlrDev(pObj);
        }

        FOR_STL(TPrkPlceFlr*, pFlr, pObj->FFlrs)
        {
            CbFlr->Properties->Items->AddObject(" " + pFlr->FLR_NO + " ", (TObject*)pFlr);
        }
        CbFlr->ItemIndex = -1;
    Application->ProcessMessages();
    }
    __finally {
        CbFlr->Properties->OnChange = CbFlrPropertiesChange;
        Application->ProcessMessages();
        CbFlr->ItemIndex = 0;
        Application->ProcessMessages();
    }
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::CbFlrPropertiesChange(TObject *Sender)
{
    Application->ProcessMessages();
    LoadPrkDetailInfo();
    Application->ProcessMessages();
    EdFocus->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TPRK0040M::LoadPrkDetailInfo()
{
    TSqlCursor sqlCrs;
    FormInit();

    TPrkPlce *pObj = (TPrkPlce*)CbPrk->Properties->Items->Objects[CbPrk->ItemIndex];
    if (pObj == NULL) {
        return;
    }
    TPrkPlceFlr *pFlr = (TPrkPlceFlr*)CbFlr->Properties->Items->Objects[CbFlr->ItemIndex];
    if (pFlr == NULL) {
        return;
    }
    SeCmprtCo->Value = pFlr->FLR_PRK_CMPRT_CO;

    LoadPrkFlrImage(pObj->CTLR_NMBR, pFlr->FLR_NO);
    BtnSearchClick(NULL);
    //LoadPrkFlrDevInfo();
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::FormInit()
{
    SeCmprtCo->Value = 0;
    SeRemain->Value = 0;

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

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

    CMM_ClearGridTableView(TvImageCell);

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

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

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

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

bool __fastcall TPRK0040M::UpdatePrkFlrInfo(String APrkNmbr, String AFlrNo)
{
    if (!FImageUpdate) {
        return true;
    }

    String sQry;
    TADOQuery *pADO = NULL;

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

    sQry = "UPDATE TB_PRK_PLCE_FLR          \r\n"
           "   SET FLR_IMAGE_TYPE = :p03    \r\n"
           "      ,FLR_IMAGE_DATA = :p04    \r\n"
           " WHERE PRK_PLCE_NMBR  = :p01    \r\n"
           "   AND FLR_NO         = :p02    \r\n";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", APrkNmbr);
            ITSDb_SQLBind(pADO, "p02", AFlrNo);
            ITSDb_SQLBind(pADO, "p03", FImageExt);
    		pADO->Parameters->ParamByName("p04")->LoadFromStream(dataStream, ftBlob);
			pADO->ExecSQL();
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TPRK0040M::UpdatePrkFlrInfo", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("TPRK0040M::UpdatePrkFlrInfo", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
        if (dataStream) delete dataStream;
        dataStream = NULL;
    }
    FImageUpdate = false;
    return true;
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::ClearImage() {
    try {
        ImgPreView->Picture->Bitmap->FreeImage();
        ImgPreView->Picture->Bitmap = NULL;
    } catch(Exception &e) {}
    try {
        ImgTemp->Picture->Bitmap->FreeImage();
        ImgTemp->Picture->Bitmap = NULL;
    } catch(Exception &e) {}
}
//---------------------------------------------------------------------------
bool __fastcall TPRK0040M::AssignPrkFlrImage(String AExt, TMemoryStream *AImgStream)
{
    AExt = AExt.UpperCase();
    FImageExt = AExt;
    try {
        try {
            if (AExt == "PNG") {
                TdxPNGImage *img = new TdxPNGImage;
                img->LoadFromStream(AImgStream);

                ImgPreView->Picture->Bitmap->Assign(img);
                ImgPreView->Picture->Bitmap->PixelFormat = pf24bit;

                ImgTemp->Picture->Bitmap->Assign(img);
                ImgTemp->Picture->Bitmap->PixelFormat = pf24bit;

                SAFE_DELETE(img);
            }
            else
            if (AExt == "JPG" || AExt == "JPEG") {
                TJPEGImage *img = new TJPEGImage();
                img->LoadFromStream(AImgStream);

                ImgPreView->Picture->Bitmap->Assign(img);
                ImgPreView->Picture->Bitmap->PixelFormat = pf24bit;

                ImgTemp->Picture->Bitmap->Assign(img);
                ImgTemp->Picture->Bitmap->PixelFormat = pf24bit;

                SAFE_DELETE(img);
            }
            else
            if (AExt == "BMP") {
                Graphics::TBitmap *img = new Graphics::TBitmap;
                img->LoadFromStream(AImgStream);

                ImgPreView->Picture->Bitmap->Assign(img);
                ImgTemp->Picture->Bitmap->Assign(img);

                SAFE_DELETE(img);
            }
            else {
                return false;
            }
        } catch(Exception &e) {
            return false;
        }
    } __finally {
        SAFE_DELETE(AImgStream);
    }
    return true;
}
//---------------------------------------------------------------------------
void __fastcall TPRK0040M::LoadPrkFlrDevInfo()
{
    CMM_ClearGridTableView(TvImageCell);

    TPrkPlceFlr *pFlr = (TPrkPlceFlr*)CbFlr->Properties->Items->Objects[CbFlr->ItemIndex];
    if (pFlr == NULL) {
        return;
    }

    try
    {
        int nRow;
        TcxDataController *pGDC = TvImageCell->DataController;
        TvImageCell->BeginUpdate();
        FOR_STL(TPrkPlceFlrDev*, pDev, pFlr->FFlrDevs)
        {
            nRow = pGDC->AppendRecord();
            pGDC->Values[nRow][ColDevId->Index]    = pDev->DEVICE_ID;
            //pGDC->Values[nRow][ColCellPosX->Index] = pDev->X_POS;
            //pGDC->Values[nRow][ColCellPosY->Index] = pDev->Y_POS;
        }
    }
    __finally
    {
        TvImageCell->EndUpdate();
        TvImageCell->DataController->GotoFirst();
        TvImageCell->DataController->FocusedRecordIndex = 0;
    }
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::LoadPrkFlrImage(String APrkNmbr, String AFlrNo)
{
    TSqlCursor sqlCrs;
    String sQry;
    TADOQuery *pADO = NULL;

    ClearImage();

    sQry = "SELECT FLR_NM,                  \r\n"
           "       FLR_IMAGE_TYPE,          \r\n"
           "       FLR_IMAGE_DATA           \r\n"
           "  FROM TB_PRK_PLCE_FLR          \r\n"
           " WHERE PRK_PLCE_NMBR = :p01     \r\n"
           "   AND FLR_NO        = :p02     \r\n";

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

            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", APrkNmbr);
            ITSDb_SQLBind(pADO, "p02", AFlrNo);
            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next())
            {
                String FLR_NM = pADO->FieldByName("FLR_NM")->AsString;
                String FLR_IMAGE_TYPE = pADO->FieldByName("FLR_IMAGE_TYPE")->AsString;
                //Variant varImage = pADO->FieldByName("FLR_IMAGE_DATA")->AsVariant;
                if (FLR_IMAGE_TYPE.Trim() != "") {
                    TMemoryStream *pImgStream = new TMemoryStream();
                    pImgStream->LoadFromStream(pADO->CreateBlobStream(pADO->FieldByName("FLR_IMAGE_DATA"), bmRead));

				    AssignPrkFlrImage(FLR_IMAGE_TYPE, pImgStream);
                }
            }
        }
        catch(EDatabaseError &E)
        {
            DBERRORMSG("TPRK0040M::LoadPrkFlrImage", String(E.ClassName()), E.Message, sQry);
            throw Exception(String(E.ClassName()) + E.Message);
        }
        catch(Exception &e)
        {
            DBERRORMSG("TPRK0040M::LoadPrkFlrImage", String(e.ClassName()), e.Message, sQry);
            throw Exception(String(e.ClassName()) + e.Message);
        }
    }
    __finally
    {
        if (pADO)
        {
            pADO->Close();
            delete pADO;
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::ColLink2CustomDrawCell(TcxCustomGridTableView *Sender,
          TcxCanvas *ACanvas, TcxGridTableDataCellViewInfo *AViewInfo,
          bool &ADone)
{
#if 0
    int nRow = AViewInfo->GridRecord->RecordIndex;
    if (nRow < 0) return;

    if (nRow >= FListSymb->Count)
    {
        return;
    }
    try
    {
        Graphics::TBitmap *pBmp = (Graphics::TBitmap*)FListSymb->Items[nRow];

        TRect rc;
        TRect rcOrg = AViewInfo->Bounds;
        int nH = ( (rcOrg.Bottom - rcOrg.Top) - pBmp->Height ) / 2;

        rc.Top    = rcOrg.Top    + nH+1;
        rc.Bottom = rcOrg.Bottom - nH+1;
        rc.Left   = rcOrg.Left + 1;
        rc.Right  = rc.Left + pBmp->Width;

        ACanvas->Canvas->StretchDraw(rc, pBmp);
        ADone = true;
    }
    catch(Exception &e)
    {
    }
#endif
}
//---------------------------------------------------------------------------

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

    try
    {
        String sDevId = VarToStr(TvImageCell->DataController->Values[nIdx][ColDevId->Index]);
        nIdx = sDevId.ToIntDef(0);
        ACanvas->Brush->Color = GetDisplayColor(nIdx-1);
        ACanvas->Font->Color = ACanvas->Brush->Color;
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::UpdateCellColor()
{
#if 0
    ImgPreView->Picture->Bitmap->FreeImage();
    ImgPreView->Picture->Bitmap = NULL;
    ImgPreView->Picture->Bitmap->Assign(ImgTemp->Picture->Bitmap);
    ImgPreView->Width  = ImgPreView->Picture->Bitmap->Width;
    ImgPreView->Height = ImgPreView->Picture->Bitmap->Height;

    TcxGridDataController *pGDC = TvImageCell->DataController;
    int nRows = pGDC->RecordCount;
    try
    {
        TvImageCell->BeginUpdate();
        pGDC->BeginUpdate();
        for (int ii = 0; ii < nRows; ii++)
        {
            String sDevId = VarToStr(pGDC->Values[ii][ColDevId->Index]);
            String sPosX  = VarToStr(pGDC->Values[ii][ColCellPosX->Index]);
            String sPosY  = VarToStr(pGDC->Values[ii][ColCellPosY->Index]);

            int X = sPosX.ToIntDef(0);
            int Y = sPosY.ToIntDef(0);
            if (X == 0 || Y == 0) {
                continue;
            }

            TColor FOldColor = ImgPreView->Picture->Bitmap->Canvas->Pixels[X][Y];

            int nIdx = sDevId.ToIntDef(0);
            ImgPreView->Picture->Bitmap->Canvas->Brush->Style = bsSolid;
            ImgPreView->Picture->Bitmap->Canvas->Brush->Color = GetDisplayColor(nIdx-1);
            ImgPreView->Picture->Bitmap->Canvas->FloodFill(X, Y, FOldColor, fsSurface);
        }
    }
    __finally
    {
        pGDC->EndUpdate();
        TvImageCell->EndUpdate();
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TPRK0040M::BtnSearchClick(TObject *Sender)
{
    TSqlCursor sqlCrs;
    TPrkPlce *pObj = (TPrkPlce*)CbPrk->Properties->Items->Objects[CbPrk->ItemIndex];
    if (pObj == NULL) {
        return;
    }
    TPrkPlceFlr *pFlr = (TPrkPlceFlr*)CbFlr->Properties->Items->Objects[CbFlr->ItemIndex];
    if (pFlr == NULL) {
        return;
    }

    SeRemain->Value = pFlr->FLR_REMNDR_PRK_CMPRT_CO;

    PrkPlceManager->LoadFromDbFlrDev(pObj);
    PrkPlceManager->LoadFromDbFlr(pObj);
    PrkPlceManager->LoadFromDbDev(pObj);

    ImgPreView->Picture->Bitmap->Assign(ImgTemp->Picture->Bitmap);

    CMM_ClearGridTableView(TvImageCell);

    try
    {
        int nRow;
        TcxDataController *pGDC = TvImageCell->DataController;
        TvImageCell->BeginUpdate();
        FOR_STL(TPrkPlceFlrDev*, pDev, pFlr->FFlrDevs)
        {
            nRow = pGDC->AppendRecord();
            pGDC->Values[nRow][ColDevId->Index] = pDev->DEVICE_ID;

            TPrkPlceDev *pRun = pObj->FDevs.Find(pDev->DEVICE_ID);
            if (pRun == NULL) {
                continue;
            }
            if (pRun->OCCUPATION == 1) {
                pGDC->Values[nRow][ColOccu->Index] = "점유";

                if (pDev->X_POS != 0 && pDev->Y_POS != 0) {
                    TColor FOldColor = ImgPreView->Picture->Bitmap->Canvas->Pixels[pDev->X_POS][pDev->Y_POS];
                    ImgPreView->Picture->Bitmap->Canvas->Brush->Style = bsSolid;
                    ImgPreView->Picture->Bitmap->Canvas->Brush->Color = clRed;//clWhite;
                    ImgPreView->Picture->Bitmap->Canvas->FloodFill(pDev->X_POS, pDev->Y_POS, FOldColor, fsSurface);
                }
            }
            else {
                pGDC->Values[nRow][ColOccu->Index] = "비점유";
            }

            if (pRun->CONNECTED == 0) {
                pGDC->Values[nRow][ColComm->Index] = "*이상*";
                if (pDev->X_POS != 0 && pDev->Y_POS != 0) {
                    TColor FOldColor = ImgPreView->Picture->Bitmap->Canvas->Pixels[pDev->X_POS][pDev->Y_POS];
                    ImgPreView->Picture->Bitmap->Canvas->Brush->Style = bsSolid;
                    ImgPreView->Picture->Bitmap->Canvas->Brush->Color = clYellow;
                    ImgPreView->Picture->Bitmap->Canvas->FloodFill(pDev->X_POS, pDev->Y_POS, FOldColor, fsSurface);
                }
            }
            else {
                pGDC->Values[nRow][ColComm->Index] = "정상";
            }
        }
    }
    __finally
    {
        TvImageCell->EndUpdate();
    }
}
//---------------------------------------------------------------------------



void __fastcall TPRK0040M::TmrQryTimer(TObject *Sender)
{
    TSqlCursor sqlCrs;
    TmrQry->Enabled = false;
    Application->ProcessMessages();
    LoadPrkFlr();

}
//---------------------------------------------------------------------------