Вверх ↑
Ответов: 495
Рейтинг: 163
#1: 2023-04-07 18:46:51 ЛС | профиль | цитата
Aziz писал(а):
Пытался сначала компонент IMG_Arc применить, но так и не разобрался как управлять линейно его дугой.

Aziz, набросал пример одного из вариантов компонент IMG_Arc.
Пример

Add(MainForm,4928812,343,483)
{
Left=100
Top=50
Width=357
Height=424
Caption="Часть окружности"
link(onCreate,6705131:doWork2,[])
}
Add(PaintBox,6637295,511,497)
{
Left=15
Top=70
Width=300
Height=300
Color=0
ClearBeforeDraw=0
link(onBeforeDraw,288359:doEvent1,[])
}
Add(LineBreakEx,1371433,511,546)
{
Caption="BM"
Type=3
link(_Data,6637295:Bitmap,[])
}
Add(Img_Arc,5266096,616,511)
{
Point2AsOffset=0
Size=10
Color=6008319
Point(Point1)
Point(Point2)
Point(Point3)
Point(Point4)
Point(Size)
link(onDraw,5824769:doDraw,[])
link(Bitmap,4711404:getVar,[(622,483)(587,483)])
link(Point1,16334852:Point,[])
link(Point2,9338397:Point,[(643,452)(678,452)])
link(Point3,11048669:Point,[(650,463)(720,463)])
link(Point4,7663545:Point,[(657,475)(762,475)])
link(Size,11363987:Position,[(664,491)(797,491)])
}
Add(LineBreakEx,4711404,581,441)
{
Caption="BM"
Type=2
}
Add(PointXY,7663545,756,406)
{
link(X,8517165:Var1,[(762,384)])
link(Y,16435088:Var1,[(769,396)])
}
Add(PointXY,11048669,714,406)
{
link(X,3474151:Var1,[(720,369)])
link(Y,1942046:Var1,[(727,376)])
}
Add(PointXY,16334852,630,406)
{
link(X,1928736:Var2,[])
link(Y,1928736:Var3,[(643,383)])
}
Add(PointXY,9338397,672,406)
{
link(X,14259842:Var2,[])
link(Y,14259842:Var3,[(685,383)])
}
Add(ScrollBar,11363987,791,203)
{
Left=15
Top=15
Width=310
Max=100
Min=5
Page=5
Position=30
link(onPosition,13122424:doWork3,[(837,209)])
}
Add(Img_Point,5824769,847,511)
{
Color=16776960
Size=7
Point(X)
Point(Y)
link(onDraw,8554464:doDraw,[])
link(Bitmap,3827313:Var2,[])
link(X,8517165:Var2,[])
link(Y,16435088:Var2,[])
}
Add(LineBreakEx,1281417,847,448)
{
Caption="BM"
Type=2
}
Add(ScrollBar,15741789,973,203)
{
Left=15
Top=40
Width=310
Max=340
Min=21
Position=50
link(onPosition,13122424:doWork2,[(1019,209)(1019,184)])
}
Add(Img_Point,8554464,903,511)
{
Color=65280
Size=7
Point(X)
Point(Y)
link(Bitmap,3827313:Var3,[(909,488)])
link(X,3474151:Var2,[])
link(Y,1942046:Var2,[])
}
Add(GetDataEx,3827313,847,483)
{
link(Data,1281417:getVar,[])
}
Add(GetDataEx,1942046,917,371)
{
link(Data,16382718:Result,[])
}
Add(Memory,11447937,630,329)
{
Default=Integer(50)
}
Add(GetDataEx,1928736,630,378)
{
link(Data,11447937:Value,[])
}
Add(Memory,13744925,672,329)
{
Default=Integer(200)
}
Add(GetDataEx,14259842,672,378)
{
link(Data,13744925:Value,[])
}
Add(Memory,4438850,581,329)
{
Default=Integer(20)
}
Add(HubEx,13122424,833,178)
{
Angle=2
link(onEvent,6705131:doWork1,[(403,184)])
}
Add(MathParse,9425336,973,322)
{
DataCount=3
MathStr="sin(-%1)*%2+%3"
AngleMode=1
link(onResult,13214716:doCalc,[])
link(X1,11271023:Var2,[])
link(X2,8444859:getVar,[])
link(X3,368919:getVar,[])
}
Add(MathParse,16382718,917,322)
{
DataCount=3
MathStr="cos(-%1)*%2+%3"
AngleMode=1
link(onResult,9425336:doCalc,[])
link(X1,11271023:Var1,[(923,250)])
link(X2,13817730:getVar,[])
link(X3,4199366:getVar,[])
}
Add(GetDataEx,11271023,973,245)
{
link(Data,15741789:Position,[])
}
Add(Memory,11814923,483,329)
{
Default=Integer(100)
}
Add(Memory,3685820,532,329)
{
Default=Integer(150)
}
Add(MathParse,13214716,1022,322)
{
DataCount=3
MathStr="sin(-%1)*%2+%3"
AngleMode=1
link(onResult,6886324:doCalc,[])
link(X1,5681786:getVar,[])
link(X2,2462450:getVar,[])
link(X3,3844113:getVar,[])
}
Add(MathParse,6886324,1071,322)
{
DataCount=3
MathStr="cos(-%1)*%2+%3"
AngleMode=1
link(X1,1083850:getVar,[])
link(X2,3086068:getVar,[])
link(X3,15305034:getVar,[])
}
Add(LineBreakEx,6013220,483,371)
{
Caption="x1"
Type=3
link(_Data,11814923:Value,[])
}
Add(LineBreakEx,2520155,532,371)
{
Caption="x2"
Type=3
link(_Data,3685820:Value,[])
}
Add(LineBreakEx,2453822,581,371)
{
Caption="x3"
Type=3
link(_Data,4438850:Value,[])
}
Add(LineBreakEx,13817730,924,273)
{
Caption="x1"
Type=2
}
Add(LineBreakEx,4199366,931,287)
{
Caption="x2"
Type=2
}
Add(LineBreakEx,5681786,1022,266)
{
Caption="x3"
Type=2
}
Add(LineBreakEx,2462450,1029,280)
{
Caption="x1"
Type=2
}
Add(LineBreakEx,3844113,1036,294)
{
Caption="x2"
Type=2
}
Add(LineBreakEx,1083850,1071,266)
{
Caption="x3"
Type=2
}
Add(LineBreakEx,3086068,1078,280)
{
Caption="x1"
Type=2
}
Add(LineBreakEx,15305034,1085,294)
{
Caption="x2"
Type=2
}
Add(LineBreakEx,8444859,980,273)
{
Caption="x1"
Type=2
}
Add(LineBreakEx,368919,987,287)
{
Caption="x2"
Type=2
}
Add(GetDataEx,3474151,910,364)
{
Angle=1
link(Data,9425336:Result,[(979,369)])
}
Add(Hub,288359,560,497)
{
link(onEvent1,16382718:doCalc,[(822,503)(822,328)])
link(onEvent2,5266096:doDraw,[(595,510)(595,517)])
}
Add(HubEx,6705131,399,497)
{
link(onEvent,6637295:doRefresh,[])
}
Add(GetDataEx,16435088,861,391)
{
Angle=1
link(Data,6886324:Result,[(1077,396)])
}
Add(GetDataEx,8517165,854,379)
{
Angle=1
link(Data,13214716:Result,[(1028,384)])
}
[quote=Aziz]Зачем меня еще раз в это тыкать носом?[/quote]


Aziz писал(а):
путаница проводов, это фирменное шифрование никуда не делось)

Фирменный стиль...
карма: 4

0
Редактировалось 1 раз(а), последний 2023-04-07 18:55:51