$PBExportHeader$m_dynamicitem.srm forward global type m_dynamicitem from menu end type type m_dynamic_item from menu within m_dynamicitem end type global type m_dynamicitem from menu m_dynamic_item m_dynamic_item end type end forward global type m_dynamicitem from menu m_dynamic_item m_dynamic_item end type global m_dynamicitem m_dynamicitem type variables Window iw_parent Integer ii_index end variables on m_dynamicitem.create m_dynamicitem=this call super::create this.menustyle = contemporarymenu! 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_dynamic_item=create m_dynamic_item this.Item[UpperBound(this.Item)+1]=this.m_dynamic_item end on on m_dynamicitem.destroy call super::destroy destroy(this.m_dynamic_item) end on type m_dynamic_item from menu within m_dynamicitem end type on m_dynamic_item.create call super::create this.text = "Dynamic Item" this.toolbaritemvisible = false this.toolbaritemname = "custom080!" this.menuimage = "psrviewer.ico" this.menustyle = contemporarymenu! 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_dynamic_item.destroy call super::destroy end on event clicked;// call window function to perform action gw_frame.Dynamic wf_DynamicMenus(ii_index) end event
File: m_dynamicitem.srm
Size: 2090
Date: Fri, 25 Oct 2019 20:08:22 +0200
Size: 2090
Date: Fri, 25 Oct 2019 20:08:22 +0200
- menu m_dynamicitem(srm)