AkelPad

[Instructor]

RUS: Обсуждение скриптов.

ENG: Scripts discussion.


Scripts discussion (1) 07.07.2007 - 08.09.2011
Scripts discussion (2) 08.09.2011 - 17.04.2014
Scripts discussion (3)

[Infocatcher]

(из предыдущей части)

[Infocatcher]

Нужно вывести некий прогресс, хотелось использовать для этого заголовок окна (как самый простой вариант), но как при этом потом восстановить оригинальный заголовок в MDI-режиме?
Проблема в том, что user32::GetWindowTextW() возвращает реальный заголовок, а если потом выставить полученное через user32::SetWindowTextW(), то изменяемая часть заголовка будет прибавляться в конец добавленного (и будет двоиться). Если при восстановлении вписать «AkelPad», то работает корректно, но вот как получить эту базовую часть программно?
Демонстрация

Code:

var hMainWnd = AkelPad.GetMainWnd(); var orig = windowText(hMainWnd); windowText(hMainWnd, "Test message"); WScript.Sleep(500); windowText(hMainWnd, orig); 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; }

[KDJ]

Infocatcher

TitleMDI.js

Code:

if (AkelPad.IsMDI() == 1 /*WMD_MDI*/) {   var oSys      = AkelPad.SystemFunction();   var hMainWnd  = AkelPad.GetMainWnd();   var hWndFrame = AkelPad.SendMessage(hMainWnd, 1223 /*AKD_GETFRAMEINFO*/, 1 /*FI_WNDEDITPARENT*/, 0 /*current frame*/);   var sMainTitle;   var sFrameTitle;   var sFullTitle;   var sMainTitleNew;   var sFrameTitleNew;   var sFullTitleNew;   //get original title   sFrameTitle = windowText(hWndFrame);   sFullTitle  = windowText(hMainWnd);   windowText(hWndFrame, "");   sMainTitle = windowText(hMainWnd);   windowText(hWndFrame, sFrameTitle);   WScript.Echo("Main title part:\t" + sMainTitle + "\n" + "Frame title:\t" + sFrameTitle + "\n" + "Main title full:\t" + sFullTitle);   //set new title   windowText(hMainWnd, "New main title");   windowText(hWndFrame, "New frame title");   //get new title   sFrameTitleNew = windowText(hWndFrame);   sFullTitleNew  = windowText(hMainWnd);   windowText(hWndFrame, "");   sMainTitleNew = windowText(hMainWnd);   windowText(hWndFrame, sFrameTitleNew);   WScript.Echo("Main title part:\t" + sMainTitleNew + "\n" + "Frame title:\t" + sFrameTitleNew + "\n" + "Main title full:\t" + sFullTitleNew);   //restore original title   windowText(hMainWnd, sMainTitle);   windowText(hWndFrame, sFrameTitle);   sFrameTitle = windowText(hWndFrame);   sFullTitle  = windowText(hMainWnd);   windowText(hWndFrame, "");   sMainTitle = windowText(hMainWnd);   windowText(hWndFrame, sFrameTitle);   WScript.Echo("Main title part:\t" + sMainTitle + "\n" + "Frame title:\t" + sFrameTitle + "\n" + "Main title full:\t" + sFullTitle); } 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; }

[Infocatcher]

KDJ
Thanks! Still looks tricky, but works fine.
>>>

https://github.com/Infocatcher/AkelPad_scripts/commit/4e2a0d518a5968857387bb34749f35c733b2bec8
Yet another paranoid iteration for 2 years old prototype: commits/master/cryptExt.js (just thanks to Heartbleed ).
But unfortunately PBKDF2 is slow by design and especially slow in JScript implementation.

[KDJ]

Infocatcher
I forgot to write that this trick should be used only if frame window is maximized (oSys.Call("User32::IsZoomed", hWndFrame)).
http://akelpad.sourceforge.net/forum/viewtopic.php?p=22843

[Infocatcher]

[[Yustas.NeO]]

Похоже, что в какой-то из последних версий «Scripts.dll» перестал запускаться скрипт SetCoderExt.js. Вернее он запускается и тут же завершается.
Подскажите, пожалуйста, что в нем необходимо изменить?

[FeyFre]

[Instructor]

[[Yustas.NeO]]

[FeyFre]

Instructor, а хендл окна редактирования тоже нельзя?

[Instructor]

FeyFre
Указанное выше касается только главного окна. "WindowSubClass(2 /*WSC_EDITPROC*/...)" устанавливается для всех окон редактирования, "WindowSubClass(hWndEdit...)" для одного окна.

[FeyFre]

Обновлены скрипты
SetCoderExt.js
History,js

Instructor, а какже совместимость назад? Вот 2 скрипта на пустом месте отвалилось, а ведь внутри можно было бы и проверить хендел, вместо того что-бы в скрипте каждый городил.

Я так понимаю WindowUnsubClass это тоже касается?

Я бы с удовольствие пользовался 1 и 2 и 3, если бы они были собственно именованными константами а не просто магическими числами. До-определять их в каждом скрипте тоже извиняюсь не формат.

[Infocatcher]

forgetAboutTab.js
Add small delay to prevent possible crashes