[JFWRus] Диалог поиска

Здравствуйте, читатели!
Если это повторное сообщение - прошу извинить за назойливость, ибо есть
подозрение что оно не прошло в рассылку.
Итак.
В окне диалога поиска менеджера total Commander попасть на кнопки можно
только графическим курсором. Да и назначать на все горячие клавиши нет
необходимости. Поэтому предлагаю два варианта решения этой проблемы:
1. Полный - через вызов пользовательского меню, доступ к четырём кнопкам.
Клавиши на кнопки могут назначаться по желанию. Включается весь текс
ниже подписи.
2. Усечённый, содержит только активацию требуемых кнопок и включает
Function FindButton (string Bnam) и скрипты, закреплённые за
конкретными кнопками. названия последних зависят от руссификации и
должны уточняться.
Полный вариант позволяет создавать универсальное меню для большого
количества кнопок, экономя клавишные комбинации, сохраняя их только за
часто используемыми.
С уважением, Леонид жилин
Email:kozerog***@m*****.ru
;диалог поиска
Script FindDialogButton ();присваивается клавиша
var
String list,
int i
if GetWindowClass (GetCurrentWindow ()) != "TWidthListBox" then
Return
endif
Let list = "|Browse:Просмотр файла"+ "|GotoFile:Перейти к файлу"+
"|Filesagain:Файлы на панель"+ "|NewFind:новый поиск"
Let i=0
while ((SubString (list, 1, 1) == "|") && i < 5)
Let list = StringChopLeft (list, 1)
Let i = i+1
EndWhile
DlgSelectScriptToRun (list, "Выбор действия", False)
EndScript
Function FindButton (string Bnam)
var
handle h
{Enter}
Pause ()
let h = GetCurrentWindow ()
if GetWindowClass (h) != "TWidthListBox" then
Return
endif
let h = FindWindow (GetParent (h), "TButton", Bnam)
if GetWindowSubtypeCode (h) then
MoveToWindow (h)
LeftMouseButton ()
endif
PCCursor ()
EndFunction
Script Browse ()
FindButton ("Просмотр")
EndScript
Script NewFind ()
FindButton ("новый поиск")
EndScript
Script GotoFile ();присваивается клавиша
Findbutton ("Перейти к файлу")
EndScript
Script FilesAgain ()
FindButton ("Файлы на панель")
EndScript
***
Это сообщение No4852
было разослано для 331 участников дискуссионного листа
[JFWRus] Диалог поиска