$PBExportHeader$w_rpt_setup.srw
$PBExportComments$打印纸设置--窗口
forward
global type w_rpt_setup from w_rpt_base
end type
type em_size from editmask within w_rpt_setup
end type
type st_4 from statictext within w_rpt_setup
end type
type st_3 from statictext within w_rpt_setup
end type
type st_papersize from statictext within w_rpt_setup
end type
type st_paperlist from statictext within w_rpt_setup
end type
type st_03 from statictext within w_rpt_setup
end type
type cb_1 from commandbutton within w_rpt_setup
end type
type cb_2 from commandbutton within w_rpt_setup
end type
type gb_11 from groupbox within w_rpt_setup
end type
type gb_3 from groupbox within w_rpt_setup
end type
type gb_2 from groupbox within w_rpt_setup
end type
type rb_5 from radiobutton within w_rpt_setup
end type
type rb_6 from radiobutton within w_rpt_setup
end type
type st_1 from statictext within w_rpt_setup
end type
type st_2 from statictext within w_rpt_setup
end type
type em_1 from editmask within w_rpt_setup
end type
type em_2 from editmask within w_rpt_setup
end type
type em_3 from editmask within w_rpt_setup
end type
type cb_20 from commandbutton within w_rpt_setup
end type
type rb_4 from radiobutton within w_rpt_setup
end type
type cbx_1 from checkbox within w_rpt_setup
end type
type rb_11 from radiobutton within w_rpt_setup
end type
type rb_12 from radiobutton within w_rpt_setup
end type
type em_01 from editmask within w_rpt_setup
end type
type em_02 from editmask within w_rpt_setup
end type
type st_01 from statictext within w_rpt_setup
end type
type gb_1 from groupbox within w_rpt_setup
end type
type ddlb_size from dropdownlistbox within w_rpt_setup
end type
type st_02 from statictext within w_rpt_setup
end type
type cbx_2 from checkbox within w_rpt_setup
end type
type em_03 from editmask within w_rpt_setup
end type
type cbx_3 from checkbox within w_rpt_setup
end type
end forward

global type w_rpt_setup from w_rpt_base
integer x = 553
integer y = 532
integer width = 2587
integer height = 888
string title = "打印参数设置窗口"
boolean minbox = false
boolean maxbox = false
boolean resizable = false
windowtype windowtype = response!
windowstate windowstate = normal!
em_size em_size
st_4 st_4
st_3 st_3
st_papersize st_papersize
st_paperlist st_paperlist
st_03 st_03
cb_1 cb_1
cb_2 cb_2
gb_11 gb_11
gb_3 gb_3
gb_2 gb_2
rb_5 rb_5
rb_6 rb_6
st_1 st_1
st_2 st_2
em_1 em_1
em_2 em_2
em_3 em_3
cb_20 cb_20
rb_4 rb_4
cbx_1 cbx_1
rb_11 rb_11
rb_12 rb_12
em_01 em_01
em_02 em_02
st_01 st_01
gb_1 gb_1
ddlb_size ddlb_size
st_02 st_02
cbx_2 cbx_2
em_03 em_03
cbx_3 cbx_3
end type
global w_rpt_setup w_rpt_setup

type prototypes
//Function int SetPaperSize(uint Width,uint Height,uint Orient) Library "mHand.dll"

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
string is_setup,is_range,is_size,is_pwidth,is_phigh
int ii_percent
datawindow dw1,dw2
string dft_printername

end variables

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

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
			
			string ls_papername
			ls_papername = Mid(paperList,p1,p2 - p1)
			ddlb_size.AddItem(ls_papername)
			
			Int size = 0
			boolean lb_rt
			lb_rt = GetPaperSize(REF printername, REF ls_papername, REF size)
			if is_size = string(size) then
				ddlb_size.text = ls_papername
			end if
			
			p1 = p2+1
			p2 = Pos(paperList,"~t",p1)
		LOOP
	END IF
ELSE
	st_paperlist.Text = "调用函数出错！"
END IF

ddlb_size.AddItem('自定义纸')

end subroutine

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

if ddlb_size.text = '[默认]' then
	em_size.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_size.Text = String(size)
ELSE
	st_papersize.Text = "函数调用错误"
END IF
end subroutine

on w_rpt_setup.create
int iCurrent
call super::create
this.em_size=create em_size
this.st_4=create st_4
this.st_3=create st_3
this.st_papersize=create st_papersize
this.st_paperlist=create st_paperlist
this.st_03=create st_03
this.cb_1=create cb_1
this.cb_2=create cb_2
this.gb_11=create gb_11
this.gb_3=create gb_3
this.gb_2=create gb_2
this.rb_5=create rb_5
this.rb_6=create rb_6
this.st_1=create st_1
this.st_2=create st_2
this.em_1=create em_1
this.em_2=create em_2
this.em_3=create em_3
this.cb_20=create cb_20
this.rb_4=create rb_4
this.cbx_1=create cbx_1
this.rb_11=create rb_11
this.rb_12=create rb_12
this.em_01=create em_01
this.em_02=create em_02
this.st_01=create st_01
this.gb_1=create gb_1
this.ddlb_size=create ddlb_size
this.st_02=create st_02
this.cbx_2=create cbx_2
this.em_03=create em_03
this.cbx_3=create cbx_3
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.em_size
this.Control[iCurrent+2]=this.st_4
this.Control[iCurrent+3]=this.st_3
this.Control[iCurrent+4]=this.st_papersize
this.Control[iCurrent+5]=this.st_paperlist
this.Control[iCurrent+6]=this.st_03
this.Control[iCurrent+7]=this.cb_1
this.Control[iCurrent+8]=this.cb_2
this.Control[iCurrent+9]=this.gb_11
this.Control[iCurrent+10]=this.gb_3
this.Control[iCurrent+11]=this.gb_2
this.Control[iCurrent+12]=this.rb_5
this.Control[iCurrent+13]=this.rb_6
this.Control[iCurrent+14]=this.st_1
this.Control[iCurrent+15]=this.st_2
this.Control[iCurrent+16]=this.em_1
this.Control[iCurrent+17]=this.em_2
this.Control[iCurrent+18]=this.em_3
this.Control[iCurrent+19]=this.cb_20
this.Control[iCurrent+20]=this.rb_4
this.Control[iCurrent+21]=this.cbx_1
this.Control[iCurrent+22]=this.rb_11
this.Control[iCurrent+23]=this.rb_12
this.Control[iCurrent+24]=this.em_01
this.Control[iCurrent+25]=this.em_02
this.Control[iCurrent+26]=this.st_01
this.Control[iCurrent+27]=this.gb_1
this.Control[iCurrent+28]=this.ddlb_size
this.Control[iCurrent+29]=this.st_02
this.Control[iCurrent+30]=this.cbx_2
this.Control[iCurrent+31]=this.em_03
this.Control[iCurrent+32]=this.cbx_3
end on

on w_rpt_setup.destroy
call super::destroy
destroy(this.em_size)
destroy(this.st_4)
destroy(this.st_3)
destroy(this.st_papersize)
destroy(this.st_paperlist)
destroy(this.st_03)
destroy(this.cb_1)
destroy(this.cb_2)
destroy(this.gb_11)
destroy(this.gb_3)
destroy(this.gb_2)
destroy(this.rb_5)
destroy(this.rb_6)
destroy(this.st_1)
destroy(this.st_2)
destroy(this.em_1)
destroy(this.em_2)
destroy(this.em_3)
destroy(this.cb_20)
destroy(this.rb_4)
destroy(this.cbx_1)
destroy(this.rb_11)
destroy(this.rb_12)
destroy(this.em_01)
destroy(this.em_02)
destroy(this.st_01)
destroy(this.gb_1)
destroy(this.ddlb_size)
destroy(this.st_02)
destroy(this.cbx_2)
destroy(this.em_03)
destroy(this.cbx_3)
end on

event open;call super::open;f_wcenter(this)
string ls_currentrecord,ls_orientation
is_datasource=istr_rpt.datasource
dw1=istr_rpt.userdw
dw2=istr_rpt.userdw2
is_setup=istr_rpt.uservar
dft_printername = istr_rpt.printername

is_pwidth=mid(is_setup,11,5)
is_phigh=mid(is_setup,16,5)
if is_pwidth='' then is_pwidth='0127'
if is_phigh='' then is_phigh='0127'
em_01.text=is_pwidth
em_02.text=is_phigh


ls_currentrecord=mid(is_setup,10,1)//打印当前记录
ls_orientation=mid(is_setup,7,1)//打印方向
if ls_currentrecord='' then ls_currentrecord='n'

is_size=string(dw2.Object.DataWindow.Print.Paper.Size)

//获取纸张大小列表
wf_getpaperlist()

//choose case is_size
//	case '9'
//		ddlb_1.text='A4复印纸       9'
//	case '8'
//		ddlb_1.text='A3复印纸       8'
//	case '0','256'
//		ddlb_1.text='自定义纸       0'
//	case '1'
//		ddlb_1.text='窄行打印纸     1'
//	case else
//		ddlb_1.text='宽行打印纸    39'
//end choose
if is_size<>'0' and is_size<>'256' then
	st_01.visible=false
	st_02.visible=false
	st_03.visible=false
	em_01.visible=false
	em_02.visible=false
	
end if

em_size.text = string(is_size)

if ls_orientation='1' then
	rb_12.checked=true
else
	rb_11.checked=true
end if
is_range=dw2.Object.DataWindow.Print.Page.Range
if ls_currentrecord='y' then //打印当前记录
	rb_4.checked=true
	rb_5.checked=false
	em_1.enabled=false
	em_2.enabled=false
else
	if is_range='' then
		em_1.enabled=false
		em_2.enabled=false
	else
		rb_5.checked=false
		rb_6.checked=true
		em_1.enabled=true
		em_2.enabled=true
	end if
end if
if mid(is_setup,9,1)='y' then//纸张套打
	cbx_1.checked=true
else
	cbx_1.checked=false
end if
if mid(is_setup,21,1)='1' then//打完不走纸,暂时不起作用
	cbx_2.checked=true
else
	cbx_2.checked=false
end if
if mid(is_setup,22,1)='1' then//每页固定行数
	cbx_3.checked=true
	em_03.enabled=true
end if
em_03.text=mid(is_setup,23,3)//每页固定行数

if is_range='' then
	em_1.text='1'
	if dw2.rowcount()>0 then
		em_2.text=dw2.Describe("evaluate('pagecount()',1)")//打印总页数
	else
		em_2.text='1'
	end if
else
	em_1.text=left(is_range,pos(is_range,'-') - 1)
	em_2.text=right(is_range,len(is_range) - pos(is_range,'-'))
end if
em_3.text=string(dw2.Object.DataWindow.zoom)
//if not isvalid(dw1) then//报表设计窗口没打开
//	ddlb_1.enabled=false
//	em_3.enabled=false
//	cbx_1.enabled=false
//end if
if is_datasource<>'dw' then
	rb_4.enabled=false
end if
end event

type em_size from editmask within w_rpt_setup
integer x = 1317
integer y = 204
integer width = 210
integer height = 84
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "####0"
string displaydata = ""
double increment = 1
string minmax = "1~~"
end type

type st_4 from statictext within w_rpt_setup
integer x = 1051
integer y = 208
integer width = 233
integer height = 64
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "纸张Size"
boolean focusrectangle = false
end type

type st_3 from statictext within w_rpt_setup
integer x = 1051
integer y = 112
integer width = 219
integer height = 64
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "纸张列表"
boolean focusrectangle = false
end type

type st_papersize from statictext within w_rpt_setup
integer x = 1829
integer y = 544
integer width = 402
integer height = 68
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
alignment alignment = right!
boolean focusrectangle = false
end type

type st_paperlist from statictext within w_rpt_setup
integer x = 1061
integer y = 544
integer width = 402
integer height = 68
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
alignment alignment = right!
boolean focusrectangle = false
end type

type st_03 from statictext within w_rpt_setup
integer x = 1893
integer y = 212
integer width = 73
integer height = 64
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "高"
alignment alignment = right!
boolean focusrectangle = false
end type

type cb_1 from commandbutton within w_rpt_setup
integer x = 251
integer y = 660
integer width = 242
integer height = 108
integer taborder = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;is_size= em_size.text
if rb_4.checked=true then//打印当前记录
	is_size=is_size+space(9 -len(is_size))+'y'
	is_range=''
elseif rb_5.checked=true then//全部打印
	is_size=is_size+space(9 -len(is_size))+'n'
	is_range=''
elseif rb_6.checked=true then//打印页数
	is_size=is_size+space(9 -len(is_size))+'n'
	is_range=em_1.text+'-'+em_2.text
end if
if cbx_1.checked=true then//纸张套打
	is_size=left(is_size,8)+'y'+mid(is_size,10)
else
	is_size=left(is_size,8)+'n'+mid(is_size,10)
end if
if rb_12.checked=true then//纵向
	is_size=left(is_size,6)+'1'+mid(is_size,8)
else
	is_size=left(is_size,6)+'2'+mid(is_size,8)//横向
end if
is_pwidth=string(long(em_01.text),'00000')
is_size=is_size+is_pwidth//15
is_phigh=string(long(em_02.text),'00000')
is_size=is_size+is_phigh//20
if cbx_2.checked=true then//打完不走纸,暂时不起作用
	is_size=is_size+'1'//21
else
	is_size=is_size+'0'//21
end if
if cbx_3.checked=true then//每页固定行数标志
	is_size=is_size+'1'//22
else
	is_size=is_size+'0'//22
end if
is_size=is_size+string(long(em_03.text),'000')//每页固定行数
ii_percent=long(em_3.text)

//w_rpt_preview.is_setup=is_size
//w_rpt_preview.ii_percent=ii_percent
is_temp=is_range+','+is_size+';'+string(ii_percent)

closewithreturn(parent,is_temp)

end event

type cb_2 from commandbutton within w_rpt_setup
integer x = 768
integer y = 660
integer width = 242
integer height = 108
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;close(parent)
end event

type gb_11 from groupbox within w_rpt_setup
integer x = 1024
integer y = 320
integer width = 658
integer height = 192
integer taborder = 10
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "打印方向"
end type

type gb_3 from groupbox within w_rpt_setup
integer x = 681
integer y = 52
integer width = 329
integer height = 200
integer taborder = 30
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "打印比例%"
end type

type gb_2 from groupbox within w_rpt_setup
integer x = 18
integer y = 52
integer width = 626
integer height = 400
integer taborder = 100
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "打印范围"
end type

type rb_5 from radiobutton within w_rpt_setup
integer x = 64
integer y = 180
integer width = 288
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "全部"
boolean checked = true
end type

event clicked;em_1.enabled=false
em_2.enabled=false
end event

type rb_6 from radiobutton within w_rpt_setup
integer x = 64
integer y = 256
integer width = 242
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "页数"
end type

event clicked;em_1.enabled=true
em_2.enabled=true
end event

type st_1 from statictext within w_rpt_setup
integer x = 69
integer y = 344
integer width = 55
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
boolean enabled = false
string text = "从"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_2 from statictext within w_rpt_setup
integer x = 334
integer y = 344
integer width = 64
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
boolean enabled = false
string text = "到"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_1 from editmask within w_rpt_setup
integer x = 128
integer y = 332
integer width = 210
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "####0"
boolean spin = true
string displaydata = ""
double increment = 1
string minmax = "1~~"
end type

type em_2 from editmask within w_rpt_setup
integer x = 402
integer y = 332
integer width = 210
integer height = 84
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "####0"
boolean spin = true
string displaydata = ""
double increment = 1
string minmax = "1~~"
end type

type em_3 from editmask within w_rpt_setup
integer x = 727
integer y = 124
integer width = 238
integer height = 84
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
string text = "100"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "###"
boolean spin = true
double increment = 1
string minmax = "1~~999"
end type

type cb_20 from commandbutton within w_rpt_setup
event clicked pbm_bnclicked
integer x = 1285
integer y = 660
integer width = 274
integer height = 108
integer taborder = 130
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "帮助(&H)"
end type

event clicked;ShowHelp("report.HLP", keyword!, "report_setup")
end event

type rb_4 from radiobutton within w_rpt_setup
event clicked pbm_bnclicked
integer x = 64
integer y = 112
integer width = 315
integer height = 68
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "当前记录"
end type

event clicked;em_1.enabled=false
em_2.enabled=false
end event

type cbx_1 from checkbox within w_rpt_setup
integer x = 677
integer y = 288
integer width = 302
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "纸张套打"
end type

type rb_11 from radiobutton within w_rpt_setup
integer x = 1088
integer y = 404
integer width = 197
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "纵向"
end type

type rb_12 from radiobutton within w_rpt_setup
integer x = 1417
integer y = 404
integer width = 197
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "横向"
end type

type em_01 from editmask within w_rpt_setup
integer x = 1632
integer y = 200
integer width = 251
integer height = 84
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "####0"
boolean spin = true
double increment = 1
string minmax = "127~~4191"
end type

type em_02 from editmask within w_rpt_setup
integer x = 1966
integer y = 204
integer width = 251
integer height = 84
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "####0"
boolean spin = true
double increment = 1
string minmax = "127~~23119"
end type

type st_01 from statictext within w_rpt_setup
integer x = 1536
integer y = 212
integer width = 73
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
boolean enabled = false
string text = "宽"
alignment alignment = right!
boolean focusrectangle = false
end type

type gb_1 from groupbox within w_rpt_setup
integer x = 1024
integer y = 32
integer width = 1499
integer height = 288
integer taborder = 20
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "纸张参数"
end type

type ddlb_size from dropdownlistbox within w_rpt_setup
integer x = 1280
integer y = 96
integer width = 1207
integer height = 352
integer taborder = 90
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;if this.text= '自定义纸' then
	st_01.visible=true
	st_02.visible=true
	st_03.visible=true
	em_01.visible=true
	em_02.visible=true
else
	st_01.visible=false
	st_02.visible=false
	st_03.visible=false
	em_01.visible=false
	em_02.visible=false
end if


wf_getpapersize()
end event

type st_02 from statictext within w_rpt_setup
integer x = 2217
integer y = 212
integer width = 288
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "单位:0.1mm"
alignment alignment = center!
boolean focusrectangle = false
end type

type cbx_2 from checkbox within w_rpt_setup
boolean visible = false
integer x = 677
integer y = 372
integer width = 361
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "打完不走纸"
end type

type em_03 from editmask within w_rpt_setup
integer x = 462
integer y = 464
integer width = 192
integer height = 84
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16777215
boolean enabled = false
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "###"
boolean spin = true
double increment = 1
string minmax = "0~~999"
end type

type cbx_3 from checkbox within w_rpt_setup
integer x = 41
integer y = 468
integer width = 411
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 80269524
string text = "每页固定行数"
end type

event clicked;if checked then
	em_03.enabled=true
else
	em_03.enabled=false
end if
end event