Add(MainForm,2953706,413,287) { Point(doLeft) Point(doTop) Point(Width) Point(Height) link(onCreate,14579248:doEvent1,[]) } Add(DoData,5509714,490,301) { link(onEventData,2953706:doLeft,[(650,307)(650,385)(389,385)(389,321)]) link(Data,6896887:right,[]) } Add(InlineCode,6896887,490,252) { VarPoints=#5:right|3:top| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,windows,ShellAPI;|0:|6:const |32: ABM_QUERYPOS:DWORD = $00000002;|1: |4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|46: procedure top (var data:TData;Index:Word);|48: procedure right (var data:TData;Index:Word);|5: end;|0:|5:type |18: _bardata = Record|14: cbSize:WORD;|15: hWnd:Integer;|27: uCallbackMessage:integer;|16: uEdge:integer;|11: rc:PRect;|17: lParam:integer;|4:end;|14:implementation|0:|26:procedure THiAsmClass.top;|12:var n:TRect;|5:begin|46:SystemParametersInfo(SPI_GETWORKAREA,0,@n,0); |27:dtInteger(data , n.bottom);|4:end;|0:|28:procedure THiAsmClass.right;|12:var n:TRect;|5:begin|46:SystemParametersInfo(SPI_GETWORKAREA,0,@n,0); |25:dtInteger(data , n.left);|4:end;|0:|4:end.| } Add(DoData,8382484,497,308) { link(onEventData,4734065:doOperation,[]) link(Data,6896887:top,[]) } Add(Hub,14579248,455,301) { link(onEvent1,5509714:doData,[]) link(onEvent2,8382484:doData,[]) } Add(Math,4734065,546,308) { OpType=1 link(onResult,2953706:doTop,[(638,314)(638,369)(401,369)(401,328)]) link(Op2,2953706:Height,[(559,292)(584,292)(584,354)(426,354)]) }