Вверх ↑
Разработчик
Ответов: 4698
Рейтинг: 426
#1: 2010-03-16 13:44:34 ЛС | профиль | цитата
nesco писал(а):
интересно бы посмотреть, как народ справится с такой задачей, если народу, конечено, интересно будет

Да тут все просто
Add(MainForm,4459961,266,210)
{
Ctl3D=0
WinStyle=1
BorderStyle=6
DragForm=0
TransparentColor=0
Position=1
Point(onPaint)
Point(Handle)
Point(doPicture)
Point(onKeyDown)
link(onCreate,9456606:doCreate,[])
link(onKeyDown,16474900:doCase,[])
}
Add(Bitmap,9456606,364,210)
{
HWidth=400
HHeight=300
Point(doCreate)
Point(onCreate)
link(onCreate,12666314:doEnum,[])
}
Add(Img_Text,7039838,462,210)
{
Font=[Arial,36,1,8388608,204]
Point(Y)
link(onDraw,14421831:doData,[(506,216)(506,240)(450,240)(450,265)])
link(Bitmap,10349121:Var1,[(468,198)(398,198)])
link(Text,12666314:Part,[(475,198)(451,198)(451,254)(426,254)])
link(Y,285536:reCalc,[])
}
Add(DoData,14421831,462,259)
{
link(onEventData,4459961:doPicture,[(506,265)(506,296)(255,296)(255,244)])
link(Data,10349121:Var3,[(468,254)])
}
Add(GetDataEx,10349121,392,249)
{
Angle=3
link(Data,9456606:Bitmap,[(370,254)])
}
Add(Case,16474900,315,238)
{
Value=Integer(27)
link(onTrue,4459961:doClose,[(359,251)(359,275)(245,275)(245,237)])
}
Add(Str_Enum,12666314,413,210)
{
Delimiter="
"
link(onEnum,7039838:doDraw,[])
link(String,13507701:Value,[])
}
Add(Memory,13507701,413,147)
{
Default=String(ПРИВЕТ!
МИР!)
}
Add(MathParse,285536,469,147)
{
DataCount=1
MathStr="%1 + %0"
ResultType=0
Point(reCalc)
link(X1,7039838:TextHeight,[(475,136)(517,136)(517,249)(475,249)])
}
карма: 10
0