MouseDown Method
Object:splitter.shpHandle
Expand/Collapse source code of procedure shpHandle.MouseDown Source Code
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