Отправляет email-рассылки с помощью сервиса Sendsay

Screen reader JAWS for Windows Russian

[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] Диалог поиска

Ответить   Leonid Jilin Sun, 05 Nov 2006 12:52:28 +0700 (#606738)