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.|
}

Add(MainForm,2953706,28,42)
{
 Width=649
 Height=363
}
Add(RichEdit,6955253,91,42)
{
 Left=20
 Top=20
 Width=600
 Height=250
 Font=[Segoe UI,8,0,0,204]
 Strings=#21:HiAsm или Конструктор|25:программ это прежде всего|20:система визуального |28:проектирования и разработки |28:приложений, не требующая от |27:пользователя знания языков |32:программирования и особенностей |33:функционирования ОС, позволяющая |33:быстро и легко писать (рисовать) |20:небольшие программы.|
 ScrollBars=3
 Point(Handle)
}
Add(InlineCode,4872276,112,98)
{
 WorkPoints=#9:doSetZoom|
 DataPoints=#4:Hwnd|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Windows,Share,Debug,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|21:     Hwnd: THI_Event;|51:     procedure doSetZoom(var dt: TData; idx: word);|5: end;|0:|14:implementation|0:|5:const|29:  EM_SETZOOM = WM_USER + 225;|2:  |32:procedure THiAsmClass.doSetZoom;|3:var|13:  h: THandle;|5:begin|28:  h := ToIntegerEvent(Hwnd);|47:  SendMessage(h,EM_SETZOOM, ToInteger(dt),100);|4:end;|0:|4:end.|
 link(Hwnd,6955253:Handle,[])
}
Add(TrackBar,12627572,28,98)
{
 Left=20
 Top=285
 Width=215
 Max=300
 Min=100
 link(onPosition,4872276:doSetZoom,[])
}