Автор:Варнавский Д.В. dvvarna@mail.ru

	   
	  //////////////////////////////////////////////////////////
	//
	//	Function:  		gf_childautocentr
	//
	//	Access:  		public
	//
	//	Arguments:		
	//	aw_parent		Window, родительское окно для aw_child
	//	aw_child			Window, дочернее окно для aw_parent
	//
	//	Returns:  		None
	//
	//	Description:  	Функция автоцентрирования 
	//                  дочернего окна внутри родительского
	//
	////////////////////////////////////////////////////////////
	//
	//	Revision History
	//
	//	Version
	//	5.0   Initial version (Варнавский Д.В.)
	//	6.0	Изменены имена аргументов в соответствии
	//       с соглашением (28.07.1999г.)
	//
	///////////////////////////////////////////////////////////
	//
	//	БелГТАСМ, НИЛ-5
	//
	///////////////////////////////////////////////////////////
	
	integer li_Wp, li_Hp, li_Wc, li_Hc
	li_Wp = aw_parent.WorkSpaceWidth()     // Ширина рабочей области
	li_Hp = aw_parent.WorkSpaceHeight()    // Высота рабочей области
	li_Wc = aw_child.Width                 // Ширина дочернего окна
	li_Hc = aw_child.Height                // Высота дочернего окна
	
	IF li_wc >= li_wp THEN
		aw_child.X = 0
	ELSEIF li_Wc < li_wp THEN	
	   aw_child.X = (li_Wp / 2) - (li_Wc /2)
	END IF
	
	IF li_hc >= li_hp THEN
		aw_child.Y = 0
	ELSEIF li_hc < li_hp AND li_hc > li_hp/2 THEN	
	   aw_child.Y = 0
	ELSEIF li_hc < li_hp AND li_hc <= li_hp/2 THEN   
		aw_child.Y = (li_Hp / 2) - li_Hc
	END IF
	
	Конец функции.
	
	Способ вызова функции в событии Open центрируемого окна.
	gf_childautocentr (gnv_app.of_GetFrame(), This) // Центрирование окна
	
	of_GetFrame - PFC функция возвращающая имя MDI Fraim окна