Add(MainForm,2953706,140,49)
{
 Color=255
 Point(Handle)
}
Add(Img_GetPoint,13799849,140,105)
{
 X=10
 Y=10
 DrawSource=1
 link(onGetPixel,4885515:doWork,[])
 link(Bitmap,2953706:Handle,[])
}
Add(Label,4296432,259,105)
{
 Left=215
 Top=45
}
Add(Button,4322389,77,105)
{
 Left=30
 Top=45
 link(onClick,13799849:doGetPixel,[])
}
Add(InlineCode,4885515,196,105)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|37:uses Windows,kol,Share,Debug,GDIPAPI;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|19:   onRes:THI_Event;|49:   procedure doWork(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doWork;|17:var i,cl:integer;|5:BEGIN|22: i:= toInteger(_Data);|31: cl := Round(0.3*GetRValue(i)+ |36:                 0.59*GetGValue(i)+ |37:                 0.11*GetBValue(i)); |0:|23: _hi_onEvent(onRes,cl);|4:END;|4:end.|
 link(onRes,4296432:doText,[])
}