AkelPad

Code: Select all

var oSys       = AkelPad.SystemFunction();
var hMainWnd = AkelPad.GetMainWnd();
var DT_DWORD    = 3;

if (hMainWnd)
{
  //Get arguments
  if (WScript.Arguments.length)
  {
    sAction = WScript.Arguments(0).toUpperCase();
    MoveWindow(hMainWnd, sAction);
  }
}

function MoveWindow(hWnd, sAction)
{
  var aRect;
  var nX;
  var nY;
  var nW;
  var nH;
  var nShiftV;
  var nShiftH;

  aRect       = GetWindowPos(hWnd);

  nX = aRect.left;
  nY = aRect.top;
  nW = aRect.right - aRect.left;
  nH = aRect.bottom - aRect.top;
  nShiftV = 18; // для 11 Arial
  nShiftH = 10;

switch (sAction)
{
  case "RR": // двигаем правую вправо
    nW += nShiftH;
    break;
  case "RL": // двигаем правую влево
    nW -= nShiftH;
    break;
  case "BB": // двигаем нижнюю вниз
    nH += nShiftV;
    break;
  case "BT": // двигаем нижнюю вверх
    nH -= nShiftV;
    break;
}
// oSys.Call("User32::SetWindowPos", hWnd, 0, 0, 0, nW, nH, 0x16 /*SWP_NOZORDER|SWP_NOACTIVATE|SWP_NOMOVE*/);


switch (sAction)
{
  case "LR": // двигаем левую вправо
    nW -= nShiftH;
    nX += nShiftH;
    break;
  case "LL": // двигаем левую влево
    nW += nShiftH;
    nX -= nShiftH;
    break;
  case "TB": // двигаем верхнюю вниз
    nH -= nShiftV;
    nY += nShiftV;
    break;
  case "TT": // двигаем верхнюю вверх
    nH += nShiftV;
    nY -= nShiftV;
    break;
}
oSys.Call("User32::SetWindowPos", hWnd, 0, nX, nY, nW, nH, 0x14 /*SWP_NOZORDER|SWP_NOACTIVATE*/);
}

function GetWindowPos(hWnd)
{
  var lpRect = AkelPad.MemAlloc(16) //sizeof(RECT);
  var aRect  = [];

  oSys.Call("User32::GetWindowRect", hWnd, lpRect);

  aRect.left   = AkelPad.MemRead(_PtrAdd(lpRect,  0), DT_DWORD);
  aRect.top    = AkelPad.MemRead(_PtrAdd(lpRect,  4), DT_DWORD);
  aRect.right  = AkelPad.MemRead(_PtrAdd(lpRect,  8), DT_DWORD);
  aRect.bottom = AkelPad.MemRead(_PtrAdd(lpRect, 12), DT_DWORD);
  AkelPad.MemFree(lpRect);

  return aRect;
}