Вверх ↑
Разработчик
Ответов: 26305
Рейтинг: 2146
#1: 2010-03-16 01:46:10 ЛС | профиль | цитата
А вот так не пойдет


Add(MainForm,2953706,105,196)
{
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,203,196)
{
HWidth=400
HHeight=300
Point(doCreate)
Point(onCreate)
link(onCreate,7039838:doDraw,[])
}
Add(Img_Text,7039838,259,196)
{
Font=[Arial,72,1,8388608,204]
link(onDraw,14421831:doData,[])
link(Bitmap,10349121:Var1,[(265,184)(237,184)])
link(Text,1372527:Value,[])
}
Add(Memory,1372527,266,140)
{
Default=String(Привет!)
}
Add(DoData,14421831,315,196)
{
link(onEventData,2953706:doPicture,[(362,202)(362,269)(93,269)(93,230)])
link(Data,10349121:Var3,[(321,184)(284,184)(284,240)])
}
Add(GetDataEx,10349121,231,235)
{
Angle=3
link(Data,9456606:Bitmap,[(209,240)])
}
Add(Case,16474900,154,224)
{
Value=Integer(27)
link(onTrue,2953706:doClose,[(198,237)(198,261)(84,261)(84,223)])
}

карма: 22

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