$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