AkelPad

Code: Select all

// LineBoardRClickPanel.js
// 
// Right click on LineBoard panel, shows menu from LineBoardBookmarks.js instead of plugin menu.
//
// Usage:
//   Call("Scripts::Main", 1, "LineBoardRClickPanel.js")
//
// Notes:
//   After first call, the script resides in the memory.
//   Second script call, closes the script.

var hScript = AkelPad.ScriptHandle(WScript.ScriptName, 3 /*SH_FINDSCRIPT*/);

if (hScript && AkelPad.ScriptHandle(hScript, 13 /*SH_GETMESSAGELOOP*/))
{
  //script already is running
  AkelPad.ScriptHandle(hScript, 33 /*SH_CLOSESCRIPT*/);
}
else
{
  var oSys = AkelPad.SystemFunction();
  var hSubClassEdit;

  if (hSubClassEdit = AkelPad.WindowSubClass(2 /*WSC_EDITPROC*/, EditCallback, 123 /*WM_CONTEXTMENU*/))
  {
    //Allow other scripts running
    AkelPad.ScriptNoMutex();

    //Message loop
    AkelPad.WindowGetMessage();

    AkelPad.WindowUnsubClass(2 /*WSC_EDITPROC*/);
  }
}

function EditCallback(hWnd, uMsg, wParam, lParam)
{
  if ((uMsg == 123 /*WM_CONTEXTMENU*/) && AkelPad.IsPluginRunning("LineBoard::Main") && IsClickOnBoard(hWnd, lParam & 0xFFFF, (lParam >> 16) & 0xFFFF))
  {
    AkelPad.WindowNoNextProc(hSubClassEdit);
    AkelPad.Call("Scripts::Main", 1, "LineBoardBookmarks.js", "MM");
  }

  return 0;
}

function IsClickOnBoard(hWnd, nClickX, nClickY)
{
  var lpRect = AkelPad.MemAlloc(16 /*sizeof(RECT)*/);

  AkelPad.CallW("LineBoard::Main", 11, hWnd, 0, lpRect);
  oSys.Call("User32::ClientToScreen", hWnd, lpRect);
  oSys.Call("User32::ClientToScreen", hWnd, lpRect + 8);

  var nX = AkelPad.MemRead(lpRect,      3 /*DT_DWORD*/);
  var nY = AkelPad.MemRead(lpRect +  4, 3 /*DT_DWORD*/);
  var nW = AkelPad.MemRead(lpRect +  8, 3 /*DT_DWORD*/);
  var nH = AkelPad.MemRead(lpRect + 12, 3 /*DT_DWORD*/);
  AkelPad.MemFree(lpRect);

  if ((nClickX >= nX) && (nClickX <= nW) && (nClickY >= nY) && (nClickY <= nH))
    return true;

  return false;
}

Code: Select all

CmdLineBegin=/Call("Scripts::Main",1,"history.js") /Call("Scripts::Main", 1, "LineBoardRClickPanel.js")