updatecontrols Method
Class: splitter
Expand/Collapse source code of procedure updatecontrols Source Code
LOCAL lnObjCtr

this.nLeftEdge  = this.Left
this.nRightEdge = this.Left + this.Width

_screen.ActiveForm.LockScreen = .T.

THISFORM.lSetErrorOff = .T.
FOR lnObjCtr = 1 TO ALEN(this.Parent.aObjSplitMove)
   this.Parent.aObjSplitMove[lnObjCtr].Move()
ENDFOR
THISFORM.lSetErrorOff = .F.
THISFORM.lHadError = .F.

_screen.ActiveForm.LockScreen = .F.
_screen.ActiveForm.Refresh()