$PBExportHeader$m_tvrmbedit.srm forward global type m_tvrmbedit from menu end type type m_treeview from menu within m_tvrmbedit end type type m_insertrow from menu within m_treeview end type type m_deleteitem from menu within m_treeview end type type m_dash11 from menu within m_treeview end type type m_refreshitem from menu within m_treeview end type type m_refreshlevel from menu within m_treeview end type type m_refreshtree from menu within m_treeview end type type m_dash12 from menu within m_treeview end type type m_printtree from menu within m_treeview end type type m_treeview from menu within m_tvrmbedit m_insertrow m_insertrow m_deleteitem m_deleteitem m_dash11 m_dash11 m_refreshitem m_refreshitem m_refreshlevel m_refreshlevel m_refreshtree m_refreshtree m_dash12 m_dash12 m_printtree m_printtree end type global type m_tvrmbedit from menu m_treeview m_treeview end type end forward global type m_tvrmbedit from menu m_treeview m_treeview end type global m_tvrmbedit m_tvrmbedit forward prototypes public function integer of_sendmessage (string as_message) end prototypes public function integer of_sendmessage (string as_message);////////////////////////////////////////////////////////////////////////////// // // Function: of_SendMessage // // Access: public // // Arguments: // as_message message (event notification) to be sent // // Returns: integer // 1 = Message successfully sent // -1 = message could not be sent (use debug object for more info) // // Description: // Sends a specified message (event notification) to a receiving window // through the pfc_messagerouter event. // // Sequence: // If application is MDI: // 1) Active MDI sheet pfc_messagerouter event. // 2) MDI Frame Window pfc_messagerouter event. // // Application is SWI: // 1) ParentWindow pfc_messagerouter event. // ////////////////////////////////////////////////////////////////////////////// // // 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_rc = -1 window lw_frame window lw_sheet n_cst_menu lnv_menu // Check arguments if IsNull (as_message) or Len (Trim (as_message)) = 0 then return li_rc end if // Determine if application is MDI by getting frame window lnv_menu.of_GetMDIFrame (this, lw_frame) if IsValid (lw_frame) then // Try sending the message to the active MDI sheet lw_sheet = lw_frame.GetActiveSheet() if IsValid (lw_sheet) then li_rc = lw_sheet.dynamic event pfc_messagerouter (as_message) end if if li_rc <> 1 then // Try sending the message to the frame li_rc = lw_frame.dynamic event pfc_messagerouter (as_message) end if else // Try sending the message to the parentwindow if IsValid (parentwindow) then li_rc = parentwindow.dynamic event pfc_messagerouter (as_message) end if end if if IsNull (li_rc) then li_rc = -1 end if // Debug message if message could not be received if li_rc = -1 and IsValid (gnv_app.inv_debug) then MessageBox (gnv_app.inv_debug.ics_pfc, "Message " + as_message + & " was not received.") end if return li_rc end function on m_tvrmbedit.create m_tvrmbedit=this call super::create this.m_treeview=create m_treeview this.Item[UpperBound(this.Item)+1]=this.m_treeview end on on m_tvrmbedit.destroy call super::destroy destroy(this.m_treeview) end on type m_treeview from menu within m_tvrmbedit m_insertrow m_insertrow m_deleteitem m_deleteitem m_dash11 m_dash11 m_refreshitem m_refreshitem m_refreshlevel m_refreshlevel m_refreshtree m_refreshtree m_dash12 m_dash12 m_printtree m_printtree end type on m_treeview.create call super::create this.text = "treeview" this.m_insertrow=create m_insertrow this.m_deleteitem=create m_deleteitem this.m_dash11=create m_dash11 this.m_refreshitem=create m_refreshitem this.m_refreshlevel=create m_refreshlevel this.m_refreshtree=create m_refreshtree this.m_dash12=create m_dash12 this.m_printtree=create m_printtree this.Item[UpperBound(this.Item)+1]=this.m_insertrow this.Item[UpperBound(this.Item)+1]=this.m_deleteitem this.Item[UpperBound(this.Item)+1]=this.m_dash11 this.Item[UpperBound(this.Item)+1]=this.m_refreshitem this.Item[UpperBound(this.Item)+1]=this.m_refreshlevel this.Item[UpperBound(this.Item)+1]=this.m_refreshtree this.Item[UpperBound(this.Item)+1]=this.m_dash12 this.Item[UpperBound(this.Item)+1]=this.m_printtree end on on m_treeview.destroy call super::destroy destroy(this.m_insertrow) destroy(this.m_deleteitem) destroy(this.m_dash11) destroy(this.m_refreshitem) destroy(this.m_refreshlevel) destroy(this.m_refreshtree) destroy(this.m_dash12) destroy(this.m_printtree) end on type m_insertrow from menu within m_treeview end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // clicked // // Description: // Calls the ue_insertrow event on the window. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// of_SendMessage("ue_insertrow") end event on m_insertrow.create call super::create this.visible = false this.text = "&Insert Item" this.microhelp = "Insert a new treeview item at the selected level" end on on m_insertrow.destroy call super::destroy end on type m_deleteitem from menu within m_treeview end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // clicked // // Description: // Calls the ue_deleteitem event on the window. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// of_SendMessage("ue_deleteitem") end event on m_deleteitem.create call super::create this.text = "&Delete Item" this.microhelp = "Delete the selected item" end on on m_deleteitem.destroy call super::destroy end on type m_dash11 from menu within m_treeview end type on m_dash11.create call super::create this.visible = false this.text = "-" end on on m_dash11.destroy call super::destroy end on type m_refreshitem from menu within m_treeview end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // clicked // // Description: // Calls the ue_refreshitem event on the window. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// of_SendMessage("ue_refreshitem") end event on m_refreshitem.create call super::create this.visible = false this.text = "Refresh I&tem" this.microhelp = "Refresh data for selected item and its children" end on on m_refreshitem.destroy call super::destroy end on type m_refreshlevel from menu within m_treeview end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // clicked // // Description: // Calls the ue_refreshlevel event on the window. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// of_SendMessage("ue_refreshlevel") end event on m_refreshlevel.create call super::create this.visible = false this.text = "Refresh &Level" this.microhelp = "Refresh data for all items on the selected level" end on on m_refreshlevel.destroy call super::destroy end on type m_refreshtree from menu within m_treeview end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // clicked // // Description: // Calls the ue_refreshtree event on the window. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// of_SendMessage("ue_refreshtree") end event on m_refreshtree.create call super::create this.visible = false this.text = "Refresh &Tree" this.microhelp = "Refresh data for the entire tree" end on on m_refreshtree.destroy call super::destroy end on type m_dash12 from menu within m_treeview end type on m_dash12.create call super::create this.visible = false this.text = "-" end on on m_dash12.destroy call super::destroy end on type m_printtree from menu within m_treeview end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: // clicked // // Description: // Calls the ue_printtree event on the window. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// of_SendMessage("ue_printtree") end event on m_printtree.create call super::create this.visible = false this.text = "&Print Tree" this.microhelp = "Print the treeview" end on on m_printtree.destroy call super::destroy end on
File: m_tvrmbedit.srm
Size: 15607
Date: Tue, 22 Jan 2008 23:27:16 +0100
Size: 15607
Date: Tue, 22 Jan 2008 23:27:16 +0100
- menu m_tvrmbedit(srm)
- menu m_treeview
- menu m_insertrow
- menu m_deleteitem
- menu m_dash11
- menu m_refreshitem
- menu m_refreshlevel
- menu m_refreshtree
- menu m_dash12
- menu m_printtree
- menu m_treeview