Вверх ↑
Разработчик
Ответов: 26305
Рейтинг: 2146
#1: 2010-03-16 15:35:46 ЛС | профиль | цитата
А вот еще один прикол, маразм, конечно, но работает. Меньше уже, ну никак быть не может



Add(MainForm,5203056,322,266)
{
Ctl3D=0
WinStyle=1
BorderStyle=6
DragForm=0
TransparentColor=0
Position=1
Point(Handle)
Point(doPicture)
Point(onKeyDown)
link(onCreate,6239817:doTimer,[])
link(onKeyDown,16474900:doCase,[])
}
Add(Case,16474900,371,287)
{
Value=Integer(27)
link(onTrue,5203056:doClose,[(415,300)(415,331)(301,331)(301,293)])
}
Add(Memo,11469216,462,217)
{
Width=480
Height=640
Align=5
Color=0
Font=[Arial,36,1,8388608,204]
Ctl3D=1
Strings=#6:Привет|2:от|8:HiAsm-a!|
Point(Handle)
}
Add(ScreenShort,10384016,483,280)
{
link(onCapture,5203056:doPicture,[(532,286)(532,339)(310,339)(310,300)])
link(Handle,11469216:Handle,[])
}
Add(Timer,6239817,434,280)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,10384016:doCapture,[])
}

карма: 22

0