pb控件强化:一个在drag时可以自动上下滚动的treeview控件对象
来源:程序员人生 发布时间:2013-10-20 06:00:02 阅读次数:3960次
在实际使用过程中,当treeview控件允许拖动drag时,由于treeview控件在expand后,高度都会比较高,以至于数据在控件内,无法完全显示,而在drag过程中,经常需要执行大幅度的拖动,这样一来就会导致拖动过程经常受阻。
虽然在拖动时,可以通过滚动鼠标滚轮的方式来手动为treeview控件滚动数据,但是这样的操作比较麻烦,经常会在滚动滚轮时,不经意的松开鼠标左键,导致drag过程被终止。
为了解决treeview控件的这一不足,本人对treeview控件进行改写,实现treeview控件在drag过程中,当鼠标移动到treeview上方时,可以自动向上滚动数据;当鼠标移动到treeview下方时,可以自动向下滚动数据。
将以下内容复制,并保存到本地文件uo_autoscroll_tv.sru 中,然后导入pbl中,之后就可以通过nsert userobject 方式插入该控件了。
本控件已经集成了drag功能,您在使用时,只需要更改它的dragicon(拖动时显示的图标)属性。
另外插入后的控件,只需要在ue_dragdrop事件及ue_dragdrop_o两个事件中进行编程即可。其中ue_dragdrop事件用于treeview控件内部的拖动;ue_dragdrop_o事件用于从其他控件到该treeview控件的拖动。
[cpp]
$PBExportHeader$uo_autoscroll_tv.sru
forward
global type uo_autoscroll_tv from treeview
end type
type itiming from timing within uo_autoscroll_tv
end type
end forward
global type uo_autoscroll_tv from treeview
integer width = 549
integer height = 452
string dragicon = "DataPipeline!"
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
boolean linesatroot = true
long picturemaskcolor = 536870912
long statepicturemaskcolor = 536870912
event ue_dragdrop ( long al_from, long al_to )
event ue_dragdrop_o ( dragobject source, long al_to )
event ue_lbuttondown pbm_lbuttondown
event ue_lbuttonup pbm_lbuttonup
itiming itiming
end type
global uo_autoscroll_tv uo_autoscroll_tv
type prototypes
function ulong SetCapture(ulong hwnd) library "user32.dll"
function boolean ReleaseCapture() library "user32.dll"
end prototypes
type variables
protected:
long il_drag_handle //开始拖动的节点的句柄
long il_dragwithin_handle //当前拖动到的节点
constant long SB_LINEUP = 0
constant long SB_LINELEFT = 0
constant long SB_LINEDOWN = 1
constant long SB_LINERIGHT = 1
constant long SB_PAGEUP = 2
constant long SB_PAGELEFT = 2
constant long SB_PAGEDOWN = 3
constant long SB_PAGERIGHT = 3
constant long SB_TOP = 6
constant long SB_LEFT = 6
constant long SB_BOTTOM = 7
constant long SB_RIGHT = 7
constant long WM_HSCROLL= 276
constant long WM_VSCROLL = 277
end variables
forward prototypes
public subroutine of_bolditem (long al_h, boolean ab)
protected subroutine of_timing ()
end prototypes
event ue_dragdrop(long al_from, long al_to);//响应内部拖动
end event
event ue_dragdrop_o(dragobject source, long al_to);//响应外部拖动
end event
event ue_lbuttondown;SetCapture(handle(this))
this.drag(begin!)
il_drag_handle = this.getitematpointer()
end event
event ue_lbuttonup;ReleaseCapture()
itiming.stop()
end event
public subroutine of_bolditem (long al_h, boolean ab);//选择/不选 节点al_h
treeviewitem ltvi
if this.getitem(al_h, ltvi) <> 1 then return
ltvi.bold = ab
this.setitem(al_h, ltvi)
end subroutine
protected subroutine of_timing ();if this.pointerY() <= 0 then
//连续send两次,是为了加快滚动速度
SEND(handle(this), WM_VSCROLL, SB_LINEUP, 0)
SEND(handle(this), WM_VSCROLL, SB_LINEUP, 0)
elseif this.pointerY() >= this.width - 10 then
SEND(handle(this), WM_VSCROLL, SB_LINEDOWN, 0)
SEND(handle(this), WM_VSCROLL, SB_LINEDOWN, 0)
end if
end subroutine
on uo_autoscroll_tv.create
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的专栏
生活不易,码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠