Add(Edit,4537472,280,154)
{
 @Hint=#7:Фамилия|
 Left=70
 Top=10
 Width=130
 TabOrder=1
 Ctl3D=1
 Text="Иванов"
 Point(onPaint)
 link(onPaint,7074271:doWork2,[])
}
Add(Label,15555315,280,112)
{
 @Hint=#7:Фамилия|
 Left=10
 Top=15
 Width=56
 Height=17
 Color=6718159
 Caption="Фамилия:"
 Point(onPaint)
 link(onPaint,1883189:doWork2,[])
}
Add(BitBtn,15150872,280,217)
{
 Left=30
 Top=40
 Width=35
 Height=35
 Color=6718159
 TabOrder=2
 Hint="Добавить из базы"
 Caption=""
 Bitmap=[ZIP3609000078DA73F235E36400033320D600620928666450804840E591C1FFFFFFF1E2D344A82117AF009A0DC3D4367B27D4DC39507A271E3B606E9808C5C4980F0B1798DB718513CCDE3950B74C24D1AF3B89548FEC5752CC27267E91CD24D5FC3B04D423FB6F2795D3012DD3EE1D0ACCE66D58851553C35DECBDBB193CAFBE6350BEFE8FC1ECE63F86FC67FF197A9FFF6270D97597623B4066F7FCFEC710F9EA1F86F99E071F3370CC3D4F911D94987F9A401EA786FB09955520F337FFF9C7B0EDDB7F86635FFF333CFAF98FE1F56F08BDFEC96786987DF751CC07A52198BB5720950FAD38EC0099BFEBDD3706833D771904975F62109A7F9A4161D16906D3E56719D426ED679874EE09C5EEF73A7A1767F8B0356D1BD0F01FCAE99358F32702D34FD38FFF0CF9405CF5EF3F98BF0088936F7D65E05D748562F3FFFDF9C1F005C8BE0CC4A0B40AC26B816C1006D9496919C133E900D87C509A3F0E3517E4FED9BFFF3008B7AEA75A19870D936316002CFEC18C]
 Point(onPaint)
 link(onPaint,7074271:doWork3,[(368,230)])
}
Add(Img_Point,14270471,462,119)
{
}
Add(HubEx,1883189,364,119)
{
 link(onEvent,14270471:doDraw,[])
}
Add(HubEx,7074271,364,168)
{
 Angle=3
 link(onEvent,1883189:doWork3,[])
}

Add(LED,6626431,329,336)
{
 Left=30
 Top=80
 Width=35
 Height=35
 Color=6718159
 Point(onClick)
 Point(Handle)
 Point(onPaint)
 link(onClick,6626431:doChangeValue,[(373,349)(373,345)(317,345)(317,342)])
 link(onPaint,8963850:doWork1,[])
}
Add(LineBreak,10385927,336,378)
{
 Type=1
 link(Data,6626431:Handle,[])
 Primary=[895121,56,-56]
}
Add(MultiElement,8963850,392,350)
{
 @Hint=#24:Знак Power на светодиоде|
 link(Data1,895121:Var,[])
}
BEGIN_SDK
  Add(EditMulti,6665014,21,21)
  {
   WorkCount=1
   DataCount=1
   link(doWork1,2522156:doDraw,[(42,27)(42,83)])
  }
  Add(Img_Ellipse,2522156,63,77)
  {
   Point1=655370
   Point2=983055
   Point2AsOffset=0
   DrawSource=1
   Size=2
   Color=-16777208
   link(onDraw,10251529:doDraw,[])
   link(Bitmap,13688848:Var2,[])
  }
  Add(Img_Line,10251529,112,77)
  {
   Point1=458769
   Point2=983057
   DrawSource=1
   Size=2
   Color=-16777208
   link(Bitmap,13688848:Var3,[(118,61)])
  }
  Add(GetDataEx,13688848,63,56)
  {
   link(Data,6665014:Data1,[(69,38)(27,38)])
  }
END_SDK

   case Msg.message of
	WM_PAINT: begin
		if Msg.wParam = 0 then DC := BeginPaint(Control.Handle, PaintStruct) else DC := Msg.wParam;
		if assigned(OldPaint) then OldPaint(Control, DC);
		_hi_onEvent(fOnPaint, integer(DC));
		if Msg.wParam = 0 then EndPaint(Control.Handle, PaintStruct);
		end;
   end;

   case Msg.message of
	WM_PAINT: begin
		DefWindowProc(Control.Handle,Msg.message,Msg.wParam,Msg.lParam);
		if Msg.wParam = 0 then DC := BeginPaint(Control.Handle, PaintStruct) else DC := Msg.wParam;
		if assigned(OldPaint) then OldPaint(Control, DC);
		_hi_onEvent(fOnPaint, integer(DC));
		if Msg.wParam = 0 then EndPaint(Control.Handle, PaintStruct);
		end;
   end;

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,[])
}