12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970 |
- //---------------------------------------------------------------------------
- #ifndef FrmVmsLogFH
- #define FrmVmsLogFH
- //---------------------------------------------------------------------------
- #include <Classes.hpp>
- #include <Controls.hpp>
- #include <StdCtrls.hpp>
- #include <Forms.hpp>
- #include <Buttons.hpp>
- #include <ExtCtrls.hpp>
- #include <Graphics.hpp>
- #include <ComCtrls.hpp>
- //---------------------------------------------------------------------------
- #include "ITSLogF.h"
- #include "AppGlobalF.h"
- //---------------------------------------------------------------------------
- class TFrmVmsLog : public TForm
- {
- __published: // IDE-managed Components
- TPanel *plServerInfo;
- TPanel *Panel1;
- TImage *Image1;
- TPanel *Panel2;
- TCheckBox *chkLogPause;
- TButton *btnClear;
- TButton *btnCopy;
- TMemo *reMsg;
- TPanel *Panel4;
- TPanel *Panel6;
- TImage *Image2;
- TCheckBox *chkInfo;
- TCheckBox *chkData;
- TCheckBox *chkDetail;
- TCheckBox *chkError;
- TCheckBox *chkWarning;
- TCheckBox *chkDebug;
- TButton *btnSetLog;
- TCheckBox *chkServer;
- TCheckBox *chkClient;
- void __fastcall btnClearClick(TObject *Sender);
- void __fastcall btnCopyClick(TObject *Sender);
- void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
- void __fastcall btnSetLogClick(TObject *Sender);
- private: // User declarations
- int FVmsIdx;
- LOG_INFO FLogCfg;
- AnsiString FVmsId;
- TVmsCtlr *FVmsCtlr;
- public:
- public: // User declarations
- __fastcall TFrmVmsLog(TComponent* Owner);
- void __fastcall DisplayVmsLog(int AVmsIdx=-1);
- void LogWrite(IPC_LOG_MESSAGE *ALog);
- void LogData(IPC_LOG_MESSAGE *ALog);
- void __fastcall OnWMLogDisplayMessage(TMessage &Msg);
- BEGIN_MESSAGE_MAP
- MESSAGE_HANDLER(WM_LOG_DISPLAY, TMessage, OnWMLogDisplayMessage)
- END_MESSAGE_MAP(TForm)
- };
- //---------------------------------------------------------------------------
- extern PACKAGE TFrmVmsLog *FrmVmsLog;
- //---------------------------------------------------------------------------
- #endif
|