$PBExportHeader$pfc_m_tvs.srm $PBExportComments$PFC TreeView menu class forward global type pfc_m_tvs from menu end type type m_viewitem from menu within pfc_m_tvs end type type m_open from menu within m_viewitem end type type m_find from menu within m_viewitem end type type m_dash14 from menu within m_viewitem end type type m_cut from menu within m_viewitem end type type m_copy from menu within m_viewitem end type type m_paste from menu within m_viewitem end type type m_clear from menu within m_viewitem end type type m_dash15 from menu within m_viewitem end type type m_new from menu within m_viewitem end type type m_delete from menu within m_viewitem end type type m_rename from menu within m_viewitem end type type m_dash16 from menu within m_viewitem end type type m_properties from menu within m_viewitem end type type m_viewitem from menu within pfc_m_tvs m_open m_open m_find m_find m_dash14 m_dash14 m_cut m_cut m_copy m_copy m_paste m_paste m_clear m_clear m_dash15 m_dash15 m_new m_new m_delete m_delete m_rename m_rename m_dash16 m_dash16 m_properties m_properties end type global type pfc_m_tvs from menu m_viewitem m_viewitem end type end forward global type pfc_m_tvs from menu m_viewitem m_viewitem event type boolean pfc_isobsolete ( ) end type global pfc_m_tvs pfc_m_tvs type variables treeview itv_parent Protected: boolean ib_IsObsolete end variables forward prototypes public function integer of_setparent (treeview atv_parent) end prototypes event type boolean pfc_isobsolete();return ib_isobsolete end event public function integer of_setparent (treeview atv_parent);////////////////////////////////////////////////////////////////////////////// // // Function: of_SetParent // // Access: Public // // Arguments: // atv_parent: TreeView // // Returns: integer // 1 = success // -1 = error // // Description: Establishes a treeview reference for the menu // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// integer li_rc if IsValid (atv_parent) then itv_parent = atv_parent li_rc = 1 else li_rc = -1 end if return li_rc end function on pfc_m_tvs.create pfc_m_tvs=this call super::create this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_viewitem=create m_viewitem this.Item[UpperBound(this.Item)+1]=this.m_viewitem end on on pfc_m_tvs.destroy call super::destroy destroy(this.m_viewitem) end on type m_viewitem from menu within pfc_m_tvs m_open m_open m_find m_find m_dash14 m_dash14 m_cut m_cut m_copy m_copy m_paste m_paste m_clear m_clear m_dash15 m_dash15 m_new m_new m_delete m_delete m_rename m_rename m_dash16 m_dash16 m_properties m_properties end type on m_viewitem.create call super::create this.text = "&View" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_open=create m_open this.m_find=create m_find this.m_dash14=create m_dash14 this.m_cut=create m_cut this.m_copy=create m_copy this.m_paste=create m_paste this.m_clear=create m_clear this.m_dash15=create m_dash15 this.m_new=create m_new this.m_delete=create m_delete this.m_rename=create m_rename this.m_dash16=create m_dash16 this.m_properties=create m_properties this.Item[UpperBound(this.Item)+1]=this.m_open this.Item[UpperBound(this.Item)+1]=this.m_find this.Item[UpperBound(this.Item)+1]=this.m_dash14 this.Item[UpperBound(this.Item)+1]=this.m_cut this.Item[UpperBound(this.Item)+1]=this.m_copy this.Item[UpperBound(this.Item)+1]=this.m_paste this.Item[UpperBound(this.Item)+1]=this.m_clear this.Item[UpperBound(this.Item)+1]=this.m_dash15 this.Item[UpperBound(this.Item)+1]=this.m_new this.Item[UpperBound(this.Item)+1]=this.m_delete this.Item[UpperBound(this.Item)+1]=this.m_rename this.Item[UpperBound(this.Item)+1]=this.m_dash16 this.Item[UpperBound(this.Item)+1]=this.m_properties end on on m_viewitem.destroy call super::destroy destroy(this.m_open) destroy(this.m_find) destroy(this.m_dash14) destroy(this.m_cut) destroy(this.m_copy) destroy(this.m_paste) destroy(this.m_clear) destroy(this.m_dash15) destroy(this.m_new) destroy(this.m_delete) destroy(this.m_rename) destroy(this.m_dash16) destroy(this.m_properties) end on type m_open from menu within m_viewitem end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: Clicked // // Description: Open the selected the item in the treeview. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// itv_parent.dynamic event pfc_open() end event on m_open.create call super::create this.visible = false this.text = "&Open" this.enabled = false this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_open.destroy call super::destroy end on type m_find from menu within m_viewitem end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: Clicked // // Description: Invoke the find dialog. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// itv_parent.dynamic event pfc_finddlg() end event on m_find.create call super::create this.visible = false this.text = "&Find..." this.enabled = false this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_find.destroy call super::destroy end on type m_dash14 from menu within m_viewitem end type on m_dash14.create call super::create this.visible = false this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_dash14.destroy call super::destroy end on type m_cut from menu within m_viewitem end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: Clicked // // Description: Cut the item from the treeview. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// itv_parent.dynamic event pfc_cut() end event on m_cut.create call super::create this.visible = false this.text = "Cu&t" this.enabled = false this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_cut.destroy call super::destroy end on type m_copy from menu within m_viewitem end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: Clicked // // Description: Copy the item from the treeview. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// itv_parent.dynamic event pfc_copy() end event on m_copy.create call super::create this.visible = false this.text = "&Copy" this.enabled = false this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_copy.destroy call super::destroy end on type m_paste from menu within m_viewitem end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: Clicked // // Description: Paste the item to the treeview. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// itv_parent.dynamic event pfc_paste() end event on m_paste.create call super::create this.visible = false this.text = "&Paste" this.enabled = false this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_paste.destroy call super::destroy end on type m_clear from menu within m_viewitem end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: Clicked // // Description: Clear the item from the treeview. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// itv_parent.dynamic event pfc_clear() end event on m_clear.create call super::create this.visible = false this.text = "C&lear" this.enabled = false this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_clear.destroy call super::destroy end on type m_dash15 from menu within m_viewitem end type on m_dash15.create call super::create this.visible = false this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_dash15.destroy call super::destroy end on type m_new from menu within m_viewitem end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: Clicked // // Description: Add a new item to the treeview. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// itv_parent.dynamic event pfc_newitem() end event on m_new.create call super::create this.visible = false this.text = "&New" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_new.destroy call super::destroy end on type m_delete from menu within m_viewitem end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: Clicked // // Description: delete the selected items in the treeview. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// itv_parent.dynamic event pfc_deleteitem() end event on m_delete.create call super::create this.visible = false this.text = "&Delete" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_delete.destroy call super::destroy end on type m_rename from menu within m_viewitem end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: Clicked // // Description: Rename (edit) the treeview item. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// itv_parent.dynamic event pfc_renameitem() end event on m_rename.create call super::create this.visible = false this.text = "Renam&e" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_rename.destroy call super::destroy end on type m_dash16 from menu within m_viewitem end type on m_dash16.create call super::create this.visible = false this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_dash16.destroy call super::destroy end on type m_properties from menu within m_viewitem end type event clicked;////////////////////////////////////////////////////////////////////////////// // // Event: Clicked // // Description: Show the treeview properties dialog. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// itv_parent.dynamic event pfc_properties() end event on m_properties.create call super::create this.visible = false this.text = "P&roperties" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_properties.destroy call super::destroy end on
- Sources
- PFC2019
- ws_objects
- pfcmain
- pfcmain.pbl.src
- pfc_m_tvs.srm
File: pfc_m_tvs.srm
Size: 27177
Date: Sat, 08 May 2021 23:34:22 +0200
Size: 27177
Date: Sat, 08 May 2021 23:34:22 +0200
- menu pfc_m_tvs(srm)
- menu m_viewitem
- menu m_open
- menu m_find
- menu m_dash14
- menu m_cut
- menu m_copy
- menu m_paste
- menu m_clear
- menu m_dash15
- menu m_new
- menu m_delete
- menu m_rename
- menu m_dash16
- menu m_properties
- menu m_viewitem