TAS00201F.cpp 20 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "ITSSkinF.h"
  4. #include "ITSUtilF.h"
  5. #include "ITSDbF.h"
  6. #include "AppGlobalF.h"
  7. #include "WindowMsgF.h"
  8. #include "ITSLangTransF.h"
  9. #pragma hdrstop
  10. #include "TAS00201F.h"
  11. //---------------------------------------------------------------------------
  12. #pragma package(smart_init)
  13. #pragma link "cxButtons"
  14. #pragma link "cxCheckBox"
  15. #pragma link "cxClasses"
  16. #pragma link "cxContainer"
  17. #pragma link "cxControls"
  18. #pragma link "cxCustomData"
  19. #pragma link "cxData"
  20. #pragma link "cxDataStorage"
  21. #pragma link "cxEdit"
  22. #pragma link "cxFilter"
  23. #pragma link "cxGraphics"
  24. #pragma link "cxGrid"
  25. #pragma link "cxGridBandedTableView"
  26. #pragma link "cxGridCustomTableView"
  27. #pragma link "cxGridCustomView"
  28. #pragma link "cxGridLevel"
  29. #pragma link "cxGridTableView"
  30. #pragma link "cxLabel"
  31. #pragma link "cxLookAndFeelPainters"
  32. #pragma link "cxLookAndFeels"
  33. #pragma link "cxSplitter"
  34. #pragma link "cxStyles"
  35. #pragma link "dxSkinBlack"
  36. #pragma link "dxSkinBlue"
  37. #pragma link "dxSkinsCore"
  38. #pragma link "dxSkinscxPCPainter"
  39. #pragma resource "*.dfm"
  40. TTAS00201 *TAS00201 = NULL;
  41. //---------------------------------------------------------------------------
  42. __fastcall TTAS00201::TTAS00201(TComponent* Owner, HWND hHandle,
  43. String AAtrdId, String AAtrdNm, String AQryDay, String APtrnWeek, String APtrnWeekName)
  44. : TForm(Owner)
  45. {
  46. LangTrans->Translate(this, ITSDb_GetConnection());
  47. ITSSkin_Load(this);
  48. CMM_LoadForm(g_sFormsDir, this);
  49. FParent = hHandle;
  50. FAtrdId = AAtrdId;
  51. FAtrdNm = AAtrdNm;
  52. FQryDay = AQryDay;
  53. FPtrnWeek = APtrnWeek;
  54. FPtrnWeekName = APtrnWeekName;
  55. }
  56. //---------------------------------------------------------------------------
  57. __fastcall TTAS00201::~TTAS00201(void)
  58. {
  59. }
  60. //--------------------------------------------------------------------------
  61. void __fastcall TTAS00201::FormInit()
  62. {
  63. ADOQry->Connection = ITSDb_GetConnection();
  64. m_pGDC = TvList->DataController;
  65. TvList->OptionsView->NoDataToDisplayInfoText = FrmLang->lblNoInfo->Caption;//"<교통패턴분석 정보>";
  66. LblSearch->Caption = FrmLang->lblQryCond->Caption + FAtrdNm + " " + FQryDay + " " + FPtrnWeekName;
  67. }
  68. //---------------------------------------------------------------------------
  69. void __fastcall TTAS00201::FormShow(TObject *Sender)
  70. {
  71. FormInit();
  72. Refresh();
  73. TmrShow->Enabled = true;
  74. }
  75. //---------------------------------------------------------------------------
  76. void __fastcall TTAS00201::CommClose()
  77. {
  78. CMM_SaveForm(g_sFormsDir, this);
  79. //TAS00201 = NULL;
  80. }
  81. //---------------------------------------------------------------------------
  82. void __fastcall TTAS00201::TmrShowTimer(TObject *Sender)
  83. {
  84. TmrShow->Enabled = false;
  85. Application->ProcessMessages();
  86. SelHistory();
  87. }
  88. //---------------------------------------------------------------------------
  89. void __fastcall TTAS00201::ChkExpandClick(TObject *Sender)
  90. {
  91. CMM_ExpandCollapseChk(TvList, ChkExpand->Checked);
  92. }
  93. //---------------------------------------------------------------------------
  94. void __fastcall TTAS00201::SelHistory()
  95. {
  96. TSqlCursor sqlCrs;
  97. String sQry;
  98. TADOQuery *pADO = ADOQry;
  99. sQry =
  100. "SELECT L.*, M.*, DECODE(L.DRCT_CD, '0', '상행', '하행') AS DRCT_CD_NM \r\n"
  101. " FROM (SELECT X.ATRD_ID, X.ATRD_NM, X.DRCT_CD, X.DRCT_NM, \r\n"
  102. " Y.ROAD_ORD, Y.IFSC_ORD, Y.IFSC_ID, Y.IFSC_NM, Y.STRT_NM, Y.END_NM, Y.SECT_LNGT \r\n"
  103. " FROM TB_ATRD X, \r\n"
  104. " (SELECT A.ATRD_ID, A.ORD AS ROAD_ORD, A.ROAD_ID, B.IFSC_ID, B.ORD AS IFSC_ORD, \r\n"
  105. " C.IFSC_NM, C.STRT_NM, C.END_NM, C.SECT_LNGT \r\n"
  106. " FROM TB_ATRD_RLTN_ROAD A, TB_ROAD_RLTN_IFSC B, TB_IFSC C \r\n"
  107. " WHERE A.ROAD_ID = B.ROAD_ID \r\n"
  108. " AND B.IFSC_ID = C.IFSC_ID \r\n"
  109. " AND A.ATRD_ID IN (SELECT ATRD_ID FROM TB_ATRD WHERE TRIM(ATRD_NM) = :p01) \r\n"
  110. " ) Y \r\n"
  111. " WHERE X.ATRD_ID = Y.ATRD_ID \r\n"
  112. " AND X.ATRD_ID IN (SELECT ATRD_ID FROM TB_ATRD WHERE TRIM(ATRD_NM) = :p02) \r\n"
  113. " ) L, \r\n"
  114. " (SELECT IFSC_ID AS IFSC_ID_H, \r\n"
  115. " SUM(DECODE(STAT_HM, '0000', DECODE(SPED, NULL, 0, SPED), 0)) AS S00, \r\n"
  116. " MAX(DECODE(STAT_HM, '0000', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G00, \r\n"
  117. " SUM(DECODE(STAT_HM, '0100', DECODE(SPED, NULL, 0, SPED), 0)) AS S01, \r\n"
  118. " MAX(DECODE(STAT_HM, '0100', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G01, \r\n"
  119. " SUM(DECODE(STAT_HM, '0200', DECODE(SPED, NULL, 0, SPED), 0)) AS S02, \r\n"
  120. " MAX(DECODE(STAT_HM, '0200', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G02, \r\n"
  121. " SUM(DECODE(STAT_HM, '0300', DECODE(SPED, NULL, 0, SPED), 0)) AS S03, \r\n"
  122. " MAX(DECODE(STAT_HM, '0300', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G03, \r\n"
  123. " SUM(DECODE(STAT_HM, '0400', DECODE(SPED, NULL, 0, SPED), 0)) AS S04, \r\n"
  124. " MAX(DECODE(STAT_HM, '0400', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G04, \r\n"
  125. " SUM(DECODE(STAT_HM, '0500', DECODE(SPED, NULL, 0, SPED), 0)) AS S05, \r\n"
  126. " MAX(DECODE(STAT_HM, '0500', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G05, \r\n"
  127. " SUM(DECODE(STAT_HM, '0600', DECODE(SPED, NULL, 0, SPED), 0)) AS S06, \r\n"
  128. " MAX(DECODE(STAT_HM, '0600', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G06, \r\n"
  129. " SUM(DECODE(STAT_HM, '0700', DECODE(SPED, NULL, 0, SPED), 0)) AS S07, \r\n"
  130. " MAX(DECODE(STAT_HM, '0700', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G07, \r\n"
  131. " SUM(DECODE(STAT_HM, '0800', DECODE(SPED, NULL, 0, SPED), 0)) AS S08, \r\n"
  132. " MAX(DECODE(STAT_HM, '0800', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G08, \r\n"
  133. " SUM(DECODE(STAT_HM, '0900', DECODE(SPED, NULL, 0, SPED), 0)) AS S09, \r\n"
  134. " MAX(DECODE(STAT_HM, '0900', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G09, \r\n"
  135. " SUM(DECODE(STAT_HM, '1000', DECODE(SPED, NULL, 0, SPED), 0)) AS S10, \r\n"
  136. " MAX(DECODE(STAT_HM, '1000', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G10, \r\n"
  137. " SUM(DECODE(STAT_HM, '1100', DECODE(SPED, NULL, 0, SPED), 0)) AS S11, \r\n"
  138. " MAX(DECODE(STAT_HM, '1100', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G11, \r\n"
  139. " SUM(DECODE(STAT_HM, '1200', DECODE(SPED, NULL, 0, SPED), 0)) AS S12, \r\n"
  140. " MAX(DECODE(STAT_HM, '1200', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G12, \r\n"
  141. " SUM(DECODE(STAT_HM, '1300', DECODE(SPED, NULL, 0, SPED), 0)) AS S13, \r\n"
  142. " MAX(DECODE(STAT_HM, '1300', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G13, \r\n"
  143. " SUM(DECODE(STAT_HM, '1400', DECODE(SPED, NULL, 0, SPED), 0)) AS S14, \r\n"
  144. " MAX(DECODE(STAT_HM, '1400', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G14, \r\n"
  145. " SUM(DECODE(STAT_HM, '1500', DECODE(SPED, NULL, 0, SPED), 0)) AS S15, \r\n"
  146. " MAX(DECODE(STAT_HM, '1500', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G15, \r\n"
  147. " SUM(DECODE(STAT_HM, '1600', DECODE(SPED, NULL, 0, SPED), 0)) AS S16, \r\n"
  148. " MAX(DECODE(STAT_HM, '1600', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G16, \r\n"
  149. " SUM(DECODE(STAT_HM, '1700', DECODE(SPED, NULL, 0, SPED), 0)) AS S17, \r\n"
  150. " MAX(DECODE(STAT_HM, '1700', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G17, \r\n"
  151. " SUM(DECODE(STAT_HM, '1800', DECODE(SPED, NULL, 0, SPED), 0)) AS S18, \r\n"
  152. " MAX(DECODE(STAT_HM, '1800', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G18, \r\n"
  153. " SUM(DECODE(STAT_HM, '1900', DECODE(SPED, NULL, 0, SPED), 0)) AS S19, \r\n"
  154. " MAX(DECODE(STAT_HM, '1900', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G19, \r\n"
  155. " SUM(DECODE(STAT_HM, '2000', DECODE(SPED, NULL, 0, SPED), 0)) AS S20, \r\n"
  156. " MAX(DECODE(STAT_HM, '2000', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G20, \r\n"
  157. " SUM(DECODE(STAT_HM, '2100', DECODE(SPED, NULL, 0, SPED), 0)) AS S21, \r\n"
  158. " MAX(DECODE(STAT_HM, '2100', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G21, \r\n"
  159. " SUM(DECODE(STAT_HM, '2200', DECODE(SPED, NULL, 0, SPED), 0)) AS S22, \r\n"
  160. " MAX(DECODE(STAT_HM, '2200', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G22, \r\n"
  161. " SUM(DECODE(STAT_HM, '2300', DECODE(SPED, NULL, 0, SPED), 0)) AS S23, \r\n"
  162. " MAX(DECODE(STAT_HM, '2300', DECODE(GRAD, NULL, 'LTC0', GRAD), 'LTC0')) AS G23 \r\n"
  163. " FROM ( \r\n"
  164. " SELECT A.IFSC_ID, A.STAT_HM, A.SPED, A.TRVL_HH, \r\n"
  165. " NVL(B.CMTR_GRAD_CD, 'LTC0') AS GRAD \r\n"
  166. " FROM TB_IFSC_HH_PTRN A, \r\n"
  167. " TB_SECT_GRAD_STUP B, \r\n"
  168. " TB_IFSC C \r\n"
  169. " WHERE A.STAT_YM = :p03 \r\n"
  170. " AND A.DAY_TYPE_CD = :p04 \r\n"
  171. " AND A.IFSC_ID IN (SELECT B.IFSC_ID AS IFSC_ID \r\n"
  172. " FROM TB_ATRD_RLTN_ROAD A, TB_ROAD_RLTN_IFSC B, TB_IFSC C \r\n"
  173. " WHERE A.ROAD_ID = B.ROAD_ID \r\n"
  174. " AND B.IFSC_ID = C.IFSC_ID \r\n"
  175. " AND A.ATRD_ID IN (SELECT ATRD_ID \r\n"
  176. " FROM TB_ATRD WHERE TRIM(ATRD_NM) = :p05) \r\n"
  177. " GROUP BY B.IFSC_ID) \r\n"
  178. " AND A.IFSC_ID = C.IFSC_ID \r\n"
  179. " AND B.SECT_GRAD_CD = C.SECT_GRAD_CD \r\n"
  180. " AND (A.SPED >= B.LWST_TRVL_SPED AND A.SPED <= B.HGHS_TRVL_SPED) \r\n"
  181. " ) \r\n"
  182. " GROUP BY IFSC_ID \r\n"
  183. " ) M \r\n"
  184. " WHERE L.IFSC_ID = M.IFSC_ID_H(+) \r\n"
  185. " ORDER BY L.ATRD_ID, L.DRCT_CD, L.ROAD_ORD, L.IFSC_ORD \r\n";
  186. try
  187. {
  188. ITSDb_SQLText(pADO, sQry);
  189. ITSDb_SQLBind(pADO, "p01", FAtrdNm);
  190. ITSDb_SQLBind(pADO, "p02", FAtrdNm);
  191. ITSDb_SQLBind(pADO, "p03", FQryDay);
  192. ITSDb_SQLBind(pADO, "p04", FPtrnWeek);
  193. ITSDb_SQLBind(pADO, "p05", FAtrdNm);
  194. ITSDb_SQLOpen(pADO);
  195. DspHistory();
  196. }
  197. catch(EDatabaseError &E)
  198. {
  199. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  200. DBERRORMSG(Caption, String(E.ClassName()), E.Message, sQry);
  201. throw Exception(String(E.ClassName()) + E.Message);
  202. }
  203. catch(Exception &e)
  204. {
  205. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  206. DBERRORMSG(Caption, String(e.ClassName()), e.Message, sQry);
  207. throw Exception(String(e.ClassName()) + e.Message);
  208. }
  209. }
  210. //---------------------------------------------------------------------------
  211. void __fastcall TTAS00201::DspHistory()
  212. {
  213. TADOQuery *pADO = ADOQry;
  214. m_pGDC = TvList->DataController;
  215. try
  216. {
  217. CMM_ClearGridTableView(TvList);
  218. int nRow = 0;
  219. int nDataCnt = 0;
  220. try
  221. {
  222. TvList->BeginUpdate(lsimImmediate);
  223. nDataCnt = pADO->RecordCount;
  224. m_pGDC->RecordCount = nDataCnt;
  225. for( ; !pADO->Eof; pADO->Next(), nRow++)
  226. {
  227. m_pGDC->Values[nRow][Col01->Index] = pADO->FieldByName("ATRD_NM")->AsString;
  228. m_pGDC->Values[nRow][Col02->Index] = pADO->FieldByName("DRCT_CD_NM")->AsString;
  229. m_pGDC->Values[nRow][Col03->Index] = pADO->FieldByName("STRT_NM")->AsString + " → " + pADO->FieldByName("END_NM")->AsString;
  230. String sSped, sGrad;
  231. int nIdxSped, nIdxGrad;
  232. nIdxSped = ColSped->Index;
  233. nIdxGrad = ColGrad->Index;
  234. for (int ii = 0; ii < 24; ii++)
  235. {
  236. sSped.printf(L"S%02d", ii);
  237. sGrad.printf(L"G%02d", ii);
  238. m_pGDC->Values[nRow][nIdxSped++] = pADO->FieldByName(sSped)->AsString;
  239. m_pGDC->Values[nRow][nIdxGrad++] = pADO->FieldByName(sGrad)->AsString;
  240. }
  241. }
  242. }
  243. __finally
  244. {
  245. if (pADO)
  246. {
  247. pADO->Close();
  248. }
  249. TvList->EndUpdate();
  250. //CxList->SetFocus();
  251. DrawChart(FAtrdNm + " " + FQryDay + " " + FPtrnWeekName);
  252. LblRecords->Caption = FormatFloat("##,##0", m_pGDC->RecordCount) + FrmLang->lblEA->Caption;//" 건";
  253. String sEnd = FrmLang->lblQrySel->Caption + " [" + LblRecords->Caption + "]";//"데이터 " + LblRecords->Caption + " 이 조회 되었습니다.";
  254. Application->MessageBox(sEnd.c_str(),
  255. FrmLang->lblQryEnd->Caption.c_str(),//L"데이터 조회 완료",
  256. MB_OK|MB_ICONINFORMATION|MB_APPLMODAL);
  257. }
  258. }
  259. catch(EDatabaseError &E)
  260. {
  261. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  262. DBERRORMSG(Caption, String(E.ClassName()), E.Message, pADO->SQL->Text);
  263. throw Exception(String(E.ClassName()) + E.Message);
  264. }
  265. catch(Exception &e)
  266. {
  267. ::PostMessage(Application->MainForm->Handle, (UINT)(WM_USER+0xF4), (WPARAM)0xB2, (LPARAM)0xB2);
  268. DBERRORMSG(Caption, String(e.ClassName()), e.Message, pADO->SQL->Text);
  269. throw Exception(String(e.ClassName()) + e.Message);
  270. }
  271. }
  272. //---------------------------------------------------------------------------
  273. void __fastcall TTAS00201::DrawChart(String ATitle)
  274. {
  275. TcxGridBandedTableView *pView = NULL;
  276. String sAxisX, sAxisY;
  277. int nAxisY1, nAxisY2, nStColIdx, nEdColIdx, nTotColIdx;
  278. nEdColIdx = 0;
  279. nTotColIdx = -1;
  280. pView = TvList;
  281. nAxisY1 = Col03->Index; //구간명
  282. nAxisY2 = Col02->Index; //방향
  283. nEdColIdx = TvListColumn29->Index; // 23시
  284. nStColIdx = ColSped->Index; // 00시
  285. /*
  286. * Chart draw
  287. */
  288. try
  289. {
  290. m_pFrmChart->Clear();
  291. if (pView->DataController->RecordCount == 0)
  292. {
  293. return;
  294. }
  295. m_pFrmChart->BeginDraw("", "", "");
  296. m_pFrmChart->DrawChart5_1((TcxGridTableView *)pView, nAxisY1, nAxisY2, nStColIdx, nEdColIdx, nTotColIdx);
  297. m_pFrmChart->EndDraw();
  298. }
  299. catch(...)
  300. {
  301. }
  302. }
  303. //---------------------------------------------------------------------------
  304. void __fastcall TTAS00201::OnMessage(TMessage &Msg)
  305. {
  306. switch (Msg.Msg)
  307. {
  308. case WM_PARAM_DATABASE:
  309. if (WP_DB_SELECT_OK == Msg.WParam)
  310. {
  311. //ShowMessage("Select Ok");
  312. }
  313. break;
  314. }
  315. }
  316. //---------------------------------------------------------------------------
  317. void __fastcall TTAS00201::BtnExlSaveClick(TObject *Sender)
  318. {
  319. TcxGrid *pGrid = CxList;
  320. TcxGridTableView *pView = TvList;
  321. String sTitle= Caption;//"교통패턴분석";
  322. CMM_ExportToExcelFile(sTitle, pGrid, pView, this);
  323. }
  324. //---------------------------------------------------------------------------
  325. void __fastcall TTAS00201::FormClose(TObject *Sender, TCloseAction &Action)
  326. {
  327. POST_MSG(FParent, WM_SUBFORM_CLOSE, 0, 0);
  328. CommClose();
  329. //TAS00201 = NULL;
  330. }
  331. //---------------------------------------------------------------------------
  332. void __fastcall TTAS00201::FormDestroy(TObject *Sender)
  333. {
  334. CommClose();
  335. }
  336. //---------------------------------------------------------------------------
  337. void __fastcall TTAS00201::FormCreate(TObject *Sender)
  338. {
  339. m_pFrmChart = new TPlugInChart(this);
  340. m_pFrmChart->Parent = PnlChart;
  341. m_pFrmChart->SetChartInfo("", "시간", "패턴속도");
  342. m_pFrmChart->Show();
  343. }
  344. //---------------------------------------------------------------------------
  345. void __fastcall TTAS00201::ColSpedCustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas,
  346. TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone)
  347. {
  348. TColor tColor = ACanvas->Brush->Color;
  349. TColor tFont = clBlack;
  350. try
  351. {
  352. if (!VarIsNull(AViewInfo->Value))
  353. {
  354. String sSpd = AViewInfo->Value;
  355. if (sSpd == NULL || sSpd.IsEmpty() || sSpd == "0" || sSpd == "-")
  356. {
  357. tColor = clSilver;
  358. }
  359. else
  360. {
  361. String sGrad = AViewInfo->GridRecord->DisplayTexts[AViewInfo->Item->Index+24];
  362. if (sGrad == "LTC1") tColor = clLime;
  363. else if (sGrad == "LTC2") tColor = clYellow;
  364. else if (sGrad == "LTC3") tColor = clRed;
  365. else tColor = clSilver;
  366. }
  367. }
  368. else
  369. {
  370. tColor = clSilver;
  371. }
  372. if (tColor == clSilver) tFont = tColor;
  373. ACanvas->Font->Color = tFont;
  374. ACanvas->SetBrushColor(tColor);
  375. }
  376. catch(...)
  377. {
  378. }
  379. }
  380. //---------------------------------------------------------------------------