Add(InlineCode,4748460,238,413)
{
 EventPoints=#77:onPaint=Происходит при необходимости отрисовать элемент, выдавая пустой поток|
 DataPoints=#9:dtPHandle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,messages,windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|23:    FOldMes:TOnMessage;|61:    function _onMess(var Msg:TMsg; var Rslt:Integer):Boolean;|19:    procedure Work;|9:   public|22:    onPaint:THI_Event;|24:    dtPHandle:THI_Event;|23:    constructor Create;|5: end;|0:|14:implementation|0:|31:constructor THiAsmClass.Create;|5:begin|18: inherited Create;|15: InitAdd(Work);|4:end;|0:|27:procedure THiAsmClass.Work;|15:var c:PControl;|5:begin|42: c := PControl(ToIntegerEvent(dtPHandle));|30: if not assigned(c) then exit;|25: FOldMes :=  c.OnMessage;|24: c.OnMessage := _onMess;|4:end;|0:|29:function THiAsmClass._onMess;|5:begin|20: case Msg.message of|42:  WM_PAINT: _hi_OnEvent(onPaint); //без DC|5: end;|43: Result := _hi_OnMessage(FOldMes,Msg,Rslt);|4:end;|0:|4:end.|
 link(onPaint,4622620:doEvent4,[])
 link(dtPHandle,6969958:PHandle,[])
}
Add(Edit,6969958,231,273)
{
 Left=55
 Top=55
 Width=170
 Font=[MS Sans Serif,8,1,0,1]
 Point(PHandle)
 Point(Handle)
 Point(Width)
 Point(Height)
 Point(onMouseDown)
 Point(onKeyDown)
 Point(onMouseMove)
 link(onMouseDown,4622620:doEvent1,[(289,293)(289,398)])
 link(onKeyDown,4622620:doEvent2,[(289,300)(289,405)])
 link(onMouseMove,4622620:doEvent3,[(289,307)(289,412)])
}
Add(Img_Rectangle,2605467,441,392)
{
 DrawSource=1
 Style=4
 LineStyle=2
 rX=2
 rY=2
 Color=8388608
 BgColor=12639424
 Point(Point1)
 Point(Point2)
 link(Bitmap,6969958:Handle,[(447,348)(251,348)])
 link(Point1,14630089:Point,[])
 link(Point2,16134061:Point,[])
}
Add(DeferredEvent,6057886,343,392)
{
 link(onDeferredEvent,2055885:doOperation,[(419,398)(419,272)])
}
Add(PointXY,16134061,462,343)
{
 link(X,2055885:Result,[])
 link(Y,8176782:Result,[(475,321)(517,321)])
}
Add(Math,2055885,462,266)
{
 OpType=1
 Op2=4
 ResultType=0
 link(onResult,8176782:doOperation,[])
 link(Op1,6969958:Width,[(468,254)(363,254)(363,323)(258,323)])
}
Add(Math,8176782,511,266)
{
 OpType=1
 Op2=4
 ResultType=0
 link(onResult,2605467:doDraw,[(555,272)(555,335)(429,335)(429,398)])
 link(Op1,6969958:Height,[(517,254)(391,254)(391,323)(265,323)])
}
Add(PointXY,14630089,455,203)
{
}
Add(Hub,4622620,308,392)
{
 InCount=4
 OutCount=1
 link(onEvent1,6057886:doDeferredEvent,[])
}