Создаю обьект:
goFrm=NEWOBJECT('MyClassForm','MyClasses')
В событии Init приктучиваю следующий обьект, с помощью которого перерисовываю базовые размеры формы (Height=342; Width=543) на размеры Height=675; Width=1016 последнего запуска формы:
WITH This
.AddObject('frmSetting','frmSetting')
.frmSetting.SetPosition(.Name)
ENDWITH
По идее свойства Height, Width должны поменятся, но если на этом месте их проверить, то они остались старые. После выполнения метода goFrm.Show форма принимает вид соответственно новых размеров. Пробовал .Refresh, не помагает. Что нужно прописать, чтобы свойства Height, Width возвращали новые значения?

Метод SetPosition:
LPARAMETERS cWinName

IF EMPTY(cWinName)
cWinName = UPPER(This.Parent.Name)
ELSE
cWinName = UPPER(cWinName)
ENDIF
This.cWname = cWinName
IF !USED(JUSTSTEM(This.cTable))
IF FILE(UPPER(This.cTable) + '.DBF')
SELECT 0
USE (This.cTable) ORDER wname1 ALIAS winsize
ELSE
RETURN
ENDIF
ENDIF
IF !INDEXSEEK(cWinName,.T.,'winsize','wname1')
RETURN
ENDIF
IF winsize.iswmax .And. !This.Parent.lReturn
This.Parent.WindowState = 2
RETURN
ENDIF
IF !EMPTY(winsize.wtop)
This.Parent.Top = winsize.wtop
ENDIF
IF !EMPTY(winsize.wleft)
This.Parent.Left = winsize.wleft
ENDIF
IF !EMPTY(winsize.wwidth)
This.Parent.Width = winsize.wwidth
ENDIF
IF !EMPTY(winsize.wheight)
This.Parent.Height = winsize.wheight
ENDIF

Я заметил, что проблема именно при изменении свойства WindowState обькта фома. Изначально WindowState = 0. При загрузке формы это значение может поменятся на WindowState = 2. После изменения значения свойства WindowState я смотрю значения Height, Width, но они остаются старые 342 и 543, а при WindowState = 2 они уже 675 и 1016. Значения фактически то поменялось, но я их сразу невижу. Как тут быть? Чтобы значения Height, Width возвращали новые значения?