FrmVmsInfoF.h 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124
  1. //---------------------------------------------------------------------------
  2. #ifndef FrmVmsInfoFH
  3. #define FrmVmsInfoFH
  4. //---------------------------------------------------------------------------
  5. #include <Classes.hpp>
  6. #include <Controls.hpp>
  7. #include <StdCtrls.hpp>
  8. #include <Forms.hpp>
  9. #include <Buttons.hpp>
  10. #include <ExtCtrls.hpp>
  11. #include <Graphics.hpp>
  12. #include <ComCtrls.hpp>
  13. #include <ImgList.hpp>
  14. //---------------------------------------------------------------------------
  15. #include "ITSLogF.h"
  16. #include "SysGlobalF.h"
  17. #include "TVmsCtlrF.h"
  18. #include "cxCalc.hpp"
  19. #include "cxClasses.hpp"
  20. #include "cxControls.hpp"
  21. #include "cxCustomData.hpp"
  22. #include "cxData.hpp"
  23. #include "cxDataStorage.hpp"
  24. #include "cxEdit.hpp"
  25. #include "cxFilter.hpp"
  26. #include "cxGraphics.hpp"
  27. #include "cxGrid.hpp"
  28. #include "cxGridCustomTableView.hpp"
  29. #include "cxGridCustomView.hpp"
  30. #include "cxGridLevel.hpp"
  31. #include "cxGridTableView.hpp"
  32. #include "cxLabel.hpp"
  33. #include "cxLookAndFeelPainters.hpp"
  34. #include "cxLookAndFeels.hpp"
  35. #include "cxStyles.hpp"
  36. #include <Menus.hpp>
  37. //---------------------------------------------------------------------------
  38. class TFrmVmsInfo : public TForm
  39. {
  40. __published: // IDE-managed Components
  41. TPanel *plServerInfo;
  42. TImageList *ilSmall;
  43. TImageList *ilLarge;
  44. TPanel *Panel1;
  45. TImage *Image3;
  46. TPanel *Panel2;
  47. TPanel *plErr;
  48. TPanel *Panel6;
  49. TPanel *plTot;
  50. TPanel *plNor;
  51. TcxGrid *CxList;
  52. TcxGridTableView *TvList;
  53. TcxGridColumn *Col01;
  54. TcxGridColumn *Col02;
  55. TcxGridColumn *Col03;
  56. TcxGridColumn *Col04;
  57. TcxGridColumn *Col00;
  58. TcxGridColumn *Col05;
  59. TcxGridColumn *Col06;
  60. TcxGridColumn *Col07;
  61. TcxGridColumn *Col08;
  62. TcxGridColumn *Col09;
  63. TcxGridColumn *Col10;
  64. TcxGridColumn *Col11;
  65. TcxGridColumn *Col12;
  66. TcxGridColumn *Col99;
  67. TcxGridLevel *GlList;
  68. TcxGridColumn *Col13;
  69. TcxGridColumn *Col14;
  70. TcxGridColumn *Col15;
  71. TPanel *Panel3;
  72. TImage *ImgState0;
  73. TImage *ImgState1;
  74. TImage *ImgState3;
  75. TImage *Image4;
  76. TPopupMenu *pmuVms;
  77. TMenuItem *MnuVmsId;
  78. TMenuItem *N3;
  79. TMenuItem *mnuVmsReset;
  80. TMenuItem *mnuVmsPower;
  81. TMenuItem *mnuVmsPowerOn;
  82. TMenuItem *mnuVmsPowerOff;
  83. TMenuItem *mnuVmsStatusReq;
  84. TMenuItem *N1;
  85. TMenuItem *N2;
  86. TMenuItem *mnuVmsFormDn;
  87. TMenuItem *N4;
  88. TMenuItem *Disconnect1;
  89. void __fastcall Col01CustomDrawCell(TcxCustomGridTableView *Sender, TcxCanvas *ACanvas,
  90. TcxGridTableDataCellViewInfo *AViewInfo, bool &ADone);
  91. void __fastcall TvListCellDblClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  92. TMouseButton AButton, TShiftState AShift,
  93. bool &AHandled);
  94. void __fastcall TvListCellClick(TcxCustomGridTableView *Sender, TcxGridTableDataCellViewInfo *ACellViewInfo,
  95. TMouseButton AButton, TShiftState AShift,
  96. bool &AHandled);
  97. void __fastcall pmuVmsPopup(TObject *Sender);
  98. void __fastcall mnuVmsPowerOnClick(TObject *Sender);
  99. void __fastcall mnuVmsStatusReqClick(TObject *Sender);
  100. void __fastcall mnuVmsFormDnClick(TObject *Sender);
  101. void __fastcall Disconnect1Click(TObject *Sender);
  102. private: // User declarations
  103. int FViewMode;
  104. int FVmsCnt;
  105. String FSelVmsNo;
  106. String FSelVmsNm;
  107. public:
  108. void __fastcall InitVmsList();
  109. public: // User declarations
  110. __fastcall TFrmVmsInfo(TComponent* Owner);
  111. void __fastcall UpdateServerState(int AObj);
  112. void __fastcall UpdateClientState(int AObj);
  113. };
  114. //---------------------------------------------------------------------------
  115. extern PACKAGE TFrmVmsInfo *FrmVmsInfo;
  116. //---------------------------------------------------------------------------
  117. #endif