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


Add(MainForm,5203056,182,322)
{
Ctl3D=0
WinStyle=1
AlphaBlendValue=0
BorderStyle=6
DragForm=0
TransparentColor=0
Position=1
Point(doPicture)
Point(onKeyDown)
Point(doAlphaBlendValue)
link(onCreate,6239817:doTimer,[])
link(onKeyDown,16474900:doCase,[])
}
Add(Case,16474900,231,343)
{
Value=Integer(27)
link(onTrue,5203056:doClose,[(275,356)(275,380)(160,380)(160,349)])
}
Add(Memo,11469216,350,266)
{
Width=400
Height=300
Color=0
Font=[Arial,36,1,8388608,204]
TabOrder=-1
WinStyle=1
Strings=#6:Привет|2:от|8:HiAsm-a!|
Point(Handle)
Point(doHeight)
Point(onResize)
link(onResize,6431843:doData,[])
}
Add(ScreenShort,10384016,371,336)
{
link(onCapture,5203056:doPicture,[(415,342)(415,385)(165,385)(165,356)])
link(Handle,11469216:Handle,[])
}
Add(Timer,6239817,294,336)
{
Interval=10
Enable=1
AutoStop=1
Point(onStop)
link(onTimer,10384016:doCapture,[])
link(onStop,11469216:doHeight,[(338,349)(338,314)])
}
Add(DoData,6431843,399,273)
{
Data=Integer(255)
link(onEventData,5203056:doAlphaBlendValue,[(446,279)(446,390)(170,390)(170,363)])
}

Кажется, я выиграл это пари
карма: 22

0