Добрый день всем.

Снова прошу вашей помощи. Возникли проблемы с перерисовкой главного окна. При запуске программы стандартные кнопки "Свернуть", "Закрыть ", "Свернуть в окно" активны, а после добавления
объекта кнопка "закрыть" становится не активной и даже после удаления добавленного объекта не активизируется. Помогите вернуть кнопку в первоначальное состояние.

Вот фрагмент когда добавления объекта.
WITH _SCREEN.ACTIVEFORM
.lockscreen=.t.

.AddObject("obj", "mn_printform")
.obj.visible=.t.
.obj.WIDTH = .WIDTH
.obj.HEIGHT =.HEIGHT
.obj.olecontrol1.reportsource=oRpt
.obj.olecontrol1.Viewreport()

.lockscreen=.f.
endwith

Так удаляю объект
WITH _SCREEN.ACTIVEFORM
.lockscreen=.t.
IF TYPE('.obj') == 'O' .AND. !ISNULL(.obj)
.REMOVEOBJECT('obj')
RELEASE PAD obj OF _MSYSMENU
release oCR
release oRpt
ENDIF
.lockscreen=.f.
.refresh()
ENDWITH

Активными остаются только кнопки "Свернуть" и "Свернуть в окно". Если свернуть окно программы и развернуть его обратно, то кнопка "закрыть" активизируется.