pb控件强化:一个在drag时可以自动上下滚动的treeview控件对象(二)

2014-11-23 22:54:19 · 作者: · 浏览: 30
eate
this.itiming=create itiming
end on

on uo_autoscroll_tv.destroy
destroy(this.itiming)
end on

event dragenter;itiming.stop()
end event

event dragwithin;of_bolditem(il_dragwithin_handle, false)
of_bolditem(handle, true)
il_dragwithin_handle = handle

end event

event dragdrop;of_bolditem(il_dragwithin_handle, false)
if source = this then
event ue_dragdrop(il_drag_handle, handle)
else
event ue_dragdrop_o(source, handle)
end if
end event

event dragleave;itiming.start(0.1)
end event

type itiming from timing within uo_autoscroll_tv descriptor "pb_nvo" = "true"
end type

on itiming.create
call super::create
TriggerEvent( this, "constructor" )
end on

on itiming.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on

event timer;parent.of_timing()
end event

摘自 yyoinge的专栏