$PBExportHeader$m_ljerp2_main_menu_item_sp1.srm $PBExportComments$超级菜单 forward global type m_ljerp2_main_menu_item_sp1 from menu end type type m_temp from menu within m_ljerp2_main_menu_item_sp1 end type global type m_ljerp2_main_menu_item_sp1 from menu m_temp m_temp end type end forward shared variables end variables global type m_ljerp2_main_menu_item_sp1 from menu m_temp m_temp end type global m_ljerp2_main_menu_item_sp1 m_ljerp2_main_menu_item_sp1 type variables end variables on m_ljerp2_main_menu_item_sp1.create m_ljerp2_main_menu_item_sp1=this call super::create this.text = "m_ljerp2_main_menu_item" 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_temp=create m_temp this.Item[UpperBound(this.Item)+1]=this.m_temp end on on m_ljerp2_main_menu_item_sp1.destroy call super::destroy destroy(this.m_temp) end on type m_temp from menu within m_ljerp2_main_menu_item_sp1 end type on m_temp.create call super::create this.text = "Temp" 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_temp.destroy call super::destroy end on event clicked;//==================================================================== // 事件(Event): m_temp::clicked() //-------------------------------------------------------------------- // 描述(Description): 菜单条触发时 //-------------------------------------------------------------------- // 参数(Arguments): (None) //-------------------------------------------------------------------- // 返回(Returns): (None) //-------------------------------------------------------------------- //==================================================================== IF UpperBound(Item) = 0 THEN String dsEventName //u_Dfc_Base_Func duFunc //duFunc.uf_GetKeyValue(Tag, "Event") dsEventName = 'ue_main_menu_commnd' // If dsEventName <> "" Then // 如果有效 // If IsValid(igoObject) Then // igoObject.TriggerEvent(dsEventName,long(Tag)) // Else IF Pos(Text,'(嵌入式)') > 0 THEN dsEventName = 'ue_main_meun_report' ELSEIF Pos(Text,'(外挂)') > 0 THEN dsEventName = 'ue_main_meun_plugins' ELSE dsEventName = 'ue_main_menu_commnd' END IF IF IsValid(w_main_scware) THEN w_main_scware.TriggerEvent(dsEventName,Long(Tag),Long(Tag)) END IF // IF IsValid(w_main_scware_biz) THEN // w_main_scware_biz.TriggerEvent(dsEventName,Long(Tag),Long(Tag)) // END IF // End If // End If END IF end event