Вверх ↑
Разработчик
Ответов: 26322
Рейтинг: 2147
#1: 2008-04-29 13:42:51 ЛС | профиль | цитата
millano, да вроде упрощать некуда, если только коммутатор упростить, вот так



Add(MainForm,1613375,462,210)
{
Left=20
Top=105
Width=707
Height=542
Point(Handle)
Point(onDblClick)
Point(MouseX)
Point(MouseY)
link(onDblClick,8105290:doSwitch,[])
}
Add(Img_Rectangle,16242871,679,525)
{
DrawSource=1
Style=1
Point(Point1)
Point(Point2)
link(onDraw,8196296:doWork2,[])
link(Bitmap,10514763:Var3,[(685,429)])
link(Color,11641055:Var3,[(692,387)])
link(Point1,3414219:Var3,[(699,422)])
link(Point2,356764:Var2,[])
}
Add(PointXY,2503489,469,252)
{
link(X,1613375:MouseX,[])
link(Y,1613375:MouseY,[])
}
Add(Memory,7773992,651,231)
{
Point(Data)
link(Data,15388334:Data1,[(657,219)(567,219)(567,336)(475,336)])
}
Add(GetData,15388334,469,294)
{
link(Data,2503489:Point,[])
}
Add(Memory,798818,700,238)
{
Point(Data)
link(onData,6954065:doEvent,[(744,244)(744,154)(299,154)(299,524)])
link(Data,15388334:Data2,[(706,226)(591,226)(591,345)(482,345)])
}
Add(Switch,8105290,525,231)
{
DataOn=Integer(0)
DataOff=Integer(1)
link(onSwitch,3642310:doEvent,[])
}
Add(IndexToChanel,3642310,595,231)
{
link(onEvent1,7773992:doValue,[])
link(onEvent2,798818:doValue,[])
}
Add(Counter,1913330,763,525)
{
Max=9999999
link(onNext,5447752:doString,[])
}
Add(FormatStr,5447752,812,525)
{
DataCount=1
Mask="всего фигур: %1"
link(onFString,1613375:doCaption,[(857,531)(857,185)(450,185)(450,216)])
}
Add(RadioButton,11664156,322,420)
{
Left=10
Top=5
Width=100
TabOrder=-1
Selected=0
Caption="круг"
link(onSelect,990174:doWork1,[(397,426)(397,461)])
}
Add(Img_Ellipse,5820913,539,560)
{
DrawSource=1
Point(Point1)
Point(Point2)
link(onDraw,8196296:doWork3,[(739,566)])
link(Bitmap,10514763:Var2,[])
link(Color,11641055:Var2,[])
link(Point1,3414219:Var2,[(559,504)(657,504)])
link(Point2,356764:Var1,[(566,408)])
}
Add(ColorDialog,16531529,357,210)
{
link(onSelect,14875581:doValue,[])
}
Add(HubEx,8196296,735,518)
{
link(onEvent,1913330:doNext,[])
}
Add(Memory,14875581,406,210)
{
Default=Integer(255)
}
Add(Button,4498084,308,210)
{
Left=125
Top=10
Caption="color"
link(onClick,16531529:doOpen,[])
}
Add(Memory,11351064,462,455)
{
Default=Integer(0)
}
Add(RadioButton,16344339,322,462)
{
Left=10
Top=25
Width=105
TabOrder=-1
Caption="прямоугольник"
link(onSelect,990174:doWork2,[])
}
Add(ChanelToIndex,990174,413,455)
{
link(onIndex,11351064:doValue,[])
}
Add(GetDataEx,10514763,532,420)
{
Angle=3
link(Data,1613375:Handle,[(468,429)])
}
Add(GetDataEx,356764,693,399)
{
link(Data,798818:Value,[])
}
Add(GetDataEx,11641055,539,378)
{
link(Data,14875581:Value,[(552,353)(412,353)])
}
Add(IndexToChanel,6954065,462,518)
{
Point(Index)
link(onEvent1,5820913:doDraw,[(516,524)(516,566)])
link(onEvent2,16242871:doDraw,[])
link(Index,11351064:Value,[])
}
Add(GetDataEx,3414219,644,413)
{
link(Data,7773992:Value,[])
}

карма: 22

1
Голосовали:Program_error