Q5/ws_objects/Ew_mainface.pbl.src/m_define_pz.srm

$PBExportHeader$m_define_pz.srm
forward
global type m_define_pz from menu
end type
type m_0 from menu within m_define_pz
end type
type m_1 from menu within m_define_pz
end type
type m_2 from menu within m_define_pz
end type
global type m_define_pz from menu
m_0 m_0
m_1 m_1
m_2 m_2
end type
end forward

global type m_define_pz from menu
m_0 m_0
m_1 m_1
m_2 m_2
end type
global m_define_pz m_define_pz

on m_define_pz.create
m_define_pz=this
call super::create
this.text = "m_define_pz"
this.m_0=create m_0
this.m_1=create m_1
this.m_2=create m_2
this.Item[UpperBound(this.Item)+1]=this.m_0
this.Item[UpperBound(this.Item)+1]=this.m_1
this.Item[UpperBound(this.Item)+1]=this.m_2
end on

on m_define_pz.destroy
call super::destroy
destroy(this.m_0)
destroy(this.m_1)
destroy(this.m_2)
end on

type m_0 from menu within m_define_pz
end type

event clicked;f_sys_main(123)
end event

on m_0.create
call super::create
this.text = "颜色"
end on

on m_0.destroy
call super::destroy
end on

type m_1 from menu within m_define_pz
end type

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

on m_1.destroy
call super::destroy
end on

event clicked;f_sys_main(111)
end event

type m_2 from menu within m_define_pz
end type

on m_2.create
call super::create
this.text = "面料"
end on

on m_2.destroy
call super::destroy
end on

event clicked;f_sys_main(129)
end event