Я так понимаю так...
Add(MainForm,3418386,553,77)
{
Width=1119
Height=536
}
Add(ArrayFind,8236864,756,511)
{
@Color=43520
Partial=0
link(onFind,6650514:doCompare,[])
link(Array,4897250:Var2,[(762,337)(888,337)])
link(Value,1731774:MouseX,[(776,411)(608,411)])
}
Add(Message,1305558,1176,91)
{
@Color=43520
}
Add(ArrayEnum,2581754,679,280)
{
@Color=16755200
link(onItem,1611444:doEvent1,[])
link(Array,5491523:Var2,[(685,263)(818,263)])
}
Add(PaintBox,1731774,595,280)
{
@Color=16755200
Left=5
Top=5
Width=1085
Height=485
Color=-16777196
Point(onMouseDown)
Point(MouseX)
Point(MouseY)
link(onBeforeDraw,2581754:doEnum,[])
link(onMouseDown,8236864:doFind,[(723,293)(723,517)])
}
Add(Img_Point,6726938,805,336)
{
@Color=16755200
Color=255
Size=3
Point(X)
Point(Y)
link(Bitmap,1731774:Bitmap,[(811,324)(601,324)])
link(X,13002286art2,[])
link(Y,13002286art3,[])
}
Add(MultiStrPart,13002286,805,280)
{
@Color=16755200
Char="9"
Count=3
}
Add(Hub,1611444,728,280)
{
link(onEvent1,13002286:doSplit,[])
link(onEvent2,6726938:doDraw,[(774,293)(774,342)])
}
Add(StrList,9920300,798,85)
{
@Color=16755200
Strings=#33:THE OCT 12,026571944 76,93428889|34:30 PSC 100,032675278 5,985916667|34:2 CET 500,062330833 16,66400278|29:233 red 60,078137222 70,5631|34:33 PSC 200,088928889 4,292386111|30:056 r56 10,113916667 22,89245|36:ALP AND 135,139795833 29,09043889|35:BET CAS 55,152970833 59,14977222|33:EPS PHE 34,156849722 44,25255833|33:22 AND 77,172015833 46,07228056|33:KAP2 SCL 45,192899167 26,20024444|33:THE SCL 23,195559444 34,86689722|
Point(doGetString)
Point(onGetString)
link(onGetString,1305558:doMessage,[(1006,98)(1006,97)])
}
Add(GetDataEx,5491523,812,175)
{
link(Data,9920300:Array,[])
}
Add(ArrayFind,15825554,924,518)
{
@Color=43520
Partial=0
link(onFind,9920300:doGetString,[(968,524)(968,328)(786,328)(786,133)])
link(Array,4897250:Var3,[(930,180)])
link(Value,1731774:MouseY,[(944,415)(615,415)])
}
Add(If_else,6650514,833,511)
{
@Color=43520
Op2=Real(-1)
link(onFalse,15825554:doFind,[])
}
Add(GetDataEx,4897250,882,175)
{
Angle=3
link(Data,5491523:Var3,[])
}
Add(PointHint,8450341,588,154)
{
Info=#20:загрузка и рисование|
Width=183
Height=95
}
Add(PointHint,7948996,994,469)
{
Info=#29:Поиск координат мыши в списке|
Width=183
Height=95
}
MAV писал(а):
Dseren, проще наверное будет рисовать в экваториальной системе координат, но это уже завтра.