Add(MainForm,2953706,252,168)
{
}
Add(Memo,16240986,364,168)
{
 Left=125
 Top=10
 Width=185
 Height=225
 Strings=#47:===============================================|39:                    HiAsm 4.0 build 172|47:===============================================|24:	Лицензионное соглашение|0:|92:   Программа HiAsm (в дальнейшем "Программный продукт") создан Dilma (в дальнейшем "Автор").|90:   Настоящим лицензионным соглашением удостоверяются права на "Программный продукт" Dilma.|111:   "Программный продукт" "Автора" предназначен для конструирования программ без знаний языков программирования.|413:   Программа распространяется по принципу "AS IS", что значит, что при правильном или неправильном использование программы "Автор" ответственности не несет. Вы устанавливаете программу под свою ответственность. За ВСЕ сбои после установки программы "Автор" ответственности не несет. Вы устанавливаете программу на свой страх и риск, хотя "Автором" было сделано все возможное, чтобы ошибок, сбоев, поломок не было.|103:   Программа распространяется по принципу "Freeware", что означает, что программа абсолютно бесплатная.|107:   По всем вопросам и предложениям связанным с программой, а также недоработках, просьба сообщать "Автору".|2:  |55:   Домашняя страница в Интернете:  http://www.hiasm.com|56:   Электронная почта проекта  (E-Mail):  hiasm@hiasm.com|0:|39:   "Автор":     Dilma - dilma@hiasm.com|0:|
 ScrollBars=2
 Point(doSetSelStart)
 Point(Position)
 Point(doEnsureVisible)
}
Add(Button,13055281,252,210)
{
 Left=20
 Top=10
 Data=Integer(10000000)
 link(onClick,7060992:doEvent1,[])
}
Add(Hub,7060992,308,210)
{
 link(onEvent1,16240986:doSetSelStart,[])
 link(onEvent2,16240986:doEnsureVisible,[])
}

Add(MainForm,2953706,49,147)
{
 link(onCreate,5046090:doWork2,[])
}
Add(CheckBox,6114934,154,105)
{
 Left=35
 Top=15
 Width=90
 link(onCheck,5046090:doWork1,[(198,111)(198,137)(109,137)])
}
Add(IndexToChanel,5137211,154,161)
{
 Point(Index)
 link(onEvent1,11406283:doData,[])
 link(onEvent2,3189098:doData,[(202,174)(202,223)])
 link(Index,6114934:Checked,[])
}
Add(HubEx,5046090,105,154)
{
 link(onEvent,5137211:doEvent,[])
}
Add(Label,4120730,287,161)
{
 Left=160
 Top=15
 Width=95
 Caption=""
 AutoSize=1
}
Add(DoData,11406283,217,161)
{
 Data=String(Снят)
 link(onEventData,11912800:doWork2,[])
}
Add(DoData,3189098,217,217)
{
 Data=String(Поставлен)
 link(onEventData,11912800:doWork3,[(270,223)])
}
Add(HubEx,11912800,266,154)
{
 link(onEvent,4120730:doText,[])
}

Add(MainForm,2953706,49,154)
{
}
Add(ListBox,182346,189,217)
{
 Left=20
 Top=15
 Width=210
 Height=160
}
Add(Button,13822411,49,210)
{
 Left=100
 Top=185
 Caption="Add"
 Data=String(123)
 link(onClick,4760512:doEvent,[])
}
Add(CheckBox,16583478,119,154)
{
 Left=20
 Top=185
}
Add(IndexToChanel,4760512,119,210)
{
 Point(Index)
 link(onEvent2,182346:doAdd,[])
 link(Index,16583478:Checked,[])
}

procedure THICheckBox._work_InData;
begin
 if Control.Checked then  _hi_onEvent(_event_OutData,_Data);
end;