FrmVmsMsgUserDispOldF.cpp 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "ITSSkinF.h"
  4. #include "ITSUtilF.h"
  5. #include "AppGlobalF.h"
  6. #include "WindowMsgF.h"
  7. #include "CDSVmsIfscF.h"
  8. #include "CDSFontF.h"
  9. #include "CDSVmsFormF.h"
  10. #pragma hdrstop
  11. #include "FrmVmsMsgUserDispOldF.h"
  12. #include "VMSM610MF.h"
  13. #include "VMSM620MF.h"
  14. #include "VMSM630MF.h"
  15. #include "VMSSEL0MF.h"
  16. #include "VMSEDT0MF.h"
  17. //---------------------------------------------------------------------------
  18. #pragma package(smart_init)
  19. #pragma link "cxButtons"
  20. #pragma link "cxCalendar"
  21. #pragma link "cxContainer"
  22. #pragma link "cxControls"
  23. #pragma link "cxDropDownEdit"
  24. #pragma link "cxEdit"
  25. #pragma link "cxGraphics"
  26. #pragma link "cxGroupBox"
  27. #pragma link "cxLabel"
  28. #pragma link "cxLookAndFeelPainters"
  29. #pragma link "cxLookAndFeels"
  30. #pragma link "cxMaskEdit"
  31. #pragma link "cxPC"
  32. #pragma link "cxPCdxBarPopupMenu"
  33. #pragma link "cxSpinEdit"
  34. #pragma link "cxSplitter"
  35. #pragma link "cxTextEdit"
  36. #pragma link "cxTimeEdit"
  37. #pragma link "dxSkinBlack"
  38. #pragma link "dxSkinBlue"
  39. #pragma link "dxSkinCaramel"
  40. #pragma link "dxSkinCoffee"
  41. #pragma link "dxSkinDarkRoom"
  42. #pragma link "dxSkinDarkSide"
  43. #pragma link "dxSkinFoggy"
  44. #pragma link "dxSkinGlassOceans"
  45. #pragma link "dxSkiniMaginary"
  46. #pragma link "dxSkinLilian"
  47. #pragma link "dxSkinLiquidSky"
  48. #pragma link "dxSkinLondonLiquidSky"
  49. #pragma link "dxSkinMcSkin"
  50. #pragma link "dxSkinMoneyTwins"
  51. #pragma link "dxSkinOffice2007Black"
  52. #pragma link "dxSkinOffice2007Blue"
  53. #pragma link "dxSkinOffice2007Green"
  54. #pragma link "dxSkinOffice2007Pink"
  55. #pragma link "dxSkinOffice2007Silver"
  56. #pragma link "dxSkinOffice2010Black"
  57. #pragma link "dxSkinOffice2010Blue"
  58. #pragma link "dxSkinOffice2010Silver"
  59. #pragma link "dxSkinsCore"
  60. #pragma link "dxSkinscxPCPainter"
  61. #pragma link "dxSkinSeven"
  62. #pragma link "dxSkinSharp"
  63. #pragma link "dxSkinSilver"
  64. #pragma link "dxSkinStardust"
  65. #pragma link "cxRadioGroup"
  66. #pragma link "cxClasses"
  67. #pragma link "cxCustomData"
  68. #pragma link "cxData"
  69. #pragma link "cxDataStorage"
  70. #pragma link "cxDBData"
  71. #pragma link "cxFilter"
  72. #pragma link "cxGrid"
  73. #pragma link "cxGridCustomTableView"
  74. #pragma link "cxGridCustomView"
  75. #pragma link "cxGridDBTableView"
  76. #pragma link "cxGridLevel"
  77. #pragma link "cxGridTableView"
  78. #pragma link "cxStyles"
  79. #pragma link "cxCheckBox"
  80. #pragma link "cxImage"
  81. #pragma link "cxButtonEdit"
  82. #pragma link "cxBlobEdit"
  83. #pragma link "cxColorComboBox"
  84. #pragma link "cxCalc"
  85. #pragma link "VmsDesignerF"
  86. #pragma link "FRAME_VmsSchListF"
  87. #pragma link "cxHint"
  88. #pragma link "dxCustomHint"
  89. #pragma link "dxScreenTip"
  90. #pragma link "dxSkinsForm"
  91. #pragma resource "*.dfm"
  92. TFrmVmsMsgUserDispOld *FrmVmsMsgUserDispOld = NULL;
  93. //---------------------------------------------------------------------------
  94. __fastcall TFrmVmsMsgUserDispOld::TFrmVmsMsgUserDispOld(TComponent* Owner)
  95. : TForm(Owner)
  96. {
  97. //CMM_SetFormPosition(g_AppCfg.bSaveForm);
  98. ITSSkin_Initialize(Application, g_AppCfg.sLang);
  99. ITSSkin_Caption(false);
  100. ITSSkin_Load(this);
  101. //CMM_LoadForm(g_sFormsDir, this);
  102. SetColorScheme(g_AppCfg.sSkinName);
  103. FUpdate= false;
  104. FTitle = Caption;//"VMS 자동 스케줄 관리";
  105. FListSymb = new TList;
  106. EditMode = false;
  107. FRAMEVmsSchList1->PnlTop->Visible = false;
  108. FRAMEVmsSchList1->PnlBottom->Visible = false;
  109. }
  110. //---------------------------------------------------------------------------
  111. void __fastcall TFrmVmsMsgUserDispOld::SetColorScheme(String ASkinName)
  112. {
  113. dxSkinController1->SkinName = ASkinName;
  114. dxSkinController1->Refresh();
  115. }
  116. //---------------------------------------------------------------------------
  117. void __fastcall TFrmVmsMsgUserDispOld::CommClose()
  118. {
  119. }
  120. //---------------------------------------------------------------------------
  121. void __fastcall TFrmVmsMsgUserDispOld::FormCreate(TObject *Sender)
  122. {
  123. InitDbLoading();
  124. }
  125. //---------------------------------------------------------------------------
  126. void __fastcall TFrmVmsMsgUserDispOld::InitDbLoading()
  127. {
  128. Application->ProcessMessages();
  129. if (!VmsCtlrManager) {
  130. VmsCtlrManager = new TVmsCtlrManager();
  131. }
  132. VmsCtlrManager->LoadVmsModlSize();
  133. VmsCtlrManager->LoadFromDb();
  134. }
  135. //---------------------------------------------------------------------------
  136. void __fastcall TFrmVmsMsgUserDispOld::FormShow(TObject *Sender)
  137. {
  138. Refresh();
  139. FormInit();
  140. ChangeEditMode(1);
  141. TmrShow->Enabled = true;
  142. }
  143. //---------------------------------------------------------------------------
  144. void __fastcall TFrmVmsMsgUserDispOld::FormInit()
  145. {
  146. APP_FillVmsSizeType(CbSizeType, false);
  147. FNewDb = false;
  148. }
  149. //---------------------------------------------------------------------------
  150. void __fastcall TFrmVmsMsgUserDispOld::TmrShowTimer(TObject *Sender)
  151. {
  152. TmrShow->Enabled = false;
  153. }
  154. //---------------------------------------------------------------------------
  155. void __fastcall TFrmVmsMsgUserDispOld::BtnCloseClick(TObject *Sender)
  156. {
  157. Close();
  158. }
  159. //---------------------------------------------------------------------------
  160. void __fastcall TFrmVmsMsgUserDispOld::FormClose(TObject *Sender, TCloseAction &Action)
  161. {
  162. CommClose();
  163. FrmVmsMsgUserDispOld = NULL;
  164. Action = caFree;
  165. }
  166. //---------------------------------------------------------------------------
  167. void __fastcall TFrmVmsMsgUserDispOld::FormCloseQuery(TObject *Sender, bool &CanClose)
  168. {
  169. if (FUpdate)
  170. {
  171. POST_MSG(Application->MainForm->Handle, WM_DATABASE_REFRESH, WP_MSG_14, 0);
  172. }
  173. }
  174. //---------------------------------------------------------------------------
  175. void __fastcall TFrmVmsMsgUserDispOld::ChangeEditMode(int AEdit)
  176. {
  177. }
  178. //---------------------------------------------------------------------------
  179. void __fastcall TFrmVmsMsgUserDispOld::ClearSymbloList()
  180. {
  181. for(int ii = 0; ii < FListSymb->Count; ii++)
  182. {
  183. Graphics::TBitmap *bitmap = (Graphics::TBitmap *)FListSymb->Items[ii];
  184. delete bitmap;
  185. }
  186. FListSymb->Clear();
  187. }
  188. //---------------------------------------------------------------------------
  189. void __fastcall TFrmVmsMsgUserDispOld::CbSizeTypePropertiesChange(TObject *Sender)
  190. {
  191. EdFocus->SetFocus();
  192. BtnSearchClick(NULL);
  193. }
  194. //---------------------------------------------------------------------------
  195. void __fastcall TFrmVmsMsgUserDispOld::BtnSearchClick(TObject *Sender)
  196. {
  197. RefreshData();
  198. EdFocus->SetFocus();
  199. ChangeEditMode(1);
  200. }
  201. //---------------------------------------------------------------------------
  202. void __fastcall TFrmVmsMsgUserDispOld::RefreshData()
  203. {
  204. FormClear();
  205. }
  206. //---------------------------------------------------------------------------
  207. void __fastcall TFrmVmsMsgUserDispOld::FormClear()
  208. {
  209. FSelIdx = -1;
  210. EdVmsNmbr->Clear();
  211. GrpSchedule->Caption = lblTitle->Caption;//"▶ 자동 스케줄 설정";
  212. FNewDb = false;
  213. }
  214. //---------------------------------------------------------------------------
  215. void __fastcall TFrmVmsMsgUserDispOld::DisplayInfo()
  216. {
  217. return;
  218. FormClear();
  219. FSelIdx = CMM_GetRecordIndex(FRAMEVmsSchList1->TvList);
  220. if (FSelIdx < 0) return;
  221. TcxDataController *pGDC = FRAMEVmsSchList1->TvList->DataController;
  222. String sVmsNmbr = VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column01->Index]);
  223. EdVmsNmbr->Text = sVmsNmbr;
  224. GrpSchedule->Caption = lblTitle->Caption + " (" + VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column02->Index]) + ": " + VarToStr(pGDC->Values[FSelIdx][FRAMEVmsSchList1->Column03->Index]) + ")";
  225. //LoadVmsScheduleInfo(sVmsNmbr);
  226. //DrawTrafficScenarioForm();
  227. //DrawVideoStreamScenarioForm(eSchTp_video);
  228. //DrawVideoStreamScenarioForm(eSchTp_stream);
  229. ChangeEditMode(3);
  230. }
  231. //---------------------------------------------------------------------------
  232. void __fastcall TFrmVmsMsgUserDispOld::TvFormCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  233. TMouseButton AButton, TShiftState AShift,
  234. bool &AHandled)
  235. {
  236. if (!ACellViewInfo) return;
  237. int nRow = Sender->DataController->FocusedRecordIndex;
  238. if( nRow <= -1 )
  239. return;
  240. }
  241. //---------------------------------------------------------------------------
  242. void __fastcall TFrmVmsMsgUserDispOld::TvGridCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  243. TMouseButton AButton, TShiftState AShift,
  244. bool &AHandled)
  245. {
  246. if (!ACellViewInfo) return;
  247. int nRow = Sender->DataController->FocusedRecordIndex;
  248. if( nRow <= -1 )
  249. return;
  250. TcxGridDataController *pGDC = (TcxGridDataController*)Sender->DataController;
  251. int nColIdx = ACellViewInfo->Item->Index;
  252. //ShowMessage(String(Sender->Tag) + " " + String(nColIdx));
  253. String sFormId = VarToStr(pGDC->Values[nRow][0]);
  254. String sStrDate = VarToStr(pGDC->Values[nRow][7]);
  255. String sEndDate = VarToStr(pGDC->Values[nRow][8]);
  256. if (nColIdx == 4 || nColIdx == 5)
  257. {
  258. //표출기간설정
  259. TVMSSEL0M *pSelDate = new TVMSSEL0M(this);
  260. pSelDate->FStrTime = sStrDate;
  261. pSelDate->FEndTime = sEndDate;
  262. pSelDate->ShowModal();
  263. bool bSelected = pSelDate->FSelected;
  264. sStrDate = pSelDate->FStrTime;
  265. sEndDate = pSelDate->FEndTime;
  266. delete pSelDate;
  267. pSelDate = NULL;
  268. if (bSelected)
  269. {
  270. pGDC->Values[nRow][4] = ITSUtil_FormatStr(sStrDate, STR_HHNN);;
  271. pGDC->Values[nRow][5] = ITSUtil_FormatStr(sEndDate, STR_HHNN);;
  272. pGDC->Values[nRow][7] = sStrDate;
  273. pGDC->Values[nRow][8] = sEndDate;
  274. }
  275. return;
  276. }
  277. if (Sender->Tag == eSchTp_traffic)
  278. {
  279. if (VarToStr(pGDC->Values[nRow][15]).ToIntDef(0) == 15)
  280. {
  281. //도형식배경 소통정보 폼
  282. Application->MessageBox(FrmLang->lblSchErr1->Caption.c_str(),//L"VMS 교통정보 폼 구간 설정\r\n도형식 배경소통정보 폼은 폼관리 화면에서 설정 가능합니다.",
  283. FTitle.c_str(), MB_OK|MB_ICONERROR|MB_APPLMODAL);
  284. return;
  285. }
  286. // 소통정보 폼 정보구간 설정
  287. TVMSM610M *pIfscFrm = new TVMSM610M(this);
  288. pIfscFrm->FVmsNmbr = EdVmsNmbr->Text;
  289. pIfscFrm->FFormId = sFormId;
  290. pIfscFrm->FVmsTypeCd = FVmsTypeCd;
  291. pIfscFrm->FVmsWidth = FVmsWidth;
  292. pIfscFrm->FVmsHeight = FVmsHeight;
  293. pIfscFrm->FIfscId[0] = VarToStr(pGDC->Values[nRow][9]);
  294. pIfscFrm->FIfscId[1] = VarToStr(pGDC->Values[nRow][10]);
  295. pIfscFrm->FIfscId[2] = VarToStr(pGDC->Values[nRow][11]);
  296. pIfscFrm->FIfscId[3] = VarToStr(pGDC->Values[nRow][12]);
  297. pIfscFrm->FIfscId[4] = VarToStr(pGDC->Values[nRow][16]);
  298. pIfscFrm->FIfscId[5] = VarToStr(pGDC->Values[nRow][17]);
  299. pIfscFrm->FIfscId[6] = VarToStr(pGDC->Values[nRow][18]);
  300. pIfscFrm->FIfscId[7] = VarToStr(pGDC->Values[nRow][19]);
  301. //pIfscFrm->FVmsType = VarToStr(pGDC->Values[nRow][13]).ToIntDef(0);
  302. pIfscFrm->FFormColor = VarToStr(pGDC->Values[nRow][14]);
  303. pIfscFrm->FFormType = VarToStr(pGDC->Values[nRow][15]).ToIntDef(0);
  304. pIfscFrm->ShowModal();
  305. if (pIfscFrm->FSelected)
  306. {
  307. TStream *pImgStream = new TMemoryStream();
  308. try
  309. {
  310. void *p;
  311. Variant v;
  312. pIfscFrm->ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
  313. int aBound[]={0, pImgStream->Size - 1};
  314. v = VarArrayCreate(aBound, 1, varByte);
  315. p = VarArrayLock(v);
  316. pImgStream->Position = 0;
  317. pImgStream->Read(p, pImgStream->Size);
  318. VarArrayUnlock(v);
  319. pGDC->Values[nRow][1] = v;
  320. }
  321. __finally
  322. {
  323. SAFE_DELETE(pImgStream);
  324. }
  325. pGDC->Values[nRow][ 9] = pIfscFrm->FIfscId[0];
  326. pGDC->Values[nRow][10] = pIfscFrm->FIfscId[1];
  327. pGDC->Values[nRow][11] = pIfscFrm->FIfscId[2];
  328. pGDC->Values[nRow][12] = pIfscFrm->FIfscId[3];
  329. pGDC->Values[nRow][16] = pIfscFrm->FIfscId[4];
  330. pGDC->Values[nRow][17] = pIfscFrm->FIfscId[5];
  331. pGDC->Values[nRow][18] = pIfscFrm->FIfscId[6];
  332. pGDC->Values[nRow][19] = pIfscFrm->FIfscId[7];
  333. }
  334. delete pIfscFrm;
  335. pIfscFrm = NULL;
  336. }
  337. if (Sender->Tag == eSchTp_video)
  338. {
  339. TVMSM620M *pVideoFrm = new TVMSM620M(this);
  340. pVideoFrm->FVmsNmbr = EdVmsNmbr->Text;
  341. pVideoFrm->FFormId = sFormId;
  342. pVideoFrm->FVmsTypeCd = FVmsTypeCd;
  343. pVideoFrm->FVmsWidth = FVmsWidth;
  344. pVideoFrm->FVmsHeight = FVmsHeight;
  345. pVideoFrm->FSymbLibNmbr = VarToStr(pGDC->Values[nRow][20]);
  346. pVideoFrm->FStreamAddr = VarToStr(pGDC->Values[nRow][21]);
  347. //pVideoFrm->FVmsType = VarToStr(pGDC->Values[nRow][13]).ToIntDef(0);
  348. pVideoFrm->FFormColor = VarToStr(pGDC->Values[nRow][14]);
  349. pVideoFrm->FFormType = VarToStr(pGDC->Values[nRow][15]).ToIntDef(0);
  350. pVideoFrm->ShowModal();
  351. if (pVideoFrm->FSelected)
  352. {
  353. TStream *pImgStream = new TMemoryStream();
  354. try
  355. {
  356. void *p;
  357. Variant v;
  358. pVideoFrm->ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
  359. int aBound[]={0, pImgStream->Size - 1};
  360. v = VarArrayCreate(aBound, 1, varByte);
  361. p = VarArrayLock(v);
  362. pImgStream->Position = 0;
  363. pImgStream->Read(p, pImgStream->Size);
  364. VarArrayUnlock(v);
  365. pGDC->Values[nRow][1] = v;
  366. }
  367. __finally
  368. {
  369. SAFE_DELETE(pImgStream);
  370. }
  371. pGDC->Values[nRow][20] = pVideoFrm->FSymbLibNmbr;
  372. pGDC->Values[nRow][21] = pVideoFrm->FStreamAddr;
  373. }
  374. delete pVideoFrm;
  375. pVideoFrm = NULL;
  376. }
  377. if (Sender->Tag == eSchTp_stream)
  378. {
  379. TVMSM630M *pStreamFrm = new TVMSM630M(this);
  380. pStreamFrm->FVmsNmbr = EdVmsNmbr->Text;
  381. pStreamFrm->FFormId = sFormId;
  382. pStreamFrm->FVmsTypeCd = FVmsTypeCd;
  383. pStreamFrm->FVmsWidth = FVmsWidth;
  384. pStreamFrm->FVmsHeight = FVmsHeight;
  385. pStreamFrm->FSymbLibNmbr = VarToStr(pGDC->Values[nRow][20]);
  386. pStreamFrm->FStreamAddr = VarToStr(pGDC->Values[nRow][21]);
  387. //pStreamFrm->FVmsType = VarToStr(pGDC->Values[nRow][13]).ToIntDef(0);
  388. pStreamFrm->FFormColor = VarToStr(pGDC->Values[nRow][14]);
  389. pStreamFrm->FFormType = VarToStr(pGDC->Values[nRow][15]).ToIntDef(0);
  390. pStreamFrm->ShowModal();
  391. if (pStreamFrm->FSelected)
  392. {
  393. TStream *pImgStream = new TMemoryStream();
  394. try
  395. {
  396. void *p;
  397. Variant v;
  398. pStreamFrm->ImgForm->Picture->Bitmap->SaveToStream(pImgStream);
  399. int aBound[]={0, pImgStream->Size - 1};
  400. v = VarArrayCreate(aBound, 1, varByte);
  401. p = VarArrayLock(v);
  402. pImgStream->Position = 0;
  403. pImgStream->Read(p, pImgStream->Size);
  404. VarArrayUnlock(v);
  405. pGDC->Values[nRow][1] = v;
  406. }
  407. __finally
  408. {
  409. SAFE_DELETE(pImgStream);
  410. }
  411. pGDC->Values[nRow][20] = pStreamFrm->FSymbLibNmbr;
  412. pGDC->Values[nRow][21] = pStreamFrm->FStreamAddr;
  413. }
  414. delete pStreamFrm;
  415. pStreamFrm = NULL;
  416. }
  417. }
  418. //---------------------------------------------------------------------------