Вверх ↑
Ответов: 230
Рейтинг: 1
#1: 2014-04-30 20:28:37 ЛС | профиль | цитата
как построить дугу с помощью этих компонентов?
code_33514.txt
------------ Дoбавленo в 20.19:
p.s пример не подходит
------------ Дoбавленo в 20.28:
ну вот,что-то сделал,только надо странно передвигать нижние ползунки чтобы она крутилась(и она боком..)
Add(MainForm,12061819,70,98)
{
Width=438
Height=430
Caption="Пример использования Img_Arc"
}
Add(PaintBox,16084042,280,84)
{
Left=145
Top=85
Width=175
Height=155
}
Add(Img_Arc,11099579,280,224)
{
Point1=9830400
Point2=150
Size=4
Point3=9830700
Point4=6553600
Point(Point1)
Point(Point3)
link(onDraw,16084042:doRefresh,[(324,230)(324,160)(268,160)(268,90)])
link(Bitmap,16084042:Bitmap,[])
link(Point1,5635971:Result,[(300,212)(234,212)(234,268)(167,268)])
link(Point3,16034987:Result,[(307,212)(233,212)(233,541)(160,541)])
}
Add(MathParse,5635971,161,224)
{
DataCount=3
MathStr="%1 *65536 + %2"
link(onResult,4159940:doWork2,[])
link(X1,12148459:Position,[(167,188)(181,188)])
link(X2,3674497:Position,[(174,212)(209,212)(209,366)(230,366)])
}
Add(TrackBar,12148459,175,119)
{
Left=15
Top=245
Max=100
Position=50
link(onPosition,12460690:doWork1,[(219,125)(219,177)(149,177)])
}
Add(TrackBar,3674497,224,329)
{
Left=230
Top=245
Max=100
Position=1
link(onPosition,7999212:doWork2,[])
}
Add(HubEx,12460690,145,182)
{
Angle=1
link(onEvent,5635971:doCalc,[(149,230)])
}
Add(Timer,1961118,203,70)
{
Interval=10
link(onTimer,16084042:doClear,[(257,76)(257,97)])
}
Add(MathParse,16034987,154,497)
{
DataCount=3
MathStr="%1 *65536 + %2"
link(onResult,4159940:doWork3,[(249,503)])
link(X1,1976340:Position,[(160,461)(174,461)])
link(X2,12696726:Position,[(167,485)(202,485)(202,639)(223,639)])
}
Add(TrackBar,1976340,168,392)
{
Left=15
Top=310
Max=100
link(onPosition,2116709:doWork1,[(212,398)(212,450)(142,450)])
}
Add(TrackBar,12696726,217,602)
{
Left=230
Top=305
Max=100
link(onPosition,2116709:doWork3,[(275,608)(275,461)])
}
Add(HubEx,2116709,138,455)
{
Angle=1
link(onEvent,16034987:doCalc,[(142,503)])
}
Add(HubEx,4159940,245,224)
{
link(onEvent,11099579:doDraw,[])
}
Add(Timer,8291394,329,294)
{
Interval=100
AutoStop=1
link(onTimer,7999212:doWork1,[(373,300)(373,316)(270,316)])
}
Add(HubEx,7999212,266,329)
{
link(onEvent,12460690:doWork3,[(282,335)(282,188)])
}

карма: 1

0
файлы: 1code_33514.txt [122B] [116]