На компоненте PointInRect получилось не проще, чем на дискрете
Add(MainForm,4411517,49,112)
{
Width=701
Height=507
Name="form"
Position=1
Point(onPaint)
Point(MouseX)
Point(MouseY)
Point(onMouseDown)
link(onCreate,13462110:doTimer,[(128,132)(128,188)])
link(onPaint,279301:doDraw,[])
link(onMouseDown,15634372:doEnum,[(107,146)(107,265)])
}
Add(PC_TextParameters,14690565,273,182)
{
Document="dt_01"
Point(doEnum)
Point(onEnum)
link(onSet,9206212:doRedraw,[(327,188)(327,153)])
link(Parameters,15167980:Text,[])
link(onEnum,15828443:doSplit,[])
}
Add(DocumentTemplate,279301,175,133)
{
DrawSource=2
Name="dt_01"
}
BEGIN_SDK
Add(Print_Text,9200955,35,42)
{
Name="t_01"
X=38
Y=45
Width=150
Height=17
Vertical=1
Horizontal=0
Left=0
Top=0
Right=0
Bottom=0
}
Add(Print_Text,9568590,196,42)
{
Name="t_02"
X=199
Y=45
Width=150
Height=17
Vertical=1
Horizontal=0
Left=0
Top=0
Right=0
Bottom=0
}
Add(Print_Text,14996159,357,42)
{
Name="t_03"
X=360
Y=45
Width=150
Height=17
Vertical=1
Horizontal=0
Left=0
Top=0
Right=0
Bottom=0
}
Add(Print_Text,1720598,-3,161)
{
Y=164
Width=141
Height=17
}
END_SDK
Add(RedrawManager,9206212,350,147)
{
ControlManager="form"
EraseMode=0
}
Add(VisualStrings,15167980,273,56)
{
Lines=#56:t_01|1111111111|0,0,,30|Arial,12,3,128,1|1,,255|1|0,0|10|40:t_02|2222222222|100,50,,30||1,,255|1|1,1|46:t_03|3333333333|200,100,,30||1,,255|1|2,2|,,10|
Width=305
Height=74
}
Add(Timer,13462110,175,182)
{
Interval=50
Enable=1
AutoStop=1
link(onTimer,12956816:doEvent1,[])
}
Add(Hub,12956816,224,182)
{
link(onEvent1,14690565:doSet,[])
link(onEvent2,14690565:doEnum,[])
}
Add(MultiStrData,15828443,350,189)
{
Char="|"
From=2
Count=1
link(onPart1,10633605:doAdd,[])
}
Add(MultiStrPart,6603544,490,259)
{
Char=","
Count=4
link(onSplit,16442048:doCheck,[(536,265)(536,245)(401,245)(401,454)])
}
Add(StrList,10633605,406,189)
{
}
Add(ArrayEnum,15634372,420,259)
{
link(onItem,6603544:doSplit,[])
link(Array,10633605:Array,[])
}
Add(DoData,5521274,539,448)
{
link(onEventData,14696354:doMessage,[])
link(Data,15634372:Index,[(545,322)(433,322)])
}
Add(Message,14696354,595,448)
{
}
Add(PointInRect,16442048,483,448)
{
Point2AsOffset=0
link(onTrue,5521274:doData,[])
link(Point,3069242:Point,[(489,440)(461,440)])
link(RPoint1,2238111:Point,[])
link(RPoint2,15382540:Point,[(503,436)(510,436)])
}
Add(PointXY,3069242,455,392)
{
link(X,4411517:MouseX,[(461,373)(55,373)])
link(Y,4411517:MouseY,[(468,367)(62,367)])
}
Add(PointXY,2238111,490,336)
{
link(X,6603544:Part1,[])
link(Y,6603544:Part2,[])
}
Add(PointXY,15382540,504,392)
{
link(X,6603544:Part3,[])
link(Y,6603544:Part4,[])
}
|
В играх и самописных интерфейсах будет хитом, сэкономит народу кучу логики.
, и (ЕМНИП) нет поддержки отрицательных координат, а они не так редки.
Поиск
Друзья
Администрация