Вот решение этой задачи, где компонентов больше на один, чем в первой схеме и нет морганий
Add(MainForm,5203056,322,266)
{
Ctl3D=0
WinStyle=1
AlphaBlendValue=0
BorderStyle=6
DragForm=0
TransparentColor=0
Position=1
Point(Handle)
Point(doPicture)
Point(onKeyDown)
Point(doAlphaBlendValue)
Point(onPaint)
link(onCreate,6239817:doTimer,[])
link(onKeyDown,16474900:doCase,[])
}
Add(Case,16474900,371,287)
{
Value=Integer(27)
link(onTrue,5203056:doClose,[(415,300)(415,331)(302,331)(302,293)])
}
Add(Memo,11469216,511,217)
{
Width=400
Height=300
Align=5
Color=0
Font=[Arial,36,1,8388608,204]
Ctl3D=1
Strings=#6:Привет|2:от|8:HiAsm-a!|
Point(Handle)
}
Add(ScreenShort,10384016,532,280)
{
link(onCapture,5203056:doPicture,[(583,286)(583,357)(310,357)(310,300)])
link(Handle,11469216:Handle,[])
}
Add(Timer,6239817,434,280)
{
Interval=10
Enable=1
AutoStop=1
link(onTimer,1912762:doEvent1,[])
}
Add(DoData,8740162,259,301)
{
Data=Integer(255)
link(onEventData,5203056:doAlphaBlendValue,[])
}
Add(Hub,1912762,483,280)
{
link(onEvent1,10384016:doCapture,[])
link(onEvent2,8740162:doData,[(509,293)(509,349)(242,349)(242,307)])
}