FRAME_VmsMsgListF.cpp 5.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "AppGlobalF.h"
  4. #include "ITSSkinF.h"
  5. #include "ITSUtilF.h"
  6. #pragma hdrstop
  7. #include "FRAME_VmsMsgListF.h"
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma link "cxButtons"
  11. #pragma link "cxCalc"
  12. #pragma link "cxCheckBox"
  13. #pragma link "cxClasses"
  14. #pragma link "cxContainer"
  15. #pragma link "cxControls"
  16. #pragma link "cxCustomData"
  17. #pragma link "cxData"
  18. #pragma link "cxDataStorage"
  19. #pragma link "cxEdit"
  20. #pragma link "cxFilter"
  21. #pragma link "cxGraphics"
  22. #pragma link "cxGrid"
  23. #pragma link "cxGridCustomTableView"
  24. #pragma link "cxGridCustomView"
  25. #pragma link "cxGridLevel"
  26. #pragma link "cxGridTableView"
  27. #pragma link "cxLookAndFeelPainters"
  28. #pragma link "cxLookAndFeels"
  29. #pragma link "cxStyles"
  30. #pragma link "cxTextEdit"
  31. #pragma link "dxSkinBlack"
  32. #pragma link "dxSkinBlue"
  33. #pragma link "dxSkinCaramel"
  34. #pragma link "dxSkinCoffee"
  35. #pragma link "dxSkinDarkRoom"
  36. #pragma link "dxSkinDarkSide"
  37. #pragma link "dxSkinFoggy"
  38. #pragma link "dxSkinGlassOceans"
  39. #pragma link "dxSkiniMaginary"
  40. #pragma link "dxSkinLilian"
  41. #pragma link "dxSkinLiquidSky"
  42. #pragma link "dxSkinLondonLiquidSky"
  43. #pragma link "dxSkinMcSkin"
  44. #pragma link "dxSkinMoneyTwins"
  45. #pragma link "dxSkinOffice2007Black"
  46. #pragma link "dxSkinOffice2007Blue"
  47. #pragma link "dxSkinOffice2007Green"
  48. #pragma link "dxSkinOffice2007Pink"
  49. #pragma link "dxSkinOffice2007Silver"
  50. #pragma link "dxSkinOffice2010Black"
  51. #pragma link "dxSkinOffice2010Blue"
  52. #pragma link "dxSkinOffice2010Silver"
  53. #pragma link "dxSkinsCore"
  54. #pragma link "dxSkinscxPCPainter"
  55. #pragma link "dxSkinSeven"
  56. #pragma link "dxSkinSharp"
  57. #pragma link "dxSkinSilver"
  58. #pragma link "dxSkinStardust"
  59. #pragma link "cxGridBandedTableView"
  60. #pragma link "cxGridCardView"
  61. #pragma link "cxGridCustomLayoutView"
  62. #pragma link "cxDropDownEdit"
  63. #pragma link "cxImage"
  64. #pragma link "cxLabel"
  65. #pragma resource "*.dfm"
  66. //TFRAMEVmsStateList *FRAMEVmsStateList;
  67. //---------------------------------------------------------------------------
  68. __fastcall TFRAMEVmsMsgList::TFRAMEVmsMsgList(TComponent* Owner)
  69. : TFrame(Owner)
  70. {
  71. FSelVmsObj = NULL;
  72. TvVmsMsg->OptionsView->DataRowHeight = 0;
  73. TvVmsMsg->OptionsView->CellAutoHeight = true;
  74. TvVmsMsg->OptionsView->Indicator = false;
  75. TvVmsMsg->OptionsCustomize->ColumnMoving = false;
  76. TvVmsMsg->OptionsCustomize->ColumnSorting = false;
  77. TvVmsMsg->Columns[0]->Width = 40;
  78. TvVmsMsg->Columns[0]->Options->HorzSizing = false;
  79. FTitle = lblTitle->Caption;
  80. }
  81. //---------------------------------------------------------------------------
  82. void __fastcall TFRAMEVmsMsgList::UpdateList()
  83. {
  84. }
  85. //---------------------------------------------------------------------------
  86. void __fastcall TFRAMEVmsMsgList::SetVmsObject(TVmsCtlr *ASelVmsObj)
  87. {
  88. FSelVmsObj = ASelVmsObj;
  89. }
  90. //---------------------------------------------------------------------------
  91. void __fastcall TFRAMEVmsMsgList::ClearVmsMsg()
  92. {
  93. CMM_ClearGridTableView(TvVmsMsg);
  94. }
  95. //---------------------------------------------------------------------------
  96. void __fastcall TFRAMEVmsMsgList::LoadVmsMsgScenario(String AVmsNmbr)
  97. {
  98. #if 0
  99. CMM_ClearGridTableView(TvVmsMsg);
  100. PnlSvcTime->Caption = lblText1->Caption + "-";//" Á¦°ø½Ã°¢: -";
  101. PnlSvcTime->Font->Color = clNavy;
  102. TVmsCtlr *pObj = VmsCtlrManager->FLists.Find(AVmsNmbr);
  103. if (!pObj) return;
  104. PnlSvcTime->Caption = lblText1->Caption + ITSUtil_FormatStr(pObj->VmsMsg->OFFER_DT, STR_DATETIME);
  105. try
  106. {
  107. int nRow;
  108. TcxDataController *pGDC = TvVmsMsg->DataController;
  109. TvVmsMsg->BeginUpdate();
  110. pObj->Lock();
  111. for(int ii = 0; ii < pObj->VmsMsg->Total && ii < INT_VMS_MAX_FORM; ii++)
  112. {
  113. Graphics::TBitmap *pBitmap = pObj->VmsMsg->PHASE[ii].pVmsBmp;
  114. TStream *pImgStream = new TMemoryStream();
  115. try
  116. {
  117. nRow = pGDC->AppendRecord();
  118. pGDC->Values[nRow][ColSch01->Index] = String(ii+1);
  119. pBitmap->SaveToStream(pImgStream);
  120. void *p;
  121. Variant v;
  122. int aBound[]={0, pImgStream->Size - 1};
  123. v = VarArrayCreate(aBound, 1, varByte);
  124. p = VarArrayLock(v);
  125. pImgStream->Position = 0;
  126. pImgStream->Read(p, pImgStream->Size);
  127. VarArrayUnlock(v);
  128. //pGDC->Values[nRow][ColSch02->Index] = pBitmap;
  129. pGDC->Values[nRow][ColSch02->Index] = v;
  130. } catch(Exception &e) {}
  131. SAFE_DELETE(pImgStream);
  132. }
  133. }
  134. __finally
  135. {
  136. pObj->UnLock();
  137. TvVmsMsg->EndUpdate();
  138. PnlSvcTime->Font->Color = pObj->VmsMsg->OFFER_YN ? clNavy : clRed;
  139. }
  140. #endif
  141. }
  142. //---------------------------------------------------------------------------
  143. void __fastcall TFRAMEVmsMsgList::OnCloseQuery(bool &CanClose)
  144. {
  145. }
  146. //---------------------------------------------------------------------------