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