Приветствую всех! Здравствуйте, Nikolay .
Отвечу за Анатолия, Николай. так как он меня об этом попросил.
сия беда не обошла и меня, правда я пользуюсь блокнотом.
Анатолий написал для меня сегодня функцию для блокнота,
вот её текст:
void function SayLineUnit(int unitMovement, optional int bMoved)
var
string sClass,
handle hCurrentWindow
let hCurrentWindow = GetFocus ()
let sClass = GetWindowClass (hCurrentWindow)
if sClass == "Edit" then
if unitMovement ==1 then
PostMessage (hCurrentWindow, WM_VSCROLL, 1)
elif unitMovement ==2 then
PostMessage (hCurrentWindow, WM_VSCROLL)
endif
delay (1)
endif
SayLineUnit(unitMovement, bMoved)
EndFunction
Для того чтобы он сработал в AkelPad,или в ином другом редакторе, нужно
скопировать
в его окне, по клавише insert+цифра7, название класса окна,
и вставить его вместо <<Edit>>, в строке
if sClass == "Edit" then
если посимвольная навигация тоже страдает, то вот
функция и для неё:
Void Function SayCharacterUnit (int UnitMovement)
var
string sClass,
handle hCurrentWindow
let hCurrentWindow = GetFocus ()
let sClass = GetWindowClass (hCurrentWindow)
if sClass == "Edit" then
if unitMovement ==1 then
PostMessage (hCurrentWindow, WM_HSCROLL, 1)
elif unitMovement ==2 then
PostMessage (hCurrentWindow, WM_HSCROLL)
endif
delay (1)
endif
SayCharacterUnit (unitMovement)
EndFunction
У меня в блокноте, теперь всё читается корректно!
P. S. Анатолий просит прощения, что в вашем варианте для AkelPad, немного
ошибся.
понедельник 4 декабря 2017 год!, 21:06 Вами было написано:
N> К сожалению, при компиляции скриптов на строке
N> PostMessage (hCurrentWindow, WM_VSCROLL, 1)
N> выдается ошибка
--
С уважением, Руфат,
shah-ruf***@y*****.ru