of_center

pfcwnsrv.pbl   >   pfc_n_cst_winsrv   >   of_center

Name	Datatype
lenv_obj	environment
li_rc	Integer
li_screenheight	Integer
li_screenwidth	Integer
li_x	Integer
li_y	Integer

public function integer of_center ();//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_Center
//
//	Access:  public
//
//	Arguments:  none
//
//	Returns:  integer
//	 1 = success
//	-1 = error
//
//	Description:
//	Centers the window relative to the dimensions of the
//	current display resolution.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

Integer		li_screenheight
Integer		li_screenwidth
Integer		li_rc
Integer		li_x = 1
Integer		li_y = 1
environment	lenv_obj

//Check for a window association with this object
If IsNull(iw_requestor) Or Not IsValid (iw_requestor) Then
	Return -1
End If

// Get environment
If GetEnvironment (lenv_obj) = -1 Then
	Return -1
End If

// Determine current screen resolution and validate
li_screenheight = PixelsToUnits (lenv_obj.screenheight, YPixelsToUnits!)
li_screenwidth = PixelsToUnits (lenv_obj.screenwidth, XPixelsToUnits!)
If Not (li_screenheight > 0) or Not (li_screenwidth > 0) Then
	Return -1
End If

// Get center points
If li_screenwidth > iw_requestor.Width Then
	li_x = (li_screenwidth / 2) - (iw_requestor.Width / 2)
End If
If li_screenheight > iw_requestor.Height Then
	li_y = (li_screenheight / 2) - (iw_requestor.Height / 2)
End If

// Center window
li_rc = iw_requestor.Move (li_x, li_y)
If li_rc <> 1 Then
	Return -1
End If

Return 1
end function

Name	Owner
w_resp_customer_search.pfc_preopen	w_resp_customer_search
w_resp_employee.pfc_preopen	w_resp_employee
w_resp_sales_order.pfc_preopen	w_resp_sales_order
w_resp_salesperson.pfc_preopen	w_resp_salesperson
pfc_w_splash.open	pfc_w_splash
pfc_w_filterextended.open	pfc_w_filterextended
pfc_w_filtersimple.open	pfc_w_filtersimple
pfc_w_sortdragdrop.open	pfc_w_sortdragdrop
pfc_w_sortmulti.open	pfc_w_sortmulti
pfc_w_sortsingle.open	pfc_w_sortsingle

Name	Owner
window.move	window
systemfunctions.getenvironment	systemfunctions
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.pixelstounits	systemfunctions

Full name
pfc_w_master