Q5/ws_objects/Ew_publ903.pbl.src/w_sys_printpage_value.srw

$PBExportHeader$w_sys_printpage_value.srw
forward
global type w_sys_printpage_value from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_sys_printpage_value
end type
type cb_yy from uo_imflatbutton within w_sys_printpage_value
end type
type cb_ok from uo_imflatbutton within w_sys_printpage_value
end type
type ddlb_orientation from dropdownlistbox within w_sys_printpage_value
end type
type em_column from editmask within w_sys_printpage_value
end type
type st_2 from statictext within w_sys_printpage_value
end type
type st_3 from statictext within w_sys_printpage_value
end type
type ddlb_size from dropdownlistbox within w_sys_printpage_value
end type
type em_column_width from editmask within w_sys_printpage_value
end type
type st_5 from statictext within w_sys_printpage_value
end type
type em_1 from editmask within w_sys_printpage_value
end type
type gb_1 from groupbox within w_sys_printpage_value
end type
type st_4 from statictext within w_sys_printpage_value
end type
type st_1 from statictext within w_sys_printpage_value
end type
type st_6 from statictext within w_sys_printpage_value
end type
type st_paperlist from statictext within w_sys_printpage_value
end type
type st_papersize from statictext within w_sys_printpage_value
end type
type st_7 from statictext within w_sys_printpage_value
end type
type cbx_1 from checkbox within w_sys_printpage_value
end type
type ddlb_1 from dropdownlistbox within w_sys_printpage_value
end type
end forward

global type w_sys_printpage_value from w_publ_base
integer x = 233
integer y = 112
integer width = 2318
integer height = 804
string title = "页面设置"
boolean minbox = false
windowtype windowtype = response!
cb_1 cb_1
cb_yy cb_yy
cb_ok cb_ok
ddlb_orientation ddlb_orientation
em_column em_column
st_2 st_2
st_3 st_3
ddlb_size ddlb_size
em_column_width em_column_width
st_5 st_5
em_1 em_1
gb_1 gb_1
st_4 st_4
st_1 st_1
st_6 st_6
st_paperlist st_paperlist
st_papersize st_papersize
st_7 st_7
cbx_1 cbx_1
ddlb_1 ddlb_1
end type
global w_sys_printpage_value w_sys_printpage_value

type prototypes
function boolean IsWindowsNT() library "PrintCtrl.dll"
SUBROUTINE About() library "PrintCtrl.dll"
function boolean GetDefaultPrinter(ref string PrinterName, int BufferLen) library "PrintCtrl.dll" alias for "GetDefaultPrinter;Ansi"
function boolean GetPrinterPort(ref string PrinterName, ref string Port, int PortLen, ref string Driver, int DriverLen) library "PrintCtrl.dll" alias for "GetPrinterPort;Ansi"
function boolean GetPrinterList(ref string PrinterList, ref long bufferLen) library "PrintCtrl.dll" alias for "GetPrinterList;Ansi"
function boolean GetPrinterStatus(ref string Printer, ref long status) library "PrintCtrl.dll" alias for "GetPrinterStatus;Ansi"
function boolean GetPaperList(ref string Printer, ref string PaperList, ref long bufferLen) library "PrintCtrl.dll" alias for "GetPaperList;Ansi"
function boolean SetPrinterDefault(ref string Printer) library "PrintCtrl.dll" alias for "SetPrinterDefault;Ansi"
function boolean AddCustomPaper( ref string Printer, ref string PaperName, long pwidth, long pheight, long left, long right, long top, long bottom) library "PrintCtrl.dll" alias for "AddCustomPaper;Ansi"
function boolean DeleteCustomPaper(ref string Printer, ref string PaperName) library "PrintCtrl.dll" alias for "DeleteCustomPaper;Ansi"
function boolean SetUserDefinePaper(ref string Printer, ref long pWidth, ref long pHeight) library "PrintCtrl.dll" alias for "SetUserDefinePaper;Ansi"
function boolean GetUserDefinePaperMinMax(ref string Printer, ref long minWidth, ref long minHeight, ref long maxWidth, ref long maxHeight) library "PrintCtrl.dll" alias for "GetUserDefinePaperMinMax;Ansi"
function boolean GetDefaultPaper(ref string Printer, ref string PaperName, ref int nOrientation) library "PrintCtrl.dll" alias for "GetDefaultPaper;Ansi"
function boolean SetDefaultPaper(ref string Printer, ref string PaperName, int nOrientation) library "PrintCtrl.dll" alias for "SetDefaultPaper;Ansi"
function boolean GetDefaultPaper(ref string Printer, ref string PaperName,ref long nPapserSize, ref long nOrientation) library "PrintCtrl.dll" alias for "GetDefaultPaper;Ansi"
function boolean GetPaperName(ref string Printer, ref string PaperName, int PaperSize) library "PrintCtrl.dll" alias for "GetPaperName;Ansi"
function boolean GetPaperSize(ref string Printer, ref string PaperName, ref int PaperSize) library "PrintCtrl.dll" alias for "GetPaperSize;Ansi"
function boolean GetBinNameList(ref string Printer, ref string BinNameList) library "PrintCtrl.dll" alias for "GetBinNameList;Ansi"
function boolean GetBin(ref string Printer, ref string BinName, ref int Bin) library "PrintCtrl.dll" alias for "GetBin;Ansi"
function boolean GetBinName(ref string Printer, ref string BinName, int Bin) library "PrintCtrl.dll" alias for "GetBinName;Ansi"
end prototypes

type variables
datawindow obj_dw
string dft_printername
long orientation_selected

end variables

forward prototypes
public subroutine wf_getpapersize ()
public subroutine wf_getpaperlist ()
end prototypes

public subroutine wf_getpapersize ();String printername
String papername
Boolean rt

if cbx_1.checked = true then
	if ddlb_size.text = '[默认]' then
		em_1.Text = '0'
		return 
	end if
	
	printername = dft_printername
	IF printername = "" THEN
		st_papersize.Text = "请选择一个打印机！"
		RETURN
	END IF
	
	papername = ddlb_size.text
	IF papername = "" THEN
		st_papersize.Text = "请选择一个纸张！"
		RETURN
	END IF
	Int size = 0
	rt = GetPaperSize(REF printername, REF papername, REF size)
	IF rt THEN
		em_1.Text = String(size)
	ELSE
		st_papersize.Text = "函数调用错误"
	END IF
else
	if ddlb_1.text = 'Default(0)' then
		em_1.Text = '0'
		return 
	elseif  ddlb_1.text = 'Lettle 8 1/2 * 11 in(1)' then
		em_1.Text = '1'
		return 
	elseif  ddlb_1.text = 'Lettle Small 8 1/2 * 11 in(2)' then
		em_1.Text = '2'
		return 
	elseif  ddlb_1.text = 'Tabloid 11 * 17 in (3)' then
		em_1.Text = '3'
		return 
	elseif  ddlb_1.text = 'Ledger 11 * 17 in (4)' then
		em_1.Text = '4'
		return 
	elseif  ddlb_1.text = 'Legal 8 1/2*14 in (5)' then
		em_1.Text = '5'
		return 
	elseif  ddlb_1.text = 'Statement 5 1/2* 8 1/2 in (6)' then
		em_1.Text = '6'
		return 
	elseif  ddlb_1.text = 'Executive 7 1/4 * 10 1/2 in(7)' then
		em_1.Text = '7'
		return 
	elseif  ddlb_1.text = 'A3 297 * 420 mm(8)' then
		em_1.Text = '8'
		return 
	elseif  ddlb_1.text = 'A4 210*297 mm(9)' then
		em_1.Text = '9'
		return 
	elseif  ddlb_1.text = 'A4 Small 210* 297 mm(10)' then
		em_1.Text = '10'
		return 
	elseif  ddlb_1.text = 'A5 148*210 mm(11)' then
		em_1.Text = '11'
		return 
	elseif  ddlb_1.text = 'B4 250*354 mm(12)' then
		em_1.Text = '12'
		return 
	elseif  ddlb_1.text = 'B5 182*257 mm(13)' then
		em_1.Text = '13'
		return 
	elseif  ddlb_1.text = 'Folio 8 1/2 * 13 in(14)' then
		em_1.Text = '14'
		return 
	elseif  ddlb_1.text = 'Quarto 215*2 mm(15)' then
		em_1.Text = '15'
		return 
	elseif  ddlb_1.text = '10*14 in(16)' then
		em_1.Text = '16'
		return 
	elseif  ddlb_1.text = '11*17 in(17))' then
		em_1.Text = '17'
		return 
	elseif  ddlb_1.text = 'Note 8 1/2 * 11 in(18)' then
		em_1.Text = '18'
		return 
	elseif  ddlb_1.text = 'Envelope #9 3 7/8* 8 7/8(19)' then
		em_1.Text = '19'
		return 
	elseif  ddlb_1.text = 'Envelope #10 4 1/8* 9 1/2(20)' then
		em_1.Text = '20'
		return 
	elseif  ddlb_1.text = 'Envelope #11 4 1/2* 10 3/8(21)' then
		em_1.Text = '21'
		return 
 
	elseif  ddlb_1.text = 'Envelope #12 4*11(22)' then
		em_1.Text = '22'
		return 
	 
	elseif  ddlb_1.text = 'Envelope #14 5*11 1/2(23)' then
		em_1.Text = '23'
		return 
	elseif  ddlb_1.text = 'C size sheet(24)' then
		em_1.Text = '24'
		return 
	elseif  ddlb_1.text = 'D size sheet(25)' then
		em_1.Text = '25'
		return 
	elseif  ddlb_1.text = 'E size sheet(26)' then
		em_1.Text = '26'
		return 
	end if
	
end if 

end subroutine

public subroutine wf_getpaperlist ();String printerName
String paperList
Long bufferlen = 0
Boolean rt
Long p1,p2
p1 = 1
p2 = 0


printerName = dft_printername
IF printerName = "" THEN
	st_paperlist.Text = "请选择一个打印机！"
	RETURN
END IF
ddlb_size.AddItem('[默认]')
rt = GetPaperList(REF printerName, REF paperList, REF bufferlen)
If (NOT rt) AND bufferlen > 0 THEN
	paperList = Space(bufferlen)
	rt = GetPaperList(REF printerName, REF paperList, REF bufferlen)
	IF rt THEN
		p2 = Pos(paperList,"~t",p1)
		DO WHILE p2 > 0
			ddlb_size.AddItem(Mid(paperList,p1,p2 - p1))
			p1 = p2+1
			p2 = Pos(paperList,"~t",p1)
		LOOP
	END IF
ELSE
	st_paperlist.Text = "调用函数出错！"
END IF



end subroutine

on w_sys_printpage_value.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.cb_yy=create cb_yy
this.cb_ok=create cb_ok
this.ddlb_orientation=create ddlb_orientation
this.em_column=create em_column
this.st_2=create st_2
this.st_3=create st_3
this.ddlb_size=create ddlb_size
this.em_column_width=create em_column_width
this.st_5=create st_5
this.em_1=create em_1
this.gb_1=create gb_1
this.st_4=create st_4
this.st_1=create st_1
this.st_6=create st_6
this.st_paperlist=create st_paperlist
this.st_papersize=create st_papersize
this.st_7=create st_7
this.cbx_1=create cbx_1
this.ddlb_1=create ddlb_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.cb_yy
this.Control[iCurrent+3]=this.cb_ok
this.Control[iCurrent+4]=this.ddlb_orientation
this.Control[iCurrent+5]=this.em_column
this.Control[iCurrent+6]=this.st_2
this.Control[iCurrent+7]=this.st_3
this.Control[iCurrent+8]=this.ddlb_size
this.Control[iCurrent+9]=this.em_column_width
this.Control[iCurrent+10]=this.st_5
this.Control[iCurrent+11]=this.em_1
this.Control[iCurrent+12]=this.gb_1
this.Control[iCurrent+13]=this.st_4
this.Control[iCurrent+14]=this.st_1
this.Control[iCurrent+15]=this.st_6
this.Control[iCurrent+16]=this.st_paperlist
this.Control[iCurrent+17]=this.st_papersize
this.Control[iCurrent+18]=this.st_7
this.Control[iCurrent+19]=this.cbx_1
this.Control[iCurrent+20]=this.ddlb_1
end on

on w_sys_printpage_value.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.cb_yy)
destroy(this.cb_ok)
destroy(this.ddlb_orientation)
destroy(this.em_column)
destroy(this.st_2)
destroy(this.st_3)
destroy(this.ddlb_size)
destroy(this.em_column_width)
destroy(this.st_5)
destroy(this.em_1)
destroy(this.gb_1)
destroy(this.st_4)
destroy(this.st_1)
destroy(this.st_6)
destroy(this.st_paperlist)
destroy(this.st_papersize)
destroy(this.st_7)
destroy(this.cbx_1)
destroy(this.ddlb_1)
end on

event open;call super::open;s_print_value s_print
s_print = Message.PowerObjectParm

obj_dw = s_print.obj_dw
dft_printername = s_print.dft_printername

IF obj_dw.DataObject = '' THEN RETURN
st_7.text = obj_dw.DataObject

IF dft_printername = '' THEN
	String printerName 
	Boolean rt
	//	printerName = space(255)
	//	rt = GetDefaultPrinter(ref printerName, 255)
	//	if rt then	
	//		dft_printername = trim(printerName)
	//	else
	//		dft_printername = ''
	//	end if
	
	String ls_fullstring = PrintGetPrinter()
	
	String ls_name, ls_driver, ls_port, ls_temp
	
	Long ll_placell_place,ll_place
	ll_placell_place = Pos (ls_fullstring, "~t")
	ls_name = Left(ls_fullstring, ll_place -1)
	ls_temp = Mid(ls_fullstring, ll_place +1)
	ll_place = Pos (ls_temp, "~t")
	ls_driver = Left(ls_temp, ll_place -1)
	ls_port = Mid(ls_temp, ll_place +1)
	
	dft_printername = ls_driver
	
//	MessageBox(ls_driver,ls_fullstring)
END IF

if cbx_1.checked = true then 
	ddlb_size.visible = true 
	ddlb_1.visible = false 
	wf_getpaperlist()
else
	ddlb_size.visible = false 
	ddlb_1.visible = true 
end if 

Int ls_int_1,ls_int_2
String ls_papername

ls_int_1 = Integer(String( obj_dw.Object.datawindow.Print.orientation )) + 1
ddlb_orientation.SelectItem( ls_int_1 )

ls_int_2 = Integer(String( obj_dw.Object.datawindow.Print.paper.size ))
em_1.Text = String( obj_dw.Object.datawindow.Print.paper.size )

ddlb_1.SelectItem( ls_int_2 + 1 )

//IF ls_int_2 = 0 THEN
//	ddlb_size.SelectItem( 1 )
//ELSE
//	IF GetPaperName(REF dft_printername, REF ls_papername, ls_int_2) THEN
//		ddlb_size.SelectItem( ddlb_size.FindItem(ls_papername,1) )
//	END IF
//END IF

IF f_ProfileString(sys_empid,obj_dw.DataObject , "ddlb_1",   "") <> "" THEN
	ddlb_1.text = f_ProfileString(sys_empid,obj_dw.DataObject , "ddlb_1",   "") 
ELSE
	ddlb_1.SelectItem( ls_int_2 + 1 )
END IF

IF f_ProfileString(sys_empid,obj_dw.DataObject , "ddlb_size",   "") <> "" THEN
	ddlb_size.text =  f_ProfileString(sys_empid,obj_dw.DataObject , "ddlb_size",   "") 
ELSE
	ddlb_size.SelectItem( 1 )
END IF
wf_getpapersize()

em_column.Text = String(obj_dw.Object.datawindow.Print.Columns )
em_column_width.Text = String(obj_dw.Object.datawindow.Print.Columns.Width )

orientation_selected = ls_int_1






end event

type cb_func from w_publ_base`cb_func within w_sys_printpage_value
boolean visible = false
integer x = 91
integer y = 484
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_sys_printpage_value
integer x = 1701
integer y = 528
end type

type cb_1 from uo_imflatbutton within w_sys_printpage_value
integer x = 1312
integer y = 528
integer width = 311
integer height = 96
integer taborder = 110
string text = "打印设置"
end type

event clicked;call super::clicked;PRINTSETUP()
end event

type cb_yy from uo_imflatbutton within w_sys_printpage_value
integer x = 923
integer y = 528
integer width = 311
integer height = 96
integer taborder = 100
string text = "应用"
end type

event clicked;call super::clicked;
obj_dw.Modify("datawindow.print.orientation="+string(orientation_selected - 1))
obj_dw.Object.datawindow.Print.paper.size = Integer(em_1.Text)
obj_dw.object.datawindow.print.columns=integer(em_column.text)
obj_dw.object.datawindow.print.columns.width=intEGER(em_column_width.text)

f_SetProfileString(sys_empid,'REPORT_PRINTPAGESET','PAPER_SIZE',em_1.Text)
f_SetProfileString(sys_empid,'REPORT_PRINTPAGESET','ORIENTATION',string(orientation_selected - 1))

f_SetProfileString(sys_empid,obj_dw.dataobject,'ddlb_1',ddlb_1.Text)
f_SetProfileString(sys_empid,obj_dw.dataobject,'ddlb_size',ddlb_size.Text)
end event

type cb_ok from uo_imflatbutton within w_sys_printpage_value
integer x = 535
integer y = 528
integer width = 311
integer height = 96
integer taborder = 90
boolean default = true
end type

event clicked;call super::clicked;
obj_dw.Modify("datawindow.print.orientation="+String(orientation_selected - 1))
obj_dw.Object.datawindow.Print.paper.size = Integer(em_1.Text)
obj_dw.Object.datawindow.Print.Columns = Integer(em_column.Text)
obj_dw.Object.datawindow.Print.Columns.Width = Integer(em_column_width.Text)

f_SetProfileString(sys_empid,'REPORT_PRINTPAGESET','PAPER_SIZE',em_1.Text)
f_SetProfileString(sys_empid,'REPORT_PRINTPAGESET','ORIENTATION',String(orientation_selected - 1))

f_SetProfileString(sys_empid,obj_dw.dataobject,'ddlb_1',ddlb_1.Text)
f_SetProfileString(sys_empid,obj_dw.dataobject,'ddlb_size',ddlb_size.Text)
Close(PARENT)


end event

type ddlb_orientation from dropdownlistbox within w_sys_printpage_value
integer x = 379
integer y = 36
integer width = 306
integer height = 304
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
string item[] = {"(默认)","横向","纵向"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;orientation_selected=index
end event

type em_column from editmask within w_sys_printpage_value
integer x = 379
integer y = 120
integer width = 306
integer height = 80
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "###0"
end type

event modified;IF LONG(THIS.TEXT)<=0 THEN 
	CB_OK.ENABLED=FALSE
ELSE
	CB_OK.ENABLED=TRUE
END IF
end event

type st_2 from statictext within w_sys_printpage_value
integer x = 55
integer y = 128
integer width = 315
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "打印列数:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_3 from statictext within w_sys_printpage_value
integer x = 55
integer y = 40
integer width = 315
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "纸张放置:"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_size from dropdownlistbox within w_sys_printpage_value
boolean visible = false
integer x = 1083
integer y = 92
integer width = 1093
integer height = 1000
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;wf_getpapersize()

end event

type em_column_width from editmask within w_sys_printpage_value
integer x = 379
integer y = 204
integer width = 306
integer height = 80
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1.0"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "######0"
end type

event modified;IF LONG(THIS.TEXT)<=0 THEN 
	CB_OK.ENABLED=FALSE
ELSE
	CB_OK.ENABLED=TRUE
END IF
end event

type st_5 from statictext within w_sys_printpage_value
integer x = 64
integer y = 312
integer width = 672
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "[3400单位约A4纸宽(21cm)]"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_1 from editmask within w_sys_printpage_value
integer x = 1083
integer y = 176
integer width = 201
integer height = 80
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "###0"
end type

type gb_1 from groupbox within w_sys_printpage_value
integer x = 800
integer y = 24
integer width = 1399
integer height = 268
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "纸张参数"
end type

type st_4 from statictext within w_sys_printpage_value
integer x = 55
integer y = 212
integer width = 315
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "次列纸边距:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_1 from statictext within w_sys_printpage_value
integer x = 818
integer y = 184
integer width = 247
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "纸张Size"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_6 from statictext within w_sys_printpage_value
integer x = 818
integer y = 96
integer width = 247
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "纸张列表"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_paperlist from statictext within w_sys_printpage_value
integer x = 818
integer y = 312
integer width = 1362
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
alignment alignment = right!
boolean focusrectangle = false
end type

type st_papersize from statictext within w_sys_printpage_value
integer x = 818
integer y = 388
integer width = 1362
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
alignment alignment = right!
boolean focusrectangle = false
end type

type st_7 from statictext within w_sys_printpage_value
integer x = 818
integer y = 456
integer width = 1362
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
alignment alignment = right!
boolean focusrectangle = false
end type

type cbx_1 from checkbox within w_sys_printpage_value
integer x = 64
integer y = 376
integer width = 713
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "使用Windows自带纸张列表"
boolean checked = true
end type

event clicked;if cbx_1.checked = true then 
	ddlb_size.visible = true 
	ddlb_1.visible = false 
	wf_getpaperlist()
else
	ddlb_size.visible = false 
	ddlb_1.visible = true 
end if 
end event

type ddlb_1 from dropdownlistbox within w_sys_printpage_value
integer x = 1083
integer y = 92
integer width = 1093
integer height = 1000
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
string item[] = {"Default(0)","Lettle 8 1/2 * 11 in(1)","Lettle Small 8 1/2 * 11 in(2)","Tabloid 11 * 17 in (3)","Ledger 11 * 17 in (4)","Legal 8 1/2*14 in (5)","Statement 5 1/2* 8 1/2 in (6)","Executive 7 1/4 * 10 1/2 in(7)","A3 297 * 420 mm(8)","A4 210*297 mm(9)","A4 Small 210* 297 mm(10)","A5 148*210 mm(11)","B4 250*354 mm(12)","B5 182*257 mm(13)","Folio 8 1/2 * 13 in(14)","Quarto 215*2 mm(15)","10*14 in(16)","11*17 in(17)","Note 8 1/2 * 11 in(18)","Envelope #9 3 7/8* 8 7/8(19)","Envelope #10 4 1/8* 9 1/2(20)","Envelope #11 4 1/2* 10 3/8(21)","Envelope #12 4*11(22)","Envelope #14 5*11 1/2(23)","C size sheet(24)","D size sheet(25)","E size sheet(26)"}
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;wf_getpapersize()

end event