>* put 3, 5 , ... and the shape is moved, but the position is incorrect. >* Strangely, with an even number it is correct > >#DEFINE NNHEIGHT 1 >PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > >DEFINE CLASS form1 AS form > > Top = 0 > Left = 0 > Height = NNHEIGHT > Width = 375 > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT shape1 AS shape WITH ; > Left = 48, ; > Height = NNHEIGHT , ; > Width = 100, ; > Anchor = 512, ; > Name = "Shape1" > > > PROCEDURE shape1.Init > DEBUGOUT "start centered",this.top+INT(this.height/2),INT(thisform.height/2) > ENDPROC > > > PROCEDURE shape1.Move ( nLeft, nTop, nWidth, nHeight ) > DEBUGOUT "expected equal",nTop+INT(m.nHeight/2),INT(thisform.height/2) > ENDPROC > >ENDDEFINE >>