AkelPad

Code: Select all

function Edit_GetFirstVisibleLine(hEd)
{
  var nLine = AkelPad.SendMessage(hEd, EM_GETFIRSTVISIBLELINE, 0, 0);
  return AkelPad.SendMessage(hEd, AEM_GETUNWRAPLINE, nLine, 0);
}

Code: Select all

var lpPoint = AkelPad.MemAlloc(8 /*sizeof(POINT)*/);
var oSys = AkelPad.SystemFunction();
oSys.Call("User32::GetCaretPos", lpPoint);
oSys.Call("User32::ClientToScreen", hWnd, lpPoint);
var nPosX = AkelPad.MemRead(_PtrAdd(lpPoint, 0), 3 /*DT_DWORD*/);
var nPosY = AkelPad.MemRead(_PtrAdd(lpPoint, 4), 3 /*DT_DWORD*/);
AkelPad.MemFree(lpPoint);

Code: Select all

var hWndEdit = AkelPad.GetEditWnd();
var hFontEdit = AkelPad.SendMessage(hWndEdit, WM_GETFONT, 0, 0);

Code: Select all

    WScript.Echo(GetBoardWidth(AkelPad.GetEditWnd(), 0));

    function GetBoardWidth(hWndEdit, hDocEdit)
    {
      var lpRect;
      var nWidth=0;

      if (lpRect=AkelPad.MemAlloc(16 /*sizeof(RECT)*/))
      {
        AkelPad.CallW("LineBoard::Main", 11, hWndEdit, hDocEdit, lpRect);
        nWidth=AkelPad.MemRead(lpRect + 0 /*offsetof(RECT, left)*/, 3 /*DT_DWORD*/);
        AkelPad.MemFree(lpRect);
      }
      return nWidth;
    }