Class: | splitter |
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()