> > >_Screen.AddObject("oResizer_Laja", "Resizer_Laja") > > >DEFINE CLASS Resizer_Laja AS Custom > > > oScreen = _Screen > > PROCEDURE oScreen.Resize > IF _screen.WindowState <> 1 && Main VFP Window isn't minimized > FOR i=1 TO _screen.FormCount > IF _screen.Forms(i).AutoCenter > _screen.Forms(i).AutoCenter = .F. > _screen.Forms(i).AutoCenter = .T. > ENDIF > ENDFOR > ENDIF > ENDPROC > >ENDDEFINE > >