function THITreeViewTrain.AddNodeAt;
var
    dt:TData;
    fd:PData;
    node:cardinal;
    cap:string;
begin
  dt := Data;
  new(fd);
  FillChar(fd^, sizeof(TData), 0);
  CopyData(fd,@dt);
  
  if getItem(dt, _prop_CaptionIndex) then
    cap := ToString(dt)
  else cap := 'node';  
  
  node := Control.TVInsert(pid, 0, cap); 
  Control.TVItemData[node] := fd;

  dt := Data;
  if _prop_CheckBoxes then
  begin
    if getItem(dt, _prop_CheckBoxIndex) then
      Control.TVItemStateImg[node] := ToInteger(dt) + 1
    else
      Control.TVItemStateImg[node] := 0;
  end;

  dt := Data;  
  if (Control.ImageListNormal <> nil) and getItem(dt, _prop_IconIndex) then
   begin
     Control.TVItemImage[node] := ToInteger(dt); 
     Control.TVItemSelImg[node] := Control.TVItemImage[node];
   end;
  Result := ADD_ERR_SUCCESS;
  
  if _prop_UseHashMap then
   begin
      dt := Data;
      getItem(dt, _prop_IDIndex);  
      FHash.AddObject(ToString(dt), node);
   end;
  if last <> nil then
    last^ := node;
end;

Add(MainForm,16077975,238,140)
{
 Width=614
 Height=275
 Position=1
 Point(Handle)
 link(onCreate,12035853:doTimer,[])
}
Add(TreeViewTrain,1574694,399,273)
{
 Width=264
 Height=236
 Align=1
 Name="main"
 RightClickSelect=0
 IconsManager="icons"
 CheckBoxes=0
 ParentIDIndex=2
 IDIndex=1
 IconIndex=4
 CheckBoxIndex=3
 Point(onMouseMove)
 Point(onMouseDown)
 Point(onMouseUp)
 Point(onKillFocus)
 Point(IDAtPos)
 Point(DataAtPos)
 Point(onDrop)
 Point(doSetFocus)
 Point(doExpand)
 link(onMouseUp,7065489:doSplit,[])
}
Add(TVT_AddNode,3105964,455,147)
{
 TreeView="main"
}
Add(StrList,15705233,329,98)
{
 Strings=#18:категория 1;1;-1;1|19:категория 2;2;-1;0 |11:sub 1;4;2;0|11:sub 2;5;2;0|11:sub 3;6;2;0|19:категория 3;3;-1;-1|12:sub 1;7;3;-1|12:sub 2;8;3;-1|12:sub 3;9;3;-1|
}
Add(ArrayEnum,10500446,343,154)
{
 link(onItem,11917214:doMT,[])
 link(onEndEnum,1574694:doExpand,[(384,167)(384,293)])
 link(Array,15705233:Array,[])
}
Add(MT_String,11917214,399,147)
{
 link(onResult,3105964:doAddNode,[])
}
Add(Timer,12035853,287,154)
{
 Interval=0
 Enable=1
 AutoStop=1
 link(onTimer,10500446:doEnum,[])
}
Add(TVT_EnumNodes,5699750,553,301)
{
 TreeView="main"
 link(onEnum,10773058:doValue,[])
 link(ID,1574694:IDAtPos,[(559,283)(517,283)(517,338)(412,338)])
}
Add(Hub,16441856,511,294)
{
 link(onEvent1,7356611:doValue,[])
 link(onEvent2,5699750:doEnum,[])
}
Add(Memory,7356611,665,294)
{
}
Add(MT_MultiMem,10773058,609,301)
{
 Count=3
 link(onData,14970630:doAdd,[(652,307)(652,348)(597,348)(597,377)])
}
Add(MT_AddData,14970630,609,371)
{
 Count=4
 link(onAdd,12830287:doChangeNode,[])
 link(Data1,10773058:Value1,[])
 link(Data2,10773058:Value2,[])
 link(Data3,10773058:Value3,[])
 link(Data4,7356611:Value,[(636,359)(671,359)])
}
Add(TVT_ChangeNode,12830287,658,371)
{
 TreeView="main"
}
Add(MT_Part,7065489,462,294)
{
 After=2
 Point(Data)
 link(onSplit,16441856:doEvent1,[])
 link(Data,1574694:DataAtPos,[(468,282)(444,282)(444,330)(419,330)])
}

Add(MainForm,16077975,350,217)
{
 Width=614
 Height=275
 Position=1
 Point(Handle)
 link(onCreate,12035853:doTimer,[])
}
Add(TreeViewTrain,1574694,511,280)
{
 Width=264
 Height=236
 Align=1
 Name="main"
 RightClickSelect=0
 IconsManager="icons"
 CheckBoxes=0
 SetCheckOnChild=0
 ParentIDIndex=2
 IDIndex=1
 IconIndex=3
 CheckBoxIndex=4
 Point(onMouseMove)
 Point(onMouseDown)
 Point(onMouseUp)
 Point(onKillFocus)
 Point(IDAtPos)
 Point(DataAtPos)
 Point(onDrop)
 Point(doSetFocus)
 Point(doExpand)
}
Add(TVT_AddNode,3105964,567,224)
{
 TreeView="main"
}
Add(StrList,15705233,441,175)
{
 Strings=#18:категория 1;1;-1;1|19:категория 2;2;-1;0 |11:sub 1;4;2;0|12:sub 11;5;4;0|12:sub 12;6;4;0|12:sub 13;7;4;0|11:sub 2;8;2;0|11:sub 3;9;2;0|19:категория 3;3;-1;-1|13:sub 1;10;3;-1|13:sub 2;11;3;-1|13:sub 3;12;3;-1|
}
Add(ArrayEnum,10500446,455,231)
{
 link(onItem,11917214:doMT,[])
 link(onEndEnum,1574694:doExpand,[(496,244)(496,300)])
 link(Array,15705233:Array,[])
}
Add(MT_String,11917214,511,224)
{
 link(onResult,3105964:doAddNode,[])
}
Add(Timer,12035853,399,231)
{
 Interval=0
 Enable=1
 AutoStop=1
 link(onTimer,10500446:doEnum,[])
}