Add(RadioButton,10766049,112,63)
{
 Left=150
 Top=95
 Caption="Form"
 link(onSelect,8124996:doWork1,[])
}
Add(MainForm,2953706,217,63)
{
 BorderStyle=1
 Position=1
 Point(Handle)
 Point(onKeyDown)
 link(onKeyDown,7091429:doCompare,[(257,90)(257,69)])
}
Add(InlineCode,14562614,217,203)
{
 WorkPoints=#14:doSetMouseRect|16:doResetMouseRect|
 DataPoints=#1:h|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses kol,windows, Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|18:     h: THI_Event;|56:     procedure doSetMouseRect(var dt: TData; idx: word);|58:     procedure doResetMouseRect(var dt: TData; idx: word);|0:|5: end;|0:|14:implementation|0:|37:procedure THiAsmClass.doSetMouseRect;|3:var|11:  R: TRect;|5:begin|38:   GetWindowRect(ToIntegerEvent(h),R);|18:   ClipCursor(@R);|4:end;|0:|39:procedure THiAsmClass.doResetMouseRect;|5:begin|19:   ClipCursor(nil);|4:end;|0:|4:end.|
 link(h,9708078:Var,[])
}
Add(Edit,16652307,371,63)
{
 Left=160
 Top=50
 Width=195
 Point(Handle)
}
Add(Edit,11265787,322,63)
{
 Left=160
 Top=20
 Width=195
 Point(Handle)
}
Add(Memo,9061837,420,63)
{
 Left=20
 Top=80
 Width=115
 Height=165
 Point(Handle)
 Point(onMouseDown)
}
Add(GetIndexData,9708078,217,140)
{
 Count=4
 link(onIndex,14562614:doSetMouseRect,[(263,146)(263,189)(205,189)(205,209)])
 link(Data1,2953706:Handle,[])
 link(Data2,11265787:Handle,[(230,112)(335,112)])
 link(Data3,16652307:Handle,[(237,118)(384,118)])
 link(Data4,9061837:Handle,[(244,124)(447,124)])
}
Add(Button,5359350,112,210)
{
 Left=15
 Top=20
 Width=125
 Caption="Reset mouse"
 link(onClick,14115041:doWork2,[])
}
Add(RadioButton,9727169,112,70)
{
 Left=150
 Top=125
 Width=60
 Caption="Edit1"
 link(onSelect,8124996:doWork2,[])
}
Add(ChanelToIndex,8124996,161,63)
{
 Count=4
 link(onIndex,9708078:doIndex,[(205,69)(205,146)])
}
Add(RadioButton,16330823,112,77)
{
 Left=150
 Top=150
 Width=60
 Caption="Edit2"
 link(onSelect,8124996:doWork3,[])
}
Add(RadioButton,14961306,112,84)
{
 Left=150
 Top=175
 Width=70
 Caption="Memo"
 link(onSelect,8124996:doWork4,[])
}
Add(Label,4987787,112,161)
{
 Left=150
 Top=225
 Width=220
 Height=20
 Font=[MS Sans Serif,8,1,255,1]
 Caption="Key "Esc" reset mouse position"
}
Add(If_else,7091429,266,63)
{
 Op2=Integer(27)
 link(onTrue,14115041:doWork1,[(315,69)(315,249)(186,249)])
}
Add(HubEx,14115041,182,210)
{
 link(onEvent,14562614:doResetMouseRect,[])
}