Q5/ws_objects/longjoe_report_uo.pbl.src/w_rpt_colp.srw

$PBExportHeader$w_rpt_colp.srw
$PBExportComments$列特性-- 窗口
forward
global type w_rpt_colp from Window
end type
type cb_2 from commandbutton within w_rpt_colp
end type
type cb_1 from commandbutton within w_rpt_colp
end type
type dw1 from datawindow within w_rpt_colp
end type
end forward

global type w_rpt_colp from Window
int X=5
int Y=320
int Width=3406
int Height=1648
boolean TitleBar=true
string Title="列特性"
long BackColor=80269524
boolean ControlMenu=true
WindowType WindowType=response!
cb_2 cb_2
cb_1 cb_1
dw1 dw1
end type
global w_rpt_colp w_rpt_colp

type variables
int i,ii_rows
datawindow idw
end variables

on w_rpt_colp.create
this.cb_2=create cb_2
this.cb_1=create cb_1
this.dw1=create dw1
this.Control[]={this.cb_2,&
this.cb_1,&
this.dw1}
end on

on w_rpt_colp.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.dw1)
end on

event open;f_wcenter(this)
idw=w_rpt_main.dw3
idw.rowscopy(1,idw.rowcount(),Primary!,dw1,1,Primary!)

end event

type cb_2 from commandbutton within w_rpt_colp
int X=1847
int Y=1440
int Width=247
int Height=108
int TabOrder=20
string Text="取消"
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontPitch FontPitch=Variable!
end type

event clicked;close(parent)
end event

type cb_1 from commandbutton within w_rpt_colp
int X=1221
int Y=1440
int Width=247
int Height=108
int TabOrder=10
string Text="确认"
int TextSize=-9
int Weight=400
string FaceName="宋体"
FontPitch FontPitch=Variable!
end type

event clicked;dw1.accepttext()
idw.reset()
dw1.rowscopy(1,dw1.rowcount(),Primary!,idw,1,Primary!)
w_rpt_main.ii_save=1
close(parent)
end event

type dw1 from datawindow within w_rpt_colp
int Width=3387
int Height=1424
int TabOrder=30
string DataObject="dw_rpt_colp"
BorderStyle BorderStyle=StyleLowered!
boolean HScrollBar=true
boolean VScrollBar=true
boolean HSplitScroll=true
boolean LiveScroll=true
end type