设为首页 加入收藏

TOP

pb控件强化:一个在drag时可以自动上下滚动的treeview控件对象(二)
2014-11-23 22:54:19 来源: 作者: 【 】 浏览:21
Tags:控件 强化 一个 drag 可以 自动 上下 滚动 treeview 对象
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的专栏
首页 上一页 1 2 下一页 尾页 2/2/2
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
分享到: 
上一篇PB9中通过网址(域名)获取IP的方.. 下一篇pb获取软件编译日期(时间)的快..

评论

帐  号: 密码: (新用户注册)
验 证 码:
表  情:
内  容: