Add(MainForm,8732207,21,105)
{
 Left=20
 Top=105
 Width=404
 Height=351
}
Add(TreeViewA,3953465,168,126)
{
 Left=20
 Top=15
 Width=225
 Height=275
 link(onClick,7365544:doText,[(243,139)(243,139)])
}
Add(Label,7365544,259,133)
{
 Left=260
 Top=25
 Width=120
}

Add(Browse,12393167,133,56)
{
 link(onBrowse,8401521:doText,[])
}
Add(Button,331985,77,56)
{
 Left=75
 Top=55
 link(onClick,12393167:doBrowse,[])
}
Add(Label,8401521,189,56)
{
 Left=10
 Top=80
 Width=370
}

procedure THITreeViewA._OnClick;
begin
   //if _prop_DataType = 1 then
     _hi_OnEvent(_event_onClick,Control.TVItemText[Control.TVSelected])
   //else  _hi_OnEvent(_event_onClick,Control.CurIndex);
end;

procedure THITreeViewA._var_Array;
begin

end;