Add(InlineCode,16027771,266,196)
{
 WorkPoints=#8:dopf1bit|
 EventPoints=#8:onResult|
 DataPoints=#6:Bitmap|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|20:     bwbmp: PBitmap;|15:	 bmp: PBitmap;|9:   public|23:     Bitmap: THI_Event;|25:     onResult: THI_Event;|0:|21:	 constructor Create;|31:	 destructor Destroy; override;|53:     procedure dopf1bit(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|31:constructor THiAsmClass.Create;|5:begin|12:  inherited;|27:  bwbmp := NewBitmap(0, 0);|4:end;|0:|31:destructor THiAsmClass.Destroy;|5:begin|13:  bwbmp.free;|12:  inherited;|4:end;|0:|31:procedure THiAsmClass.dopf1bit;|5:begin|35:  bmp := ReadBitmap(_Data, Bitmap);|25:  if bmp = nil then exit;|20:  bwbmp.Assign(bmp);|30:  bwbmp.PixelFormat := pf1bit;|32:  _hi_onEvent(onResult, bwbmp); |4:end;|0:|4:end.|
}