ITS-OP/SRC/PLUGIN/13.TRAFFIC-ANALYSIS-SUPPORT/TAS0060M/TAS00601F.cpp

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

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

#include "TAS00601F.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 "cxEdit"
#pragma link "cxFilter"
#pragma link "cxGraphics"
#pragma link "cxGrid"
#pragma link "cxGridBandedTableView"
#pragma link "cxGridCustomTableView"
#pragma link "cxGridCustomView"
#pragma link "cxGridLevel"
#pragma link "cxGridTableView"
#pragma link "cxLabel"
#pragma link "cxLookAndFeelPainters"
#pragma link "cxLookAndFeels"
#pragma link "cxSpinEdit"
#pragma link "cxSplitter"
#pragma link "cxStyles"
#pragma link "dxSkinBlack"
#pragma link "dxSkinBlue"
#pragma link "dxSkinsCore"
#pragma link "dxSkinscxPCPainter"
#pragma resource "*.dfm"

TTAS00601 *TAS00601 = NULL;

//---------------------------------------------------------------------------
__fastcall TTAS00601::TTAS00601(TComponent* Owner, HWND hHandle,
                                String AStDay, String AEdDay, String AStHour, String AEdHour, String AWeek, String ADir, String AAtrdNm, int ATable, int AQryType)
    : TForm(Owner)
{
    LangTrans->Translate(this, ITSDb_GetConnection());
    ITSSkin_Load(this);
    CMM_LoadForm(g_sFormsDir, this);

    FParent = hHandle;

    FStDay = AStDay;
    FEdDay = AEdDay;
    FStHour = AStHour;
    FEdHour = AEdHour;
    FWeek = AWeek;
    FDir = ADir;
    FAtrdNm = AAtrdNm;
    FTable = ATable;
    FQryType = AQryType;
}
//---------------------------------------------------------------------------
__fastcall TTAS00601::~TTAS00601(void)
{
}
//--------------------------------------------------------------------------

void __fastcall TTAS00601::FormInit()
{
    ADOQry->Connection = ITSDb_GetConnection();
    m_pGDC = TvList->DataController;

    TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<노선별속도분석 정보>";

    LblSearch->Caption = FrmLang->lblQryCond->Caption + FStDay + " ~ " + FEdDay;
}
//---------------------------------------------------------------------------

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

void __fastcall TTAS00601::CommClose()
{
    CMM_SaveForm(g_sFormsDir, this);
    //TAS00601 = NULL;
}
//---------------------------------------------------------------------------

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

    Application->ProcessMessages();

    if (FTable == 0)
    {
        Col04->Visible = true;
        SelHistory1();
    }
    else
    if (FTable == 1)
    {
        Col04->Visible = false;
        SelHistory2();
    }
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::ChkExpandClick(TObject *Sender)
{
    CMM_ExpandCollapseChk(TvList, ChkExpand->Checked);
}
//---------------------------------------------------------------------------

String __fastcall TTAS00601::GetDayWeekCode(String ADay)
{
    TDateTime dt;

    System::Word Year  = (System::Word)ADay.SubString( 1, 4).ToIntDef(2018);
    System::Word Month = (System::Word)ADay.SubString( 5, 2).ToIntDef(1);
    System::Word Day   = (System::Word)ADay.SubString( 7, 2).ToIntDef(1);
    dt = EncodeDate(Year, Month, Day);

    System::Word week = DayOfWeek(dt);
    //const days: array[1..7] of string = ('일','월','화','수','목','금','토');
    String sWeek[8] = { "", "DTW7", "DTW1", "DTW2", "DTW3", "DTW4", "DTW5", "DTW6" };

    return sWeek[week];
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::SelHistory1()
{
    TSqlCursor sqlCrs;

    String sQry;
    TADOQuery *pADO = ADOQry;

    String SQLAtrd = "";
    String SQLDrct = "";
    String SQLWeek = "";

    if (FAtrdNm != "")
    {
        SQLAtrd = "                              AND ATRD_NM IN (" + FAtrdNm + ")  \r\n";
    }
    if (FDir != "")
    {
        SQLDrct = "                              AND DRCT_CD IN (" + FDir + ")  \r\n";
    }
    if (FWeek != "")
    {
        SQLWeek = "           AND A.DAY_TYPE_CD IN (" + FWeek + ") \r\n";
    }

    sQry = "SELECT Y.ATRD_NM, Y.DRCT_CD_NM,                                       \r\n"
           "       Y.IFSC_STRT_NM||' → '||Y.IFSC_END_NM AS IFSC_NM,              \r\n"
           "       Y.LINK_STRT_NM||' → '||Y.LINK_END_NM AS LINK_NM,              \r\n"
           "       X.*                                                            \r\n"
           "  FROM (SELECT /*+ INDEX(A PK_TAS_LINK_SPED_HH) */                    \r\n"
           "               A.LINK_ID,                                             \r\n"
           "               ROUND(AVG(H00), 0) AS H00,                             \r\n"
           "               ROUND(AVG(H01), 0) AS H01,                             \r\n"
           "               ROUND(AVG(H02), 0) AS H02,                             \r\n"
           "               ROUND(AVG(H03), 0) AS H03,                             \r\n"
           "               ROUND(AVG(H04), 0) AS H04,                             \r\n"
           "               ROUND(AVG(H05), 0) AS H05,                             \r\n"
           "               ROUND(AVG(H06), 0) AS H06,                             \r\n"
           "               ROUND(AVG(H07), 0) AS H07,                             \r\n"
           "               ROUND(AVG(H08), 0) AS H08,                             \r\n"
           "               ROUND(AVG(H09), 0) AS H09,                             \r\n"
           "               ROUND(AVG(H10), 0) AS H10,                             \r\n"
           "               ROUND(AVG(H11), 0) AS H11,                             \r\n"
           "               ROUND(AVG(H12), 0) AS H12,                             \r\n"
           "               ROUND(AVG(H13), 0) AS H13,                             \r\n"
           "               ROUND(AVG(H14), 0) AS H14,                             \r\n"
           "               ROUND(AVG(H15), 0) AS H15,                             \r\n"
           "               ROUND(AVG(H16), 0) AS H16,                             \r\n"
           "               ROUND(AVG(H17), 0) AS H17,                             \r\n"
           "               ROUND(AVG(H18), 0) AS H18,                             \r\n"
           "               ROUND(AVG(H19), 0) AS H19,                             \r\n"
           "               ROUND(AVG(H20), 0) AS H20,                             \r\n"
           "               ROUND(AVG(H21), 0) AS H21,                             \r\n"
           "               ROUND(AVG(H22), 0) AS H22,                             \r\n"
           "               ROUND(AVG(H23), 0) AS H23,                             \r\n"
           "               ROUND(AVG(SPD), 0) AS SPD                              \r\n"
           "          FROM TB_TAS_LINK_SPED_HH A                                  \r\n"
           "         WHERE A.STAT_DAY BETWEEN :p01 AND :p02                       \r\n"
           "           AND A.LINK_ID IN (SELECT DISTINCT LINK_ID AS LINK_ID       \r\n"
           "                               FROM MV_ATRD_LINK                      \r\n"
           "                              WHERE 1=1                               \r\n"
           + SQLAtrd + SQLDrct +
           "                            )                                         \r\n"
           + SQLWeek +
           "         GROUP BY A.LINK_ID                                           \r\n"
           "       ) X,                                                           \r\n"
           "       MV_ATRD_LINK Y                                                 \r\n"
           " WHERE 1=1                                                            \r\n"
           "   AND Y.LINK_ID = X.LINK_ID                                          \r\n"
           + SQLAtrd + SQLDrct +
           " ORDER BY Y.ATRD_NM, Y.DRCT_CD_NM, Y.LINK_SEQ                         \r\n";

    m_pGDC = TvList->DataController;
    CMM_ClearGridTableView(TvList);

    int nRow = 0;
    int nIdxSped, ii;
    String colName;
    TvList->BeginUpdate(lsimImmediate);
    try
    {
        try
        {
            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", FStDay);
            ITSDb_SQLBind(pADO, "p02", FEdDay);

            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next(), nRow++)
            {
                nRow = m_pGDC->AppendRecord();

                m_pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("ATRD_NM")->AsString;
                m_pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("DRCT_CD_NM")->AsString;
                m_pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("IFSC_NM")->AsString;
                m_pGDC->Values[nRow][Col04->Index] = pADO->FieldByName("LINK_NM")->AsString;
                m_pGDC->Values[nRow][Col05->Index] = pADO->FieldByName("SPD")->AsString;

                nIdxSped = ColSped->Index;
                for (ii = 0; ii < DAY_HOUR; ii++)
                {
                    colName.printf(L"h%02d", ii);
                    m_pGDC->Values[nRow][nIdxSped] = pADO->FieldByName(colName)->AsInteger;

                    nIdxSped++;
                }
            }

            pADO->Close();
        }
        catch(EDatabaseError &E)
        {
            ::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)
        {
            ::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();

        LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건";

        String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다.";
        Application->MessageBox(sEnd.c_str(),
                                FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료",
                                MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
    }
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::SelHistory2()
{
    TSqlCursor sqlCrs;

    String sQry;
    TADOQuery *pADO = ADOQry;

    String SQLAtrd = "";
    String SQLDrct = "";
    String SQLWeek = "";

    if (FAtrdNm != "")
    {
        SQLAtrd = "                              AND ATRD_NM IN (" + FAtrdNm + ")  \r\n";
    }
    if (FDir != "")
    {
        SQLDrct = "                              AND DRCT_CD IN (" + FDir + ")  \r\n";
    }
    if (FWeek != "")
    {
        SQLWeek = "           AND A.DAY_TYPE_CD IN (" + FWeek + ") \r\n";
    }

    sQry = "SELECT Y.ATRD_NM, Y.DRCT_CD_NM,                                       \r\n"
           "       Y.IFSC_STRT_NM||' → '||Y.IFSC_END_NM AS IFSC_NM,              \r\n"
           "       Y.IFSC_STRT_NM||' → '||Y.IFSC_END_NM AS LINK_NM,              \r\n"
           "       X.*                                                            \r\n"
           "  FROM (SELECT /*+ INDEX(A PK_TAS_IFSC_SPED_HH) */                    \r\n"
           "               A.IFSC_ID,                                             \r\n"
           "               ROUND(AVG(H00), 0) AS H00,                             \r\n"
           "               ROUND(AVG(H01), 0) AS H01,                             \r\n"
           "               ROUND(AVG(H02), 0) AS H02,                             \r\n"
           "               ROUND(AVG(H03), 0) AS H03,                             \r\n"
           "               ROUND(AVG(H04), 0) AS H04,                             \r\n"
           "               ROUND(AVG(H05), 0) AS H05,                             \r\n"
           "               ROUND(AVG(H06), 0) AS H06,                             \r\n"
           "               ROUND(AVG(H07), 0) AS H07,                             \r\n"
           "               ROUND(AVG(H08), 0) AS H08,                             \r\n"
           "               ROUND(AVG(H09), 0) AS H09,                             \r\n"
           "               ROUND(AVG(H10), 0) AS H10,                             \r\n"
           "               ROUND(AVG(H11), 0) AS H11,                             \r\n"
           "               ROUND(AVG(H12), 0) AS H12,                             \r\n"
           "               ROUND(AVG(H13), 0) AS H13,                             \r\n"
           "               ROUND(AVG(H14), 0) AS H14,                             \r\n"
           "               ROUND(AVG(H15), 0) AS H15,                             \r\n"
           "               ROUND(AVG(H16), 0) AS H16,                             \r\n"
           "               ROUND(AVG(H17), 0) AS H17,                             \r\n"
           "               ROUND(AVG(H18), 0) AS H18,                             \r\n"
           "               ROUND(AVG(H19), 0) AS H19,                             \r\n"
           "               ROUND(AVG(H20), 0) AS H20,                             \r\n"
           "               ROUND(AVG(H21), 0) AS H21,                             \r\n"
           "               ROUND(AVG(H22), 0) AS H22,                             \r\n"
           "               ROUND(AVG(H23), 0) AS H23,                             \r\n"
           "               ROUND(AVG(SPD), 0) AS SPD                              \r\n"
           "          FROM TB_TAS_IFSC_SPED_HH A                                  \r\n"
           "         WHERE A.STAT_DAY BETWEEN :p01 AND :p02                       \r\n"
           "           AND A.IFSC_ID IN (SELECT DISTINCT IFSC_ID AS IFSC_ID       \r\n"
           "                               FROM MV_ATRD_IFSC                      \r\n"
           "                              WHERE 1=1                               \r\n"
           + SQLAtrd + SQLDrct +
           "                            )                                         \r\n"
           + SQLWeek +
           "         GROUP BY A.IFSC_ID                                           \r\n"
           "       ) X,                                                           \r\n"
           "       MV_ATRD_IFSC Y                                                 \r\n"
           " WHERE 1=1                                                            \r\n"
           "   AND Y.IFSC_ID = X.IFSC_ID                                          \r\n"
           + SQLAtrd + SQLDrct +
           " ORDER BY Y.ATRD_NM, Y.DRCT_CD_NM, Y.IFSC_SEQ                         \r\n";

    m_pGDC = TvList->DataController;
    CMM_ClearGridTableView(TvList);

    int nRow = 0;
    int nIdxSped, ii;
    String colName;
    TvList->BeginUpdate(lsimImmediate);
    try
    {
        try
        {
            ITSDb_SQLText(pADO, sQry);
            ITSDb_SQLBind(pADO, "p01", FStDay);
            ITSDb_SQLBind(pADO, "p02", FEdDay);

            ITSDb_SQLOpen(pADO);

            for( ; !pADO->Eof; pADO->Next(), nRow++)
            {
                nRow = m_pGDC->AppendRecord();

                m_pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("ATRD_NM")->AsString;
                m_pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("DRCT_CD_NM")->AsString;
                m_pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("IFSC_NM")->AsString;
                m_pGDC->Values[nRow][Col04->Index] = pADO->FieldByName("LINK_NM")->AsString;
                m_pGDC->Values[nRow][Col05->Index] = pADO->FieldByName("SPD")->AsString;

                nIdxSped = ColSped->Index;
                for (ii = 0; ii < DAY_HOUR; ii++)
                {
                    colName.printf(L"h%02d", ii);
                    m_pGDC->Values[nRow][nIdxSped] = pADO->FieldByName(colName)->AsInteger;

                    nIdxSped++;
                }
            }

            pADO->Close();
        }
        catch(EDatabaseError &E)
        {
            ::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)
        {
            ::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();

        LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건";

        String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다.";
        Application->MessageBox(sEnd.c_str(),
                                FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료",
                                MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
    }
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::DspHistory()
{
#if 0
    m_pGDC = TvList->DataController;

    try
    {
        CMM_ClearGridTableView(TvList);

        int nRow1 = 0;
        int nRow2 = 0;
        int nDataCnt = 0;
        int ii;

        try
        {
            TvList->BeginUpdate(lsimImmediate);

            nDataCnt = FAtrdManager->FLists.Size();

            int nIdxSped, nIdxGrad;
            FOR_STL(TAtrdInfo*, pObj, FAtrdManager->FLists)
            {
                nRow1 = m_pGDC->AppendRecord();
                nRow2 = m_pGDC->AppendRecord();

                m_pGDC->Values[nRow1][Col01->Index] = pObj->ATRD_NM;
                m_pGDC->Values[nRow1][Col02->Index] = pObj->DRCT_CD_NM;
                m_pGDC->Values[nRow1][Col03->Index] = pObj->STRT_NM + " → " + pObj->END_NM;
                m_pGDC->Values[nRow1][Col04->Index] = "현재";

                m_pGDC->Values[nRow2][Col01->Index] = pObj->ATRD_NM;
                m_pGDC->Values[nRow2][Col02->Index] = pObj->DRCT_CD_NM;
                m_pGDC->Values[nRow2][Col03->Index] = pObj->STRT_NM + " → " + pObj->END_NM;
                m_pGDC->Values[nRow2][Col04->Index] = "패턴";

                TIfscTrf *pTrf = FTrfManager->FLists.Find(pObj->IFSC_ID);
                if (pTrf == NULL)
                {
                    continue;
                }

                nIdxSped = ColSped->Index;
                nIdxGrad = ColGrad->Index;
                for (ii = 0; ii < DAY_HOUR; ii++)
                {
                    m_pGDC->Values[nRow1][nIdxSped] = pTrf->INFO[ii].C_SPED;
                    m_pGDC->Values[nRow1][nIdxGrad] = pTrf->INFO[ii].C_GRAD;

                    m_pGDC->Values[nRow2][nIdxSped] = pTrf->INFO[ii].P_SPED;
                    m_pGDC->Values[nRow2][nIdxGrad] = pTrf->INFO[ii].P_GRAD;

                    nIdxSped++;
                    nIdxGrad++;
                }
            }
        }
        __finally
        {
            TvList->EndUpdate();
            //CxList->SetFocus();

            DrawChart(FAtrdNm + " " + FQryDay);

            LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건";

            String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다.";
            Application->MessageBox(sEnd.c_str(),
                                    FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료",
                                    MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
        }
    }
    catch(EDatabaseError &E)
    {
        throw Exception(String(E.ClassName()) + E.Message);
    }
    catch(Exception &e)
    {
        throw Exception(String(e.ClassName()) + e.Message);
    }
#endif
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::DrawChart(String ATitle)
{
    TcxGridBandedTableView *pView = NULL;
    String                  sAxisX, sAxisY;
    int   nAxisY1, nAxisY2, nStColIdx, nEdColIdx, nTotColIdx;

    nEdColIdx = 0;
    nTotColIdx = -1;

    pView   = TvList;
    nAxisY1 = Col03->Index;         //구간명
    nAxisY2 = Col04->Index;         //구분
    nEdColIdx = TvListColumn29->Index;  // 23시
    nStColIdx = ColSped->Index;         // 00시

    /*
    *  Chart draw
    */
    try
    {
        m_pFrmChart->Clear();
        if (pView->DataController->RecordCount == 0)
        {
            return;
        }

        m_pFrmChart->BeginDraw("", "", "");
        m_pFrmChart->DrawChart5_1((TcxGridTableView *)pView, nAxisY1, nAxisY2, nStColIdx, nEdColIdx, nTotColIdx);
        m_pFrmChart->EndDraw();
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::OnMessage(TMessage &Msg)
{
    switch (Msg.Msg)
    {
    case WM_PARAM_DATABASE:
        if (WP_DB_SELECT_OK == Msg.WParam)
        {
            //ShowMessage("Select Ok");
        }
        break;
    }
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::BtnExlSaveClick(TObject *Sender)
{
    TcxGrid          *pGrid = CxList;
    TcxGridTableView *pView = TvList;
    String            sTitle= Caption;//"노선별속도분석";

    CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::FormClose(TObject *Sender, TCloseAction &Action)
{
    POST_MSG(FParent, WM_SUBFORM_CLOSE, 0, 0);
    CommClose();
    //TAS00601 = NULL;
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::FormDestroy(TObject *Sender)
{
    CommClose();
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::FormCreate(TObject *Sender)
{
    m_pFrmChart = new TPlugInChart(this);
    m_pFrmChart->Parent = PnlChart;
    m_pFrmChart->SetChartInfo("", "시간", "속도");
    m_pFrmChart->Show();
}
//---------------------------------------------------------------------------

void __fastcall TTAS00601::ColSpedCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas,
          TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone)
{
    TColor tColor = ACanvas->Brush->Color;
    TColor tFont  = clBlack;

    try
    {
        if (!VarIsNull(AViewInfo->Value))
        {
            int nSpd = AViewInfo->Value;
            if (nSpd == 0)
            {
                tFont = tColor;
                tColor = tFont;
            }
            else
            {
                if (nSpd <= 10)
                {
                    tFont = clWhite;
                    tColor = (TColor)0x333333;
                }
                else
                if (nSpd <= 20)
                {
                    tFont = tFont;
                    tColor = (TColor)0x575757;
                }
                else
                if (nSpd <= 30)
                {
                    tFont = tFont;
                    tColor = (TColor)0x7B7B7B;
                }
                else
                if (nSpd <= 40)
                {
                    tFont = tFont;
                    tColor = (TColor)0x9F9F9F;
                }
                else
                if (nSpd <= 50)
                {
                    tFont = clBlue;
                    tColor = (TColor)0xC3C3C3;
                }
                else
                if (nSpd <= 60)
                {
                    tFont = clBlue;
                    tColor = (TColor)0xE7E7E7;
                }
                else
                {
                    tFont = clBlue;
                    tColor = (TColor)0xF3F3F3;
                }
            }
        }
        else
        {
            tColor = clSilver;
            tFont = tColor;
        }

        ACanvas->Font->Color = tFont;
        ACanvas->SetBrushColor(tColor);
    }
    catch(...)
    {
    }
}
//---------------------------------------------------------------------------