Add(InlineCode,4182753,399,182)
{
 WorkPoints=#5:doGet|
 EventPoints=#3:onX|3:onY|
 DataPoints=#6:Handle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Windows,Messages;|3:var|21:   pos_x:Integer = 0;|21:   pos_y:Integer = 0;|3:   |4:type|28: THiAsmClass = class(TDebug)|10:   private|14:   pos:TPoint;|3:   |9:   public|19:     onX:THI_Event;|19:     onY:THI_Event;|22:     Handle:THI_Event;|49:     procedure doGet(var Data:TData; index:word);|5: end;|0:|14:implementation|0:|56:procedure THiAsmClass.doGet(var Data:TData; index:word);|3:var|13:  H: THandle;|11:  R: TRect;|5:begin|34:  H := ReadInteger(Data,handle,0);|20:  GetCursorPos(pos);|25:  ScreenToClient(H, pos);|22:  GetClientRect(H, R);|91:   if ((pos.x >= 0) and (pos.x <= R.Right)) and ((pos.y >= 0) and (pos.y <= R.Bottom)) then|8:   begin|20:     pos_x := pos.x;|20:     pos_y := pos.y;|7:   end;|26:  _hi_OnEvent(onX, pos_x);|26:  _hi_OnEvent(onY, pos_y);|4:end;|0:|4:end.|
}