Q5/ws_objects/Ew_filemanage.pbl.src/m_dfc_control_popupmenu_way.srm

$PBExportHeader$m_dfc_control_popupmenu_way.srm
$PBExportComments$超级菜单
forward
global type m_dfc_control_popupmenu_way from menu
end type
type m_commonpopup from menu within m_dfc_control_popupmenu_way
end type
global type m_dfc_control_popupmenu_way from menu
m_commonpopup m_commonpopup
end type
end forward

global type m_dfc_control_popupmenu_way from menu
m_commonpopup m_commonpopup
end type
global m_dfc_control_popupmenu_way m_dfc_control_popupmenu_way

type variables

end variables

forward prototypes
public subroutine mf_buildline ()
public subroutine mf_popmenu ()
public subroutine mf_buildmenu (any pgoobject, string psmenulist)
private subroutine mf_builditem (any pgoobject, string psmenutext, string pstag)
public subroutine mf_setenabled (string psmenuname, boolean pbchecked)
public subroutine mf_setchecked (string psmenuname, boolean pbchecked)
end prototypes

public subroutine mf_buildline ();//====================================================================
// 过程(Subroutine): m_dfc_control_popupmenu::mf_buildline()
//--------------------------------------------------------------------
// 描述(Description): 
//--------------------------------------------------------------------
// 参数(Arguments): (None)
//--------------------------------------------------------------------
// 返回(Returns):  (None)
//--------------------------------------------------------------------
// 作者:	董伟勇		日期: 2003.05.15
//--------------------------------------------------------------------
// 修改历史: 
//	
//--------------------------------------------------------------------
// 1998-2003 上海亿用软件有限公司 | DongSoft Team
//====================================================================

integer diPos
String dsItemText
diPos = upperbound(m_commonpopup.item)+1	// can only append now
m_dfc_control_popupmenu_Item dm
dm=create m_dfc_control_popupmenu_Item

 

dsItemText = "OK"

dm.item[1].Enabled = True
m_commonpopup.item[diPos] = dm.item[1]		//must be item[1], or you'll find a funny result
m_commonpopup.item[diPos].text = "-"
m_commonpopup.item[diPos].tag = "-"


end subroutine

public subroutine mf_popmenu ();//====================================================================
// 过程(Subroutine): m_dfc_control_popupmenu::mf_popmenu()
//--------------------------------------------------------------------
// 描述(Description): 
//--------------------------------------------------------------------
// 参数(Arguments): (None)
//--------------------------------------------------------------------
// 返回(Returns):  (None)
//--------------------------------------------------------------------
// 作者:	董伟勇		日期: 2003.05.15
//--------------------------------------------------------------------
// 修改历史: 
//	
//--------------------------------------------------------------------
// 1998-2003 上海亿用软件有限公司 | DongSoft Team
//====================================================================

m_CommonPopup.PopMenu(ParentWindow.PointerX(), ParentWindow.PointerY())
end subroutine

public subroutine mf_buildmenu (any pgoobject, string psmenulist);//====================================================================
// 过程(Subroutine): m_dfc_control_popupmenu::mf_buildmenu()
//--------------------------------------------------------------------
// 描述(Description): 建立菜单
//--------------------------------------------------------------------
// 参数(Arguments): 
//		string	psmenulist		菜单描述
//--------------------------------------------------------------------
// 返回(Returns):  (None)
//--------------------------------------------------------------------
// 作者:	董伟勇		日期: 2003.05.15
//--------------------------------------------------------------------
// 修改历史: 
//	
//--------------------------------------------------------------------
// 1998-2003 上海亿用软件有限公司 | DongSoft Team
//====================================================================

u_Dfc_Base_Func duFunc
String dsList[]
String dsMenuText
String dsEvent
String dsNote // 说明

Integer i
duFunc.uf_Split(psMenuList, "|", dsList)

For i = 1 To UpperBound(dsList)
	dsMenuText = duFunc.uf_GetKeyValue(dsList[i], "Text")
	mf_BuildItem(pgoObject, dsMenuText, dsList[i])	
Next

end subroutine

private subroutine mf_builditem (any pgoobject, string psmenutext, string pstag);//====================================================================
// 过程(Subroutine): m_dfc_control_popupmenu::mf_builditem()
//--------------------------------------------------------------------
// 描述(Description): 内部函数: 增加菜单条
//--------------------------------------------------------------------
// 参数(Arguments): 
//		string	psmenutext		菜单名称
//		string	pstag     		Tag
//--------------------------------------------------------------------
// 返回(Returns):  (None)
//--------------------------------------------------------------------
// 作者:	董伟勇		日期: 2003.05.15
//--------------------------------------------------------------------
// 修改历史: 
//	
//--------------------------------------------------------------------
// 1998-2003 上海亿用软件有限公司 | DongSoft Team
//====================================================================
u_Dfc_Base_Func duFunc
Integer diPos
diPos = upperbound(m_commonpopup.item)+1	// can only append now

m_dfc_control_popupmenu_Item dm
dm=create m_dfc_control_popupmenu_Item

dm.igoObject = pgoObject
dm.item[1].Enabled = True

If Upper(duFunc.uf_GetKeyValue(psTag, "Checked")) = "TRUE" Then
	dm.item[1].Checked = True
End If


m_commonpopup.item[diPos] = dm.item[1]
m_commonpopup.item[diPos].text = psMenuText
m_commonpopup.item[diPos].tag = psTag


end subroutine

public subroutine mf_setenabled (string psmenuname, boolean pbchecked);//====================================================================
// 过程(Subroutine): m_dfc_control_popupmenu::mf_setchecked()
//--------------------------------------------------------------------
// 描述(Description): 选择或者不选择指定菜单名称
//--------------------------------------------------------------------
// 参数(Arguments): 
//		string 	psmenuname		菜单名称
//		boolean	pbchecked 		是否选择
//--------------------------------------------------------------------
// 返回(Returns):  (None)
//--------------------------------------------------------------------
// 作者:	董伟勇		日期: 2003.05.15
//--------------------------------------------------------------------
// 修改历史: 
//	
//--------------------------------------------------------------------
// 1998-2003 上海亿用软件有限公司 | DongSoft Team
//====================================================================

Integer diPos

For diPos = 1 To UpperBound(m_commonpopup.Item)
	If Trim(Upper(m_commonpopup.item[diPos].Text)) = Trim(Upper(psMenuName)) Then
		m_commonpopup.item[diPos].Enabled = pbChecked
	End If
Next
end subroutine

public subroutine mf_setchecked (string psmenuname, boolean pbchecked);//====================================================================
// 过程(Subroutine): m_dfc_control_popupmenu::mf_setchecked()
//--------------------------------------------------------------------
// 描述(Description): 选择或者不选择指定菜单名称
//--------------------------------------------------------------------
// 参数(Arguments): 
//		string 	psmenuname		菜单名称
//		boolean	pbchecked 		是否选择
//--------------------------------------------------------------------
// 返回(Returns):  (None)
//--------------------------------------------------------------------
// 作者:	董伟勇		日期: 2003.05.15
//--------------------------------------------------------------------
// 修改历史: 
//	
//--------------------------------------------------------------------
// 1998-2003 上海亿用软件有限公司 | DongSoft Team
//====================================================================

Integer diPos

For diPos = 1 To UpperBound(m_commonpopup.Item)
	If Trim(Upper(m_commonpopup.item[diPos].Text)) = Trim(Upper(psMenuName)) Then
		m_commonpopup.item[diPos].Checked = pbChecked
	End If
Next
end subroutine

on m_dfc_control_popupmenu_way.create
m_dfc_control_popupmenu_way=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_commonpopup=create m_commonpopup
this.Item[UpperBound(this.Item)+1]=this.m_commonpopup
end on

on m_dfc_control_popupmenu_way.destroy
call super::destroy
destroy(this.m_commonpopup)
end on

type m_commonpopup from menu within m_dfc_control_popupmenu_way
end type

on m_commonpopup.create
call super::create
this.text = "CommonPopup"
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_commonpopup.destroy
call super::destroy
end on

event clicked;

//w_fj_bill_mng.triggerevent('ue_fileway')
//m_commonpopup.item[diPos] = dm.item[1]
//m_commonpopup.item[diPos].text = psMenuText
//m_commonpopup.item[diPos].tag = psTag
end event