HA$PBExportHeader$pfc_n_cst_winsrv.sru $PBExportComments$PFC Base Window service forward global type pfc_n_cst_winsrv from n_base end type end forward global type pfc_n_cst_winsrv from n_base end type global pfc_n_cst_winsrv pfc_n_cst_winsrv type variables Protected: w_master iw_requestor end variables forward prototypes public function integer of_center () public function integer of_setrequestor (w_master aw_requestor) end prototypes 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 // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// 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 public function integer of_setrequestor (w_master aw_requestor);////////////////////////////////////////////////////////////////////////////// // // Function: of_SetRequestor // // Access: public // // Arguments: // aw_requestor The window requesting this service // // Returns: Integer // 1 if it succeeds and$$HEX1$$a000$$ENDHEX$$-1 if an error occurs. // // Description: Associates a window with this service. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// If IsNull(aw_requestor) Or Not IsValid(aw_requestor) Then Return -1 End If iw_requestor = aw_requestor Return 1 end function on pfc_n_cst_winsrv.create TriggerEvent( this, "constructor" ) end on on pfc_n_cst_winsrv.destroy TriggerEvent( this, "destructor" ) end on
File: pfc_n_cst_winsrv.sru
Size: 4718
Date: Sat, 23 Mar 2013 16:23:04 +0100
Size: 4718
Date: Sat, 23 Mar 2013 16:23:04 +0100
- n_base pfc_n_cst_winsrv(sru)