PB-让数据窗口数据中间有分隔条,固定某些列-HSplitScroll

PB如何让数据窗口可以一分为2,中间出现一条分隔线,分隔线右边可以随便拉动,左边固定,方便数据窗口列比较多,且要查看左边的某些数据用.

一 把数据窗口的HSplitScroll属性选中,

二 在dw控件的constructor事件中 写如下代码设置那些列固定不动.

int li_pos

li_pos=integer(this.describe("code.width"))+integer(this.describe("wo_code.x"))+20

//code为dw控件中dataobject中的某列名.以该列为分界线把数据窗口分为2部分,左边的固定不变右边可以拉动.

this.Object.DataWindow.HorizontalScrollSplit=li_pos

三 然后在dw的scrollhorizontal事件中 写代码处理点击滚动条的处理.

Int i

IF pane = 1 THEN

 i = Integer(This.Object.datawindow.horizontalscrollposition2)

 IF i < 1 Or IsNull(i) THEN RETURN

 IF scrollpos > 0 THEN

  This.Object.datawindow.horizontalScrollPosition = 0

 END IF

ELSE

 i = Integer(This.Object.datawindow.HorizontalScrollSplit)

 IF i < 1 Or IsNull(i) THEN RETURN

 IF i > scrollpos THEN

  This.Object.datawindow.horizontalscrollposition2 = i

 END IF

END IF