Клавиша Alt и Win7
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- morkovin
- Ветеран
- Сообщения: 935
- Зарегистрирован: 20 Июль 2005, 14:53
- Откуда: Volgograd, Russia
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
- Контактная информация:
Клавиша Alt и Win7
В ClaMag за 2008г(не помню точно) был темплейт на эту тему
- Вложения
-
- CBAltWin7Fix.TPL
- (5.64 КБ) 411 скачиваний
WBR, morkovin
-
- Ветеран
- Сообщения: 390
- Зарегистрирован: 26 Август 2009, 12:41
- Откуда: Moscow
- Контактная информация:
Re: Клавиша Alt и Win7
Добрый день!
Если не затруднит - не нашел обработчик колесика мыши!
(В старых постах были ссылки на фтп-не нашел)
Если есть киньте, пожалуйста или на info@soft-center.ru
Алексей
Если не затруднит - не нашел обработчик колесика мыши!
(В старых постах были ссылки на фтп-не нашел)
Если есть киньте, пожалуйста или на info@soft-center.ru
Алексей
- morkovin
- Ветеран
- Сообщения: 935
- Зарегистрирован: 20 Июль 2005, 14:53
- Откуда: Volgograd, Russia
- Благодарил (а): 9 раз
- Поблагодарили: 4 раза
- Контактная информация:
Re: Клавиша Alt и Win7
Можно посмотреть здесь _http://www.clarion-software.com . Задай поиск mousewheel.
Вот вырезка из одной дискуссии:
Вот вырезка из одной дискуссии:
For every control where you want to disable the mouse wheel you will
need a subclass. Every control, including the widow itself, is a
window and can be subclassed to intercept messages. Yeah, it gets
complicated!<g>
So if you want to intercept the mouse wheel for the window you would
subclass the client area using Window{PROP:ClientWndProc}. For a list
control you would subclass the list using ?List{PROP:WndProc}. You can
simplify the subclass procedures a bit as shown below.
Код: Выделить всё
OPEN(Window)
SubClassLong = Window{PROP:ClientWndProc}
Window{PROP:ClientWndProc} = ADDRESS(SubClassWindow)
SubClassListLong = ?List{PROP:WndProc}
?List{PROP:WndProc} = ADDRESS(SubClassList)
SubClassWindow PROCEDURE(hWnd,WinMsg,wParam,lParam)
WM_MOUSEWHEEL EQUATE(020Ah)
CODE
IF WinMsg = WM_MOUSEWHEEL
Return(0)
END
RETURN(_CallWindowProc(SubClassLong,hWnd,WinMsg,wParam,lParam))
SubClassList PROCEDURE(hWnd,WinMsg,wParam,lParam)
WM_MOUSEWHEEL EQUATE(020Ah)
CODE
IF WinMsg = WM_MOUSEWHEEL
Return(0)
END
RETURN(_CallWindowProc(SubClassListLong,hWnd,WinMsg,wParam,lParam))
WBR, morkovin
-
- Ветеран
- Сообщения: 390
- Зарегистрирован: 26 Август 2009, 12:41
- Откуда: Moscow
- Контактная информация: