AkelPad

Code: Select all

	function dialogCallback(hWnd, uMsg, wParam, lParam) {
		...
		switch(uMsg) {
			...
			case 16: //WM_CLOSE
				if(cancelUpdate())
					return 1;
			...
		}
		return 0;
	}

	function cancelUpdate() {
		if(!asyncUpdater.activeRequests)
			return false;
		if(
			AkelPad.MessageBox(
				hWndDialog,
				_localize("Cancel update?"),
				dialogTitle,
				33 /*MB_OKCANCEL|MB_ICONQUESTION*/
			) == 1 /*IDOK*/
		)
			asyncUpdater.abort();
		return true;
	}

Code: Select all

		updateCurrencyDataAsync(
			force,
			function onProgress(state, code) {
				...
			},
			function onComplete(state, code) {
				...
				AkelPad.MessageBox(hWndDialog, msg, title, icon);
			},
			maskInclude
		);

Code: Select all

// Testcase for cancel window closing

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

if(hMainWnd)
	dialog();

function dialog() {
	var hInstanceDLL = AkelPad.GetInstanceDll();
	var dialogClass = "AkelPad::Scripts::" + WScript.ScriptName + "::" + oSys.Call("kernel32::GetCurrentProcessId");

	var hWndDialog = oSys.Call("user32::FindWindowEx" + _TCHAR, 0, 0, dialogClass, 0);
	if(hWndDialog) {
		if(oSys.Call("user32::IsIconic", hWndDialog))
			oSys.Call("user32::ShowWindow", hWndDialog, 9 /*SW_RESTORE*/);
		AkelPad.SendMessage(hWndDialog, 7 /*WM_SETFOCUS*/, 0, 0);
		return;
	}

	if(
		!AkelPad.WindowRegisterClass(dialogClass)
		&& ( // Previous script instance crashed
			!AkelPad.WindowUnregisterClass(dialogClass)
			|| !AkelPad.WindowRegisterClass(dialogClass)
		)
	)
		return;

	var IDC_OK = 1000;
	var hWndOK;

	// Create dialog
	hWndDialog = oSys.Call(
		"user32::CreateWindowEx" + _TCHAR,
		0,             //dwExStyle
		dialogClass,   //lpClassName
		0,             //lpWindowName
		0x90CA0000,    //WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX
		0,             //x
		0,             //y
		220,           //nWidth
		70,            //nHeight
		hMainWnd,      //hWndParent
		0,             //ID
		hInstanceDLL,  //hInstance
		dialogCallback //Script function callback. To use it class must be registered by WindowRegisterClass.
	);
	if(!hWndDialog)
		return;

	function dialogCallback(hWnd, uMsg, wParam, lParam) {
		switch(uMsg) {
			case 1: //WM_CREATE
				// Dialog caption
				windowText(hWnd, WScript.ScriptName);

				// Button OK
				hWndOK = oSys.Call(
					"user32::CreateWindowEx" + _TCHAR,
					0,            //dwExStyle
					"BUTTON",     //lpClassName
					0,            //lpWindowName
					0x50010001,   //WS_VISIBLE|WS_CHILD|WS_TABSTOP|BS_DEFPUSHBUTTON
					10,           //x
					10,           //y
					100,          //nWidth
					20,           //nHeight
					hWnd,         //hWndParent
					IDC_OK,       //ID
					hInstanceDLL, //hInstance
					0             //lpParam
				);
				var hGuiFont = oSys.Call("gdi32::GetStockObject", 17 /*DEFAULT_GUI_FONT*/);
				setWindowFontAndText(hWndOK, hGuiFont, "OK");
			break;
			case 7: //WM_SETFOCUS
				oSys.Call("user32::SetFocus", hWndOK);
			break;
			case 273: //WM_COMMAND
				var idc = wParam & 0xffff;
				switch(idc) {
					case IDC_OK:
						oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
				}
			break;
			case 16: //WM_CLOSE
				if(!confirmClose())
					return 1;
				oSys.Call("user32::DestroyWindow", hWnd); // Destroy dialog
			break;
			case 2: //WM_DESTROY
				oSys.Call("user32::PostQuitMessage", 0); // Exit message loop
		}
		return 0;
	}

	function confirmClose() {
		return AkelPad.MessageBox(
			hWndDialog,
			"Close?",
			WScript.ScriptName,
			33 /*MB_OKCANCEL|MB_ICONQUESTION*/
		) == 1 /*IDOK*/;
	}

	function windowText(hWnd, pText) {
		if(arguments.length > 1)
			return oSys.Call("user32::SetWindowText" + _TCHAR, hWnd, pText);
		var len = oSys.Call("user32::GetWindowTextLength" + _TCHAR, hWnd);
		var lpText = AkelPad.MemAlloc((len + 1)*_TSIZE);
		if(!lpText)
			return "";
		oSys.Call("user32::GetWindowText" + _TCHAR, hWnd, lpText, len + 1);
		pText = AkelPad.MemRead(lpText, _TSTR);
		AkelPad.MemFree(lpText);
		return pText;
	}
	function setWindowFont(hWnd, hFont) {
		AkelPad.SendMessage(hWnd, 48 /*WM_SETFONT*/, hFont, true);
	}
	function setWindowFontAndText(hWnd, hFont, pText) {
		setWindowFont(hWnd, hFont);
		windowText(hWnd, pText);
	}

	AkelPad.ScriptNoMutex(); // Allow other scripts running
	AkelPad.WindowGetMessage(); // Message loop

	AkelPad.WindowUnregisterClass(dialogClass);
}

Code: Select all

var oSys         = AkelPad.SystemFunction();
var hInstanceDLL = AkelPad.GetInstanceDll();
var sClassName   = "AkelPad::Scripts::" + WScript.ScriptName + "::" + hInstanceDLL;
var hWndDlg;
var hWnd1;

AkelPad.WindowRegisterClass(sClassName);
hWndDlg = oSys.Call("user32::CreateWindowEx" + _TCHAR,
                    0,                //dwExStyle
                    sClassName,       //lpClassName
                    "Test F5 and F6", //lpWindowName
                    0x90CA0000,       //WS_VISIBLE|WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX
                    300,              //x
                    300,              //y
                    300,              //nWidth
                    150,              //nHeight
                    0,                //hWndParent
                    0,                //ID
                    hInstanceDLL,     //hInstance
                    DialogCallback);

AkelPad.ScriptNoMutex();
AkelPad.WindowGetMessage();
AkelPad.WindowUnregisterClass(sClassName);

function DialogCallback(hWnd, uMsg, wParam, lParam)
{
  if (uMsg == 1) //WM_CREATE
  {
    hWnd1 = oSys.Call("user32::CreateWindowEx" + _TCHAR,
                      0,            //dwExStyle
                      "STATIC",     //lpClassName
                      0,            //lpWindowName
                      0x50000000,   //dwStyle
                      50,           //x
                      50,           //y
                      180,          //nWidth
                      20,           //nHeight
                      hWnd,         //hWndParent
                      -1,           //ID
                      hInstanceDLL, //hInstance
                      0);           //lpParam
    oSys.Call("user32::SetWindowText" + _TCHAR, hWnd1, "Press F5 or F6");
  }

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

  else if (uMsg == 256 /*WM_KEYDOWN*/)
  {
    if (wParam == 0x74 /*VK_F5*/)
      AkelPad.MessageBox(hWnd, "F5 was pressed", "Test", 0);
    else if (wParam == 0x75 /*VK_F6*/)
      AkelPad.MessageBox(hWnd, "F6 was pressed", "Test", 0);
    else if (wParam == 27 /*VK_ESCAPE*/)
      oSys.Call("user32::PostMessage" + _TCHAR, hWnd, 16 /*WM_CLOSE*/, 0, 0);
  }

  else if (uMsg == 16) //WM_CLOSE
    oSys.Call("user32::DestroyWindow", hWnd);

  else if (uMsg == 2) //WM_DESTROY
    oSys.Call("user32::PostQuitMessage", 0);

  return 0;
}