Вверх ↑
Ответов: 1536
Рейтинг: 176
#1: 2013-07-31 09:45:32 ЛС | профиль | цитата
Galkov писал(а):
Правильно отражаются.
Какие координаты винда контролу дала, такие он и передал (см. WndProcMouse).

Galkov,по-твоему всё так и должно быть? Тогда почему по MouseMove выдаёт координаты правильно, а в onMouseWheel - нет?

Вот, чтобы нагляднее было:
Add(MainForm,5808169,182,98)
{
Width=687
Height=492
link(onCreate,8314818:doSetFocus,[])
}
Add(Image,8314818,238,98)
{
Width=560
Height=440
Color=12639424
ViewStyle=1
Point(onMouseDown)
Point(onMouseWheel)
Point(doSetFocus)
Point(Handle)
Point(MouseX)
Point(MouseY)
Point(onMouseMove)
link(onMouseDown,4115405:doMove,[])
link(onMouseWheel,11009220:doStrCatDlm,[(306,118)(306,163)(241,163)(241,209)])
link(onMouseMove,9933815:doStrCatDlm,[(297,125)(297,155)(201,155)(201,251)])
}
Add(StrCatDelim,11009220,252,203)
{
Delimiter="-"
link(onStrCatDlm,14333605:doText,[])
link(Str1,7814758:Var2,[])
link(Str2,13465166:Var2,[])
}
Add(Label,14333605,315,203)
{
Left=570
Top=85
}
Add(MoveWindow,4115405,315,105)
{
link(Handle,8314818:Handle,[(321,93)(286,93)(286,142)(251,142)])
}
Add(StrCatDelim,9933815,217,245)
{
Delimiter="-"
link(onStrCatDlm,11894771:doText,[])
link(Str1,7814758:Var1,[(223,180)])
link(Str2,13465166:Var1,[(230,187)])
}
Add(Label,11894771,315,245)
{
Left=570
Top=110
}
Add(GetDataEx,7814758,252,175)
{
link(Data,8314818:MouseX,[])
}
Add(GetDataEx,13465166,259,182)
{
link(Data,8314818:MouseY,[])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0