Add(InlineCode,15741246,210,266) { WorkPoints=#6:doSwap| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Windows,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|9: public|49: procedure doSwap(var _Data:TData; Index:WORD);|5: end;|0:|14:implementation|0:|58:procedure THiAsmClass.doSwap(var _Data:TData; Index:WORD);|5:begin|34: SwapMouseButton(_Data.idata=1);|4:end;|0:|4:end.| } Add(Button,1744003,112,266) { Left=95 Top=70 link(onClick,13407887:doSwitch,[]) } Add(Switch,13407887,161,266) { DataOn=Integer(1) DataOff=Integer(0) link(onSwitch,15741246:doSwap,[]) }