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,[])
}