Чтение координат

Вверх ↑

Форумы Между деломЧтение координат ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 288

Рейтинг: 4

#1: 2012-11-25 21:52:23 ЛС | профиль | цитата

Привет Всем, народ, почему в этой схеме не читаются координаты мыши?code_29611.txt

карма: 2

файлы: 1

code_29611.txt [591B] [93]

Ответов: 16884

Рейтинг: 1239

#2: 2012-11-25 22:47:50 ЛС | профиль | цитата

Sova-Kmv писал(а):

почему в этой схеме не читаются координаты мыши ?

Потому, что там выдачу координат никто не обещал. Там обещали только код нажатой кнопки мыши.
Правда только обещали.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 288

Рейтинг: 4

#3: 2012-11-25 22:57:30 ЛС | профиль | цитата

Tad, ну ведь так-же всё работает!code_29612.txt
------------ Дoбавленo в 22.57:
Tad, точки одни и теже, только элементы разные!

карма: 2

файлы: 1

code_29612.txt [675B] [139]

Ответов: 1821

Рейтинг: 168

#4: 2012-11-25 22:59:45 ЛС | профиль | цитата

Tad, это, наверное, WebBrowser косячит. У меня тоже это событие не работает

карма: 5

Ответов: 288

Рейтинг: 4

#5: 2012-11-25 23:05:42 ЛС | профиль | цитата

Tad, И самое интересное,когда компилируеш компилятором фпк то при проведении над вэббраузером тоже всё работает! Хоть этого вэббраузера и не видно!

карма: 2

Ответов: 16884

Рейтинг: 1239

#6: 2012-11-25 23:08:30 ЛС | профиль | цитата

mousemove.jpg

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1

mousemove.jpg [40.5KB] [296]

Ответов: 288

Рейтинг: 4

#7: 2012-11-25 23:10:09 ЛС | профиль | цитата

sаmakacd, амне кажется это компилятор Delphi выдолбывается.

карма: 2

Ответов: 16884

Рейтинг: 1239

#8: 2012-11-25 23:10:22 ЛС | профиль | цитата

Sova-Kmv писал(а):

Хоть этого вэббраузера и не видно!

Потому и работает.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 1536

Рейтинг: 176

#9: 2012-11-25 23:27:32 ЛС | профиль | цитата

Sova-Kmv, как вариант:

Add(WebBrowser,11500773,378,105)
{
 Top=20
 Width=770
 Height=390
 URL=""
 Silent=0
 Point(MouseX)
 Point(MouseY)
 Point(onMouseUp)
 Point(onMouseDown)
 link(onMouseUp,14086792:doWork1,[])
 link(onMouseDown,14086792:doWork2,[])
}
Add(Edit,5005623,364,182)
{
 Width=105
 link(Str,11500773:MouseX,[(370,166)(398,166)])
}
Add(Edit,3667654,427,189)
{
 Left=105
 Width=105
 link(Str,11500773:MouseY,[(433,169)(405,169)])
}
Add(Hub,15531475,322,182)
{
 link(onEvent1,5005623:doText,[])
 link(onEvent2,3667654:doText,[])
}
Add(Timer,6466963,273,182)
{
 Interval=20
 Enable=1
 link(onTimer,15531475:doEvent1,[])
}
Add(IndexToChanel,12590580,224,182)
{
 link(onEvent1,6466963:doStop,[(264,188)(264,195)])
 link(onEvent2,6466963:doTimer,[(264,195)(264,188)])
}
Add(ChanelToIndex,14086792,434,133)
{
 link(onIndex,12590580:doEvent,[(489,139)(489,229)(219,229)(219,188)])
}

------------ Дoбавленo в 23.20:
Sova-Kmv, а, вот, так всё работает без всяких костылей:

Add(MainForm,5952397,133,56)
{
 Width=788
 Height=456
 Point(MouseX)
 Point(MouseY)
 Point(onMouseMove)
}
Add(WebBrowser,11500773,259,42)
{
 Top=20
 Width=770
 Height=390
 URL=""
 Silent=0
 Point(MouseX)
 Point(MouseY)
 Point(onMouseMove)
 link(onMouseMove,15531475:doEvent1,[(303,76)(303,100)(219,100)(219,125)])
}
Add(Edit,5005623,273,119)
{
 Width=105
 link(Str,11500773:MouseX,[])
}
Add(Edit,3667654,336,126)
{
 Left=105
 Width=105
 link(Str,11500773:MouseY,[(342,106)(286,106)])
}
Add(Hub,15531475,231,119)
{
 link(onEvent1,5005623:doText,[])
 link(onEvent2,3667654:doText,[])
}

------------ Дoбавленo в 23.27:
Но, только при пустом URL

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Ответов: 288

Рейтинг: 4

#10: 2012-11-25 23:29:40 ЛС | профиль | цитата

ser_davkin, Непонял! а что ты сделал?????? (ну, что-б оно так работало)

карма: 2

Разработчик

Ответов: 26160

Рейтинг: 2127

#11: 2012-11-25 23:31:49 ЛС | профиль | цитата

Народ! Я сам не понял этого зоопарка, но вот эта схема у меня работает, а схема Sova-Kmv не работает



Add(WebBrowser,11500773,273,56)
{
 Top=20
 Width=770
 Height=390
 URL=""
 Silent=0
 Point(MouseX)
 Point(MouseY)
 Point(onMouseMove)
 link(onMouseMove,5005623:doText,[(325,90)(325,132)(276,132)(276,153)])
}
Add(MainForm,2953706,210,147)
{
 Point(onMouseMove)
 Point(MouseX)
 Point(MouseY)
}
Add(Edit,5005623,287,147)
{
 Width=105
 link(onChange,3667654:doText,[])
 link(Str,11500773:MouseX,[])
}
Add(Edit,3667654,350,147)
{
 Left=105
 Width=105
 link(Str,11500773:MouseY,[(356,121)(300,121)])
}

------------ Дoбавленo в 23.31:
Понял. Надо убрать из about:blank из URL

карма: 22

Ответов: 1536

Рейтинг: 176

#12: 2012-11-25 23:32:25 ЛС | профиль | цитата

nesco,

ser_davkin писал(а):

Но, только при пустом URL

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Разработчик

Ответов: 26160

Рейтинг: 2127

#13: 2012-11-25 23:34:45 ЛС | профиль | цитата

Я уже это понял. Это особенность нашей реализации, без понятия, как это можно исправить, похоже на то, что никак. Можно попытаться только использовать MouseEvent с пересчетом координат

карма: 22

Ответов: 1536

Рейтинг: 176

#14: 2012-11-26 00:21:32 ЛС | профиль | цитата

nesco писал(а):

Можно попытаться только использовать MouseEvent с пересчетом координат

Думаю, можно пойти более хитрым путём:

Add(Label,8092071,203,77)
{
 Left=395
 Top=130
}
Add(MainForm,2953706,91,112)
{
 Width=782
 Point(onMouseMove)
 Point(MouseX)
 Point(MouseY)
}
Add(MouseEvent,12461409,189,140)
{
 Point(Handle)
}
Add(Timer,9559274,126,210)
{
 Interval=20
 link(onTimer,3470334:doStrCatDlm,[])
}
Add(WebBrowser,2619701,154,77)
{
 Left=305
 Top=75
 Align=5
 URL="http://hiasm.com/"
}
Add(StrCatDelim,3470334,189,210)
{
 Delimiter="/"
 link(onStrCatDlm,4051059:doText,[])
 link(Str1,12461409:MouseX,[])
 link(Str2,12461409:MouseY,[])
}
Add(Label,4051059,245,210)
{
 Left=370
 Top=250
 Align=4
}

карма: 1

Не так страшна ошибка, как опасность её не заметить.

Разработчик

Ответов: 26160

Рейтинг: 2127

#15: 2012-11-26 02:38:59 ЛС | профиль | цитата

ser_davkin писал(а):

Думаю, можно пойти более хитрым путём:

И зачем общие координаты экрана, когда нужны координаты внутри окна браузера

------------ Дoбавленo в 02.38:
Мдааа... Уж. Проще не получилось



Add(MainForm,6783061,203,161)
{
 Width=501
 Height=446
 BorderStyle=1
 DragForm=0
 Position=1
 Point(Handle)
 Point(Left)
 Point(Top)
 Point(Width)
 Point(SizeHeader)
}
Add(PointInRect,12102760,315,231)
{
 Point2AsOffset=0
 link(onTrue,6895427:doOperation,[])
 link(RPoint1,272748:Point,[])
 link(RPoint2,15491023:Point,[(335,212)(377,212)])
}
Add(PointXY,272748,322,161)
{
 link(X,2732201:Var2,[])
 link(Y,10764511:Var2,[])
}
Add(PointXY,15491023,371,161)
{
 link(X,3790564:Width,[(377,135)(342,135)])
 link(Y,3790564:Height,[(384,135)(349,135)])
}
Add(WebBrowser,3790564,308,91)
{
 Left=15
 Top=45
 Width=425
 Height=295
 URL="www.yandex.ru"
 Point(Left)
 Point(Top)
 Point(Width)
 Point(Height)
}
Add(MouseEvent,10564223,154,161)
{
}
Add(Timer,144682,49,231)
{
 Interval=10
 link(onTimer,6893727:doWinInfo,[])
}
Add(MathParse,9640896,154,231)
{
 DataCount=4
 MathStr="%1 - %2 - (%3 - %4) div 2"
 ResultType=0
 link(onResult,1417880:doCalc,[])
 link(X1,10564223:MouseX,[])
 link(X2,6783061:Left,[(167,212)(216,212)])
 link(X3,6783061:Width,[(174,212)(230,212)])
 link(X4,6893727:ClientWidth,[(181,219)(153,219)(153,275)(125,275)])
}
Add(WinInfo,6893727,105,231)
{
 Point(ClientWidth)
 link(onWinInfo,9640896:doCalc,[])
 link(Handle,6783061:Handle,[(111,212)(209,212)])
}
Add(MathParse,1417880,217,231)
{
 DataCount=4
 MathStr="%1 - %2 - %3"
 ResultType=0
 link(onResult,10207148:doCalc,[])
 link(X1,10564223:MouseY,[(223,212)(167,212)])
 link(X2,6783061:Top,[(230,212)(223,212)])
 link(X3,6783061:SizeHeader,[])
}
Add(MathParse,10207148,266,231)
{
 MathStr="%1 * 65536 + %2"
 ResultType=0
 link(onResult,12102760:doCheck,[])
 link(X2,7611129:Var1,[(279,219)(205,219)])
}
Add(Edit,11948791,455,231)
{
 Left=10
 Top=10
 Width=130
 Cursor=1
 Text=""
 link(onChange,14649358:doOperation,[])
}
Add(Edit,11213027,553,231)
{
 Left=150
 Top=10
 Width=130
 Cursor=1
 Text=""
}
Add(Math,6895427,406,231)
{
 OpType=1
 ResultType=0
 link(onResult,11948791:doText,[])
 link(Op1,7611129:Var3,[(412,219)(310,219)(310,275)])
 link(Op2,2732201:Var3,[(419,152)])
}
Add(GetDataEx,7611129,199,270)
{
 Angle=3
 link(Data,9640896:Result,[(160,275)])
}
Add(GetDataEx,2732201,322,147)
{
 link(Data,3790564:Left,[])
}
Add(Math,14649358,504,231)
{
 OpType=1
 ResultType=0
 link(onResult,11213027:doText,[])
 link(Op1,1417880:Result,[(510,219)(366,219)(366,275)(223,275)])
 link(Op2,10764511:Var3,[(517,145)])
}
Add(GetDataEx,10764511,329,140)
{
 link(Data,3790564:Top,[])
}

карма: 22

Голосовали: ser_davkin

Форумы Между деломЧтение координат ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)