HA$PBExportHeader$pfc_u_tabpg_dwproperty_base.sru $PBExportComments$PFC DataWindow Property - The TabPage Ancestor class forward global type pfc_u_tabpg_dwproperty_base from u_tabpg end type end forward global type pfc_u_tabpg_dwproperty_base from u_tabpg integer width = 1765 integer height = 1384 long backcolor = 80263328 event type integer pfc_propertyapply ( ) event type integer pfc_propertyopen ( ) event type integer pfc_propertyinitialize ( n_cst_dwpropertyattrib anv_attrib ) event type integer pfc_propertystart ( n_cst_dwpropertyattrib anv_attrib ) event type integer pfc_propertyvalidation ( ) event type integer pfc_propertypopulate ( ) event type string pfc_propertysyntax ( ) end type global pfc_u_tabpg_dwproperty_base pfc_u_tabpg_dwproperty_base type variables Protected: n_cst_dwpropertyattrib inv_attrib u_dw idw_requestor end variables forward prototypes public function integer of_getinfo (ref n_cst_infoattrib anv_infoattrib) public function integer of_getpropertyinfo (ref n_cst_propertyattrib anv_attrib) end prototypes event pfc_propertyinitialize;call super::pfc_propertyinitialize;////////////////////////////////////////////////////////////////////////////// // // Event: pfc_PropertyInitialize // // Arguments: // anv_attrib The datawindow property attributes. // // Returns: Integer // 1 = successful // -1 = Error // // Description: // Initializes the object. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.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 */ // ////////////////////////////////////////////////////////////////////////////// Return 1 end event event pfc_propertystart;call super::pfc_propertystart;////////////////////////////////////////////////////////////////////////////// // // Event: pfc_PropertyStart // // Arguments: // anv_attrib The datawindow property attributes. // // Returns: Integer // 1 = successful // -1 = Error // // Description: // Start the object And call the 'Initialize' process for the specific // functionality. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.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_rc // Validate. If IsNull(anv_attrib) or Not IsValid(anv_attrib) Then Return -1 End If If IsNull(anv_attrib.idw_requestor) or Not IsValid(anv_attrib.idw_requestor) Then Return -1 End If // Store the Attributes. inv_attrib = anv_attrib // Get the Requestor reference. idw_requestor = inv_attrib.idw_requestor // Call the 'Initialize process'. li_rc = this.Event pfc_propertyInitialize(inv_attrib) If li_rc <= 0 Then Return li_rc // Call the 'Populate process'. li_rc = this.Event pfc_propertyPopulate() If li_rc <= 0 Then Return li_rc Return 1 end event event pfc_propertyvalidation;call super::pfc_propertyvalidation;////////////////////////////////////////////////////////////////////////////// // // Event: pfc_PropertyValidation // // Arguments: None // // Returns: Integer // 1 = successful // -1 = Error // // Description: // Validate the object. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.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 */ // ////////////////////////////////////////////////////////////////////////////// Return 1 end event event pfc_propertypopulate;call super::pfc_propertypopulate;////////////////////////////////////////////////////////////////////////////// // // Function: pfc_properypopulate // // Access: Public // // Arguments: None // // Returns: Integer // 1 if it succeeds. // -1 if an error occurs. // // Description: // Populate the screen edit controls with the current service values. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.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 */ // ////////////////////////////////////////////////////////////////////////////// Return 1 end event public function integer of_getinfo (ref n_cst_infoattrib anv_infoattrib);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetInfo // // Access: Public // // Arguments: // anv_infoattrib (By reference) The Information attributes. // // Returns: Integer // 1 for success. // -1 for error. // // Description: // Gets the Object Information. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.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 */ // ////////////////////////////////////////////////////////////////////////////// // Populate Information. anv_infoattrib.is_name = 'DW Property Base Object' anv_infoattrib.is_description = 'DW Property Base Object' Return 1 end function public function integer of_getpropertyinfo (ref n_cst_propertyattrib anv_attrib);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetPropertyInfo // // Access: Public // // Arguments: // anv_attrib (By ref.) The Property Information attributes. // // Returns: Integer // 1 for success. // -1 for error. // // Description: // Gets the Service Property Information. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.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 */ // ////////////////////////////////////////////////////////////////////////////// n_cst_infoattrib lnv_infoattrib // Get the first two attributes from the Main Information attributes. of_GetInfo(lnv_infoattrib) anv_attrib.is_name = lnv_infoattrib.is_name anv_attrib.is_description = lnv_infoattrib.is_description // The Property Tab Text. anv_attrib.is_propertytabtext ='Unassigned' Return 1 end function on pfc_u_tabpg_dwproperty_base.create call super::create end on on pfc_u_tabpg_dwproperty_base.destroy call super::destroy end on
File: pfc_u_tabpg_dwproperty_base.sru
Size: 11252
Date: Sat, 23 Mar 2013 16:23:04 +0100
Size: 11252
Date: Sat, 23 Mar 2013 16:23:04 +0100
- u_tabpg pfc_u_tabpg_dwproperty_base(sru)