code_9923.txt
------------ Дoбавленo:
так верней
#sha
Add(MainForm,3598708,42,238)
{
Left=20
Top=105
Width=246
Height=244
}
Add(Clipboard,5651252,329,329)
{
}
Add(DoData,12094825,280,329)
{
Data=String(Фига тебе :))
link(onEventData,5651252:doPutText,[])
}
Add(Memo,4281865,329,259)
{
Left=10
Top=40
Width=215
Height=160
Strings=#13:И вставь сюда|
}
Add(Edit,2590093,119,245)
{
Left=10
Top=10
Width=215
Text="Скопируй меня :)"
Point(onKillFocus)
Point(onSetFocus)
link(onKillFocus,4905474:doData,[])
link(onSetFocus,11590829:doData,[])
}
Add(ClipboardHook,3443292,168,322)
{
NextHook=1
link(onChange,51307:doEvent,[])
}
Add(IndexToChanel,51307,231,322)
{
Point(Index)
link(onEvent2,12094825:doData,[])
link(Index,12193463:Value,[])
}
Add(Memory,12193463,231,259)
{
}
Add(DoData,4905474,168,259)
{
Data=Integer(0)
link(onEventData,7073030:doWork2,[])
}
Add(DoData,11590829,168,266)
{
Data=Integer(1)
link(onEventData,7073030:doWork3,[(221,272)])
}
Add(HubEx,7073030,217,252)
{
link(onEvent,12193463:doValue,[])
}