Scripts discussion (3)

[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]

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

viewtopic.php?p=17567#p17567

См. пример GetHex в HexSel-Rus.txt.

Дело в том, что нужен не сам HexSel, а сохранение и восстановление выделения (конкретно вот тут).

[Infocatcher]

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

Code: Select all

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.jsTitleMDI.js

Code: Select all

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.
DisplayCollapse view

https://github.com/Infocatcher/AkelPad_ ... c733b2bec8
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)).
viewtopic.php?p=22843

[Infocatcher]

I forgot to write that this trick should be used only if frame window is maximized (oSys.Call("User32::IsZoomed", hWndFrame)).

Oh, I see. Thanks again, corrected.

[[Yustas.NeO]]

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

[FeyFre]

FeyFre
History.js. Запускаю скрипт из диалога Scripts, мелькает окошко и тут же исчезает. При удалении History.ini результат тот же. WinXP x86.

Instructor
FileAndStream.js and Translator.js does not work.
It seems to me that a bug is in AkelPad.WindowSubClass() method.

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

Это к Инструктору Товарищ KDJ довольно точно определил место бага. AkelPad.WindowSubClass() больше не сабкласит главное окно АР если ей передали её главный хендл. Если передают псевдохендл(1), то да работает. Когда отвалилось не знаю, похоже в районе v13.4 - там описывался фикс сабкласинга.

[Yustas.NeO]
Временный костыль пока багу не исправятВременный костыль пока багу не исправят

Найти

Code: Select all

if(AkelPad.WindowSubClass(g_hAkelPad, AkelPadCallBack))

заменить на

Code: Select all

if(AkelPad.WindowSubClass( 1 , AkelPadCallBack))

[Instructor]

Дело в том, что нужен не сам HexSel, а сохранение и восстановление выделения (конкретно вот тут).

Это можно в RenameFile.js посмотреть.

FeyFre
Методу WindowSubClass нельзя передавать дескриптор главного окна - он вернет 0. Необходимо в скриптах вместо дескриптора использовать WindowSubClass(1 /*WSC_MAINPROC*/...).

[[Yustas.NeO]]

заменить на

Code: Select all

if(AkelPad.WindowSubClass( 1 , AkelPadCallBack))

Да, спасибо, помогло!

[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