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

ehxz

免费乐捐，感谢支持

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

PB8下测试OK。