lpara toObj
* Изменение размеров и шрифта объектов формы
* Ориентируемся только по полностью развернотому окну программы
* Считаем, что разработка была под 800x600 со шрифтом  9 
local lnK,loC
lnK = gnDefaultFontSize /  9 

if pemstatus(toObj, 'Top',  5 )
	with toObj
		.top = toObj.top * lnK
		.left = toObj.left * lnK
		.height = toObj.height * lnK
		.width = toObj.Width * lnK
	endwith
endif

if pemstatus(toObj, 'FontSize',  5 )
	toObj.FontSize = round(toObj.FontSize * lnK,  0 )
endif

do case
	case pemstatus(toObj, 'Controls',  5 )
		for each loC in toObj.Controls
			this.ResizeObject(loC)
		endfor
	case pemstatus(toObj, 'Pages',  5 )
		for each loC in toObj.pages
			this.ResizeObject(loC)
		endfor
	case pemstatus(toObj, 'Buttons',  5 )
		for each loC in toObj.Buttons
			this.ResizeObject(loC)
		endfor
endcase

para toObj
local llRet, loC

if pemstatus(toObj, 'cEmptyMessage',  5 ) and !empty(toObj.cEmptyMessage) and empty(toObj.Value)
	MessageBox(toObj.cEmptyMessage,  16 , 'ВНИМАНИЕ')
	toObj.SetFocus()
	llRet = .T.
endif

* Если контейнер - проверка объектов внутри
do case
	case pemstatus(toObj, 'Controls',  5 )
		for each loC in toObj.Controls
			if this.CheckEmpty(loC)
				llRet = .T.
				exit
			endif
		endfor
	case pemstatus(toObj, 'Pages',  5 )
		for each loC in toObj.pages
			if this.CheckEmpty(loC)
				llRet = .T.
				exit
			endif
		endfor
endcase
return llRet

if !thisform.CheckEmpty(thisform)
	... код сохранения
	thisform.release()
endif