AkelPad

Code: Select all

var oSys     = AkelPad.SystemFunction();
var hMainWnd = AkelPad.GetMainWnd();
var hInstDLL = AkelPad.GetInstanceDll();
var sClass   = "AkelPad::Scripts::" + WScript.ScriptName + "::" + hInstDLL;
var hWndOwner;
var hButton;

hWndOwner = hMainWnd;
//or
//hWndOwner = 0;

AkelPad.WindowRegisterClass(sClass);
oSys.Call("User32::CreateWindowExW",
          0,                  //dwExStyle
          sClass,             //lpClassName
          WScript.ScriptName, //lpWindowName
          0x90CA0000,         //dwStyle=WS_POPUP|WS_VISIBLE|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX
          200,                //x
          200,                //y
          235,                //nWidth
          120,                //nHeight
          hWndOwner,          //hWndParent
          0,                  //hMenu
          hInstDLL,           //hInstance
          DialogCallback);
AkelPad.WindowGetMessage();
AkelPad.WindowUnregisterClass(sClass);

function DialogCallback(hWnd, uMsg, wParam, lParam)
{
  if (uMsg == 1 /*WM_CREATE*/)
    hButton =
      oSys.Call("User32::CreateWindowExW",
                0,                //dwExStyle
                "BUTTON",         //lpClassName
                "Close document", //lpWindowName
                0x50000001,       //dwStyle=WS_CHILD|WS_VISIBLE|BS_DEFPUSHBUTTON
                40,               //x
                40,               //y
                150,              //nWidth
                25,               //nHeight
                hWnd,             //hWndParent
                1000,             //ID
                hInstDLL,         //hInstance
                0);               //lpParam

  else if (uMsg == 7 /*WM_SETFOCUS*/)
    oSys.Call("User32::SetFocus", hButton);

  else if (uMsg == 273 /*WM_COMMAND*/)
  {
    if (LoWord(wParam) == 1000)
      AkelPad.Command(4318 /*IDM_WINDOW_FRAMECLOSE*/);
    else if (LoWord(wParam) == 2 /*IDCANCEL*/)
      oSys.Call("User32::PostMessageW", hWnd, 16 /*WM_CLOSE*/, 0, 0);
  }

  else if (uMsg == 16 /*WM_CLOSE*/)
  {
    oSys.Call("User32::DestroyWindow", hWnd);
    oSys.Call("User32::PostQuitMessage", 0);
  }

  return 0;
}

function LoWord(nParam)
{
  return nParam & 0xFFFF;
}

Code: Select all

var hMainWnd=AkelPad.GetMainWnd();
var oSys=AkelPad.SystemFunction();
var hWndDialog=0;
var wCommand;
var dwFlags=0x2 /*CDF_PIXELS*/;

//Control IDs
var IDC_BUTTON1=1001;

var IDM_EXIT = 2001;
var hMainMenu = CreateMainMenu();

if (AkelPad.WindowRegisterClass("My Class"))
{
  AkelPad.CreateDialog(0, "My Class", "My Title",  0x90CF0040 /*DS_SETFONT|WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_SIZEBOX|WS_MINIMIZEBOX|WS_MAXIMIZEBOX*/, 10, 10, 300, 200, hMainWnd, DialogCallback, dwFlags, hMainMenu, "|",
                       0, "BUTTON", "Button text 1", 0x50010001 /*WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_DEFPUSHBUTTON*/, 10, 10, 200, 20, IDC_BUTTON1);

  if (hWndDialog)
  {
    AkelPad.ScriptNoMutex();
    AkelPad.WindowGetMessage();
  }
  AkelPad.WindowUnregisterClass("My Class");
}

function DialogCallback(hWnd, uMsg, wParam, lParam)
{
  if (uMsg == 0x110 /*WM_INITDIALOG*/)
  {
    hWndDialog=hWnd;
  }
  else if (uMsg == 273 /*WM_COMMAND*/)
  {
    wCommand=LOWORD(wParam);

    if (wCommand == 2 /*IDCANCEL*/)
    {
      //Destroy dialog
      //Exit message loop
      oSys.Call("user32::PostQuitMessage", 0);
      oSys.Call("user32::DestroyWindow", hWnd);
    }
  }
  return 0;
}

function LOWORD(dwNumber)
{
  return (dwNumber & 0xffff);
}

function CreateMainMenu()
{
  var hMenu  = oSys.Call("User32::CreateMenu");
  var hMnuFile = oSys.Call("User32::CreatePopupMenu");

  oSys.Call("User32::AppendMenuW", hMenu, 0x0010 /*MF_POPUP*/, hMnuFile, "File");
    oSys.Call("User32::AppendMenuW", hMnuFile, 0x0000 /*MF_STRING*/, IDM_EXIT, "Exit");

  return hMenu;
}