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

$PBExportHeader$w_mtrlorigin_ch.srw
forward
global type w_mtrlorigin_ch from window
end type
type ddlb_mtrlprp from uo_ddlb_mtrlorigin within w_mtrlorigin_ch
end type
type st_3 from statictext within w_mtrlorigin_ch
end type
type cb_cancel from uo_imflatbutton within w_mtrlorigin_ch
end type
type cb_ok from uo_imflatbutton within w_mtrlorigin_ch
end type
end forward

global type w_mtrlorigin_ch from window
integer width = 997
integer height = 660
boolean titlebar = true
string title = "物料来源选择"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 134217739
string icon = "AppIcon!"
boolean center = true 
ddlb_mtrlprp ddlb_mtrlprp
st_3 st_3
cb_cancel cb_cancel
cb_ok cb_ok
end type
global w_mtrlorigin_ch w_mtrlorigin_ch

type variables
s_mtrlorigin rls_mtrlorigin
end variables

on w_mtrlorigin_ch.create
this.ddlb_mtrlprp=create ddlb_mtrlprp
this.st_3=create st_3
this.cb_cancel=create cb_cancel
this.cb_ok=create cb_ok
this.Control[]={this.ddlb_mtrlprp,&
this.st_3,&
this.cb_cancel,&
this.cb_ok}
end on

on w_mtrlorigin_ch.destroy
destroy(this.ddlb_mtrlprp)
destroy(this.st_3)
destroy(this.cb_cancel)
destroy(this.cb_ok)
end on

event close;closewithreturn(this,rls_mtrlorigin)
end event

event open;rls_mtrlorigin.mtrloriginid = -1
end event

type ddlb_mtrlprp from uo_ddlb_mtrlorigin within w_mtrlorigin_ch
integer x = 320
integer y = 152
integer width = 517
integer height = 480
integer taborder = 10
boolean bringtotop = true
end type

type st_3 from statictext within w_mtrlorigin_ch
integer x = 133
integer y = 168
integer width = 151
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "来源"
boolean focusrectangle = false
end type

type cb_cancel from uo_imflatbutton within w_mtrlorigin_ch
integer x = 549
integer y = 356
integer width = 265
integer taborder = 40
string text = "取消"
boolean cancel = true
end type

event clicked;call super::clicked;close(parent)
end event

type cb_ok from uo_imflatbutton within w_mtrlorigin_ch
integer x = 165
integer y = 356
integer width = 265
integer taborder = 30
end type

event clicked;call super::clicked;rls_mtrlorigin.mtrloriginid = ddlb_mtrlprp.uo_mtrlorigin
close(parent)
end event