VMS0410MF.cpp 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. #include "VMS0410MF.h"
  5. #include "ITSSkinF.h"
  6. #include "AppGlobalF.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "cxControls"
  10. #pragma link "cxGraphics"
  11. #pragma link "cxLookAndFeelPainters"
  12. #pragma link "cxLookAndFeels"
  13. #pragma link "cxPC"
  14. #pragma link "cxPCdxBarPopupMenu"
  15. #pragma resource "*.dfm"
  16. //TVMS0410M *VMS0410M;
  17. //---------------------------------------------------------------------------
  18. __fastcall TVMS0410M::TVMS0410M(TComponent* Owner, HWND AHandle, TcxTabSheet *ASheet, TXView *AObj)
  19. : TForm(Owner)
  20. {
  21. ITSSkin_Load(this);
  22. FLayout = -1;
  23. FSheet = ASheet;
  24. FView = AObj;
  25. FWndParent = AHandle;
  26. Caption = ASheet->Caption;
  27. for (int ii = 0; ii < MAX_VMS_CAMERA; ii++)
  28. {
  29. FFrmCamera[ii] = new TVMSWCAM0(this, NULL);
  30. FFrmCamera[ii]->Parent = PnlClient;
  31. FFrmCamera[ii]->FTitle = ASheet->Caption;
  32. }
  33. }
  34. //---------------------------------------------------------------------------
  35. void __fastcall TVMS0410M::SetLayout(int ALayout)
  36. {
  37. if (FLayout == ALayout) return;
  38. switch(ALayout)
  39. {
  40. case 0:/* (1 * 1) */ FCols = 1; FRows = 1; break;
  41. case 1:/* (2 * 2) */ FCols = 2; FRows = 2; break;
  42. case 2:/* (3 * 3) */ FCols = 3; FRows = 3; break;
  43. case 3:/* (3 * 2) */ FCols = 3; FRows = 2; break;
  44. case 4:/* (4 * 3) */ FCols = 4; FRows = 3; break;
  45. case 5:/* (4 * 4) */ FCols = 4; FRows = 4; break;
  46. case 6:/* (4 * 5) */ FCols = 4; FRows = 5; break;
  47. case 7:/* (5 * 4) */ FCols = 5; FRows = 4; break;
  48. case 8:/* (6 * 4) */ FCols = 6; FRows = 4; break;
  49. case 9:/* (6 * 5) */ FCols = 6; FRows = 5; break;
  50. case 10:/* (7 * 6) */ FCols = 7; FRows = 6; break;
  51. case 11:/* (8 * 7) */ FCols = 8; FRows = 7; break;
  52. case 12:/* (8 * 8) */ FCols = 8; FRows = 8; break;
  53. default: ALayout = 0; FCols = 1; FRows = 1; break;
  54. }
  55. FLayout = ALayout;
  56. if (FSheet)
  57. {
  58. TXView *pObj = (TXView*)FSheet->Tag;
  59. if (pObj) pObj->Layout = FLayout;
  60. }
  61. RecalFormSize();
  62. }
  63. //---------------------------------------------------------------------------
  64. void __fastcall TVMS0410M::RecalFormSize()
  65. {
  66. int ii;
  67. int nMaxForm = FCols * FRows;
  68. for (ii = nMaxForm; ii < MAX_VMS_CAMERA; ii++)
  69. {
  70. TVMSWCAM0 *pFrmCam = FFrmCamera[ii];
  71. if (pFrmCam->Visible)
  72. {
  73. pFrmCam->CamStop();
  74. if (pFrmCam->Showing)
  75. {
  76. pFrmCam->TmrStop->Enabled = true;
  77. pFrmCam->Hide();
  78. }
  79. }
  80. }
  81. int nRows = 0;
  82. int nCols = 0;
  83. int nTop = 0;
  84. int nLeft = 0;
  85. int nTotTop, nTotLeft;
  86. int nWidth = (PnlClient->Width - FCols+1) / FCols;
  87. int nHeight= (PnlClient->Height- FRows+1) / FRows;
  88. try
  89. {
  90. LockWindowUpdate(Handle);
  91. for (ii = 0; ii < nMaxForm; ii++)
  92. {
  93. TVMSWCAM0 *pFrmCam = FFrmCamera[ii];
  94. if (!pFrmCam)
  95. continue;
  96. pFrmCam->Width = nWidth;
  97. pFrmCam->Height= nHeight;
  98. nTotTop = (nRows * pFrmCam->Height)+(nTop*(nRows+1));
  99. nTotLeft = (nCols * pFrmCam->Width)+(nLeft*(nCols+1));
  100. pFrmCam->Top = nTotTop;
  101. pFrmCam->Left= nTotLeft;
  102. if ((ii%FCols) == (FCols-1))
  103. {
  104. nRows++;
  105. nCols = 0;
  106. }
  107. else
  108. {
  109. nCols++;
  110. }
  111. if (!pFrmCam->Showing)
  112. {
  113. pFrmCam->FWndParent = Handle;
  114. pFrmCam->Show();
  115. //pFrmCam->TmrPlay->Enabled = true;
  116. }
  117. }
  118. }
  119. __finally
  120. {
  121. LockWindowUpdate(0);
  122. }
  123. }
  124. //---------------------------------------------------------------------------
  125. void __fastcall TVMS0410M::InitCamera()
  126. {
  127. if (!FView) return;
  128. for (int ii = 0; ii < MAX_VMS_CAMERA; ii++)
  129. {
  130. if (!FView->FCamera[ii].Installed) continue;
  131. TVmsCtlr *pVms = VmsManager->FLists.Find(FView->FCamera[ii].Id);
  132. if (!pVms) continue;
  133. FFrmCamera[ii]->InitCamera((void*)pVms, FView->FCamera[ii].Play);
  134. }
  135. }
  136. //---------------------------------------------------------------------------
  137. void __fastcall TVMS0410M::UpdateCctvMasterInfo()
  138. {
  139. for (int ii = 0; ii < MAX_VMS_CAMERA; ii++)
  140. {
  141. //FFrmCamera[ii]->UpdateCctvMasterInfo();
  142. }
  143. }
  144. //---------------------------------------------------------------------------
  145. void __fastcall TVMS0410M::Play()
  146. {
  147. for (int ii = 0; ii < MAX_VMS_CAMERA; ii++)
  148. {
  149. if (FFrmCamera[ii]->FAutoPlay)
  150. {
  151. FFrmCamera[ii]->TmrPlay->Enabled = true;
  152. }
  153. }
  154. }
  155. //---------------------------------------------------------------------------
  156. void __fastcall TVMS0410M::Stop()
  157. {
  158. for (int ii = 0; ii < MAX_VMS_CAMERA; ii++)
  159. {
  160. FFrmCamera[ii]->TmrStop->Enabled = true;
  161. }
  162. }
  163. //---------------------------------------------------------------------------
  164. void __fastcall TVMS0410M::OnVmsSelectMessage(TMessage &Msg)
  165. {
  166. if (FWndParent)
  167. {
  168. POST_MSG(FWndParent, WM_VMS_SELECT, (WPARAM)Msg.WParam, (LPARAM)Msg.LParam);
  169. }
  170. }
  171. //---------------------------------------------------------------------------
  172. void __fastcall TVMS0410M::OnVmsSelectDblClickMessage(TMessage &Msg)
  173. {
  174. if (FWndParent)
  175. {
  176. POST_MSG(FWndParent, WM_VMS_SELECT_DBLCLICK, (WPARAM)Msg.WParam, (LPARAM)Msg.LParam);
  177. }
  178. }
  179. //---------------------------------------------------------------------------