Object: | splitter.shpHandle |
PARAMETERS nButton, nShift, nXCoord, nYCoord LOCAL lnOldPos, ; lnAvgCharWidth, ; lnMinPos, ; lnMaxPos, ; lnCurPos, ; lnParentLeft lnOldPos = this.parent.Left lnAvgCharWidth = FONTMETRIC(6) lnParentLeft = this.Parent.Left lnMinPos = I_SHPMIN lnMaxPos = lnMinPos + I_SHPMAX DO WHILE MDOWN() lnCurPos = MCOL() * lnAvgCharWidth this.parent.Move(MAX(lnMinPos, MIN(lnCurPos, lnMaxPos))) ENDDO IF this.Left <> lnOldPos this.Parent.UpdateControls() endif