Add(InlineCode,6160215,259,168)
{
 WorkPoints=#6:doTest|
 EventPoints=#5:onRes|
 DataPoints=#5:inBmp|8:filename|5:Color|5:Width|
 Code=#26:{ Author -=andrestudio=- }|15:unit HiAsmUnit;|0:|9:interface|0:|41:uses kol,Share,Debug,KOLDrawImageEllipse;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|22:     bmp: KOl.PBitmap;|9:   public|26:     inBmp,filename,Width,|28:     Color,onres: THI_Event;|48:     procedure doTest(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|55:procedure THiAsmClass.doTest(var dt: TData; idx: word);|5:begin|102:  bmp := DrawImageEllipse(ToBitmapEvent(inBmp),clBtnFace,ToIntegerEvent(Color),ToIntegerEvent(Width));|105:  CreateAvatar(ToStringEvent(filename),ToBitmapEvent(inBmp),ToIntegerEvent(Color),ToIntegerEvent(Width));|25:  _hi_onEvent(onRes,bmp);|11:  bmp.free;|4:end;|0:|4:end.|
}