Keycode() не работает в IDLE процедуре

[Губин Игорь]

Ну да, а что не реализуемо, без всякого субклассинга?

ИМХО: "гладко" и естественно реализуемо шаблоном, подключаемым во Frame и в каждом контролируемом окне.

[finsoftrz]

Так всё-таки, из одного места можно контролировать нажатие клавиш и клики мыши?

Всё в ОКНЕ можно контролировать сразу после ACCEPT

Неа, не все. Некоторые вещи отрабатываются внутри accept. Поэтому и сабклассинг придумали, чтобы обойти.

[Губин Игорь]

Неа, не все. Некоторые вещи отрабатываются внутри accept. Поэтому и сабклассинг придумали, чтобы обойти.

Умный, да?!

Мы не говорим сейчас о всякой экзотике типа Windows API и всего, что с этим связано. Мы говорим сейчас о работе мышки и клавиатуры в окнах задачи.

[vic7tar]

ИМХО: "гладко" и естественно реализуемо шаблоном, подключаемым во Frame и в каждом контролируемом окне.

А я и не спорю, я и говорил, что это самый простой путь. Но прежде я упомянул хуки, но на это нуль реакции. Если ТС-у сильно нужно - SetWindowsHookExA. Будет сложновато.

[kreator]

Губин Игорь, предложите вариант гладкой и естественной обработки набора текста в поле TEXT. ИМХО, здесь уже некая колизия.

[finsoftrz]

Игорь Маркович тогда уж, будет еще торжественнее...

[Губин Игорь]

ариант гладкой и естественной обработки набора текста в поле TEXT. ИМХО, здесь уже некая колизия

У меня был подобный случай. Я сотворил шаблон с буферными переменными, в которые считывал постоянно содержимое и сравнивал. Аналогично тому, что показывал Юрий. Варианты для RTF и обычного различались. Но, поскольку шаблон делаем один раз...

[Губин Игорь]

Игорь Маркович тогда уж, будет еще торжественнее...

Вах, перед форумом и бутылкой равны все!

[finsoftrz]

Игорь Маркович тогда уж, будет еще торжественнее...

Вах, перед форумом и бутылкой равны все!

А что, когда молоденькие девушки все чаще начали меня на Вы называть и по имени-отчеству, вначале было непривычно, а потом даже понравилось. Причем я сам как-то на восприятие особо не различаю, что 10-20 лет назад с такими же общался, что сейчас. А потом приходит мысль, твои ровесницы с палочками под окнами гуляют, а ты все их бабульками древними воспринимаешь, кобелина... Ну, не до такой степени пока, конечно, но все к тому постепенно движется.

[Губин Игорь]

А что, когда молоденькие девушки все чаще начали меня на Вы называть и по имени-отчеству, вначале было непривычно, а потом даже понравилось. Причем я сам как-то на восприятие особо не различаю, что 10-20 лет назад с такими же общался, что сейчас. А потом приходит мысль, твои ровесницы с палочками под окнами гуляют, а ты все их бабульками древними воспринимаешь, кобелина... Ну, не до такой степени пока, конечно, но все к тому постепенно движется.

Мужику столько лет, сколько его самой молодой любовнице не на содержании!
Т.е. жёны сюда не входят!

[Yufil]

Сабклассинг есть в FreeABC. В своё время исправлял переключение языка в CW6.
А всё-таки вариант с проверкой изменений Prop:ScreenText для каждого из полей текущего окна у меня катит. Одна Idle-процедура на приложение с MDI или повесить на таймер её же ( только без SetTarget() ) в однозадачном.

Ещё раз проверил
Внутри Idle-процедуры

Код: Выделить всё

Loc:OldString  Cstring(10000),STATIC
Loc:NewString  CString(10000),STATIC
Loc:OldTime    LONG(0),STATIC 
    .... 
           Thread# = System{ Prop:Active } 
           Loc:NewString = '' 
           IF Thread#<>1 
               SetTarget( ,Thread# ) 
               Key# = KeyCode() 
               LOOP Field# = FIRSTFIELD() TO LASTFIELD()
                   CASE Field#{Prop:Type} 
                   OF 0 
                   OF Create:Check 
                     Loc:Use = Field#{Prop:Use}
                     Loc:NewString = Clip(Loc:NewString) & CLIP( Loc:Use ) 
                  ELSE 
                     Loc:NewString = Clip(Loc:NewString) & CLIP(Field#{ PROP:ScreenText}) 
                  END    
             END
             IF Loc:OldString <> Loc:NewString 
                Loc:OldTime = CLOCK() 
             END
             Loc:OldString = Loc:NewString 
             0{Prop:Text} = 'Modified ' & Format( Loc:OldTime,'@t4') |
               & ' Wait=' & Format( CLOCK() - Loc:OldTime, '@t4') 
             SetTarget() 
           END  
... 

Если ничего не трогаешь, растёт Wait, тронул - сбрасывается в 0.
Недостаток - не у всех видов полей есть Prop:ScreenText, на Checkbox пришлось выкрутиться,
Entry и Text нормально. Ещё полезно, наверное, отловить переключение тредов и смену заголовка,
а так - работает...

Свойства окон и полей ( IMM ) сразу не скажу, окна и поля создаются динамически.

[kreator]

А всё-таки вариант с проверкой изменений Prop:ScreenText для каждого из полей текущего окна у меня катит.

Тоже не совсем то. А если пользователь ничего не меняет? А список просматривает? Или кнопки нажимает?

[Yufil]

Если кнопки нажимает, то содержимое экрана изменяется. Иначе зачем их нажимать ?
Для списка можно добавить в снимок ?List{ Prop:Selected } вместо ?List{Prop:Text}.
Или извлечь запись через Prop:From - варианты есть.
А для мышки, само собой, MouseX() и Mousey() в снимок. Но это мне не кажется правильным