Q5/ws_objects/Ew_bsnobj.pbl.src/uo_ddlb_mtrlprp.sru

$PBExportHeader$uo_ddlb_mtrlprp.sru
forward
global type uo_ddlb_mtrlprp from dropdownlistbox
end type
end forward

global type uo_ddlb_mtrlprp from dropdownlistbox
integer width = 549
integer height = 808
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "[全部属性]"
boolean sorted = false
boolean vscrollbar = true
string item[] = {"[全部属性]","成品","半成品","原料","其它"}
borderstyle borderstyle = stylelowered!
end type
global uo_ddlb_mtrlprp uo_ddlb_mtrlprp

type variables
Int uo_mtrlprp = -1

end variables

on uo_ddlb_mtrlprp.create
end on

on uo_ddlb_mtrlprp.destroy
end on

event selectionchanged;CHOOSE CASE Index
	CASE 1
		uo_mtrlprp = -1
	CASE 2
		uo_mtrlprp = 0
	CASE 3
		uo_mtrlprp = 1
	CASE 4
		uo_mtrlprp = 2
	CASE 5
		uo_mtrlprp = 8
END CHOOSE

end event