OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Вторник, 19 Март, 2024 05:52

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: как защитить WheelMsg нажатием Ctrl?
СообщениеДобавлено: Вторник, 04 Сентябрь, 2012 06:23 

Зарегистрирован: Четверг, 01 Июнь, 2006 11:14
Сообщения: 240
Добрый день.

Код:
   PROCEDURE (v: View) HandleCtrlMsg* (f: Views.Frame; VAR msg: Views.CtrlMessage; VAR focus: Views.View);
   BEGIN
      WITH
      | msg: Controllers.TrackMsg DO
         IF HostPorts.ctrl IN msg.modifiers THEN Do1 END
      | msg: Controllers.WheelMsg DO
         IF msg.op = Controllers.incLine THEN Do2 END
      ELSE
      END
   END HandleCtrlMsg;


сообщение TrackMsg приходит с полем modifiers, из которого потом можно узнать была ли нажата клавиша контрол. У сообщения WheelMsg такого поля нету, нужна реакция на скролинг при нажатом контроле. обычный сролинг (тут: кручение колесом, а не прокрутка текста) игнорировать. Как это можно сделать?
Смотрел в Controller, так и не понял как заполняются modifiers у сообщений...


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: как защитить WheelMsg нажатием Ctrl?
СообщениеДобавлено: Вторник, 04 Сентябрь, 2012 07:42 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3774
Используйте для этого f.Input(x, y, m, isDown);.

Вот такой пример.
Код:
   PROCEDURE (v: View) HandleCtrlMsg* (f: Views.Frame; VAR msg: Views.CtrlMessage; VAR focus: Views.View);
      VAR x, y: INTEGER; isDown: BOOLEAN; m: SET;
   BEGIN
      WITH
      | msg: Controllers.TrackMsg DO
         IF HostPorts.ctrl IN msg.modifiers THEN
            INC(pos);
            Views.Update(v, TRUE)
         END
      | msg: Controllers.WheelMsg DO
         f.Input(x, y, m, isDown);
         IF Controllers.modify IN m THEN
            IF msg.op = Controllers.incLine THEN
               INC(pos)
            ELSE
               DEC(pos)
            END;
         END;
         Views.Update(v, TRUE)
      ELSE
      END
   END HandleCtrlMsg;


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: как защитить WheelMsg нажатием Ctrl?
СообщениеДобавлено: Вторник, 04 Сентябрь, 2012 08:31 
Аватара пользователя

Зарегистрирован: Четверг, 08 Октябрь, 2009 15:00
Сообщения: 3774
Код:
msg.done := TRUE;
Еще оказывается, важно ставить вот такой флаг. Он гарантирует корректно поведение прокрутки в случае, если ваше отображение встроено в другое отображение. Чтобы сообщение повторно не обрабатывалось родительским отображением.
Цитата:
TYPE WheelMsg (CursorMessage)
Расширение
Это сообщение посылается, когда колесо на мыши с колесом поворачивается.

done: BOOLEAN
Если отображение обрабатывает это сообщение, оно должно установить флаг done в TRUE.

op: INTEGER
Показывает, какой тип события колеса мыши произошел. Используются те же константы, что и для прокрутки, но допустимы только следующие из них: incPage, decPage, incLine and decLine.

nofLines: INTEGER nofLines >= 1
Если op или icnLine, или decLine, то nofLines показывает, сколько строк должно быть прокручено. Для incPage и decPage это значение не определено


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: как защитить WheelMsg нажатием Ctrl?
СообщениеДобавлено: Вторник, 04 Сентябрь, 2012 09:20 

Зарегистрирован: Четверг, 01 Июнь, 2006 11:14
Сообщения: 240
Иван Денисов
Спасибо, заработало. сам бы не догадался%)


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
cron
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2024, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB