Вверх ↑
Разработчик
Ответов: 26305
Рейтинг: 2146
#1: 2010-03-16 15:03:05 ЛС | профиль | цитата
Вот так у меня получается, но что-то на один больше -- никак



Add(MainForm,13718505,259,210)
{
Height=600
Ctl3D=0
WinStyle=1
BorderStyle=6
DragForm=0
TransparentColor=0
Position=1
Point(onPaint)
Point(doPicture)
Point(onKeyDown)
Point(Width)
Point(Height)
link(onCreate,9456606:doCreate,[])
link(onKeyDown,16474900:doCase,[])
}
Add(Bitmap,9456606,357,210)
{
Point(doCreate)
Point(onCreate)
Point(HWidth)
Point(HHeight)
link(onCreate,2849259:doEnum,[])
link(HWidth,13718505:Width,[(363,203)(330,203)(330,265)(265,265)])
link(HHeight,13718505:Height,[(370,198)(325,198)(325,260)(272,260)])
}
Add(Img_Text,7039838,490,210)
{
Font=[Arial,72,1,8388608,204]
Point(Y)
link(Bitmap,2786209:Var3,[(496,198)(391,198)(391,289)])
link(Text,2849259:Item,[(503,193)(475,193)(475,265)(426,265)])
link(Y,3357455:reCalc,[])
}
Add(DoData,14421831,203,238)
{
link(onEventData,13718505:doPicture,[])
link(Data,2786209:Var1,[(209,226)(181,226)(181,289)])
}
Add(Case,16474900,308,238)
{
Value=Integer(27)
link(onTrue,13718505:doClose,[(353,251)(353,279)(245,279)(245,237)])
}
Add(StrList,11314900,406,133)
{
Strings=#6:Привет|2:от|8:Hiasm-a!|
}
Add(ArrayEnum,2849259,420,210)
{
link(onItem,7039838:doDraw,[])
link(onEndEnum,14421831:doData,[(465,223)(465,284)(189,284)(189,244)])
link(Array,11314900:Array,[])
}
Add(MathParse,3357455,497,147)
{
MathStr="((%1 - 20) * %2)"
Point(reCalc)
link(X1,7039838:TextHeight,[(503,135)(480,135)(480,265)(503,265)])
link(X2,2849259:Index,[(510,130)(470,130)(470,260)(433,260)])
}
Add(GetDataEx,2786209,357,284)
{
link(Data,9456606:Bitmap,[])
}

карма: 22

0