#define FORMCAPTIONHEIGHT ; iif(empty(obj.TitleBar), ; 0, ; iif(obj.HalfHeightCaption, ; sysmetric(SYSMETRIC_HALFHEIGHTBUTTONHEIGHT), ; sysmetric(SYSMETRIC_WINDOWTITLEHEIGHT) ; ) ; ) local obj obj = _Screen.ActiveForm local _height, _width if( obj.Desktop or obj.ShowWindow = 2 ) _height = sysmetric(22) _width = sysmetric(21) else _height = _screen.Height _width = _screen.Width endif _height = _Height - FORMCAPTIONHEIGHT obj.Height = _height obj.AutoCenter = .T.