[JFWRus] Исправление ошибки в скрипте к тоталкомандеру.
Здравствуйте все!
На моём компьютере в тоталкомандере jaws не произносит отмеченные файлы.
Скрипты стоят от Евгения Корнева. Ниже привожу исправленный вариант
функции, который нужно заменить в тексте скрипта.
Function ArrRead ()
If GetWindowClass (GetCurrentWindow ()) != "TMyListBox" then
return
endif
let filename = GetTextInFocusRects (GetCurrentWindow ())
let filecolor = GetColorName (GetColorText ())
PerformScript FileName ()
if SubString (filename, 1, 1) == "[" then
if SubString (filename, 2, 2) == ".." then
saystring ("выход из каталога")
else
saystring ("каталог")
endif
endif ;Эта строка новая
if GetColorName (GetColorText ()) == "красный" then
saystring ("отмечено")
endif
;endif ;в орегинале эта строка не закоментирована
EndFunction
Доброго времени суток!
Original Message From: "Vladislav Medvedev" <medved***@u*****.ru>
В рассылку посвещённую скриптам "ScreenReadingScripting" в качестве консультанта
вернулся Сергей Туманян.
В этом листе Сергей анонсирует релизы своих скриптов для Total Commander, которые
работают не зависимо от версии программы, цветовой схемы и используемого Jaws.
Сам пользуюсь и очень даволен.
Модератор: Андрей Поликанин
Подписаться:
ScreenReadingScripting-subscri***@y*****.com
Отписаться:
ScreenReadingScripting-unsubscri***@y*****.com
--
С уважением, Матроскин.
ICQ: 495224138 Skype: instructor_oandm
mailto:matroskinshou***@r*****.ru
Справочник интернет-ресурсов: http://koleso.mostinfo.ru/guide
***
Это сообщение No 7060
было разослано для 424 участников дискуссионного листа
[JFWRus] Re: Исправление ошибки в скрипте к тоталкомандеру.