Event.cpp

   1 // Event.cpp : CEvent \82Ì\83C\83\93\83v\83\8a\83\81\83\93\83e\81[\83V\83\87\83\93
   2 #include "stdafx.h"
   3 #include "SeraphyScriptTools.h"
   4 #include "Event.h"
   5 #include "generic.h"
   6
   7 /////////////////////////////////////////////////////////////////////////////
   8 // CEvent
   9
  10 STDMETHODIMP CEvent::get_Message(short *pVal)
  11 {
  12         *pVal = m_message;
  13         return S_OK;
  14 }
  15
  16 STDMETHODIMP CEvent::get_Parameter(short *pVal)
  17 {
  18         *pVal = m_param;
  19         return S_OK;
  20 }
  21
  22 STDMETHODIMP CEvent::get_ExtParameter(long *pVal)
  23 {
  24         *pVal = (long)m_lparam;
  25         return S_OK;
  26 }
  27
  28 STDMETHODIMP CEvent::get_PosX(double *pVal)
  29 {
  30         *pVal = (double)m_ptLP.x / 10.;
  31         return S_OK;
  32 }
  33
  34 STDMETHODIMP CEvent::get_PosY(double *pVal)
  35 {
  36         *pVal = (double)m_ptLP.y / 10.;
  37         return S_OK;
  38 }
  39
  40
  41 STDMETHODIMP CEvent::get_DPosX(long *pVal)
  42 {
  43         *pVal = (long)m_ptDP.x;
  44         return S_OK;
  45 }
  46
  47 STDMETHODIMP CEvent::get_DPosY(long *pVal)
  48 {
  49         *pVal = (long)m_ptDP.y;
  50         return S_OK;
  51 }
  52
  53 STDMETHODIMP CEvent::get_time(DATE *pVal)
  54 {
  55         *pVal = m_time;
  56         return S_OK;
  57 }
  58
  59 void CEvent::SetData(short message, short wParam, DWORD lParam, POINT& pt, POINT& lp)
  60 {
  61         SYSTEMTIME systim;
  62         GetLocalTime(&systim);
  63         SystemTimeToVariantTime(&systim, &m_time);
  64         m_ptDP = pt;
  65         m_ptLP = lp;
  66         m_message = message;
  67         m_param = wParam;
  68         m_lparam = lParam;
  69 }
  70
  71 STDMETHODIMP CEvent::IsMouseMove(BOOL *pResult)
  72 {
  73         *pResult = (m_message == WM_MOUSEMOVE) ? VB_TRUE : VB_FALSE;
  74         return S_OK;
  75 }
  76
  77 STDMETHODIMP CEvent::IsClick(BOOL *pResult)
  78 {
  79         *pResult = (m_message == WM_LBUTTONDOWN) ? VB_TRUE : VB_FALSE;
  80         return S_OK;
  81 }
  82
  83 STDMETHODIMP CEvent::IsRClick(BOOL *pResult)
  84 {
  85         *pResult = (m_message == WM_RBUTTONDOWN) ? VB_TRUE : VB_FALSE;
  86         return S_OK;
  87 }
  88
  89 STDMETHODIMP CEvent::IsClickCancel(BOOL *pResult)
  90 {
  91         *pResult = (m_message == WM_CAPTURECHANGED &&
  92                 m_param == 1) ? VB_TRUE : VB_FALSE;
  93         return S_OK;
  94 }
  95
  96 STDMETHODIMP CEvent::IsRClickCancel(BOOL *pResult)
  97 {
  98         *pResult = (m_message == WM_CAPTURECHANGED &&
  99                 m_param == 2) ? VB_TRUE : VB_FALSE;
 100         return S_OK;
 101 }
 102
 103 STDMETHODIMP CEvent::IsClickOut(BOOL *pResult)
 104 {
 105         *pResult = (m_message == WM_LBUTTONUP) ? VB_TRUE : VB_FALSE;
 106         return S_OK;
 107 }
 108
 109 STDMETHODIMP CEvent::IsRClickOut(BOOL *pResult)
 110 {
 111         *pResult = (m_message == WM_RBUTTONUP) ? VB_TRUE : VB_FALSE;
 112         return S_OK;
 113 }
 114
 115 STDMETHODIMP CEvent::IsCommand(BOOL *pResult)
 116 {
 117         *pResult = (m_message == WM_COMMAND &&
 118                 (m_param > IDABORT)) ? VB_TRUE : VB_FALSE;
 119         return S_OK;
 120 }
 121
 122 STDMETHODIMP CEvent::IsTimer(BOOL *pResult)
 123 {
 124         *pResult = (m_message == WM_TIMER) ? VB_TRUE : VB_FALSE;
 125         return S_OK;
 126 }
 127
 128 STDMETHODIMP CEvent::IsSize(BOOL *pResult)
 129 {
 130         *pResult = (m_message == WM_SIZE) ? VB_TRUE : VB_FALSE;
 131         return S_OK;
 132 }
 133
 134 STDMETHODIMP CEvent::IsExit(BOOL *pResult)
 135 {
 136         *pResult = (m_message == WM_COMMAND &&
 137                 m_param == IDABORT) ? VB_TRUE : VB_FALSE;
 138         return S_OK;
 139 }
 140
 141 STDMETHODIMP CEvent::IsOK(BOOL *pResult)
 142 {
 143         *pResult = (m_message == WM_COMMAND &&
 144                 m_param == IDOK) ? VB_TRUE : VB_FALSE;
 145         return S_OK;
 146 }
 147
 148 STDMETHODIMP CEvent::IsCancel(BOOL *pResult)
 149 {
 150         *pResult = (m_message == WM_COMMAND &&
 151                 m_param == IDCANCEL) ? VB_TRUE : VB_FALSE;
 152         return S_OK;
 153 }
 154
 155 STDMETHODIMP CEvent::IsDblClick(BOOL *pResult)
 156 {
 157         *pResult = (m_message == WM_LBUTTONDBLCLK) ? VB_TRUE : VB_FALSE;
 158         return S_OK;
 159 }
 160
 161 STDMETHODIMP CEvent::IsRDblClick(BOOL *pResult)
 162 {
 163         *pResult = (m_message == WM_RBUTTONDBLCLK) ? VB_TRUE : VB_FALSE;
 164         return S_OK;
 165 }
 166
 167 STDMETHODIMP CEvent::IsContextMenu(BOOL *pResult)
 168 {
 169         *pResult = (m_message == WM_NOTIFY && m_lparam == VK_RBUTTON) ? VB_TRUE : VB_FALSE;
 170         return S_OK;
 171 }
 172
 173 STDMETHODIMP CEvent::IsContextDelete(BOOL *pResult)
 174 {
 175         *pResult = (m_message == WM_NOTIFY && m_lparam == VK_DELETE) ? VB_TRUE : VB_FALSE;
 176         return S_OK;
 177 }
 178
 179 STDMETHODIMP CEvent::IsKeydown(BOOL *pResult)
 180 {
 181         *pResult = (m_message == WM_KEYDOWN) ? VB_TRUE : VB_FALSE;
 182         return S_OK;
 183 }
 184
 185 STDMETHODIMP CEvent::IsKeydown2(BOOL *pResult)
 186 {
 187         *pResult = (m_message == WM_KEYDOWN_EX) ? VB_TRUE : VB_FALSE;
 188         return S_OK;
 189 }