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

[TC] Re[4]: akelpad и jaws

Здравствуйте, Руфат.
Спасибо вам и Анатолию.
Однако у меня все та же проблема:
В строке
PostMessage (hCurrentWindow, WM_VSCROLL, 1)
Диспетчер скриптов ругается на WM_VSCROLL, типа это незнакомая переменная
или константа. Она действительно нигде в этих функциях не определяется.
Наверное надо подключить какой-то файл констант. Весь вопрос какой?

Ну и еще за одно вопрос:
А случайно нет какого-нибудь рецепта от проблемы, что в четвертом Акелпаде
Джоз не читает табуляции? То есть если написать табуляцию, то на ее месте
читается "пусто".
Николай.

Ответить   Nikolay Tue, 05 Dec 2017 00:09:37 +0300 (#3534154)

 

Ответы:

Здравствуйте, Nikolay.

отвечаю на письмо от 5 декабря 2017 г., 0:09:37:

ниже преведён текст,который надо вточности скопировать и
скомпелировать..у вас менеджер даёт ошибку из-за того, что вы не
изменили
константу. она отличается от той, что преведена ниже одной буквой и
одной цифрой.
текст файла для акелпада:

Const
WM_VSCROLL=0x0115

void function SayLineUnit(int unitMovement, optional int bMoved)
var
string sClass,
handle hCurrentWindow
let hCurrentWindow = GetFocus ()
let sClass = GetWindowClass (hCurrentWindow)
if sClass == "AkelEditW" 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

Ответить   Tue, 5 Dec 2017 20:12:14 +0300 (#3534170)