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