Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
 Width=588
 Height=551
}
Add(PageControl,4067262,784,273)
{
 Width=300
 Height=400
 Align=2
 Selected="base"
 AutoCreate=1
 SelectAdd=0
 link(Data,7473735:Value,[])
 link(onEventData,11457551:doSetOnChange,[])
 link(onClick,11295864:doTimer,[(828,286)(828,346)(674,346)(674,398)])
}
BEGIN_SDK
  Add(EditPolyMulti,14820162,21,21)
  {
   WorkCount=#5:##add|8:##delete|
   EventCount=#11:onEventData|7:onClick|
   VarCount=#7:##count|7:##index|
   DataCount=#4:Data|
   Width=657
   Height=375
   Point(##add)
   Point(##delete)
   Point(##count)
   Point(##index)
   link(##add,9099381:doData,[(98,27)(98,76)])
  }
  Add(PagePanel,13516436,273,49)
  {
   Width=572
   Height=512
   Align=5
   Point(doCaption)
   Point(PHandle)
  }
  Add(DoData,9099381,175,70)
  {
   link(onEventData,11479888:doEvent1,[])
   link(Data,14820162:Data,[(181,46)(27,46)])
  }
  Add(Hub,11479888,231,70)
  {
   link(onEvent1,13516436:doCaption,[(259,76)(259,55)])
   link(onEvent2,11144517:doData,[(263,83)(263,104)])
  }
  Add(DoData,11144517,273,98)
  {
   link(onEventData,14820162:onEventData,[(491,104)(491,27)])
   link(Data,13516436:PHandle,[])
  }
  Add(BitBtn,11571840,154,175)
  {
   Left=150
   Top=175
   Width=190
   Height=95
   Caption="Del"
   link(onClick,14820162:onClick,[(432,181)(432,34)])
  }
END_SDK
Add(Button,14856101,581,203)
{
 Left=70
 Top=450
 Width=145
 Height=50
 Caption="Add"
 link(onClick,3945858:doNext,[])
}
Add(Button,3697156,693,504)
{
 Left=355
 Top=445
 Width=105
 Height=55
 Caption="Dell"
 link(onClick,15360056:doWork3,[(781,510)])
}
Add(InlineCode,11457551,840,273)
{
 WorkPoints=#13:doSetOnChange|
 EventPoints=#8:onChange|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses Windows, Kol, Share, Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|23:     Control: PControl;|35:     procedure _OnChange(Obj:PObj);|0:|9:   public|23:   onChange: THI_Event;|56:   procedure doSetOnChange(var _Data:TData; Index:word);|7:   end;|3:   |14:implementation|0:|36:procedure THiAsmClass.doSetOnChange;|16:var i: integer; |5:begin|50:     Control := PControl(ToInteger(_Data)).Parent;|32:     if Control = nil then exit;|41:     Control.OnSelChange := _OnChange;   |4:end;|0:|32:procedure THiAsmClass._OnChange;|5:begin|43:   _hi_OnEvent(onChange, Control.CurIndex);|4:end;|0:|4:end.|
}
Add(Memory,7473735,784,203)
{
 @Hint=#15:Состояние хоста|
 Default=Integer(3)
 link(onData,6105568:doData,[(828,209)(828,244)(702,244)(702,279)])
}
Add(CounterEx,3945858,651,203)
{
 link(onNext,9667884:doStrCat,[])
}
Add(StrCat,9667884,714,203)
{
 Str1="Page "
 link(onStrCat,7473735:doValue,[])
 link(Str2,3945858:Count,[(727,128)(699,128)(699,247)(657,247)])
}
Add(DoData,6105568,714,273)
{
 Data=String(base)
 link(onEventData,4067262:##add,[])
}
Add(Timer,11295864,679,392)
{
 Interval=0
 Enable=1
 link(onTimer,8451700:doEvent1,[])
}
Add(Hub,8451700,728,392)
{
 link(onEvent1,11295864:doStop,[(758,398)(758,448)(667,448)(667,405)])
 link(onEvent2,15360056:doWork2,[(756,405)(756,398)])
}
Add(DoData,6001803,791,392)
{
 link(onEventData,4067262:##delete,[(835,398)(835,342)(772,342)(772,286)])
 link(Data,4067262:##index,[])
}
Add(HubEx,15360056,777,392)
{
 link(onEvent,6001803:doData,[])
}