function THITreeViewTrain._OnExpanding;
var dt:TData;
begin
   Result := true;
   dt := PData(Control.TVItemData[Item])^; 
   if Expand then
     _hi_onEvent(_event_onExpand, dt)
   else  
     _hi_onEvent(_event_onCollapse, dt)
end;