PBMiner

$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