Q5/ws_objects/Ew_define.pbl.src/w_mtrl_configure_ch.srw

$PBExportHeader$w_mtrl_configure_ch.srw
forward
global type w_mtrl_configure_ch from w_publ_base 
end type
type uo_1 from uo_mtrl_configure_ch within w_mtrl_configure_ch
end type
end forward

global type w_mtrl_configure_ch from w_publ_base
integer width = 1810
integer height = 1248
string title = "产品配置选择"
boolean minbox = false
windowtype windowtype = response!
uo_1 uo_1
end type
global w_mtrl_configure_ch w_mtrl_configure_ch

on w_mtrl_configure_ch.create
int iCurrent
call super::create
this.uo_1=create uo_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.uo_1
end on

on w_mtrl_configure_ch.destroy
call super::destroy
destroy(this.uo_1)
end on

type cb_func from w_publ_base`cb_func within w_mtrl_configure_ch
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_mtrl_configure_ch
boolean visible = false
end type

type uo_1 from uo_mtrl_configure_ch within w_mtrl_configure_ch
integer taborder = 50
boolean bringtotop = true
end type

on uo_1.destroy
call uo_mtrl_configure_ch::destroy
end on