Q5/ws_objects/longjoe_report_uo.pbl.src/m_rpt_pop.srm

$PBExportHeader$m_rpt_pop.srm
$PBExportComments$设计器右鼠标--菜单
forward
global type m_rpt_pop from menu
end type
type m_popup from menu within m_rpt_pop
end type
type m_dxsx from menu within m_popup
end type
type m_-0 from menu within m_popup
end type
type m_c from menu within m_popup
end type
type m_d from menu within m_popup
end type
type m_a from menu within m_popup
end type
type m_1 from menu within m_popup
end type
type m_e from menu within m_popup
end type
type m_f from menu within m_popup
end type
type m_cross from menu within m_popup
end type
type m_popup from menu within m_rpt_pop
m_dxsx m_dxsx
m_-0 m_-0
m_c m_c
m_d m_d
m_a m_a
m_1 m_1
m_e m_e
m_f m_f
m_cross m_cross
end type
global type m_rpt_pop from menu
m_popup m_popup
end type
end forward

global type m_rpt_pop from menu
m_popup m_popup
end type
global m_rpt_pop m_rpt_pop

on m_rpt_pop.create
m_rpt_pop=this
call super::create
this.m_popup=create m_popup
this.Item[UpperBound(this.Item)+1]=this.m_popup
end on

on m_rpt_pop.destroy
call super::destroy
destroy(this.m_popup)
end on

type m_popup from menu within m_rpt_pop
m_dxsx m_dxsx
m_-0 m_-0
m_c m_c
m_d m_d
m_a m_a
m_1 m_1
m_e m_e
m_f m_f
m_cross m_cross
end type

on m_popup.create
call super::create
this.text = "文件"
this.mergeoption = filemenu!
this.m_dxsx=create m_dxsx
this.m_-0=create m_-0
this.m_c=create m_c
this.m_d=create m_d
this.m_a=create m_a
this.m_1=create m_1
this.m_e=create m_e
this.m_f=create m_f
this.m_cross=create m_cross
this.Item[UpperBound(this.Item)+1]=this.m_dxsx
this.Item[UpperBound(this.Item)+1]=this.m_-0
this.Item[UpperBound(this.Item)+1]=this.m_c
this.Item[UpperBound(this.Item)+1]=this.m_d
this.Item[UpperBound(this.Item)+1]=this.m_a
this.Item[UpperBound(this.Item)+1]=this.m_1
this.Item[UpperBound(this.Item)+1]=this.m_e
this.Item[UpperBound(this.Item)+1]=this.m_f
this.Item[UpperBound(this.Item)+1]=this.m_cross
end on

on m_popup.destroy
call super::destroy
destroy(this.m_dxsx)
destroy(this.m_-0)
destroy(this.m_c)
destroy(this.m_d)
destroy(this.m_a)
destroy(this.m_1)
destroy(this.m_e)
destroy(this.m_f)
destroy(this.m_cross)
end on

type m_dxsx from menu within m_popup
end type

on m_dxsx.create
call super::create
this.text = "属性"
end on

event clicked;parentwindow.event dynamic ue_properties('')
end event

on m_dxsx.destroy
call super::destroy
end on

type m_-0 from menu within m_popup
end type

on m_-0.create
call super::create
this.text = "-"
end on

on m_-0.destroy
call super::destroy
end on

type m_c from menu within m_popup
end type

on m_c.create
call super::create
this.text = "复制(&T)"
end on

event clicked;parentwindow.event dynamic ue_copy()

end event

on m_c.destroy
call super::destroy
end on

type m_d from menu within m_popup
end type

on m_d.create
call super::create
this.text = "删除(&D)"
end on

event clicked;parentwindow.event dynamic ue_delobj()

end event

on m_d.destroy
call super::destroy
end on

type m_a from menu within m_popup
end type

on m_a.create
call super::create
this.text = "全选(&A)"
end on

event clicked;parentwindow.event dynamic ue_sel_yes('all')
end event

on m_a.destroy
call super::destroy
end on

type m_1 from menu within m_popup
end type

on m_1.create
call super::create
this.text = "-"
end on

on m_1.destroy
call super::destroy
end on

type m_e from menu within m_popup
end type

on m_e.create
call super::create
this.text = "置顶层"
end on

event clicked;parentwindow.event dynamic ue_cc(1)
end event

on m_e.destroy
call super::destroy
end on

type m_f from menu within m_popup
end type

on m_f.create
call super::create
this.text = "置底层"
end on

event clicked;parentwindow.event dynamic ue_cc(0)
end event

on m_f.destroy
call super::destroy
end on

type m_cross from menu within m_popup
end type

on m_cross.create
call super::create
this.text = "Crosstab设置(&C)"
end on

event clicked;parentwindow.event dynamic ue_properties('crosstab')
end event

on m_cross.destroy
call super::destroy
end on