Add(MainForm,1071012,140,168)
{
 Width=436
 Height=565
 Color=0
 Caption="ТЕЛЕФОННЫЙ СПРАВОЧНИК"
 BorderStyle=1
 Position=1
 Point(onClose)
 link(onCreate,12420397:doFor,[])
}
Add(ChildPanelEx,63122,266,182)
{
 Mode=1
 link(onClick,15480179:doCompare,[(315,188)(315,279)(254,279)(254,244)])
}
BEGIN_SDK
  Add(EditMultiEx,15987547,21,21)
  {
   WorkCount=#5:##add|8:##select|8:unselect|
   EventCount=#7:onClick|
   VarCount=#7:##index|12:##eventIndex|
   Width=314
   Height=144
   VOffset=49
   Point(##add)
   Point(##select)
   Point(##index)
   Point(##eventIndex)
   link(##add,524552:doEvent1,[])
   link(##select,11068011:doFont,[(56,83)(56,90)])
   link(unselect,2752956:doFont,[(49,90)(49,125)])
  }
  Add(Panel,10207691,203,28)
  {
   Left=5
   Top=5
   Width=30
   Height=30
   Layout="parent.AZB"
  }
  Add(Memory,14104506,203,112)
  {
  }
  Add(Hub,524552,154,70)
  {
   link(onEvent1,16064671:doCaption,[])
   link(onEvent2,14104506:doValue,[(186,83)(186,118)])
  }
  Add(DoData,6242721,280,70)
  {
   link(onEventData,15987547:onClick,[])
   link(Data,14104506:Value,[(286,58)(248,58)(248,156)(209,156)])
  }
  Add(BitBtn,16064671,203,70)
  {
   Left=2
   Top=2
   Width=26
   Height=26
   Align=5
   Font=[Arial,11,1,16711680,204]
   Caption=""
   Flat=1
   Point(doFont)
   link(onClick,6242721:doData,[])
  }
  Add(Font,11068011,63,84)
  {
   Font=[Arial,11,1,255,1]
   link(onFont,8822118:doWork2,[])
  }
  Add(Font,2752956,98,119)
  {
   Font=[Arial,11,1,16711680,1]
   link(onFont,8822118:doWork3,[(140,125)])
  }
  Add(HubEx,8822118,136,84)
  {
   Angle=3
   link(onEvent,16064671:doFont,[(140,57)(194,57)(194,83)])
  }
END_SDK
Add(GridLayout,9612136,140,203)
{
 Name="AZB"
 Space=5
 Padding=10
 Rows=15
 Cols=2
}
Add(InlineCode,12420397,203,182)
{
 WorkPoints=#5:doFor|
 EventPoints=#5:onFor|5:onEnd|
 Code=#15:unit HiAsmUnit;|12:// Autor Tad|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|9:   onFor,|19:   onEnd:THI_Event;|48:   procedure doFor(var _Data:TData; Index:Word);|0:|5: end;|53:const al: string=('АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЭЮЯ'); |0:|14:implementation|28:procedure THiAsmClass.doFor;|15: var i:integer;|5:begin|45:  for i:=1 to 30 do _hi_onEvent(onFor,al[i]);|23:  _hi_onEvent(onEnd,0);|4:end;|4:end.|
 link(onFor,63122:##add,[])
 link(onEnd,13709505:doWork2,[])
}
Add(If_else,15480179,266,238)
{
 link(onFalse,5120808:doEvent1,[])
 link(Op1,63122:##index,[])
 link(Op2,3582101:Var2,[])
}
Add(Hub,5120808,329,245)
{
 link(onEvent1,63122:unselect,[(363,251)(363,162)(254,162)(254,202)])
 link(onEvent2,11465498:doData,[])
}
Add(DoData,11465498,378,252)
{
 link(onEventData,13709505:doWork3,[(421,258)(421,157)(249,157)])
 link(Data,3582101:Var3,[(384,229)])
}
Add(GetDataEx,3582101,273,224)
{
 link(Data,63122:##eventIndex,[])
}
Add(HubEx,13709505,245,189)
{
 link(onEvent,63122:##select,[])
}